diff options
| author | Yuchen Pei <id@ypei.org> | 2023-06-24 17:30:01 +1000 |
|---|---|---|
| committer | Yuchen Pei <id@ypei.org> | 2023-06-24 17:30:01 +1000 |
| commit | 2f1d2fb9b87fb9ee334b646ac84468c5245eecf9 (patch) | |
| tree | cd839c828ee15faec2b61d6839318637184ed373 /emacs/.emacs.d/lisp/my/my-prog.el | |
| parent | ba77033a0c81952f5b9b8e140a17c4d12f4e9d05 (diff) | |
copy buffer file name
Diffstat (limited to 'emacs/.emacs.d/lisp/my/my-prog.el')
| -rw-r--r-- | emacs/.emacs.d/lisp/my/my-prog.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/emacs/.emacs.d/lisp/my/my-prog.el b/emacs/.emacs.d/lisp/my/my-prog.el index e38a866..4794ff2 100644 --- a/emacs/.emacs.d/lisp/my/my-prog.el +++ b/emacs/.emacs.d/lisp/my/my-prog.el @@ -332,6 +332,8 @@ left and the source buffer on the right. (defun my-gud-comint-set-prompt-regexp () (setq comint-prompt-regexp "\\((rr)|(gdb)\\) ")) +;; TODO: generalise the following to common forges, including +;; savannah, cgit, gitlab etc. (defun my-file-loc-to-github (file-loc &optional revision) "Convert a file location to a github url." (pcase-let* ((`(,file ,line-no) (split-string file-loc ":")) |