From f255d39dee3e928a66228cadb424cd2836a265ab Mon Sep 17 00:00:00 2001
From: Luxferre <lux@ferre>
Date: Wed, 23 Oct 2024 11:19:18 +0300
Subject: [PATCH] now you can comment out stations in stations.txt

---
 README       | 5 +++--
 config.txt   | 5 +++++
 tiifetch.tcl | 2 +-
 3 files changed, 9 insertions(+), 3 deletions(-)

diff --git a/README b/README
index 4e5b7ba..a5eddd8 100644
--- a/README
+++ b/README
@@ -32,7 +32,7 @@ Readiness status
 * config.txt (format/fields): ready/tested
 * stations.txt (format): ready/tested
 * auth.txt (format): ready/tested
-* tiix.tcl: planned
+* tiix.tcl: work in progress
 * Overall status: CLI-ready. work in progress for GUI
 
 Usage
@@ -63,7 +63,8 @@ Fetching is supported for the following station URL schemes and protocols:
 If the station_url parameter is empty or no parameters are passed at all,
 tiifetch.tcl will look for a file called stations.txt that lists (each on a
 new line) all the station URLs to sync from. Messages from all listed stations
-will be merged into the same echo conference database.
+will be merged into the same echo conference database. You can comment out a
+station to temporarily stop fetching from it by prepending the # sign.
 
 ### Viewing the messages from CLI (tiiview.tcl): ###
 
diff --git a/config.txt b/config.txt
index ebbf317..1a7f942 100644
--- a/config.txt
+++ b/config.txt
@@ -1,3 +1,8 @@
 useragent "curl/7.54.1"
 proxyhost ""
 proxyport 0
+tiix_font "Fira Code"
+tiix_fontsize 12
+tiix_fgcolor #eee
+tiix_bgcolor #111
+tiix_linkcolor cyan
diff --git a/tiifetch.tcl b/tiifetch.tcl
index afd0e5b..790d58d 100755
--- a/tiifetch.tcl
+++ b/tiifetch.tcl
@@ -275,7 +275,7 @@ proc massfetch {echos dbdir dolog} {
     set stlist [split [readfile $stfile] "\n"]
     foreach station $stlist {
       set station [string trim $station]
-      if {$station ne ""} {
+      if {$station ne "" && ![string match "#*" $station]} {
         if {$dolog eq 1} {puts "Fetching from $station"}
         fetchiidb $station $echos $dbdir $dolog
       }