cage
/
tinmop
mirror of https://codeberg.org/cage/tinmop/
1
0
Fork 0
Code Issues

- [GUI] ensure the default text for the gemini text widget respects the directive 'text color' in the configuration file for simple text line type.

This commit is contained in:
cage 2024-08-01 15:55:16 +02:00
parent 769fbf26f0
commit 6c7a9904a6
1 changed files with 16 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/gui/client/main-window.lisp
View File

@ -1714,10 +1714,14 @@ local file paths."
(let* ((gemtext-font (gui-conf:gemini-text-font-configuration))
(padding (client-configuration:config-gemtext-padding))
(padding-pixel (* padding (gui:font-measure gemtext-font "0"))))
(multiple-value-bind (bg fg)
(gui-conf:gemini-window-colors)
(multiple-value-bind (select-bg select-fg)
(gui-conf:main-window-select-colors)
(setf gemtext-widget (make-instance 'gui:scrolled-text
:background (gui-conf:gemini-window-colors)
:background bg
:foreground fg
:selectbackground select-bg
:selectforeground select-fg
:insertwidth 0
@ -1725,7 +1729,7 @@ local file paths."
:padx padding-pixel
:master gemini-paned-frame
:read-only t
:font gemtext-font)))
:font gemtext-font))))
(gui:configure gemtext-widget :wrap :word))
(setf info-frame (make-instance 'gui:frame :master object :relief :sunken :borderwidth 1))
(setf info-text (make-instance 'gui:text :height 2 :wrap :none :master info-frame))