diff options
| author | Yuchen Pei <id@ypei.org> | 2025-01-30 08:50:39 +1100 |
|---|---|---|
| committer | Yuchen Pei <id@ypei.org> | 2025-01-30 08:50:39 +1100 |
| commit | dbcd6d2015627485e4d79a04404d8615b58303a0 (patch) | |
| tree | c4b44a148efe89a013157de085cde06511b37526 /emacs/.emacs.d/lisp/my/my-web.el | |
| parent | 80fbb1ee3f4951308fdbe49045abc1539927f5f3 (diff) | |
[emacs] Factor infobox forge url format
Diffstat (limited to 'emacs/.emacs.d/lisp/my/my-web.el')
| -rw-r--r-- | emacs/.emacs.d/lisp/my/my-web.el | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/emacs/.emacs.d/lisp/my/my-web.el b/emacs/.emacs.d/lisp/my/my-web.el index 3d1f9d3..21b227d 100644 --- a/emacs/.emacs.d/lisp/my/my-web.el +++ b/emacs/.emacs.d/lisp/my/my-web.el @@ -223,5 +223,14 @@ https://emacs.stackexchange.com/questions/40887/in-org-mode-how-do-i-link-to-int (buffer-string) ))) +(defun my-forge-infobox-format-url (url) + (concat url + " -- " (buttonize "clone" + (lambda (_) + (my-magit-clone url current-prefix-arg))) + " " (buttonize "context" + (lambda (_) + (funcall my-url-context-function url))))) + (provide 'my-web) ;;; my-web.el ends here |