Mail updates

Line number in org mode syntax is two colons.

erase-buffer ignores restriction!

lisp/llvm-lib/llvm-build-tool.el

@@ -47,13 +47,13 @@
 ;;      (lambda (_) buffer-name))))
 
 (defun-tmux-cmd-2 ll/llvm-build-tool (directory tools)
-  (:tmux-type transient
-   :interactive
-   ((list
-      (my/completing-read "build directory" (lls/get-llvm-build-dirs))
-      (completing-read-multiple "ninja -j X "
-                                '("clang"
-                                  "llc")))))
+  ((:tmux-type transient)
+   (:interactive
+    (list
+     (my/completing-read "build directory" (lls/get-llvm-build-dirs))
+     (completing-read-multiple "ninja -j X "
+                               '("clang"
+                                 "llc")))))
   (name (funcall lls/name-llvm-build-buffer directory tools))
 
   (comp-dev/build-target directory tools))

lisp/org-config/org-table-convert.el

@@ -40,7 +40,7 @@
                       (slot-value stack-entry 'stack-number)
                       (slot-value stack-entry 'func-name)
                       (let ((fname (slot-value stack-entry 'file-name)))
-                        (format "[[%s:%d][%s]]"
+                        (format "[[%s::%d][%s]]"
                                 fname
                                 (slot-value stack-entry 'line-number)
                                 (file-name-nondirectory fname))))))
@@ -87,7 +87,7 @@
                         :file-name (match-string 3)
                         :line-number (string-to-number (match-string 4)))
          stacktrace))
-      (erase-buffer))
+      (delete-region (point-min) (point-max)))
     (stacktrace-to-org-table stacktrace)))
 
 (defun lldb-filename-to-org-link (filename)

lisp/ti-config/libraries

@@ -1 +1 @@
-Subproject commit 32b922200e98ef706c00a475c759770bca4ee40a
+Subproject commit 298c9aebef91c503a13e84a12a0bc4bef1e24626

lisp/ti-config/work-mail.el

@@ -47,7 +47,11 @@
 
 (setq mu4e-maildir-shortcuts
       '((:key ?i :maildir "/work/INBOX")
-        (:key ?a :maildir "/work/Done")))
+        (:key ?k :maildir "/work/Keep")
+        (:key ?a :maildir "/work/Done")
+        (:key ?n :maildir "/work/Other/TI/Newsletter")
+        (:key ?u :maildir "/work/Other/TI/United Way")
+        (:key ?w :maildir "/work/Other/TI/Wins")))
 
 (setq mu4e-bookmarks
       '(( :name  "Inbox"
@@ -60,7 +64,7 @@
           :query "maildir:/work/INBOX/mailing_lists* AND NOT flag:trashed"
           :key ?m)
         ( :name  "Services"
-          :query "maildir:/work/INBOX/Services* AND NOT flag:trashed"
+          :query "maildir:/work/INBOX/Services* AND NOT flag:trashed AND NOT maildir:/work/Inbox/Services/Bitbucket/Activity"
           :key ?s)
         ( :name  "automation"
           :query "maildir:/work/INBOX/automation* AND NOT flag:trashed"

lisp/tmux-cmd.el

@@ -32,9 +32,8 @@
                      string-commands
                      command)
     `(defun ,name ,args
-       ,(when (member :interactive extra-args)
-          (let ((int (plist-get extra-args :interactive)))
-            `(interactive ,@int)))
+       ,(when-let ((interactive-form (alist-get :interactive extra-args)))
+          `(interactive ,@interactive-form))
        (let* ((,returned-list (list ,@body))
               (,tmux-window-name (car ,returned-list))
               (,string-commands (cdr ,returned-list))
@@ -44,7 +43,7 @@
                          (string-join it " && "))))
          (if (not (called-interactively-p))
              ,command
-           (,(let ((tmux-type (plist-get extra-args :tmux-type)))
+           (,(let ((tmux-type (car (alist-get :tmux-type extra-args))))
                (cond ((eq tmux-type 'sticky)
                       'ts/send-sticky-command)
                      ((eq tmux-type 'transient)
@@ -73,9 +72,8 @@
   (mmt-with-gensyms (tmux-window-name
                      command)
     `(defun ,name ,args
-       ,(when (member :interactive extra-args)
-          (let ((int (plist-get extra-args :interactive)))
-            `(interactive ,@int)))
+       ,(when-let ((interactive-form (alist-get :interactive extra-args)))
+          `(interactive ,@interactive-form))
        (let* (,tmux-window-name
               (,command
                (progn
@@ -83,7 +81,7 @@
                     'name tmux-window-name body))))
          (if (not (called-interactively-p))
              ,command
-           (,(let ((tmux-type (plist-get extra-args :tmux-type)))
+           (,(let ((tmux-type (car (alist-get :tmux-type extra-args))))
                (cond ((eq tmux-type 'sticky)
                       'ts/send-sticky-command)
                      ((eq tmux-type 'transient)