diff --git a/etc/init.lisp b/etc/init.lisp index 3f2527a..142ea88 100644 --- a/etc/init.lisp +++ b/etc/init.lisp @@ -419,6 +419,10 @@ (define-key "d" #'gemlog-cancel-subscription *gemlog-subscription-keymap*) +(define-key "l" #'open-message-link *gemlog-subscription-keymap*) + + + ;; tags keymap (define-key "up" #'tag-go-up *tags-keymap*) diff --git a/src/complete-window.lisp b/src/complete-window.lisp index d07d812..d549d88 100644 --- a/src/complete-window.lisp +++ b/src/complete-window.lisp @@ -101,7 +101,8 @@ (let ((columns (elt paginated-info current-page)) (indices-matched (elt paginated-info-matched current-page)) (matched-attributes (combine-attributes (attribute-bold) - (attribute-underline)))) + (attribute-underline) + (attribute-reverse)))) (loop for column in columns for column-indices in indices-matched