tii

commit f255d39dee3e928a66228cadb424cd2836a265ab
parent 38998549b1c74c583c38b840d734d6143785afb8
Author: Luxferre <lux@ferre>
Date:   Wed, 23 Oct 2024 11:19:18 +0300

now you can comment out stations in stations.txt

Diffstat:
M
README
 | 
5
+++--
M
config.txt
 | 
5
+++++
M
tiifetch.tcl
 | 
2
+-

3 files changed, 9 insertions(+), 3 deletions(-)
diff --git 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
@@ -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
@@ -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
       }