From 626ade0d0a7535ff1aeb92914f8d06d2c4a83013 Mon Sep 17 00:00:00 2001 From: Antonin Ruan Date: Mon, 28 Apr 2025 17:39:39 +0200 Subject: [PATCH] Add zoxide and llvm ir mode for emacs --- .emacs | 10 ++ .emacs.local/llvm-mode.el | 292 ++++++++++++++++++++++++++++++++++++++ .p10k.omp.yml | 2 +- .zshrc | 1 + 4 files changed, 304 insertions(+), 1 deletion(-) create mode 100644 .emacs.local/llvm-mode.el diff --git a/.emacs b/.emacs index 6dcf474..ec85297 100644 --- a/.emacs +++ b/.emacs @@ -123,6 +123,9 @@ (require 'fasm-mode) (add-to-list 'auto-mode-alist '("\\.asm\\'" . fasm-mode)) +(require 'llvm-mode) +(add-to-list 'auto-mode-alist '("\\.ll\\'" . llvm-mode)) + (require 'simpc-mode) ;; (add-to-list 'auto-mode-alist '("\\.[hc]\\(pp\\)?\\'" . simpc-mode)) @@ -337,6 +340,9 @@ (add-hook 'asm-mode-hook #'my-asm-mode-hook) +;;; Clang format +(rc/require 'clang-format) + ;;; Lsp-mode (rc/require 'lsp-mode 'lsp-treemacs @@ -355,6 +361,10 @@ (add-hook 'c++-mode-hook 'lsp) (add-hook 'python-mode 'lsp) +;;; zoxide +(rc/require 'zoxide) +(add-hook 'dired-after-readin-hook 'zoxide-add) + (setq gc-cons-threshold (* 100 1024 1024) read-process-output-max (* 1024 1024) treemacs-space-between-root-nodes nil diff --git a/.emacs.local/llvm-mode.el b/.emacs.local/llvm-mode.el new file mode 100644 index 0000000..c548692 --- /dev/null +++ b/.emacs.local/llvm-mode.el @@ -0,0 +1,292 @@ +;;; llvm-mode.el --- Major mode for the LLVM IR language -*- lexical-binding: t; -*- +;; +;; This is free and unencumbered software released into the public domain. +;; +;; Author: Noah Peart +;; URL: https://github.com/nverno/llvm-mode +;; Package-Requires: ((emacs "25.1")) +;; Created: 16 February 2020 +;; Version: 0.1.0 + +;; This file is not part of GNU Emacs. +;; +;; This program is free software; you can redistribute it and/or +;; modify it under the terms of the GNU General Public License as +;; published by the Free Software Foundation; either version 3, or +;; (at your option) any later version. +;; +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;; General Public License for more details. +;; +;; You should have received a copy of the GNU General Public License +;; along with this program; see the file COPYING. If not, write to +;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth +;; Floor, Boston, MA 02110-1301, USA. + +;;; Commentary: + +;; Major mode for editing LLVM IR files. + +;; Modified from https://github.com/llvm-mirror/llvm//utils/emacs/llvm-mode.el +;; to include +;; - additional syntax +;; - font-lock for globals (vars/declares/defines) +;; - imenu +;; - indentation: `llvm-mode-indent-offset' and `llvm-mode-label-offset' +;; - completion: +;; + global variables +;; + global declares/defines +;; TODO: +;; + keywords / attributes +;; + could add labels / %uids as well +;; +;; - vim syntax => https://github.com/llvm-mirror/llvm/utils/vim/syntax/llvm.vim +;; +;; Reference: +;; https://github.com/llvm-mirror/llvm/docs/LangRef.rst +;; +;;; Installation: +;; +;; Add to `load-path' and generate autoloads or +;; ```lisp +;; (require 'llvm-mode) +;; ``` +;; +;;; Code: +(require 'smie) + +(defgroup llvm nil + "Major mode for editing llvm assembly source code." + :group 'languages + :prefix "llvm-") + +(defcustom llvm-mode-indent-offset 2 + "Indentation column following opening braces." + :group 'llvm + :type 'integer) + +(defcustom llvm-mode-label-offset 0 + "Indentation column for labels." + :group 'llvm + :type 'integer) + +(defvar llvm-mode-lookup-instruction-uri + "https://llvm.org/docs/LangRef.html#%s-instruction") + +(defvar llvm-mode-syntax-table + (let ((table (make-syntax-table))) + (modify-syntax-entry ?% "_" table) + (modify-syntax-entry ?. "_" table) + (modify-syntax-entry ?\; "< " table) + (modify-syntax-entry ?\n "> " table) + (modify-syntax-entry ?: "." table) + (modify-syntax-entry ?* "." table) + table) + "Syntax table used while in LLVM mode.") + +(defconst llvm-mode-font-lock-keywords + (list + ;; Attributes + `(,(regexp-opt + '("alwaysinline" "argmemonly" "builtin" "cold" "convergent" "immarg" + "inaccessiblemem_or_argmemonly" "inaccessiblememonly" "inlinehint" + "jumptable" "minsize" "naked" "nobuiltin" "noduplicate" + "noimplicitfloat" "noinline" "nonlazybind" "norecurse" "noredzone" + "noreturn" "nounwind" "optnone" "optsize" "readnone" "readonly" + "returns_twice" "safestack" "sanitize_address" "sanitize_hwaddress" + "sanitize_memory" "sanitize_memtag" "sanitize_thread" "speculatable" + "ssp" "sspreq" "sspstrong" "strictfp" "uwtable" "writeonly") + 'symbols) + . font-lock-constant-face) + ;; Globals + '("@[[:alnum:]_]+" . font-lock-function-name-face) + ;; Variables + '("%[-a-zA-Z$._][-a-zA-Z$._0-9]*" . font-lock-variable-name-face) + ;; Labels + '("[-a-zA-Z$._0-9]+:" . font-lock-variable-name-face) + ;; Unnamed variable slots + '("%[-]?[0-9]+" . font-lock-variable-name-face) + ;; Types + `(,(regexp-opt + '("void" "i1" "i8" "i16" "i32" "i64" "i128" "float" "double" "type" + "label" "opaque") + 'symbols) + . font-lock-type-face) + ;; Integer literals + '("\\b[-]?[0-9]+\\b" . font-lock-preprocessor-face) + ;; Floating point constants + '("\\b[-+]?[0-9]+.[0-9]*\\([eE][-+]?[0-9]+\\)?\\b" . font-lock-preprocessor-face) + ;; Hex constants + '("\\b0x[0-9A-Fa-f]+\\b" . font-lock-preprocessor-face) + ;; Keywords + `(,(regexp-opt + '(;; Toplevel entities + "declare" "define" "module" "target" "source_filename" "global" + "constant" "const" "attributes" "uselistorder" "uselistorder_bb" + ;; Linkage types + "private" "internal" "weak" "weak_odr" "linkonce" "linkonce_odr" + "available_externally" "appending" "common" "extern_weak" "external" + "uninitialized" "implementation" "..." + ;; Values + "true" "false" "null" "undef" "zeroinitializer" "none" "c" "asm" + "blockaddress" + ;; Calling conventions + "ccc" "fastcc" "coldcc" "webkit_jscc" "anyregcc" "preserve_mostcc" + "preserve_allcc" "cxx_fast_tlscc" "swiftcc" "atomic" "volatile" + "personality" "prologue" "section") + 'symbols) + . font-lock-keyword-face) + ;; Arithmetic and Logical Operators + `(,(regexp-opt + '("add" "sub" "mul" "sdiv" "udiv" "urem" "srem" "and" "or" "xor" "setne" + "seteq" "setlt" "setgt" "setle" "setge") + 'symbols) + . font-lock-keyword-face) + ;; Floating-point operators + `(,(regexp-opt '("fadd" "fsub" "fneg" "fmul" "fdiv" "frem") 'symbols) + . font-lock-keyword-face) + ;; Special instructions + `(,(regexp-opt + '("phi" "tail" "call" "select" "to" "shl" "lshr" "ashr" "fcmp" "icmp" + "va_arg" "landingpad") + 'symbols) + . font-lock-keyword-face) + ;; Control instructions + `(,(regexp-opt + '("ret" "br" "switch" "invoke" "resume" "unwind" "unreachable" + "indirectbr") + 'symbols) + . font-lock-keyword-face) + ;; Memory operators + `(,(regexp-opt + '("malloc" "alloca" "free" "load" "store" "getelementptr" "fence" + "cmpxchg" "atomicrmw") + 'symbols) + . font-lock-keyword-face) + ;; Casts + `(,(regexp-opt + '("bitcast" "inttoptr" "ptrtoint" "trunc" "zext" "sext" "fptrunc" "fpext" + "fptoui" "fptosi" "uitofp" "sitofp" "addrspacecast") + 'symbols) + . font-lock-keyword-face) + ;; Vector ops + `(,(regexp-opt '("extractelement" "insertelement" "shufflevector") 'symbols) + . font-lock-keyword-face) + ;; Aggregate ops + `(,(regexp-opt '("extractvalue" "insertvalue") 'symbols) . font-lock-keyword-face) + ;; Metadata types + `(,(regexp-opt '("distinct") 'symbols) . font-lock-keyword-face) + ;; Use-list order directives + `(,(regexp-opt '("uselistorder" "uselistorder_bb") 'symbols) + . font-lock-keyword-face)) + "Syntax highlighting for LLVM.") + + +;; ------------------------------------------------------------------- +;;; Indentation + +(defconst llvm-mode-smie-grammar + (smie-prec2->grammar + (smie-precs->prec2 + '((assoc ":"))))) + +;; return ":" on label line +(defun llvm-mode--smie-forward-token () + (let ((tok (smie-default-forward-token))) + (save-match-data + (if (not (looking-at "[ \t]*:")) tok + (goto-char (match-end 0)) + ":")))) + +(defun llvm-mode-smie-rules (kind token) + (pcase (cons kind token) + (`(:elem . basic) llvm-mode-indent-offset) + (`(:elem . args) 0) + (`(:close-all . ,_) t) + (`(:before . ":") + (if (smie-rule-parent-p ":") 0 + llvm-mode-label-offset)) + (`(:after . ":") + (if (smie-rule-prev-p ":") llvm-mode-indent-offset + (- llvm-mode-indent-offset llvm-mode-label-offset))) + (`(:list-intro . ,(or ":" "")) t))) + +;; ------------------------------------------------------------------- +;;; Completion + +(defconst llvm-mode-global-regexp + (concat "^\\s-*" (regexp-opt '("declare" "define")) "\\s-*" + "[^@\n]+@\\([[:alnum:]_]+\\)" + "\\|^\\s-*@\\([[:alnum:]_]+\\) *=")) + +(defun llvm-mode--globals () + (let (res) + (save-excursion + (goto-char (point-min)) + (while (re-search-forward llvm-mode-global-regexp nil t) + (push (or (match-string-no-properties 1) + (match-string-no-properties 2)) + res))) + res)) + +;; basic completion at point +(defun llvm-mode-completion-at-point () + (when-let* ((bnds (bounds-of-thing-at-point 'symbol))) + (let ((table + (cond + ((eq ?@ (char-before (car bnds))) + (list + (completion-table-with-cache + (lambda (_string) (llvm-mode--globals))) + :annotation-function (lambda (_s) " ")))))) + (when table + (nconc (list (car bnds) (cdr bnds)) + table + (list :exclusive 'no)))))) + +(defun llvm-mode-lookup-instruction-online (instr) + "Lookup help for INSTR, default to thing at point, in online manual. +With prefix, query for INSTR." + (interactive + (list + (or (and (not current-prefix-arg) (thing-at-point 'symbol)) + (read-from-minibuffer "LLVM help for: ")))) + (browse-url + (format llvm-mode-lookup-instruction-uri instr))) + +;; Imenu: defines / declares / labels +;; XXX: remove duplicate labels?? +(defvar llvm-mode-imenu-regexp + `((nil + ,(concat (regexp-opt '("declare" "define")) "[^@\n]+@\\([[:alnum:]_]+\\)") + 1) + ("Label" "^\\s-*\\([[:alpha:]][[:alnum:]_]*\\):" 1))) + +(defvar llvm-mode-map + (let ((km (make-sparse-keymap))) + (define-key km (kbd "M-?") #'llvm-mode-lookup-instruction-online) + km)) + + +;;;###autoload +(define-derived-mode llvm-mode prog-mode "LLVM" + "Major mode for editing LLVM source files. +\\{llvm-mode-map} + Runs `llvm-mode-hook' on startup." + (setq font-lock-defaults `(llvm-mode-font-lock-keywords)) + (setq-local comment-start ";") + (setq-local imenu-generic-expression llvm-mode-imenu-regexp) + (add-hook 'completion-at-point-functions #'llvm-mode-completion-at-point nil t) + (smie-setup llvm-mode-smie-grammar #'llvm-mode-smie-rules + :forward-token #'llvm-mode--smie-forward-token + :backward-token #'smie-default-backward-token)) + +;; Associate .ll files with llvm-mode +;;;###autoload +(add-to-list 'auto-mode-alist (cons "\\.ll\\'" 'llvm-mode)) + +(provide 'llvm-mode) + +;;; llvm-mode.el ends here diff --git a/.p10k.omp.yml b/.p10k.omp.yml index 8264eb7..9d1334c 100644 --- a/.p10k.omp.yml +++ b/.p10k.omp.yml @@ -8,7 +8,7 @@ blocks: foreground: "#585858" type: text style: plain - - template: " {{ if .WSL }}WSL at {{ end }}{{.Icon}} " + - template: " {{ if .WSL }}WSL at {{ end }}\uF303 " foreground: "#26C6DA" background: "#303030" type: os diff --git a/.zshrc b/.zshrc index eb5a54e..48b8bb9 100644 --- a/.zshrc +++ b/.zshrc @@ -54,5 +54,6 @@ setopt autocd # Aliases source ~/.aliases +eval "$(zoxide init --cmd cd zsh)" eval "$(fzf --zsh)" eval "$(oh-my-posh init zsh --config '~/.p10k.omp.yml')"