- added a pair of directives to configure montage of gemini images.

etc/shared.conf

@@ -244,3 +244,7 @@ experimental.gemini.iri.fragment.regex = no
 # Use gemini favicon?
 # see  gemini://mozz.us/files/rfc_gemini_favicon.gmi
 gemini.fetch.favicon                   = no
+
+gemini.images.montage.geometry  = "640x480"
+
+gemini.images.montage.tile      = "1"

src/package.lisp

@@ -1258,6 +1258,8 @@
    :config-delete-fetched-mentions-p
    :config-gemini-fullscreen-toc-width
    :config-gemini-fullscreen-links-height
+   :config-gemini-images-montage-tile
+   :config-gemini-images-montage-geometry
    :config-post-allowed-language
    :config-purge-history-days-offset
    :config-purge-cage-days-offset

src/software-configuration.lisp

@@ -490,6 +490,8 @@
                    end
                    left
                    right
+                   geometry
+                   tile
                    stopper
                    root
                    width
@@ -618,6 +620,7 @@
                    binary-file
                    text-file
                    image-file
+                   images
                    gif-file
                    fetch
                    update
@@ -632,7 +635,8 @@
                    post-allowed-language
                    purge-history-days-offset
                    purge-cache-days-offset
-                   mentions)
+                   mentions
+                   montage)
 
 (defun perform-missing-value-check (file)
   (handler-case
@@ -1061,6 +1065,18 @@
                    +key-fragment+
                    +key-regex+)
 
+(gen-simple-access (gemini-images-montage-geometry)
+                   +key-gemini+
+                   +key-images+
+                   +key-montage+
+                   +key-geometry+)
+
+(gen-simple-access (gemini-images-montage-tile)
+                   +key-gemini+
+                   +key-images+
+                   +key-montage+
+                   +key-tile+)
+
 (defun config-notify-window-geometry ()
   (values (access:accesses  *software-configuration*
                             +key-notify-window+

src/ui-goodies.lisp

@@ -1537,8 +1537,10 @@ displayed using  the standard image  viewer installed on  the system."
     (with-enqueued-process ()
       (let* ((command-line (flatten (list "-title" (gemini-viewer:current-gemini-url)
                                           "-frame" "5"
-                                          "-geometry" "320x320"
+                                          "-geometry"
-                                          "-tile"     "x4"
+                                          (swconf:config-gemini-images-montage-geometry)
+                                          "-tile"
+                                          (swconf:config-gemini-images-montage-tile)
                                           "-background" "Grey"
                                           "-bordercolor" "SkyBlue"
                                           "-mattecolor"  "Lavender"