From e7d07c825a29621cd1be7d787d5e1565bc3d3513 Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Thu, 16 Jan 2025 09:50:31 +1100 Subject: [emacs] web related - fix browse-url-handlers - generalise fetch-and-browse flows --- emacs/.emacs.d/init/ycp-web.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'emacs/.emacs.d/init') 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")) -- cgit v1.2.3