cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2024-12-22 23:47:56 +01:00
Code Issues

- [GUI] fixed setting of font for normal text in the gemtext window, the configurations directive was ignored before this patch.

Browse Source
This commit is contained in:
cage 2023-06-05 20:36:56 +02:00
parent 4100891dd5
commit a0518fa8de
2 changed files with 36 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
etc/gui.conf
View File

@ -16,7 +16,7 @@ gemini.main-window.background = #f4ecd8
# the font name
gemini.main-window.text.font = Sans
gemini.main-window.text.font = "Sans"
# positive number units in point, negatine units in pixel
@ -45,7 +45,7 @@ gemini.link.foreground = #5b4636
gemini.link.background = #f4ecd8
gemini.link.font = Sans
gemini.link.font = "Sans"
gemini.link.size = 11
@ -93,7 +93,7 @@ gemini.h1.foreground = #5b4636
gemini.h1.background = #f4ecd8
gemini.h1.font = Sans
gemini.h1.font = "Sans"
gemini.h1.size = 20
@ -113,7 +113,7 @@ gemini.h2.foreground = #5b4636
gemini.h2.background = #f4ecd8
gemini.h2.font = Sans
gemini.h2.font = "Sans"
gemini.h2.size = 15

33
src/gui/client/client-configuration.lisp
View File

@ -121,7 +121,38 @@
`(defun ,(misc:format-fn-symbol t "gemini-~a-font-configuration" no-plus) ()
(font-configuration ,key))))
(gen-font-configuration +key-text+)
(defun gemini-text-font-configuration ()
(format t "key ~a~%"
(access:accesses *client-configuration*
swconf:+key-gemini+
swconf:+key-main-window+
+key-text+
+key-font+))
(gui-goodies:make-font (access:accesses *client-configuration*
swconf:+key-gemini+
swconf:+key-main-window+
+key-text+
+key-font+)
(access:accesses *client-configuration*
swconf:+key-gemini+
swconf:+key-main-window+
+key-text+
+key-size+)
(access:accesses *client-configuration*
swconf:+key-gemini+
swconf:+key-main-window+
+key-text+
+key-weight+)
(access:accesses *client-configuration*
swconf:+key-gemini+
swconf:+key-main-window+
+key-text+
+key-slant+)
(not (swconf:false-value-p (access:accesses *client-configuration*
swconf:+key-gemini+
swconf:+key-main-window+
+key-text+
+key-underline+)))))
(defun font-text-bold ()
(gui-goodies:make-font (access:accesses *client-configuration*