- made width of TOC customizable (when using tinmop in gemini fullscreen mode).

etc/shared.conf

@@ -155,6 +155,11 @@ color-regexp                     = ":aborted"   red
 
 color-regexp                     = ":rendering" cyan
 
+# The width of  the generated table of contents for  gemini pages when
+# tinmop is ran as exclusive gemini client (command line option "-G")
+
+gemini.exclusive.mode.toc.width  = 1/5
+
 # the signature file path relative to $HOME
 
 # signature-file                 = ".signature"
@@ -165,10 +170,6 @@ color-regexp                     = ":rendering" cyan
 
 # ignore-user-regexp             = "^user-name@domain-name"
 
-# Use gemini favicon?
-# see  gemini://mozz.us/files/rfc_gemini_favicon.gmi
-# gemini.fetch.favicon           = no
-
 # you can  instruct the program  to open some  non gemini link  with a
 # program installed with your system like below
 # syntax open "REGEXP" with "PROGRAM-NAME" [use cache]
@@ -215,4 +216,8 @@ open ".gpub$"                          with "tinmop"
 # E.g. gemini://foo/bar.gmi#baz will jump to the first occurence of "baz".
 # The fragment is used as a, perl compatible, regular expression
 
-experimental.gemini.iri.fragment.regex = no
+experimental.gemini.iri.fragment.regex = no
+
+# Use gemini favicon?
+# see  gemini://mozz.us/files/rfc_gemini_favicon.gmi
+gemini.fetch.favicon                   = no

src/gemini-page-toc.lisp

@@ -37,7 +37,7 @@
            (selected-fg (swconf:selected-foreground theme-style))
            (selected-bg (swconf:selected-background theme-style))
            (width       (if command-line:*gemini-full-screen-mode*
-                            (truncate (* 1/4 (win-width *main-window*)))
+                            (swconf:config-gemini-fullscreen-toc-width)
                             (- (win-width *main-window*)
                                (win-width *thread-window*))))
            (raw-height  (swconf:win-height swconf:+key-gemini-toc-window+))

src/package.lisp

@@ -1219,6 +1219,7 @@
    :tree-config-rendering-values
    :make-tree-colormap
    :left-arrow
+   :config-gemini-fullscreen-toc-width
    :config-post-allowed-language
    :config-purge-history-days-offset
    :config-purge-cage-days-offset

src/software-configuration.lisp

@@ -477,6 +477,9 @@
                    width
                    height
                    position
+                   exclusive
+                   mode
+                   toc
                    downloading
                    animation
                    x
@@ -935,6 +938,14 @@
      (,transform-value-fn (access:accesses *software-configuration*
                                            ,@keys))))
 
+(gen-simple-access (gemini-fullscreen-toc-width
+                    :transform-value-fn main-window:parse-subwin-w)
+                    +key-gemini+
+                    +key-exclusive+
+                    +key-mode+
+                    +key-toc+
+                    +key-width+)
+
 (gen-simple-access (post-allowed-language
                     :transform-value-fn
                     (lambda (a) (cl-ppcre:create-scanner a :case-insensitive-mode t)))