From 40b39837d592caf691195f1f8dc9f3b7ac965cbc Mon Sep 17 00:00:00 2001
From: cage <cage@invalid>
Date: Thu, 22 Jul 2021 18:55:19 +0200
Subject: [PATCH] -[gemini] allowed open gemini links from gemlog subscription
 window;

- highlighted a mit more matched characters in 'suggestion-window'.
---
 etc/init.lisp            | 4 ++++
 src/complete-window.lisp | 3 ++-
 2 files changed, 6 insertions(+), 1 deletion(-)

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