pestctrl/emacs-config
1
0
Fork 0
mirror of https://github.com/pestctrl/emacs-config.git synced 2026-06-14 12:21:20 +00:00
Code Issues Projects Releases Packages Wiki Activity

Compare commits

base: pestctrl:d43cbe17153f2fe06a7eb6dd5ca96fbab16dd534
Branches Tags
pestctrl:master
pestctrl:build36
pestctrl:llvm-conf
..
compare: pestctrl:7ac690b51e67e7974974b12a9f3f10bca8f3d14e
Branches Tags
pestctrl:master
pestctrl:build36
pestctrl:llvm-conf

3 commits
d43cbe1715 ... 7ac690b51e

Author SHA1 Message Date
Benson Chu
7ac690b51e Mail updates 2026-05-04 16:54:09 -05:00
Benson Chu
a6b0908173 Updated defun interface 2026-05-04 16:54:09 -05:00
Benson Chu
5af94f32e0 Fixes to stack trace org table conversion 
Line number in org mode syntax is two colons.

erase-buffer ignores restriction!
 2026-04-30 14:34:46 -05:00
5 changed files with 22 additions and 20 deletions
Show stats Expand all files Collapse all files

14
lisp/llvm-lib/llvm-build-tool.el
View file

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

4
lisp/org-config/org-table-convert.el
View file

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

2
lisp/ti-config/libraries

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

8
lisp/ti-config/work-mail.el
View file

@ -47,7 +47,11 @@
(setq mu4e-maildir-shortcuts (setq mu4e-maildir-shortcuts
'((:key ?i :maildir "/work/INBOX") '((: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 (setq mu4e-bookmarks
'(( :name "Inbox" '(( :name "Inbox"
@ -60,7 +64,7 @@
:query "maildir:/work/INBOX/mailing_lists* AND NOT flag:trashed" :query "maildir:/work/INBOX/mailing_lists* AND NOT flag:trashed"
:key ?m) :key ?m)
( :name "Services" ( :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) :key ?s)
( :name "automation" ( :name "automation"
:query "maildir:/work/INBOX/automation* AND NOT flag:trashed" :query "maildir:/work/INBOX/automation* AND NOT flag:trashed"

14
lisp/tmux-cmd.el
View file

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