- applyed the same theme of gemtext widget to gemtext TOC.

configure

@@ -1,6 +1,6 @@
 #! /bin/sh
 # Guess values for system-dependent variables and create Makefiles.
-# Generated by GNU Autoconf 2.72 for tinmop 0.9.9.141421356237.
+# Generated by GNU Autoconf 2.72 for tinmop 0.9.9.1414213562373-rc1.
 #
 # Report bugs to <https://codeberg.org/cage/tinmop/>.
 #
@@ -604,8 +604,8 @@ MAKEFLAGS=
 # Identity of this package.
 PACKAGE_NAME='tinmop'
 PACKAGE_TARNAME='tinmop'
-PACKAGE_VERSION='0.9.9.141421356237'
-PACKAGE_STRING='tinmop 0.9.9.141421356237'
+PACKAGE_VERSION='0.9.9.1414213562373-rc1'
+PACKAGE_STRING='tinmop 0.9.9.1414213562373-rc1'
 PACKAGE_BUGREPORT='https://codeberg.org/cage/tinmop/'
 PACKAGE_URL='https://www.autistici.org/interzona/tinmop.html'
 
@@ -1350,7 +1350,7 @@ if test "$ac_init_help" = "long"; then
   # Omit some internal or obsolete options to make the list less imposing.
   # This message is too long to be a string in the A/UX 3.1 sh.
   cat <<_ACEOF
-'configure' configures tinmop 0.9.9.141421356237 to adapt to many kinds of systems.
+'configure' configures tinmop 0.9.9.1414213562373-rc1 to adapt to many kinds of systems.
 
 Usage: $0 [OPTION]... [VAR=VALUE]...
 
@@ -1421,7 +1421,7 @@ fi
 
 if test -n "$ac_init_help"; then
   case $ac_init_help in
-     short | recursive ) echo "Configuration of tinmop 0.9.9.141421356237:";;
+     short | recursive ) echo "Configuration of tinmop 0.9.9.1414213562373-rc1:";;
    esac
   cat <<\_ACEOF
 
@@ -1529,7 +1529,7 @@ fi
 test -n "$ac_init_help" && exit $ac_status
 if $ac_init_version; then
   cat <<\_ACEOF
-tinmop configure 0.9.9.141421356237
+tinmop configure 0.9.9.1414213562373-rc1
 generated by GNU Autoconf 2.72
 
 Copyright (C) 2023 Free Software Foundation, Inc.
@@ -1772,7 +1772,7 @@ cat >config.log <<_ACEOF
 This file contains any messages produced by compilers while
 running configure, to aid debugging if configure makes a mistake.
 
-It was created by tinmop $as_me 0.9.9.141421356237, which was
+It was created by tinmop $as_me 0.9.9.1414213562373-rc1, which was
 generated by GNU Autoconf 2.72.  Invocation command line was
 
   $ $0$ac_configure_args_raw
@@ -3066,7 +3066,7 @@ fi
 
 # Define the identity of the package.
  PACKAGE='tinmop'
- VERSION='0.9.9.141421356237'
+ VERSION='0.9.9.1414213562373-rc1'
 
 
 printf "%s\n" "#define PACKAGE \"$PACKAGE\"" >>confdefs.h
@@ -9079,7 +9079,7 @@ cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
 # report actual input values of CONFIG_FILES etc. instead of their
 # values after options handling.
 ac_log="
-This file was extended by tinmop $as_me 0.9.9.141421356237, which was
+This file was extended by tinmop $as_me 0.9.9.1414213562373-rc1, which was
 generated by GNU Autoconf 2.72.  Invocation command line was
 
   CONFIG_FILES    = $CONFIG_FILES
@@ -9139,7 +9139,7 @@ ac_cs_config_escaped=`printf "%s\n" "$ac_cs_config" | sed "s/^ //; s/'/'\\\\\\\\
 cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
 ac_cs_config='$ac_cs_config_escaped'
 ac_cs_version="\\
-tinmop config.status 0.9.9.141421356237
+tinmop config.status 0.9.9.1414213562373-rc1
 configured by $0, generated by GNU Autoconf 2.72,
   with options \\"\$ac_cs_config\\"
 

debian/rules

@@ -17,4 +17,3 @@ override_dh_auto_configure:
 	dh_auto_configure
 	./configure --prefix=/usr/
 	bash quick_quicklisp.sh --proxy http://localhost:8080
-

src/gui/client/main-window.lisp

@@ -1826,6 +1826,20 @@ local file paths."
     (gui:configure (gui:listbox toc-listbox) :width (gui-conf:config-toc-minimum-width))
     (gui:configure (gui:listbox toc-listbox)
                    :font (gui-conf:toc-font-configuration))
+    (gui:configure (gui:listbox toc-listbox)
+                   :font (gui-conf:toc-font-configuration))
+    (multiple-value-bind (bg fg)
+        (gui-conf:gemini-window-colors)
+      (multiple-value-bind (select-bg select-fg)
+          (gui-conf:main-window-select-colors)
+        (gui:configure (gui:listbox toc-listbox)
+                       :background bg)
+        (gui:configure (gui:listbox toc-listbox)
+                       :foreground fg)
+        (gui:configure (gui:listbox toc-listbox)
+                       :selectbackground select-bg)
+        (gui:configure (gui:listbox toc-listbox)
+                       :selectforeground select-fg)))
     (gui:grid toc-listbox 0 0
               :sticky :nswe
               :ipadx  +minimum-padding+