Refactored

lisp/llvm-lib/llvm-act-on-file/act-on-llvm-dump-file.el

@@ -29,8 +29,8 @@
   '((assembly :key ?a  :major-mode asm-mode  :buffer-string "assembly" :description "[a]ssembly")))
 
 (defun ll/is-dump-file (fname)
-  (and (string= "/tmp/"
-                (file-name-directory fname))
+  (and (string-match-p (rx line-start "/tmp/")
+                       (file-name-directory fname))
        (string-match-p (rx "/" (+ (not "/")) "-" (= 6 alphanumeric) "." (+ anything))
                        fname)))
 

lisp/llvm-lib/load-llvm-mode.el

@@ -44,8 +44,22 @@
     (add-to-list 'llvm-font-lock-keywords
                  `(,(regexp-opt '("nnan" "ninf" "nsz" "arcp" "contract" "afn" "reassoc" "fast") 'symbols) . 'shadow)))
 
+  (defvar llvm-ir-dump-regexp
+    (rx line-start (optional (any "#;") " ") "*** IR Dump" (+ nonl) "***" (optional ":") "\n"))
+
   (add-to-list 'llvm-font-lock-keywords
-               `(,(rx line-start (optional (any "#;") " ") "***" (+ nonl) "***" (optional ":") "\n") . 'llvm-separator-face))
+               `(,llvm-ir-dump-regexp 0 'llvm-separator-face prepend))
+
+  (defun llvm-previous-IR-dump ()
+    (interactive)
+    (re-search-backward llvm-ir-dump-regexp))
+
+  (defun llvm-next-IR-dump ()
+    (interactive)
+    (re-search-forward llvm-ir-dump-regexp))
+
+  (define-key llvm-mode-map (kbd "C-M-a") #'llvm-previous-IR-dump)
+  (define-key llvm-mode-map (kbd "C-M-e") #'llvm-next-IR-dump)
 
   (-->
    "\\b[-]?[0-9]+\\b"

lisp/org-config/my-org-capture-shouldnt-mess-windows.el

@@ -24,6 +24,8 @@
 
 ;;; Code:
 
+(require 'org)
+
 (defun my/side-window-p (window)
   (window-parameter window 'window-side))
 

lisp/term-compat.el

@@ -25,9 +25,43 @@
 ;;; Code:
 
 (require 'term/xterm)
-(xterm--init-modify-other-keys)
+
+(let ((ascii-start 97)
+      (C-M-start ?\C-\M-a))
+  (dotimes (n 26)
+    (define-key xterm-function-map
+                (format "\e[27;5;%d~" (+ ascii-start n))
+                (vector (1+ n)))
+    (define-key xterm-function-map
+                (format "\e[27;7;%d~" (+ ascii-start n))
+                (vector (+ n C-M-start)))))
+
+(define-key xterm-function-map
+            "\e[27;5;8~"
+            [C-backspace])
+
+(define-key xterm-function-map
+            "\e[27;5;32~"
+            [?\C-\s] ;; Or (kbd "C-SPC") ;; Or [?\C- ]
+            )
+
+(define-key xterm-function-map
+            "\e[27;2;32~"
+            [?\S-\s])
+
+;; (xterm--init-modify-other-keys)
+(defun my/xterm--init-modify-other-keys ()
+  "Terminal initialization for xterm's modifyOtherKeys support."
+  (send-string-to-terminal "\e[>4;2m")
+  (push "\e[>4m" (terminal-parameter nil 'tty-mode-reset-strings))
+  (push "\e[>4;2m" (terminal-parameter nil 'tty-mode-set-strings)))
+
+(advice-add #'xterm--init-modify-other-keys
+            :override
+            #'my/xterm--init-modify-other-keys)
 
 (xterm-mouse-mode 1)
+(terminal-init-xterm)
 
 ;; (global-set-key (kbd "M-[ emacs-C-SPC") #'set-mark-command)
 ;; (global-set-key (kbd "M-[ emacs-M-SPC") #'cycle-spacing)