eww-follow-link: Flip meaning of single and double prefix arg

1 files changed, 13 insertions, 0 deletions

diff --git a/init.el b/init.el
index 1eff0bd..ddd31cd 100644
--- a/init.el
+++ b/init.el
@@ -2391,6 +2391,19 @@
 
 (setq bookmark-save-flag nil)
 
+(use-package eww
+  :config
+  (advice-add
+   'eww-follow-link :around
+   (lambda (fn &optional external mouse-event)
+     (funcall fn
+              (pcase external
+                ('(4) (list 16))
+                ('(16) (list 4))
+                (_ external))
+              mouse-event))
+   '((name . "eww-follow-link--flip-external"))))
+
 (use-package timer-list
   :init
   (put 'list-timers 'disabled nil))