- added a configuration directive to close the link window after a link has been selected.

etc/shared.conf

@@ -41,6 +41,10 @@ editor                           = "nano --locking"
 # (default 'no', change to 'yes' if desired)
 start.update.gemlog                         = no
 
+# close links window when opening the selected link
+
+open-message-link-window.close-after-select = yes
+
 # color parts of a displayed message according to a regular expression
 # syntax is regular expression color attribute
 # valid color are specified using RGB triplets as #RRGGBB or color names

src/open-message-link-window.lisp

@@ -75,6 +75,9 @@
   (let* ((parsed       (iri:iri-parse url))
          (scheme       (uri:scheme parsed))
          (decoded-path (percent-decode url)))
+    (when (and (not enqueue)
+               (swconf:close-link-window-after-select-p))
+      (ui:close-open-message-link-window))
     (cond
       ((string= gemini-constants:+gemini-scheme+ scheme)
        (db:insert-in-history (ui:gemini-open-url-prompt) url)

src/package.lisp

@@ -1113,6 +1113,7 @@
    :load-config-file
    :external-editor
    :gemini-downloading-animation
+   :close-link-window-after-select-p
    :suggestion-window-selected-item-colors
    :gemini-default-favicon
    :gemini-update-gemlog-at-start-p

src/software-configuration.lisp

@@ -527,6 +527,7 @@
                    directory-symbol
                    fetch
                    update
+                   close-after-select
                    password-echo-character
                    color-re
                    ignore-user-re
@@ -595,6 +596,12 @@
                           (access-key->user-directive keys))))
         value)))
 
+(defun close-link-window-after-select-p ()
+  (let ((value (access:accesses *software-configuration*
+                                +key-open-message-link-window+
+                                +key-close-after-select+)))
+    (not (false-value-p value))))
+
 (defun suggestion-window-selected-item-colors ()
   (values (access-non-null-conf-value *software-configuration*
                                                +key-suggestions-window+