From 9235eb0e986235cc71bf2addc6a161ff2f524ab6 Mon Sep 17 00:00:00 2001 From: jao Date: Thu, 20 May 2021 02:48:46 +0100 Subject: clean-ups --- completion.org | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'completion.org') 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) ""))) + (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) -- cgit v1.2.3