diff --git a/etc/shared.conf b/etc/shared.conf index 175d9a9..6f0088f 100644 --- a/etc/shared.conf +++ b/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" diff --git a/src/package.lisp b/src/package.lisp index 43d77e5..9c71245 100644 --- a/src/package.lisp +++ b/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 diff --git a/src/software-configuration.lisp b/src/software-configuration.lisp index 053adb4..7f2af08 100644 --- a/src/software-configuration.lisp +++ b/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+ diff --git a/src/ui-goodies.lisp b/src/ui-goodies.lisp index 08ce5b3..92ffdbc 100644 --- a/src/ui-goodies.lisp +++ b/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" - "-tile" "x4" + "-geometry" + (swconf:config-gemini-images-montage-geometry) + "-tile" + (swconf:config-gemini-images-montage-tile) "-background" "Grey" "-bordercolor" "SkyBlue" "-mattecolor" "Lavender"