From e79129bb75b2a63f82a99678d777872f124156df Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Wed, 25 Dec 2024 18:44:55 +1100 Subject: [emacs][bashrc] Various web changes - emacs as web browser - libfic download - fix pdf-merge --- emacs/.emacs.d/init/ycp-web.el | 19 +++++++++++++++++-- 1 file changed, 17 insertions(+), 2 deletions(-) (limited to 'emacs/.emacs.d/init/ycp-web.el') diff --git a/emacs/.emacs.d/init/ycp-web.el b/emacs/.emacs.d/init/ycp-web.el index b1e546c..b156e9a 100644 --- a/emacs/.emacs.d/init/ycp-web.el +++ b/emacs/.emacs.d/init/ycp-web.el @@ -217,6 +217,9 @@ 'turn-off-flyspell) ) +(my-package dnd + (setq dnd-open-remote-file-function 'browse-url)) + (my-package eww (:delay 60) (advice-add 'eww-browse-url :filter-args #'my-rewrite-url-advice) @@ -245,7 +248,18 @@ "T" #'my-eww-top-path "b" #'my-eww-switch-by-title) (my-keybind global-map "\C-c\C-o" #'my-browse-url-at-point) - (my-override browse-url) + (setq browse-url-handlers + `(("^https?://www.spectator.com.au\\>" . + ,(lambda (url &rest args) (my-open-spectator-au url))) + (my-mastodon-url-p + . ,(lambda (url &rest args) (mastorg-open url))) + (my-hacker-news-url-p + . ,(lambda (url &rest args) (hnreader-comment url))) + (reddio-reddit-url-p + . ,(lambda (url &rest args) (reddio-open-url url))) + (my-stack-overflow-url-p + . ,(lambda (url &rest args) (sx-open-link url))) + (stringp . browse-url-firefox))) ) (my-package my-semantic-scholar @@ -308,7 +322,8 @@ (my-setq-from-local my-libgen-hosts my-libgen-alt-hosts my-libgen-library-hosts my-libgen-onion-host ) - (setq my-libgen-download-dir my-document-incoming-dir) + (setq my-libgen-download-dir my-document-incoming-dir + my-libfic-download-dir my-document-incoming-dir) (my-libgen-set-random-hosts)) (my-package my-scihub -- cgit v1.2.3