[emacs][bashrc] Various web changes

- emacs as web browser
- libfic download
- fix pdf-merge

2 files changed, 21 insertions, 2 deletions

diff --git a/emacs/.emacs.d/init/ycp-gnus.el b/emacs/.emacs.d/init/ycp-gnus.el
index f4886fd..9e89ee9 100644
--- a/emacs/.emacs.d/init/ycp-gnus.el
+++ b/emacs/.emacs.d/init/ycp-gnus.el
@@ -186,6 +186,10 @@
   (setq gnus-summary-next-group-on-exit nil)
   )
 
+(my-package gnus-art
+  (my-keybind gnus-article-mode-map
+    "w" #'my-copy-url-at-point))
+
 (my-package nnrss
   (:delay 60)
   (setq nnrss-use-local t))
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