Good thing I had the foresight to leave this here

config-emacs.org

@@ -78,33 +78,21 @@
                  (slot . 6)
                  (window-width . 80)))
 
-  ;; (require 'org-capture)
+  (require 'org-capture)
 
-  ;; (defun my/is-org-capture-buffer (buffer &optional _rest)
-  ;;   (with-current-buffer (get-buffer buffer)
-  ;;     (and (eq major-mode 'org-mode)
-  ;;          org-capture-mode)))
+  (defun my/is-org-capture-buffer (buffer &optional _rest)
+    (with-current-buffer buffer
+      org-capture-mode))
 
-  ;; (add-to-list 'display-buffer-alist
-  ;;              `(my/is-org-capture-buffer
-  ;;                display-buffer-in-side-window
-  ;;                (side . left)
-  ;;                (select . t)
-  ;;                (window-width . 85)
-  ;;                (window-parameters
-  ;;                 . ((no-delete-other-windows . t)
-  ;;                    (dedicated . t)))))
-
-  ;; (defun my/is-org-capture-buffer (buffer &optional _rest)
-  ;;   (with-current-buffer buffer
-  ;;     org-capture-mode))
-
-  ;; (add-to-list 'display-buffer-alist
-  ;;              `(my/is-org-capture-buffer
-  ;;                display-buffer-in-side-window
-  ;;                (side . left)
-  ;;                (slot . 0)
-  ;;                (window-width . 80)))
+  (add-to-list 'display-buffer-alist
+               `(my/is-org-capture-buffer
+                 display-buffer-in-side-window
+                 (side . left)
+                 (select . t)
+                 (window-width . 85)
+                 (window-parameters
+                  . ((no-delete-other-windows . t)
+                     (dedicated . t)))))
 
   ;; (pop display-buffer-alist)
 #+end_src

config-ext.org

@@ -136,8 +136,6 @@
 ** font-lock-studio
 #+begin_src emacs-lisp
   (use-package font-lock-studio)
-  (when (>= emacs-major-version 29)
-    (define-obsolete-function-alias 'font-lock-fontify-syntactically-region #'font-lock-default-fontify-syntactically "29.1"))
 #+end_src
 * pdf-tools use isearch
 #+BEGIN_SRC emacs-lisp

lisp/llvm-lib/llvm-shared.el

@@ -37,11 +37,16 @@
 (defvar llvm-core-count
   (nprocs))
 
-(defun lls/ninja-build-tools (build-dir tools-list &optional verbose)
-  (format "set -o pipefail && CLICOLOR_FORCE=1 ninja -C %s -j %d %s %s 2>&1 | tee ninja.log"
-          build-dir llvm-core-count
-          (if verbose "-v" "")
-          (string-join tools-list " ")))
+(defun lls/ninja-build-tools (build-dir targets &optional verbose)
+  (let ((cmake-make-program
+         (if (string= "Makefile" (car (directory-files build-dir nil "^\\(build\\.ninja$\\|Makefile\\)$")))
+             "make"
+           "ninja")))
+    (format "set -o pipefail && CLICOLOR_FORCE=1 %s -C %s -j %d %s %s 2>&1 | tee ninja.log"
+            cmake-make-program
+            build-dir llvm-core-count
+            (if verbose "-v" "")
+            (string-join targets " "))))
 
 ;; =============================== Init ==============================
 

lisp/self-chat-mode.el

@@ -12,7 +12,7 @@
 
 (define-derived-mode self-chat-mode fundamental-mode "self-chat"
   "This is a mode where I become crazy and talk to myself."
-  (setq font-lock-defaults '(self-chat-highlights))
+  (setq font-lock-defaults '(self-chat-highlights nil t))
   (olivetti-mode 1))
 
 (defun self-chat-buffer ()
@@ -148,10 +148,10 @@ shuffling is done in place."
                                                                                        "'s face for self-chat-mode"))
                                (defvar ,face-sym ',face-sym)
                                (add-to-list 'self-chat-highlights
-                                            '(,(rx symbol-start (literal name) symbol-end) 0 ,face-sym prepend)
-                                            t)
+                                            '(,(rx symbol-start (literal name) symbol-end) . ,face-sym))
                                (add-to-list 'self-chat-highlights
-                                            '(,(format "^> %s:.*$" name) . ,face-sym)))
+                                            '(,(format "^> %s:.*$" name) 0 ,face-sym keep)
+                                            t))
                              (cl-incf num))))
                  list))))
 

lisp/term-compat.el

@@ -27,15 +27,23 @@
 (require 'term/xterm)
 
 (let ((ascii-start 97)
-      (C-M-start ?\C-\M-a))
+      (C-M-start ?\C-\M-a)
+      (M-S-start ?\M-\S-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;4;%d~" (+ ascii-start n))
+                (vector (+ n M-S-start)))
     (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;4;13~"
+            [M-S-return])
+
 (define-key xterm-function-map
             "\e[27;5;8~"
             [C-backspace])
@@ -63,6 +71,16 @@
 (xterm-mouse-mode 1)
 (terminal-init-xterm)
 
+(defun my/org--mks-read-key-use-read-key (orig &rest args)
+  (cl-letf (((symbol-function 'read-char-exclusive)
+             (lambda (&optional prompt inherit-input-method seconds)
+               (read-key prompt nil))))
+    (apply orig args)))
+
+(advice-add #'org--mks-read-key
+            :around
+            #'my/org--mks-read-key-use-read-key)
+
 ;; (global-set-key (kbd "M-[ emacs-C-SPC") #'set-mark-command)
 ;; (global-set-key (kbd "M-[ emacs-M-SPC") #'cycle-spacing)
 ;; (global-set-key (kbd "M-[ emacs-C-/") #'undo)