diff options
| author | jao <jao@gnu.org> | 2021-07-10 02:24:39 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2021-07-10 02:24:39 +0100 |
| commit | 963a4477eb40881964d71a941c74d036d258e71d (patch) | |
| tree | 2555e42c3dec6dbcd70ed069b3f3f4c793c6f9fa /w3m.org | |
| parent | 5adea7669935fc661c8e2d7ec2fa57c4e505d8cf (diff) | |
| download | elibs-963a4477eb40881964d71a941c74d036d258e71d.tar.gz elibs-963a4477eb40881964d71a941c74d036d258e71d.tar.bz2 | |
wee tweaks
Diffstat (limited to 'w3m.org')
| -rw-r--r-- | w3m.org | 41 |
1 files changed, 21 insertions, 20 deletions
@@ -73,26 +73,27 @@ #+end_src * Narrowing #+begin_src emacs-lisp - (with-eval-after-load "consult" - (defvar jao-consult-w3m-buffer-history nil) - (defvar jao-consult-w3m-source - (list :name "w3m buffer" - :category 'w3m-buffer - :hidden t - :narrow (cons ?w "w3m") - :annotate (lambda (b) (when 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 (or w3m-current-title "") - 'buffer b - 'url w3m-current-url))) - (w3m-list-buffers))))) - (jao-consult-add-buffer-source 'jao-consult-w3m-source "Web" ?w)) + (with-eval-after-load "w3m" + (with-eval-after-load "consult" + (defvar jao-consult-w3m-buffer-history nil) + (defvar jao-consult-w3m-source + (list :name "w3m buffer" + :category 'w3m-buffer + :hidden t + :narrow (cons ?w "w3m") + :annotate (lambda (b) (when 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 (or w3m-current-title "") + 'buffer b + 'url w3m-current-url))) + (w3m-list-buffers))))) + (jao-consult-add-buffer-source 'jao-consult-w3m-source "Web" ?w))) #+end_src * Package #+begin_src emacs-lisp |