pestctrl/emacs-config
1
0
Fork 0
mirror of https://github.com/pestctrl/emacs-config.git synced 2026-02-16 16:24:18 +00:00
Code Issues Projects Releases Packages Wiki Activity

Make stacktraces shorter

Browse source
This commit is contained in:
Benson Chu 2021-04-07 20:08:24 -05:00 committed by Benson Chu
parent 80e4c8a44c
commit b196e8005a
1 changed files with 18 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
lisp/work-config/work-org-stuff.el
View file

@ -257,11 +257,24 @@
(save-excursion
(while (re-search-forward regexp nil 'noerror)
(replace-match
(format "|\\1|\\2|%s:\\4|[[\\3::\\4][Link]]|"
(if (string-match-p "/scratch/benson/tools/llvm_cgt/llvm-project/clang/"
(match-string 3))
(substring (match-string 3) 43)
(match-string 3))))))
(let ((path (match-string 3)))
(save-match-data
(format "|\\1|\\2|%s:\\4|[[\\3::\\4][Link]]|"
(cond ((string-match (rx (and "/scratch/benson/tools"
(* digit)
"/llvm_cgt/llvm-project/"
(group
(+ nonl))))
path)
(format "$LLVM_PROJECT/%s" (match-string 1 path)))
((string-match (rx (and "/scratch/benson/tools"
(* digit)
"/"
(group
(+ nonl))))
path)
(format "$SANDBOX/%s" (match-string 1 path)))
(t path))))))))
(org-table-sort-lines nil ?N)
(save-excursion
(insert "|-\n|#|Function Name|File & Line Number|Link|\n|-\n")