[emacs] web related

- fix browse-url-handlers
- generalise fetch-and-browse flows

1 files changed, 3 insertions, 1 deletions

diff --git a/emacs/.emacs.d/init/ycp-web.el b/emacs/.emacs.d/init/ycp-web.el
index 9b0bf0d..f72c609 100644
--- a/emacs/.emacs.d/init/ycp-web.el
+++ b/emacs/.emacs.d/init/ycp-web.el
@@ -34,6 +34,8 @@
 (ignore-errors (cancel-timer url-cookie-timer))
 
 (setq shr-cookie-policy nil)
+(setq browse-url-handlers
+      '((stringp . browse-url-firefox)))
 
 (my-package luwak
   (:delay 10)
@@ -332,7 +334,7 @@
                  . ,(lambda (url &rest _) (my-open-newscorp-au url))))
   (add-to-list 'browse-url-handlers
                `("^https?://www.spectator.com.au\\>" .
-                 ,(lambda (url &rest args) (my-open-spectator-au url))))
+                 ,(lambda (url &rest _) (my-fetch-browse-as-googlebot url))))
   )
 
 (add-to-list 'load-path (locate-user-emacs-file "lisp/servall/lisp"))