[Remind-Fans] Fix to annoying bug in tkremind

[Luís Henriques]

Hi Dianne,

I'm inlining below a patch that fixes a bug that has been annoying me for
a while but that I never bothered to try to fix.  Until today.

Basically, the '-m' option can't be used in tkremindrc, it has to be
passed as a tkremind parameter.  The patch bellow should fix this.

(And yes, for me weeks will always start on Mondays! :-) )

Cheers,
--
Luís

>From 5c9a90b696b27d826c38a95346efc5154df63ebc Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Lu=C3=ADs=20Henriques?= <henrix at camandro.org>
Date: Mon, 24 Oct 2022 13:42:10 +0100
Subject: [PATCH] Allow '-m' option to be used in ExtraRemindArgs option.

---
 scripts/tkremind | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/scripts/tkremind b/scripts/tkremind
index fbaea8a20f61..bc2d2b14f6b1 100755
--- a/scripts/tkremind
+++ b/scripts/tkremind
@@ -955,6 +955,7 @@ proc WriteOptionsToFile {} {
 #***********************************************************************
 proc LoadOptions {} {
     global Option ConfigFile
+    global MondayFirst
     set problem [catch {set f [open "$ConfigFile" "r"]}]
     if {$problem} {
 	return
@@ -974,6 +975,9 @@ proc LoadOptions {} {
         set Option($key) $val
     }
     close $f
+    if {[regexp -- {-m.*} $Option(ExtraRemindArgs)]} {
+	set MondayFirst 1
+    }
     font configure CalboxFont {*}$Option(CalboxFont)
     font configure HeadingFont {*}$Option(HeadingFont)
 }