diff options
| author | Yuchen Pei <id@ypei.org> | 2025-01-03 09:07:51 +1100 |
|---|---|---|
| committer | Yuchen Pei <id@ypei.org> | 2025-01-03 09:07:51 +1100 |
| commit | 0ba0c7cd35c8c011ac1329fe41b2d9722089409a (patch) | |
| tree | b33b180127e24429d20e7aad82a0ab393a1392ae /emacs | |
| parent | 000c991a71e92400d0a31e7c65b5c9bb8f3ef192 (diff) | |
[emacs] Add org-protocol-browse-url
bookmarklet in firefox:
javascript:location.href='org-protocol://browse-url?url='+encodeURIComponent(window.location.href);
Diffstat (limited to 'emacs')
| -rw-r--r-- | emacs/.emacs.d/init/ycp-org.el | 6 | ||||
| -rw-r--r-- | emacs/.emacs.d/lisp/my/my-org.el | 5 |
2 files changed, 10 insertions, 1 deletions
diff --git a/emacs/.emacs.d/init/ycp-org.el b/emacs/.emacs.d/init/ycp-org.el index a4b9e87..c69c762 100644 --- a/emacs/.emacs.d/init/ycp-org.el +++ b/emacs/.emacs.d/init/ycp-org.el @@ -441,7 +441,11 @@ (add-to-list 'org-protocol-protocol-alist '("grok" :protocol "grok" - :function my-org-protocol-grok))) + :function my-org-protocol-grok)) + (add-to-list 'org-protocol-protocol-alist + '("browse-url" + :protocol "browse-url" + :function my-org-protocol-browse-url))) ;; org man links (my-package ol-man diff --git a/emacs/.emacs.d/lisp/my/my-org.el b/emacs/.emacs.d/lisp/my/my-org.el index e99352d..5d7203f 100644 --- a/emacs/.emacs.d/lisp/my/my-org.el +++ b/emacs/.emacs.d/lisp/my/my-org.el @@ -1062,6 +1062,11 @@ On success, also move everything from staging to to-dir." (org-protocol-grok (list :url (plist-get eww-data :url)))) +(defun my-org-protocol-browse-url (data) + (when-let ((url (plist-get data :url))) + (browse-url url)) + nil) + ;; org capture rss (defun my-org-rss-xml-create-audio-node (url) (interactive (list (read-string "Feed URL: " |