diff options
Diffstat (limited to 'w3m.org')
| -rw-r--r-- | w3m.org | 24 |
1 files changed, 24 insertions, 0 deletions
@@ -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 |