eww/w3m consult narrowing refactored

1 files changed, 24 insertions, 0 deletions

diff --git a/w3m.org b/w3m.org
index e77bc87..e23bc82 100644
--- a/w3m.org
+++ b/w3m.org
@@ -84,6 +84,30 @@
       (define-key gnus-article-mode-map "\C-ci" 'w3m-view-image)
       (define-key gnus-article-mode-map "z" 'w3m-lnum-zoom-in-image))
   #+end_src
+* Narrowing
+  #+begin_src emacs-lisp
+    (with-eval-after-load "consult"
+      (defvar jao-consult-w3m-buffer-history nil)
+      (setq jao-consult-w3m-source
+        (list :name "w3m buffer"
+              :category 'w3m-buffer
+              :hidden t
+              :narrow (cons ?w "w3m")
+              :annotate (lambda (b) (get-text-property 0 'url b))
+              :history 'jao-consult-w3m-buffer-history
+              :action (lambda (b)
+                        (jao-afio--goto-www)
+                        (switch-to-buffer (get-text-property 0 'buffer b)))
+              :items (lambda ()
+                       (seq-map (lambda (b)
+                                  (with-current-buffer b
+                                    (propertize w3m-current-title
+                                                'buffer b
+                                                'url w3m-current-url)))
+                                (w3m-list-buffers)))))
+      (when jao-afio-use-w3m (setq jao-consult-www-narrow ?w))
+      (add-to-list 'consult-buffer-sources 'jao-consult-w3m-source t))
+  #+end_src
 * Package
   #+begin_src emacs-lisp
     (use-package w3m