use-package

config-programming.org

@@ -95,7 +95,7 @@
                    ;;     (y-or-n-p "Should I start LSP? "))
                    )
           (when (string-match-p "llvm-project" project-root)
-            (lls/ensure-initialized))
+            (comp-dev/ensure-initialized))
           (lsp))))
     :config
 

lisp/hacks/comp-mode-locus-override.el

@@ -0,0 +1,53 @@
+;;; comp-mode-locus-override.el ---  -*- lexical-binding: t -*-
+
+;; Copyright (C) 2026 Benson Chu
+
+;; Author: Benson Chu <bensonchu457@gmail.com>
+;; Created: [2026-04-12 10:41]
+
+;; 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 of the License, 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.  If not, see <https://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;;; Code:
+
+(defvar compile-locus-display-window nil)
+(make-variable-buffer-local 'compile-locus-display-window)
+
+(defun my/compile-locus-some-window (buffer)
+  `(lambda (buffer alist)
+     (if (and compile-locus-display-window
+              (window-live-p compile-locus-display-window))
+         compile-locus-display-window
+       (setq
+        compile-locus-display-window
+        (let ((win (window-in-direction 'left (get-buffer-window ,buffer))))
+          (split-window-horizontally nil win))))))
+
+(defun my/compilation-goto-locus (orig &rest args)
+  (save-selected-window
+    (let ((display-buffer-overriding-action
+           `(display-buffer-use-some-window
+             (inhibit-same-window . t)
+             (some-window . ,(my/compile-locus-some-window (current-buffer))))))
+      (apply orig args))))
+
+(advice-add #'compilation-goto-locus
+            :around
+            #'my/compilation-goto-locus)
+
+(provide 'comp-mode-locus-override)
+;;; comp-mode-locus-override.el ends here

lisp/llvm-lib/lib-comp-dev.el

@@ -130,7 +130,7 @@
 
 (defun comp-dev/ensure-initialized ()
   (when (not (comp-dev/initialized?))
-    (if (not (functionp lls/target-init-fun))
+    (if (null comp-dev/init-functions)
         (error "Please register an init function for llvm")
       (comp-dev/initialize))))
 

lisp/llvm-lib/my-comp-minor-mode.el

@@ -25,6 +25,7 @@
 ;;; Code:
 (require 'anaphora)
 (require 'llvm-buffer-chain)
+(require 'comp-mode-locus-override)
 
 (define-minor-mode compilation-minor-mode
   "Toggle Compilation minor mode.

lisp/multi-vterm-tabs.el

@@ -25,7 +25,8 @@
 ;;; Code:
 (require 'cl-lib)
 (require 'dash)
-(require 'vterm)
+(require 'use-package)
+(use-package vterm)
 (require 'tab-bar)
 
 (defclass multi-vterm-tab-info ()

lisp/my-rx-forms.el

@@ -31,5 +31,7 @@
                                (list sep (car x)))
                              '(matches))))))
 
+(rx-define symbol (+ (or (syntax word) (syntax symbol))))
+
 (provide 'my-rx-forms)
 ;;; my-rx-forms.el ends here

lisp/ti-config/libraries

@@ -1 +1 @@
-Subproject commit 034ae31a6faa5c70b22d647c63f495b63d4bcee7
+Subproject commit 32b922200e98ef706c00a475c759770bca4ee40a

lisp/ti-config/work-config.el

@@ -27,19 +27,15 @@
 (require 'work-org-stuff)
 (require 'work-commentor)
 (require 'work-asm-config)
-(require 'ti-keymap)
+
-(require 'ti-comp-dev)
-(require 'ti-tools-backup)
-(require 'argo-fastsim-dump-mode)
-(require 'machine-scheduler-debug-mode)
 (require 'frame-restore)
-(require 'ti-config)
 (require 'bisect-mode)
 (require 'deadgrep-rejump-mode)
-(require 'ti-asm)
 
 (require 'work-mail)
 
+(require 'ti-config)
+
 (use-package editorconfig
   :config
   (editorconfig-mode 1)