From 0584de27f0fc5039e0198732385e0fdcbe41d924 Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Thu, 26 Dec 2024 23:02:20 +1100 Subject: [emacs] Add wiki-open-url to browse-url-handlers --- emacs/.emacs.d/init/ycp-web.el | 18 ++++++++++-------- emacs/.emacs.d/lisp/wiki.el | 2 +- 2 files changed, 11 insertions(+), 9 deletions(-) diff --git a/emacs/.emacs.d/init/ycp-web.el b/emacs/.emacs.d/init/ycp-web.el index 6b2c755..c50cc46 100644 --- a/emacs/.emacs.d/init/ycp-web.el +++ b/emacs/.emacs.d/init/ycp-web.el @@ -250,20 +250,22 @@ (my-keybind global-map "\C-c\C-o" #'my-browse-url-at-point) (my-setq-from-local my-newscorp-au-amp-nk) (setq browse-url-handlers - `(("^https?://www.spectator.com.au\\>" . - ,(lambda (url &rest args) (my-open-spectator-au url))) - (my-newscorp-au-url-p - . ,(lambda (url &rest _) (my-open-newscorp-au url))) - (my-mastodon-url-p - . ,(lambda (url &rest _) (mastorg-open url))) + `((exitter-post-url-p + . ,(lambda (url &rest _) (exitter-open-post url))) (my-hacker-news-url-p . ,(lambda (url &rest _) (hnreader-comment url))) + (my-mastodon-url-p + . ,(lambda (url &rest _) (mastorg-open url))) + (my-newscorp-au-url-p + . ,(lambda (url &rest _) (my-open-newscorp-au url))) (reddio-reddit-url-p . ,(lambda (url &rest _) (reddio-open-url url))) + ("^https?://www.spectator.com.au\\>" . + ,(lambda (url &rest args) (my-open-spectator-au url))) (my-stack-overflow-url-p . ,(lambda (url &rest _) (sx-open-link url))) - (exitter-post-url-p - . ,(lambda (url &rest _) (exitter-open-post url))) + (wiki-engine-entry-url-p + . ,(lambda (url &rest _) (wiki-open-url url))) (stringp . browse-url-firefox))) ) diff --git a/emacs/.emacs.d/lisp/wiki.el b/emacs/.emacs.d/lisp/wiki.el index e501c18..7c90e1c 160000 --- a/emacs/.emacs.d/lisp/wiki.el +++ b/emacs/.emacs.d/lisp/wiki.el @@ -1 +1 @@ -Subproject commit e501c186bccd76a2373977b3df59300fe390bd61 +Subproject commit 7c90e1c35abb0a8eb25bcb5f3b5d8676dc13fc54 -- cgit v1.2.3