summaryrefslogtreecommitdiffhomepage
path: root/w3m.org
diff options
context:
space:
mode:
Diffstat (limited to 'w3m.org')
-rw-r--r--w3m.org24
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