Show org-roam buffer on left side

config-emacs.org

@@ -101,6 +101,13 @@
                   . ((no-delete-other-windows . t)
                      (dedicated . t)))))
 
+  (add-to-list 'display-buffer-alist
+               `("*org-roam*"
+                 display-buffer-in-side-window
+                 (side . left)
+                 (select . t)
+                 (window-width . 85)))
+
   ;; (pop display-buffer-alist)
 #+end_src
 * Tramp configuration

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

@@ -42,19 +42,26 @@
                (file-name-sans-extension)))
    (file-name-directory fname)))
 
-(defun ll/dump-extract-command (fname)
+(defun ll/dump-extract-command-flags (fname)
   (with-current-buffer (find-file-noselect fname)
     (save-excursion
       (goto-char (point-min))
-      (re-search-forward "^[^#]")
-      (kill-ring-save (point-at-bol) (point-at-eol))
-      (current-kill 0))))
+      (re-search-forward
+       (rx line-start (not "#")
+           (group  "\"" (+? nonl) "\"")
+           (group (+ nonl))
+           line-end))
+      (match-string 2))))
 
 (defun ll/act-on-llvm-dump-file (fname)
   (let* ((action (aml/read-action-map ll/dump-file-action-map))
-         (command (ll/dump-extract-command (ll/dump-to-sh-file fname))))
+         (command-flags (ll/dump-extract-command-flags (ll/dump-to-sh-file fname)))
+         (clang (lls/prompt-tool "clang$")))
     (compilation-start
-     (concat command " -S -o -")
+     (concat
+      (when (y-or-n-p "Would you like to `rr record`? ")
+        "rr record ")
+      clang command-flags " -S -o -")
      'asm-mode
      `(lambda (_)
         ,(format "*%s*" fname)))))

lisp/themes/dark-default-theme.el

@@ -68,6 +68,7 @@
    `(orderless-match-face-3 ((t :foreground "#f0ce43" :background "#555555")))
 
    '(org-todo ((t (:foreground "Pink" :bold t))))
+   '(org-agenda-date-weekend ((t (:foreground "orange" :bold t :inherit org-agenda-structure))))
 
    '(opr/STUFF-todo-face ((t :foreground "goldenrod")))
    '(opr/FUTURE-todo-face ((t :foreground "medium spring green")))

lisp/themes/light-default-theme.el

@@ -29,6 +29,7 @@
 (custom-theme-set-faces
  'light-default
 
+ '(default ((t (:foreground "#000000" :background "#FFFFFF"))))
  '(org-todo ((t :foreground "Red1" :bold t)))
  
  `(rainbow-delimiters-depth-1-face ((t :foreground "#000000")))

lisp/ti-config/work-config.el

@@ -37,6 +37,14 @@
 (require 'bisect-mode)
 (require 'deadgrep-rejump-mode)
 
+(use-package editorconfig
+  :config
+  (editorconfig-mode 1)
+
+  (advice-add #'editorconfig-set-trailing-ws
+              :override
+              #'ignore))
+
 (put 'magit-log-mode 'magit-log-default-arguments
      '("--graph" "-n64" "--decorate"))