diff options
author | jao <jao@gnu.org> | 2021-05-20 02:48:46 +0100 |
---|---|---|
committer | jao <jao@gnu.org> | 2021-05-20 02:48:46 +0100 |
commit | 9235eb0e986235cc71bf2addc6a161ff2f524ab6 (patch) | |
tree | 50a59e0c61b904285ad1e11aa39d726af5ef7a57 /completion.org | |
parent | 95b95acb5eb314e692de770c24a584031485ba68 (diff) | |
download | elibs-9235eb0e986235cc71bf2addc6a161ff2f524ab6.tar.gz elibs-9235eb0e986235cc71bf2addc6a161ff2f524ab6.tar.bz2 |
clean-ups
Diffstat (limited to 'completion.org')
-rw-r--r-- | completion.org | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/completion.org b/completion.org index 26d8b46..5c1a050 100644 --- a/completion.org +++ b/completion.org @@ -182,8 +182,7 @@ (eq this-command #'consult-buffer) (string-equal "Web" (jao-afio-current-frame))) (setq unread-command-events - (append unread-command-events - (list jao-consult-www-narrow 32))))) + (append unread-command-events `(,jao-consult-www-narrow 32))))) (add-hook 'minibuffer-setup-hook #'jao-consult-initial-narrow) #+end_src *** narrowing eww buffers @@ -195,7 +194,7 @@ :category 'eww-buffer :hidden t :narrow (cons ?e "eww") - :annotate (lambda (b) (get-text-property 0 'url b)) + :annotate (lambda (c) (get-text-property 0 'url c)) :history 'jao-eww-consult-history :action (lambda (b) (jao-afio--goto-www) @@ -204,9 +203,10 @@ (lambda () (seq-map (lambda (b) (with-current-buffer b - (propertize (jao-eww-buffer-title) - 'buffer b - 'url (jao-eww--current-url)))) + (let ((tl (or (jao-eww-buffer-title) "")) + (url (or (jao-eww--current-url) "<no url>"))) + (propertize (if (string-blank-p tl) url tl) + 'buffer b 'url url)))) (jao-eww-session--list-buffers))))) (add-to-list 'consult-buffer-sources 'jao-eww-buffer-source t) |