mirror of https://codeberg.org/cage/tinmop/
- [GUI] added configuration directive to toggle visibility of TOC and streams frame.
This commit is contained in:
parent
5d01e63969
commit
c89389fa21
|
@ -167,6 +167,8 @@ gemini.preformatted.justification = left
|
||||||
|
|
||||||
# width in chars
|
# width in chars
|
||||||
|
|
||||||
|
toc.show = no
|
||||||
|
|
||||||
toc.maximum.width = 40
|
toc.maximum.width = 40
|
||||||
|
|
||||||
toc.minimum.width = 20
|
toc.minimum.width = 20
|
||||||
|
@ -183,6 +185,10 @@ toc.underline = no
|
||||||
|
|
||||||
toc.autoresize = yes
|
toc.autoresize = yes
|
||||||
|
|
||||||
|
# stream frame
|
||||||
|
|
||||||
|
stream-frame.show = no
|
||||||
|
|
||||||
# Keybinding
|
# Keybinding
|
||||||
|
|
||||||
# see: https://www.tcl.tk/man/tcl8.7/TkCmd/bind.html#M7
|
# see: https://www.tcl.tk/man/tcl8.7/TkCmd/bind.html#M7
|
||||||
|
|
|
@ -54,7 +54,8 @@
|
||||||
increase
|
increase
|
||||||
decrease
|
decrease
|
||||||
reset
|
reset
|
||||||
refresh)
|
refresh
|
||||||
|
stream-frame)
|
||||||
|
|
||||||
(defun load-config-file (&optional (virtual-filepath +client-conf-filename+)
|
(defun load-config-file (&optional (virtual-filepath +client-conf-filename+)
|
||||||
(perform-missing-value-check nil))
|
(perform-missing-value-check nil))
|
||||||
|
@ -298,6 +299,12 @@
|
||||||
|
|
||||||
(gen-conf-justification gemini swconf:+key-preformatted-text+)
|
(gen-conf-justification gemini swconf:+key-preformatted-text+)
|
||||||
|
|
||||||
|
(swconf:gen-simple-access (toc-show-p
|
||||||
|
:transform-value-fn (lambda (a) (not (swconf:false-value-p a)))
|
||||||
|
:configuration-tree *client-configuration*)
|
||||||
|
swconf:+key-toc+
|
||||||
|
+key-show+)
|
||||||
|
|
||||||
(swconf:gen-simple-access (toc-maximum-width
|
(swconf:gen-simple-access (toc-maximum-width
|
||||||
:transform-value-fn (lambda (a)
|
:transform-value-fn (lambda (a)
|
||||||
(truncate (or (num-utils:safe-parse-number a)
|
(truncate (or (num-utils:safe-parse-number a)
|
||||||
|
@ -439,3 +446,9 @@
|
||||||
+key-wrapped+
|
+key-wrapped+
|
||||||
+key-asterisk+)))
|
+key-asterisk+)))
|
||||||
(not (swconf:false-value-p value))))
|
(not (swconf:false-value-p value))))
|
||||||
|
|
||||||
|
(swconf:gen-simple-access (stream-frame-show-p
|
||||||
|
:transform-value-fn (lambda (a) (not (swconf:false-value-p a)))
|
||||||
|
:configuration-tree *client-configuration*)
|
||||||
|
+key-stream-frame+
|
||||||
|
+key-show+)
|
||||||
|
|
|
@ -1394,10 +1394,12 @@ local file paths."
|
||||||
(gui:grid info-text 0 0 :sticky :news)
|
(gui:grid info-text 0 0 :sticky :news)
|
||||||
(gui-goodies:gui-resize-grid-all info-frame)
|
(gui-goodies:gui-resize-grid-all info-frame)
|
||||||
(gui:grid tool-bar 0 0 :sticky :news)
|
(gui:grid tool-bar 0 0 :sticky :news)
|
||||||
(gui:add-pane gemini-paned-frame toc-frame)
|
(when (client-configuration:config-toc-show-p)
|
||||||
|
(gui:add-pane gemini-paned-frame toc-frame))
|
||||||
(gui:add-pane gemini-paned-frame gemtext-widget)
|
(gui:add-pane gemini-paned-frame gemtext-widget)
|
||||||
(gui:add-pane main-paned-frame gemini-paned-frame :weight 2)
|
(gui:add-pane main-paned-frame gemini-paned-frame :weight 2)
|
||||||
(gui:add-pane main-paned-frame stream-frame)
|
(when (client-configuration:config-stream-frame-show-p)
|
||||||
|
(gui:add-pane main-paned-frame stream-frame))
|
||||||
(gui:grid main-paned-frame 1 0 :sticky :news)
|
(gui:grid main-paned-frame 1 0 :sticky :news)
|
||||||
(gui:grid search-frame 2 0 :sticky :news)
|
(gui:grid search-frame 2 0 :sticky :news)
|
||||||
(gui:grid-forget search-frame)
|
(gui:grid-forget search-frame)
|
||||||
|
|
|
@ -3304,6 +3304,7 @@
|
||||||
:config-toc-minimum-width
|
:config-toc-minimum-width
|
||||||
:config-toc-autoresize-p
|
:config-toc-autoresize-p
|
||||||
:toc-font-configuration
|
:toc-font-configuration
|
||||||
|
:config-toc-show-p
|
||||||
:get-keybinding
|
:get-keybinding
|
||||||
:config-keybinding-tour-shuffle
|
:config-keybinding-tour-shuffle
|
||||||
:config-keybinding-tour-manage
|
:config-keybinding-tour-manage
|
||||||
|
@ -3316,7 +3317,8 @@
|
||||||
:config-keybinding-bookmark-toggle
|
:config-keybinding-bookmark-toggle
|
||||||
:config-keybinding-bookmark-show
|
:config-keybinding-bookmark-show
|
||||||
:main-window-select-colors
|
:main-window-select-colors
|
||||||
:emphasize-wrapped-asterisk-p))
|
:emphasize-wrapped-asterisk-p
|
||||||
|
:config-stream-frame-show-p))
|
||||||
|
|
||||||
(defpackage :client-os-utils
|
(defpackage :client-os-utils
|
||||||
(:use
|
(:use
|
||||||
|
|
Loading…
Reference in New Issue