From 597a227573bd8f78d8d59004d9ea424ac553d757 Mon Sep 17 00:00:00 2001 From: jao Date: Fri, 3 Dec 2021 02:05:30 +0000 Subject: finesse-ing link-hint for eww buffers --- eww.org | 24 +++++++++++++----------- 1 file changed, 13 insertions(+), 11 deletions(-) (limited to 'eww.org') diff --git a/eww.org b/eww.org index e724b8c..998fba4 100644 --- a/eww.org +++ b/eww.org @@ -5,17 +5,19 @@ #+begin_src emacs-lisp (defun jao-eww-browse-url (url &rest r) "Browse URL using eww." - (jao-afio--goto-www) - (select-window (frame-first-window)) - (let* ((url (url-encode-url url)) - (bf (seq-find `(lambda (b) - (with-current-buffer b - (string= ,url - (url-encode-url (eww-current-url))))) - (jao-eww-session--list-buffers)))) - (cond (bf (switch-to-buffer bf)) - ((string-match-p url "^file://") (eww-open-file url)) - (t (eww url 4))))) + (if (derived-mode-p 'eww-mode) + (eww url) + (jao-afio--goto-www) + (select-window (frame-first-window)) + (let* ((url (url-encode-url url)) + (bf (seq-find `(lambda (b) + (with-current-buffer b + (string= ,url + (url-encode-url (eww-current-url))))) + (jao-eww-session--list-buffers)))) + (cond (bf (switch-to-buffer bf)) + ((string-match-p url "^file://") (eww-open-file url)) + (t (eww url 4)))))) (setq jao-browse-url-function #'jao-eww-browse-url) (setq eww-use-browse-url "^\\(gemini\\|gopher\\):") -- cgit v1.2.3