From 28d0251093af198921fd1cedb72fc49d203a9044 Mon Sep 17 00:00:00 2001
From: Dianne Skoll <dianne@skoll.ca>
Date: Mon, 24 Oct 2022 09:35:27 -0400
Subject: [PATCH] If we use "-m" in ExtraRemindArgs, set $MondayFirst in
 tkremind
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Patch courtesy of Luís Henriques
---
 scripts/tkremind | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/scripts/tkremind b/scripts/tkremind
index fbaea8a2..bc2d2b14 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)
 }