Update docs.

By default, day numbers are placed at the top-right.

configure

@@ -3991,7 +3991,7 @@ _ACEOF
 fi
 done
 
-VERSION=03.03.02
+VERSION=03.03.05
 
 ac_config_files="$ac_config_files src/Makefile www/Makefile src/version.h"
 

configure.in

@@ -75,6 +75,6 @@ if test "$GCC" = yes; then
 fi
 
 AC_CHECK_FUNCS(setenv unsetenv glob mbstowcs setlocale)
-VERSION=03.03.02
+VERSION=03.03.05
 AC_SUBST(VERSION)
 AC_OUTPUT(src/Makefile www/Makefile src/version.h)

docs/WHATSNEW

@@ -1,5 +1,45 @@
 CHANGES TO REMIND
 
+* VERSION 3.3 Patch 5 - 2021-01-21
+
+- NEW FEATURE: tkremind: Add ability to change fonts and colors from
+  within TkRemind "Options" dialog.
+
+- CHANGE: tkremind: TkRemind now requires Tcl/Tk 8.5 or newer.
+
+- CHANGE: tkremind: You can specify the location of the options
+  file on the command-line if you want to use one other than ~/.tkremindrc
+
+- CLEANUP: tkremind: Remove "Apply Options" from Options dialog; we only
+  need "Save Options".
+
+- DOC FIX: Add missing release note in 3.3.4 notes regarding
+  setpagedevice patch
+
+- DOC FIX: tkremind: Document shortcut keys.
+
+* VERSION 3.3 Patch 4 - 2021-01-12
+
+- NEW FEATURE: If "inotifywait" is installed, TkRemind uses it to refresh
+  the calendar display right away when the reminders file/directory is updated.
+  This makes TkRemind react almost instantly if external tools are editing
+  or updating reminders.
+
+- MINOR NEW FEATURE: rem2ps has a new '-x' option; this puts the day numbers
+  on the top-left of the day's box instead of the top-right.
+
+- MINOR FIXES: A typo in remind.1 was fixed; additional comments regarding
+  UNTIL were added.
+
+- BUG FIX: rem2ps: Call setpagedevice to set page size.  Based on a patch
+  from Jonathan Kamens.
+
+* VERSION 3.3 Patch 3 - 2020-11-09
+
+- BUG FIX: Fix startup crash in TkRemind if "Show Today's Reminders on
+  Startup" is enabled (which, unfortunately, is the default.)  Bug reported
+  by Martin Ziemer.
+
 * VERSION 3.3 Patch 2 - 2020-11-08
 
 - MINOR NEW FEATURE: Add MAYBE-UNCOMPUTABLE keyword; see the man page

man/rem2ps.1

@@ -1,4 +1,4 @@
-.TH REM2PS 1 "1 January 2020"
+.TH REM2PS 1 "5 January 2021"
 .UC 4
 .SH NAME
 rem2ps \- draw a PostScript calendar from Remind output
@@ -29,6 +29,11 @@ include any document structuring comments in your prologue.
 Produce the calendar in landscape mode rather than the default
 portrait mode.
 .TP
+.B \-x
+When printing the calendar, place the day numbers in the top-left of each
+day's box.  If this option is omitted, the day numbers appear in the
+top-right.
+.TP
 \fB\-c\fR[\fIn\fR]
 If \fIn\fR is omitted, disables the small calendars for next and previous
 months which are normally generated.  If \fIn\fR is supplied, it can range

man/remind.1

@@ -860,6 +860,20 @@ As a special case, you can use the \fBTHROUGH\fR keyword instead of
 	REM 1992-11-30 +2 THROUGH 1992-12-04 MSG Jury duty
 .fi
 .PP
+If you have an expiry date via the use of \fBTHROUGH\fR or \fBUNTIL\fR,
+then Remind will \fInever\fR trigger the reminder after the expiry
+date.  For example, if you have this:
+.PP
+.nf
+        OMIT 2021-01-08
+        REM 2021-01-01 THROUGH 2021-01-08 AFTER MSG Test
+.fi
+.PP
+the reminder will not be triggered on 2021-01-08, and nor will it be
+triggered on 2021-01-09; even though the AFTER keyword would normally
+move the 8th's reminder to the 9th, the expiry date of 2021-01-08
+overrides that.
+.PP
 .B THE ONCE KEYWORD
 .PP
 Sometimes, it is necessary to ensure that reminders are run only once
@@ -3671,7 +3685,7 @@ and sometimes an \fBOMITFUNC\fR; experiment and use whichever seems clearer.
 .SH POSSIBLY-UNCOMPUTABLE TRIGGERS
 .PP
 Occasionally, you may wish to suppress the "Can't compute trigger" warnings
-for reminders for which a trigger date cannot be compute.  For example,
+for reminders for which a trigger date cannot be computed.  For example,
 the following reminder is triggered on a Monday that is not a holiday
 if the following Tuesday is a holiday:
 .PP

man/tkremind.1

@@ -1,9 +1,9 @@
-.TH TKREMIND 1 "1 January 2020"
+.TH TKREMIND 1 "15 January 2021"
 .UC 4
 .SH NAME
 tkremind \- graphical front-end to Remind calendar program
 .SH SYNOPSIS
-.B tkremind \fR[\fIoptions\fR] [\fIread_file\fR] [\fIwrite_file\fR]
+.B tkremind \fR[\fIoptions\fR] [\fIread_file\fR] [\fIwrite_file\fR] [\fIconfig_file\fR]
 .SH DESCRIPTION
 \fBTkRemind\fR is a graphical front-end to the \fBRemind\fR program.
 It provides a friendly graphical interface which allows you to view
@@ -41,6 +41,9 @@ include the line:
 .fi
 .PP
 
+\fIConfig_file\fR is the file in which \fBTkRemind\fR stores
+its options.  If it is omitted, it defaults to \fI$HOME/.tkremindrt\fR.
+
 .SH THE CALENDAR WINDOW
 When you start \fBTkRemind\fR, it displays a calendar for the current
 month, with today's date highlighted.  Reminders are filled into each
@@ -51,11 +54,14 @@ notice that the box appears completely full.
 
 .SH NAVIGATING
 To change to the previous or next month, click the \fB<\-\fR
-or \fB\->\fR button, respectively.  To change back to
-the current month, click \fBToday\fR.  To go to a specific month,
-click \fBGo To Date...\fR.  This pops up a dialog box which allows you
-to select a month and enter a year.  Once you've done this, click
-\fBGo\fR to go to the date, or \fBCancel\fR to cancel.
+or \fB\->\fR button, respectively.  You can also use the left/right arrow
+keys or PageUp/PageDown to navigate.
+
+To change back to the current month, click \fBToday\fR or press the
+Home key.  To go to a specific month, click \fBGo To Date...\fR.  This
+pops up a dialog box which allows you to select a month and enter a
+year.  Once you've done this, click \fBGo\fR to go to the date, or
+\fBCancel\fR to cancel.
 
 To exit \fBTkRemind\fR, click \fBQuit\fR.
 
@@ -233,6 +239,22 @@ The characters "%d" are replaced with the lined number of the file
 containing the reminder, and "%s" are replaced with the file name.
 Useful strings might be "emacs +%d %s" or "gvim +%d %s"
 
+.TP
+.B Extra Argument for Remind
+This specifies any extra arguments that should be passed to Remind
+when \BTkRemind\fR invokes \fBremind\fR.  Unless you know what
+you are doing, leave this blank.
+
+.TP
+.B Change entry font...
+This button pops up a font selection dialog that lets you change the
+font used to draw calendar items in the calendar boxes.
+
+.TP
+.B Change heading font...
+Similar to Change entry font, but applies to calendar heading
+(the month and day names and the day numbers.)
+
 .PP
 Once you've configured the options the way you like them,
 press \fBApply Options\fR to put them into effect, \fBSave Options\fR

scripts/tkremind

@@ -7,13 +7,20 @@
 #   A cheesy graphical front/back end for Remind using Tcl/Tk
 #
 #   This file is part of REMIND.
-#   Copyright (C) 1992-2020 Dianne Skoll
+#   Copyright (C) 1992-2021 Dianne Skoll
 #
 #--------------------------------------------------------------
 
 # the next line restarts using wish \
 exec wish "$0" "$@"
 
+# We need at least version 8.5 because of {*} list expansion operator
+if {[catch {package require Tcl 8.5}]} {
+    puts "This program requires Tcl 8.5 or higher."
+    puts "You have version [info tclversion]"
+    exit 1
+}
+
 wm withdraw .
 
 set Hostname [exec hostname]
@@ -155,6 +162,26 @@ set OptDescr(SMTPServer) "(String) IP address or host name of SMTP server to use
 set Option(ExtraRemindArgs) ""
 set OptDescr(ExtraRemindArgs) "(String) Extra arguments when invoking remind"
 
+set Option(CalboxFont) [font actual TkFixedFont]
+set OptDescr(CalboxFont) "Font to use in calendar boxes in Tk font format"
+
+set Option(HeadingFont) [font actual TkDefaultFont]
+set OptDescr(HeadingFont) "Font to use in calendar headings in Tk font format"
+
+set Option(BackgroundColor) "#d9d9d9"
+set OptDescr(BackgroundColor) "Default background color of calendar boxes"
+
+set Option(TextColor) "#000000"
+set OptDescr(TextColor) "Default text color in calendar boxes"
+
+set Option(LabelColor) "#000000"
+set OptDescr(LabelColor) "Default label color for headings"
+
+set Option(WinBackground) "#d9d9d9"
+set OptDescr(WinBackground) "Background color of calendar window"
+
+set TimerUpdateForChanges ""
+
 # Remind program to execute -- supply full path if you want
 set Remind "remind"
 #set Remind "/home/dfs/Remind/src/remind"
@@ -166,8 +193,14 @@ set Rem2PS "rem2ps"
 set ReminderFile {NOSUCHFILE}
 set ReminderFile [file nativename "~/.reminders"]
 
+# Default options file
+set ConfigFile ~/.tkremindrc
+
 set EditorPid -1
 
+# Inotify file
+set InotifyFP ""
+
 # Reminder file to append to -- default
 set AppendFile {NOSUCHFILE}
 catch {set AppendFile $ReminderFile}
@@ -218,6 +251,7 @@ set PrintDest file
 set PrintSize letter
 set PrintOrient landscape
 set PrintFill 1
+set PrintDaysRight 1
 set PrintEncoding 0
 set PrintMargins 36pt
 set PrintSmallCalendars 1
@@ -263,7 +297,7 @@ proc Initialize {} {
 
     global DayNames argc argv CommandLine ReminderFile AppendFile Remind PSCmd
     global MondayFirst TwentyFourHourMode ReminderFileModTime
-    global Option
+    global Option ConfigFile
     set CommandLine "|$Remind -itkremind=1 -pp -y -l EXTRA"
     set PSCmd "$Remind -itkremind=1 -itkprint=1 -pp -l EXTRA"
     set i 0
@@ -289,6 +323,10 @@ proc Initialize {} {
 	if {$i < $argc} {
 	    set AppendFile [lindex $argv $i]
 	    incr i
+            if {$i < $argc} {
+                set ConfigFile [lindex $argv $i]
+                incr i
+            }
 	}
     }
 
@@ -375,8 +413,7 @@ proc MonitorReminderFile {} {
     # Redraw calendar and restart daemon if needed
     if {$ReminderFileModTime < $mtime} {
 	set ReminderFileModTime $mtime
-	FillCalWindow
-	RestartBackgroundRemindDaemon
+        ScheduleUpdateForChanges
     }
 }
 #---------------------------------------------------------------------------
@@ -447,6 +484,7 @@ proc CalEntryOffset { firstDay } {
 proc CreateCalFrame { w dayNames } {
     # Figure out reasonable height for text frames
     global SetFontsWorked
+    global Option
     set h [winfo screenheight .]
     if {$h <= 480} {
 	if {$SetFontsWorked} {
@@ -461,7 +499,7 @@ proc CreateCalFrame { w dayNames } {
     }
 
     global MondayFirst
-    frame $w
+    frame $w -background $Option(WinBackground)
     for {set i 0} {$i < 7} {incr i} {
 	if {$MondayFirst} {
 	    set index [expr ($i+1)%7]
@@ -469,7 +507,7 @@ proc CreateCalFrame { w dayNames } {
 	    set index $i
 	}
 
-	label $w.day$i -border 1 -text [lindex $dayNames $index] -justify center
+	label $w.day$i -border 1 -text [lindex $dayNames $index] -justify center -font HeadingFont -foreground $Option(LabelColor) -background $Option(WinBackground)
 	grid configure $w.day$i -row 0 -column $i -sticky ew
     }
     for {set i 0} {$i < 6} {incr i} {
@@ -477,9 +515,9 @@ proc CreateCalFrame { w dayNames } {
 	for {set j 0} {$j < 7} {incr j} {
 	    set f [expr $n+$j]
 	    button $w.l$f -text "" -justify center -command "" \
-		-state disabled -relief flat -border 0 -padx 0 -pady 0
+		-state disabled -relief flat -border 0 -padx 0 -pady 0 -font HeadingFont
 	    text $w.t$f -width 12 -height $h -border 1 -spacing3 3 -wrap word -relief flat \
-		-state disabled -takefocus 0 -cursor {}
+		-state disabled -takefocus 0 -cursor {} -font CalboxFont -foreground $Option(TextColor) -background $Option(BackgroundColor)
 	    $w.t$f tag bind TAGGED <ButtonPress-1> "EditTaggedReminder $w.t$f"
 	    $w.t$f tag bind REM <ButtonPress-3> "FireEditor $w.t$f"
 
@@ -509,18 +547,17 @@ proc CreateCalFrame { w dayNames } {
 #***********************************************************************
 proc ConfigureCalFrame { w firstDay numDays } {
     global CurMonth CurYear TodayMonth TodayYear TodayDay
-    global tk_version
+    global tk_version Option
     set offset [CalEntryOffset $firstDay]
     set first [expr $offset+1]
     set last [expr $offset+$numDays]
 
-    set bg [lindex [. configure -background] 3]
-
     for {set i 0} {$i < $first} {incr i} {
 	grid $w.l$i $w.t$i
-	$w.l$i configure -text "" -command "" -state disabled -relief flat
+	$w.l$i configure -text "" -command "" -state normal -relief flat -foreground $Option(LabelColor) -background $Option(WinBackground)
+        $w.l$i configure -state disabled
 	balloon_add_help $w.l$i ""
-	$w.t$i configure -relief flat -takefocus 0 -state normal
+	$w.t$i configure -relief flat -takefocus 0 -state normal -background $Option(WinBackground)
 	$w.t$i delete 1.0 end
 	foreach t [$w.t$i tag names] {
 	    $w.t$i tag delete $t
@@ -528,16 +565,14 @@ proc ConfigureCalFrame { w firstDay numDays } {
 	$w.t$i tag bind TAGGED <ButtonPress-1> "EditTaggedReminder $w.t$i"
 	$w.t$i tag bind REM <ButtonPress-3> "FireEditor $w.t$i"
 	$w.t$i configure -state disabled
-	$w.t$i configure -background $bg
-	$w.l$i configure -background $bg
     }
     for {set i $first} {$i <= $last} {incr i} {
 	grid $w.l$i $w.t$i
 	set d [expr $i-$first+1]
 	$w.l$i configure -text $d -state normal -relief flat \
-		-command "ModifyDay $d $firstDay"
+		-command "ModifyDay $d $firstDay" -foreground $Option(LabelColor) -background $Option(WinBackground)
 	balloon_add_help $w.l$i "Add a reminder..."
-	$w.t$i configure -relief sunken -takefocus 1 -state normal
+	$w.t$i configure -relief sunken -takefocus 1 -state normal -foreground $Option(TextColor) -background $Option(BackgroundColor)
 	$w.t$i delete 1.0 end
 	foreach t [$w.t$i tag names] {
 	    $w.t$i tag delete $t
@@ -545,8 +580,6 @@ proc ConfigureCalFrame { w firstDay numDays } {
 	$w.t$i tag bind TAGGED <ButtonPress-1> "EditTaggedReminder $w.t$i"
 	$w.t$i tag bind REM <ButtonPress-3> "FireEditor $w.t$i"
 	$w.t$i configure -state disabled
-	$w.t$i configure -background $bg
-	$w.l$i configure -background $bg
     }
     set forgetIt 0
     for {set i [expr $last+1]} {$i < 42} {incr i} {
@@ -559,11 +592,13 @@ proc ConfigureCalFrame { w firstDay numDays } {
 	    grid rowconfigure $w $row -weight 0
 	    grid rowconfigure $w [expr $row+1] -weight 0
 	} else {
+	    grid $w.l$i $w.t$i
 	    grid rowconfigure $w [expr $row+1] -weight 1
 	}
-	$w.l$i configure -text "" -command "" -state disabled -relief flat
+	$w.l$i configure -text "" -command "" -state normal -relief flat -foreground $Option(LabelColor) -background $Option(WinBackground)
+        $w.l$i configure -state disabled
 	balloon_add_help $w.l$i ""
-	$w.t$i configure -relief flat -takefocus 0 -state normal
+	$w.t$i configure -relief flat -takefocus 0 -state normal -background $Option(WinBackground)
 	$w.t$i delete 1.0 end
 	foreach t [$w.t$i tag names] {
 	    $w.t$i tag delete $t
@@ -571,8 +606,6 @@ proc ConfigureCalFrame { w firstDay numDays } {
 	$w.t$i tag bind TAGGED <ButtonPress-1> "EditTaggedReminder $w.t$i"
 	$w.t$i tag bind REM <ButtonPress-3> "FireEditor $w.t$i"
 	$w.t$i configure -state disabled
-	$w.t$i configure -background $bg
-	$w.l$i configure -background $bg
     }
     if { $CurMonth == $TodayMonth && $CurYear == $TodayYear } {
 	set n [expr $TodayDay + $offset]
@@ -593,14 +626,14 @@ proc DoQueue {} {
 #---------------------------------------------------------------------------
 proc CreateCalWindow { dayNames } {
     global Option
-    frame .h
-    label .h.title -text "" -justify center -pady 1 -border 1 -relief raised
+    frame .h -background $Option(WinBackground);
+    label .h.title -text "" -justify center -pady 1 -border 1 -relief raised -font HeadingFont -background $Option(WinBackground) -foreground $Option(LabelColor)
     pack .h.title -side top -fill x
     pack .h -side top -expand 0 -fill x
 
     CreateCalFrame .cal $dayNames
 
-    frame .b
+    frame .b -background $Option(WinBackground);
     button .b.prev -image leftarrow -width 24 -command {MoveMonth -1} -border 1
     balloon_add_help .b.prev "Go to previous month"
     button .b.this -text {Today} -command {ThisMonth} -border 1
@@ -635,6 +668,7 @@ proc CreateCalWindow { dayNames } {
     bind . <KeyPress-Next> ".b.next flash; .b.next invoke"
     bind . <KeyPress-Home> ".b.this flash; .b.this invoke"
 
+    . configure -background $Option(WinBackground)
     if {$Option(StartIconified)} {
 	wm iconify .
     }
@@ -736,6 +770,30 @@ proc EditOptions {} {
     pack $w.extraargs -in $w.eaf -side left -expand 1 -fill x
     $w.extraargs insert 0 $tmpOpt(ExtraRemindArgs)
 
+    # Fonts
+    frame $w.fframe
+    button $w.font -text "Change entry font..." -command "ChooseCalboxFont"
+    button $w.hfont -text "Change heading font..." -command "ChooseHeadingFont"
+    pack $w.font $w.hfont -in $w.fframe -side left -expand 1 -fill x
+
+    # Colors
+    frame $w.colors1
+    label $w.textcolor -text "Text Color:"
+    button $w.btextcolor -background $Option(TextColor) -command [list PickColor TextColor $w.btextcolor] -text ...
+    label $w.bgcolor -text "  Background color:"
+    button $w.bbgcolor -background $Option(BackgroundColor) -command [list PickColor BackgroundColor $w.bbgcolor] -text ...
+
+    grid $w.textcolor $w.btextcolor $w.bgcolor $w.bbgcolor -in $w.colors1
+    grid $w.bgcolor $w.bbgcolor -in $w.colors1
+
+    label $w.headcolor -text "Heading Color:"
+    button $w.bheadcolor -background $Option(LabelColor) -command [list PickColor LabelColor $w.bheadcolor] -text ...
+    label $w.wincolor -text "  Window color:"
+    button $w.bwincolor -background $Option(WinBackground) -command [list PickColor WinBackground $w.bwincolor] -text ...
+    grid $w.headcolor $w.bheadcolor $w.wincolor $w.bwincolor -in $w.colors1
+
+    grid columnconfigure $w.colors1 0 -weight 1
+    grid columnconfigure $w.colors1 2 -weight 1
     frame $w.sep1 -border 1 -relief sunken
     frame $w.sep2 -border 1 -relief sunken
 
@@ -757,16 +815,23 @@ proc EditOptions {} {
     pack $w.fsmtp -in $w.f -side top -expand 0 -fill x
     pack $w.ef -in $w.f -side top -expand 0 -fill x
     pack $w.eaf -in $w.f -side top -expand 0 -fill x
+    pack $w.fframe -in $w.f -side top -expand 0 -fill x
+    pack $w.colors1 -in $w.f -side top -expand 0 -fill x
     pack $w.sep2 -in $w.f -side top -expand 0 -fill x -ipady 1
 
-    button $w.apply -text "Apply Options" -command "ApplyOptions $w; destroy $w"
     button $w.save -text "Save Options" -command "SaveOptions $w; destroy $w"
-    button $w.cancel -text "Cancel" -command "destroy $w"
-
-    pack $w.apply $w.save $w.cancel -in $w.b -side left -expand 0 -fill x
+    button $w.cancel -text "Cancel" -command "CancelOptions; destroy $w"
+    wm protocol $w WM_DELETE_WINDOW "CancelOptions; destroy $w"
+    pack $w.save $w.cancel -in $w.b -side left -expand 0 -fill x
     CenterWindow $w .
 }
 
+proc CancelOptions { } {
+    global Option
+    font configure CalboxFont {*}$Option(CalboxFont)
+    font configure HeadingFont {*}$Option(HeadingFont)
+}
+
 #***********************************************************************
 # %PROCEDURE: ApplyOptions
 # %ARGUMENTS:
@@ -807,15 +872,15 @@ proc ApplyOptions { w } {
 # %RETURNS:
 #  Nothing
 # %DESCRIPTION:
-#  Saves options in $HOME/.tkremindrc
+#  Saves options in specified config file
 #***********************************************************************
 proc SaveOptions { w } {
-    global Option OptDescr
+    global Option OptDescr ConfigFile
     ApplyOptions $w
 
-    set problem [catch {set f [open ~/.tkremindrc "w"]} err]
+    set problem [catch {set f [open $ConfigFile "w"]} err]
     if {$problem} {
-	tk_dialog .error Error "Can't write ~/.tkremindrc: $err" 0 OK
+	tk_dialog .error Error "Can't write $ConfigFile: $err" 0 OK
 	return
     }
 
@@ -831,6 +896,11 @@ proc SaveOptions { w } {
     }
     puts $f ""
     close $f
+    FillCalWindow
+    .h.title configure -background $Option(WinBackground) -foreground $Option(LabelColor)
+    for {set i 0} {$i < 7} {incr i} {
+        .cal.day$i configure  -foreground $Option(LabelColor) -background $Option(WinBackground)
+    }
 }
 
 #***********************************************************************
@@ -840,25 +910,31 @@ proc SaveOptions { w } {
 # %RETURNS:
 #  Nothing
 # %DESCRIPTION:
-#  Loads options from ~/.tkremindrc
+#  Loads options from $ConfigFile
 #***********************************************************************
 proc LoadOptions {} {
-    global Option
-    set problem [catch {set f [open "~/.tkremindrc" "r"]}]
+    global Option ConfigFile
+    set problem [catch {set f [open "$ConfigFile" "r"]}]
     if {$problem} {
 	return
     }
     while {[gets $f line] >= 0} {
-	if {[string match "#*" $line]} { continue }
-	if {$line == ""} { continue }
-	foreach {key val} $line {}
-	if {![info exists Option($key)]} {
-	    puts "Unknown option in ~/.tkremindrc: $key"
-	    continue
-	}
-	set Option($key) $val
+	if {[string match "#*" $line]} {
+            continue
+        }
+        if {$line == ""} {
+            continue
+        }
+        foreach {key val} $line {}
+        if {![info exists Option($key)]} {
+            puts "Unknown option in $ConfigFile: $key"
+            continue
+        }
+        set Option($key) $val
     }
     close $f
+    font configure CalboxFont {*}$Option(CalboxFont)
+    font configure HeadingFont {*}$Option(HeadingFont)
 }
 
 
@@ -1078,7 +1154,7 @@ proc Status { stuff } {
 #   None
 #---------------------------------------------------------------------------
 proc DoPrint {} {
-    global PrintDest PrintSize PrintMargins PrintOrient PrintFill PrintEncoding PrintSmallCalendars PrintStatus Rem2PS PSCmd Option
+    global PrintDest PrintSize PrintMargins PrintOrient PrintFill PrintDaysRight PrintEncoding PrintSmallCalendars PrintStatus Rem2PS PSCmd Option
     global CurMonth CurYear MonthNames
     catch {destroy .p}
     toplevel .p
@@ -1114,6 +1190,7 @@ proc DoPrint {} {
     radiobutton .p.portrait -text "Portrait" -variable PrintOrient -value portrait
 
     checkbutton .p.fill -text "Fill page" -variable PrintFill
+    checkbutton .p.right -text "Day numbers at top-right" -variable PrintDaysRight
     checkbutton .p.encoding -text "ISO 8859-1 PostScript encoding" -variable PrintEncoding
     checkbutton .p.calendars -text "Print small calendars" -variable PrintSmallCalendars
 
@@ -1122,7 +1199,7 @@ proc DoPrint {} {
 
     pack .p.f1 .p.f2 .p.f2a .p.f3 .p.f3a \
 	    -side top -fill both -expand 1 -anchor w
-    pack .p.fill .p.encoding .p.calendars -in .p.f3a \
+    pack .p.fill .p.right .p.encoding .p.calendars -in .p.f3a \
 	    -side top -anchor w -fill none -expand 0
     pack .p.f4 -side top -fill both -expand 1 -anchor w
     pack .p.f11 .p.f12 -in .p.f1 -side top -fill none -expand 0 -anchor w
@@ -1194,6 +1271,9 @@ proc DoPrint {} {
 	append cmd " -e"
     }
 
+    if {!$PrintDaysRight} {
+        append cmd " -x"
+    }
     if {$PrintEncoding} {
 	append cmd " -i"
     }
@@ -1296,15 +1376,20 @@ proc DoGoto {} {
 #---------------------------------------------------------------------------
 proc Quit {} {
     global Option
+    global InotifyFP
     if { !$Option(ConfirmQuit) } {
 	destroy .
 	StopBackgroundRemindDaemon
-	exit
+        catch { exec kill [pid $InotifyFP] }
+        catch { close $InotifyFP }
+	exit 0
     }
     if { [tk_dialog .question "Confirm..." {Really quit?} question 0 No Yes] } {
 	destroy .
 	StopBackgroundRemindDaemon
-	exit
+        catch { exec kill [pid $InotifyFP] }
+        catch { close $InotifyFP }
+	exit 0
     }
 }
 
@@ -1777,8 +1862,7 @@ proc ModifyDay {d firstDay} {
 	    WriteReminder $f TKTAG$HighestTagSoFar $rem $opts
 	    close $f
 
-	    FillCalWindow
-	    RestartBackgroundRemindDaemon
+            ScheduleUpdateForChanges
 	    return 0
 	}
     }
@@ -2613,27 +2697,33 @@ proc CommandWritable { f msg } {
 
 
 proc main {} {
-    # If no ~/.tkremindrc file, create an empty one
-    if {![file exists ~/.tkremindrc]} {
-	catch {
-	    set f [open ~/.tkremindrc "w"]
-	    close $f
-	}
-    }
+    global ConfigFile
+
+    font create CalboxFont {*}[font actual TkFixedFont]
+    font create HeadingFont {*}[font actual TkDefaultFont]
 
     global AppendFile HighestTagSoFar DayNames
     catch {
-	puts "\nTkRemind Copyright (C) 1996-2020 Dianne Skoll"
+	puts "\nTkRemind Copyright (C) 1996-2021 Dianne Skoll"
     }
     catch { SetFonts }
+    Initialize
+
+    # If no $ConfigFile file, create an empty one
+    if {![file exists $ConfigFile]} {
+	catch {
+	    set f [open $ConfigFile "w"]
+	    close $f
+	}
+    }
     LoadOptions
     CreateMoonImages
-    Initialize
     ShowTodaysReminders
     ScanForTags $AppendFile
     CreateCalWindow $DayNames
     FillCalWindow
     StartBackgroundRemindDaemon
+    SetupInotify
     DisplayTimeContinuously
 }
 
@@ -3048,12 +3138,13 @@ proc TaggedEnter { w } {
 #  Removes highlight from an "editable" reminder as mouse leaves it
 #***********************************************************************
 proc TaggedLeave { w } {
+    global Option
     set tag [GetCurrentReminder $w]
     if {$tag != ""} {
 	set tags [$w tag names current]
 	set index [lsearch -glob $tags "clr*"]
 	if {$index < 0} {
-	    set fg "#000000"
+	    set fg $Option(TextColor)
 	} else {
 	    set fg [string range [lindex $tags $index] 3 end]
 	    set fg "#$fg"
@@ -3134,12 +3225,38 @@ proc EditTaggedReminder { w } {
 	    return 1
 	}
 
-	FillCalWindow
-	RestartBackgroundRemindDaemon
+        ScheduleUpdateForChanges
 	return 0
     }
 }
 
+
+#***********************************************************************
+# %PROCEDURE: UpdateForChanges
+#  Updates the calendar window and restarts background daemon because
+#  something has changed.
+# %ARGUMENTS:
+#  None
+# %RETURNS:
+#  Nothing
+#***********************************************************************
+proc UpdateForChanges {} {
+    global TimerUpdateForChanges
+    catch { after cancel $TimerUpdateForChanges }
+    FillCalWindow
+    RestartBackgroundRemindDaemon
+}
+
+# Schedule an update for 100ms in the future.
+# That way, if we get a rapid succession of
+# change notifications, we (probably) only
+# end up doing one call to UpdateForChanges
+proc ScheduleUpdateForChanges {} {
+    global TimerUpdateForChanges
+    catch { after cancel $TimerUpdateForChanges }
+    set TimerUpdateForChanges [after 100 UpdateForChanges]
+}
+
 #***********************************************************************
 # %PROCEDURE: UniqueFileName
 # %ARGUMENTS:
@@ -3418,6 +3535,7 @@ proc ShowTodaysReminders {} {
     global Option
     global Remind
     global ReminderFile
+    global TwentyFourHourMode
     if {!$Option(ShowTodaysReminders)} {
 	return
     }
@@ -3467,8 +3585,7 @@ proc InteractiveDeleteReminder { tag } {
     set ans [tk_dialog .error "Really Delete" "Really delete reminder?" warning 0 No Yes]
     if {$ans == 1} {
 	DeleteTaggedReminder $tag
-	FillCalWindow
-	RestartBackgroundRemindDaemon
+        ScheduleUpdateForChanges
     }
 }
 
@@ -3521,10 +3638,35 @@ proc SetFonts {} {
     set SetFontsWorked 1
 }
 
+# Set up inotify to watch for changes to reminder file/directory
+proc SetupInotify {} {
+    global InotifyFP
+    global ReminderFile
+    set failed [catch {set InotifyFP [open "|inotifywait -q -m -e close_write -e move -e create -e delete $ReminderFile" "r"] } ]
+    if {$failed} {
+        # inotifywait probably not available... meh.
+        return
+    }
+    fileevent $InotifyFP readable [list InotifyReadable $InotifyFP]
+}
+
+# Called when inotifywait reports an event.  Schedule a calendar update
+# and daemon reload.
+proc InotifyReadable { fp } {
+    catch { set num [gets $fp line] }
+    if {$num < 0} {
+        catch { exec kill [pid $fp] }
+        close $fp
+        return
+    }
+    ScheduleUpdateForChanges
+}
+
 ### Balloon help
 set Balloon(HelpTime) 400
 set Balloon(StayTime) 3500
 set Balloon(Font) fixed
+set Balloon(MustLeave) 0
 
 proc balloon_reset_timer { w } {
     balloon_destroy_help_window
@@ -3638,4 +3780,40 @@ proc balloon_calculate_geometry { w } {
     return "+$tx+$ty"
 }
 
+proc ChooseCalboxFont {} {
+    tk fontchooser show
+    tk fontchooser configure -font [font actual CalboxFont]
+    tk fontchooser configure -command SetCalboxFont
+}
+
+proc SetCalboxFont {font} {
+    global tmpOpt
+    font configure CalboxFont {*}[font actual $font]
+    set tmpOpt(CalboxFont) [font actual $font]
+    raise .opt
+}
+
+proc ChooseHeadingFont {} {
+    tk fontchooser show
+    tk fontchooser configure -font [font actual HeadingFont]
+    tk fontchooser configure -command SetHeadingFont
+}
+
+proc SetHeadingFont {font} {
+    global tmpOpt
+    font configure HeadingFont {*}[font actual $font]
+    set tmpOpt(HeadingFont) [font actual $font]
+    raise .opt
+}
+
+proc PickColor {index button} {
+    global tmpOpt
+    set x [tk_chooseColor -initialcolor $tmpOpt($index)]
+    if {"$x" != ""} {
+        set tmpOpt($index) $x
+        $button configure -background $x
+    }
+    raise .opt
+}
+
 main

src/rem2ps.c

@@ -5,7 +5,7 @@
 /*  Print a PostScript calendar.                               */
 /*                                                             */
 /*  This file is part of REMIND.                               */
-/*  Copyright (C) 1992-2020 by Dianne Skoll                    */
+/*  Copyright (C) 1992-2021 by Dianne Skoll                    */
 /*                                                             */
 /***************************************************************/
 
@@ -99,6 +99,7 @@ CalEntry *CurEntries = NULL;
 CalEntry *PsEntries[32];
 PageType *CurPage;
 char PortraitMode;
+char DaynumRight;
 char NoSmallCal;
 char UseISO;
 
@@ -140,6 +141,18 @@ void WriteOneEntry (CalEntry *c);
 void GetSmallLocations (void);
 char const *EatToken(char const *in, char *out, int maxlen);
 
+static void
+put_escaped_string(char const *s)
+{
+    while(*s) {
+        if (*s == '\\' || *s == '(' || *s == ')') {
+            PutChar('\\');
+        }
+        PutChar(*s);
+        s++;
+    }
+}
+
 /***************************************************************/
 /*                                                             */
 /*  StrCmpi                                                    */
@@ -336,7 +349,7 @@ int main(int argc, char *argv[])
 	    !strcmp(DBufValue(&buf), PSBEGIN2)) {
 	    if (!validfile) {
 		if (Verbose) {
-		    fprintf(stderr, "Rem2PS: Version %s Copyright 1992-2020 by Dianne Skoll\n\n", VERSION);
+		    fprintf(stderr, "Rem2PS: Version %s Copyright 1992-2021 by Dianne Skoll\n\n", VERSION);
 		    fprintf(stderr, "Generating PostScript calendar\n");
 		}
 	    }
@@ -587,6 +600,12 @@ void WriteProlog(void)
     printf("%%%%Pages: (atend)\n");
     printf("%%%%Orientation: %s\n", PortraitMode ? "Portrait" : "Landscape");
     printf("%%%%EndComments\n");
+    if (PortraitMode) {
+        printf("<< /PageSize [%d %d] >> setpagedevice\n", x, y);
+    } else {
+        /* They were swapped up above, so swap them back or we'll get rotated output */
+        printf("<< /PageSize [%d %d] >> setpagedevice\n", y, x);
+    }
 
     for (i=0; PSProlog1[i]; i++) puts(PSProlog1[i]);
     if (!MondayFirst)
@@ -679,7 +698,7 @@ void WriteCalEntry(void)
     printf("]\n");
 
 /* Print the day number */
-    printf("(%d)\n", CurDay);
+    printf("(%d) %d\n", CurDay, (int) DaynumRight);
 /* Do it! */
     printf("DoCalBox\n");
 
@@ -819,6 +838,7 @@ void Init(int argc, char *argv[])
     FillPage = 0;
     MondayFirst = 0;
     SmallLocation = "bt";
+    DaynumRight = 1;
 
     for(j=0; j<32; j++) PsEntries[i] = NULL;
 
@@ -935,6 +955,7 @@ void Init(int argc, char *argv[])
 
 	case 'i': UseISO = 1; break;
 
+        case 'x': DaynumRight = 0; break;
 	case 'c': k=(*s);
 	    if (!k) {
 		SmallLocation = SmallCalLoc[0];
@@ -979,6 +1000,7 @@ void Usage(char const *s)
     fprintf(stderr, "-b size       Set border size for calendar entries\n");
     fprintf(stderr, "-t size       Set line thickness\n");
     fprintf(stderr, "-e            Make calendar fill entire page\n");
+    fprintf(stderr, "-x            Put day numbers on left instead of right\n");
     fprintf(stderr, "-o[lrtb] marg Specify left, right, top and bottom margins\n");
     exit(1);
 }
@@ -1054,10 +1076,10 @@ int DoQueuedPs(void)
     FILE *fp;
     int fnoff;
     char buffer[512];
-    char const *size, *extra;
+    char fbuffer[512];
+    char const *size, *fsize, *extra;
     char const *s;
     int num, r, g, b, phase, fontsize, moonsize;
-    unsigned char c;
 
     if (!MondayFirst) begin = CurDay - WkDayNum;
     else		     begin = CurDay - (WkDayNum ? WkDayNum-1 : 6);
@@ -1129,19 +1151,28 @@ int DoQueuedPs(void)
 		while(*s && isspace(*s)) {
 		    s++;
 		}
-		while(*s) {
-		    if (*s == '\\' || *s == '(' || *s == ')') {
-			PutChar('\\');
-		    }
-		    PutChar(*s);
-		    s++;
-		}
+                put_escaped_string(s);
 		printf(") show grestore\n");
 		break;
 
 	    case SPECIAL_MOON:		/* Moon phase */
 		num = sscanf(e->entry+fnoff, "%d %d %d", &phase, &moonsize,
 			     &fontsize);
+		/* See if we have extra stuff */
+		extra = e->entry+fnoff;
+
+		/* Skip phase */
+		while(*extra && !isspace(*extra)) extra++;
+		while(*extra && isspace(*extra)) extra++;
+
+		/* Skip moon size */
+		while(*extra && !isspace(*extra)) extra++;
+		while(*extra && isspace(*extra)) extra++;
+
+		/* Skip font size */
+		while(*extra && !isspace(*extra)) extra++;
+		while(*extra && isspace(*extra)) extra++;
+
 		if (num == 1) {
 		    moonsize = -1;
 		    fontsize = -1;
@@ -1163,7 +1194,27 @@ int DoQueuedPs(void)
 		    size = buffer;
 		}
 
-		printf("gsave 0 setgray newpath Border %s add BoxHeight Border sub %s sub\n", size, size);
+                /* Store the starting X coordinate in "moonstartx" */
+                if (DaynumRight) {
+                    printf("Border %s add /moonstartx exch def", size);
+                } else {
+                    printf("xincr Border sub %s sub ", size);
+                    if (*extra) {
+                        if (fontsize < 0) {
+                            fsize = "EntrySize";
+                        } else {
+                            sprintf(fbuffer, "%d", fontsize);
+                            fsize = fbuffer;
+                        }
+                        printf("/EntryFont findfont %s scalefont setfont (",
+                               fsize);
+                        put_escaped_string(extra);
+                        printf(") stringwidth pop sub Border sub ");
+                    }
+                    printf("/moonstartx exch def\n");
+                }
+                printf(" gsave 0 setgray newpath ");
+                printf("moonstartx BoxHeight Border sub %s sub\n", size);
 		printf(" %s 0 360 arc closepath\n", size);
 		switch(phase) {
 		case 0:
@@ -1174,49 +1225,28 @@ int DoQueuedPs(void)
 		    break;
 
 		case 1:
-		    printf("stroke\n");
-		    printf("newpath Border %s add BoxHeight Border sub %s sub\n",
-			   size, size);
+		    printf("stroke\nnewpath ");
+                    printf("moonstartx BoxHeight Border sub %s sub\n", size);
 		    printf("%s 90 270 arc closepath fill\n", size);
 		    break;
 		default:
-		    printf("stroke\n");
-		    printf("newpath Border %s add BoxHeight Border sub %s sub\n",
-		size, size);
+		    printf("stroke\nnewpath ");
+                    printf("moonstartx BoxHeight Border sub %s sub\n", size);
 		    printf("%s 270 90 arc closepath fill\n", size);
 		    break;
 		}
-		/* See if we have extra stuff */
-		extra = e->entry+fnoff;
-
-		/* Skip phase */
-		while(*extra && !isspace(*extra)) extra++;
-		while(*extra && isspace(*extra)) extra++;
-
-		/* Skip moon size */
-		while(*extra && !isspace(*extra)) extra++;
-		while(*extra && isspace(*extra)) extra++;
-
-		/* Skip font size */
-		while(*extra && !isspace(*extra)) extra++;
-		while(*extra && isspace(*extra)) extra++;
-
 		/* Anything left? */
 		if (*extra) {
-		    printf("Border %s add %s add Border add BoxHeight border sub %s sub %s sub moveto\n", size, size, size, size);
+                    printf("moonstartx %s add Border add BoxHeight border sub %s sub %s sub moveto\n", size, size, size);
 		    if (fontsize < 0) {
-			size = "EntrySize";
+			fsize = "EntrySize";
 		    } else {
-			sprintf(buffer, "%d", fontsize);
-			size = buffer;
+			sprintf(fbuffer, "%d", fontsize);
+			fsize = fbuffer;
 		    }
 		    printf("/EntryFont findfont %s scalefont setfont (",
-			   size);
-		    while(*extra) {
-			c = (unsigned char) *extra++;
-			if (c == '\\' || c == '(' || c == ')') PutChar('\\');
-			PutChar(c);
-		    }
+			   fsize);
+                    put_escaped_string(extra);
 		    printf(") show\n");
 
 		}

src/rem2ps.h

@@ -5,7 +5,7 @@
 /*  Define the PostScript prologue                             */
 /*                                                             */
 /*  This file is part of REMIND.                               */
-/*  Copyright (C) 1992-2020 by Dianne Skoll                    */
+/*  Copyright (C) 1992-2021 by Dianne Skoll                    */
 /*                                                             */
 /***************************************************************/
 
@@ -13,7 +13,7 @@ char *PSProlog1[] =
 {
     "% This file was produced by Remind and Rem2PS, written by",
     "% Dianne Skoll.",
-    "% Remind and Rem2PS are Copyright 1992-2020 Dianne Skoll.",
+    "% Remind and Rem2PS are Copyright 1992-2021 Dianne Skoll.",
     "/ISOLatin1Encoding where { pop save true }{ false } ifelse",
     "  /ISOLatin1Encoding [ StandardEncoding 0 45 getinterval aload pop /minus",
     "    StandardEncoding 46 98 getinterval aload pop /dotlessi /grave /acute",
@@ -196,9 +196,10 @@ char *PSProlog2[] =
     "% Variables for calendar boxes:",
     "% ytop - current top position",
     "% ymin - minimum y reached for current row",
-    "% border ytop xleft width textarray daynum DoCalBox ybot",
+    "% border ytop xleft width textarray daynum onright DoCalBox ybot",
     "% Do the entries for one calendar box.  Returns lowest Y-coordinate reached",
     "/DoCalBox {",
+    "   /onright exch def",
     "   /daynum exch def",
     "   /textarr exch def",
     "   /wid exch def",
@@ -207,8 +208,10 @@ char *PSProlog2[] =
     "   /border exch def",
     "% Do the day number",
     "   /DayFont findfont DaySize scalefont setfont",
-    "   xl wid add border sub daynum stringwidth pop sub",
-    "   yt border sub DaySize sub moveto daynum show",
+    "   onright 1 eq",
+    "   {xl wid add border sub daynum stringwidth pop sub yt border sub DaySize sub moveto daynum show}",
+    "   {xl border add yt border sub DaySize sub moveto daynum show}",
+    "   ifelse",
     "% Do the text entries.  Precharge the stack with current y pos.",
     "   /ycur yt border sub DaySize sub DaySize sub 2 add def",
     "   /EntryFont findfont EntrySize scalefont setfont",

tests/test.cmp

@@ -857,7 +857,7 @@ set a057 value("a05"+"6")
 "a05" + "6" => "a056"
 value("a056") => "SDFJHSDF KSJDFH KJSDFH KSJDFH"
 set a058 version()
-version() => "03.03.02"
+version() => "03.03.05"
 set a059 wkday(today())
 today() => 1991-02-16
 wkday(1991-02-16) => "Saturday"
@@ -2426,7 +2426,7 @@ a086  4
 a109  2012-01-01
 a128  2018-02-03@16:45
 a039  "February"
-a058  "03.03.02"
+a058  "03.03.05"
 a077  "1992 92
 "
 a096  -4
@@ -4392,9 +4392,10 @@ No reminders.
 %%Pages: (atend)
 %%Orientation: Landscape
 %%EndComments
+<< /PageSize [612 792] >> setpagedevice
 % This file was produced by Remind and Rem2PS, written by
 % Dianne Skoll.
-% Remind and Rem2PS are Copyright 1992-2020 Dianne Skoll.
+% Remind and Rem2PS are Copyright 1992-2021 Dianne Skoll.
 /ISOLatin1Encoding where { pop save true }{ false } ifelse
   /ISOLatin1Encoding [ StandardEncoding 0 45 getinterval aload pop /minus
     StandardEncoding 46 98 getinterval aload pop /dotlessi /grave /acute
@@ -4574,9 +4575,10 @@ def
 % Variables for calendar boxes:
 % ytop - current top position
 % ymin - minimum y reached for current row
-% border ytop xleft width textarray daynum DoCalBox ybot
+% border ytop xleft width textarray daynum onright DoCalBox ybot
 % Do the entries for one calendar box.  Returns lowest Y-coordinate reached
 /DoCalBox {
+   /onright exch def
    /daynum exch def
    /textarr exch def
    /wid exch def
@@ -4585,8 +4587,10 @@ def
    /border exch def
 % Do the day number
    /DayFont findfont DaySize scalefont setfont
-   xl wid add border sub daynum stringwidth pop sub
-   yt border sub DaySize sub moveto daynum show
+   onright 1 eq
+   {xl wid add border sub daynum stringwidth pop sub yt border sub DaySize sub moveto daynum show}
+   {xl border add yt border sub DaySize sub moveto daynum show}
+   ifelse
 % Do the text entries.  Precharge the stack with current y pos.
    /ycur yt border sub DaySize sub DaySize sub 2 add def
    /EntryFont findfont EntrySize scalefont setfont
@@ -4632,7 +4636,7 @@ ifelse
 Border ytop 6 xincr mul MinX add xincr
 [
 ]
-(1)
+(1) 1
 DoCalBox
 /y exch def y ymin lt {/ymin y def} if
 } def
@@ -4664,7 +4668,7 @@ MinX ymin MaxX ymin L
 Border ytop 0 xincr mul MinX add xincr
 [
 ]
-(2)
+(2) 1
 DoCalBox
 /y exch def y ymin lt {/ymin y def} if
 } def
@@ -4672,7 +4676,7 @@ DoCalBox
 Border ytop 1 xincr mul MinX add xincr
 [
 ]
-(3)
+(3) 1
 DoCalBox
 /y exch def y ymin lt {/ymin y def} if
 } def
@@ -4680,7 +4684,7 @@ DoCalBox
 Border ytop 2 xincr mul MinX add xincr
 [
 ]
-(4)
+(4) 1
 DoCalBox
 /y exch def y ymin lt {/ymin y def} if
 } def
@@ -4688,7 +4692,7 @@ DoCalBox
 Border ytop 3 xincr mul MinX add xincr
 [
 ]
-(5)
+(5) 1
 DoCalBox
 /y exch def y ymin lt {/ymin y def} if
 } def
@@ -4696,7 +4700,7 @@ DoCalBox
 Border ytop 4 xincr mul MinX add xincr
 [
 ]
-(6)
+(6) 1
 DoCalBox
 /y exch def y ymin lt {/ymin y def} if
 } def
@@ -4704,7 +4708,7 @@ DoCalBox
 Border ytop 5 xincr mul MinX add xincr
 [
 ]
-(7)
+(7) 1
 DoCalBox
 /y exch def y ymin lt {/ymin y def} if
 } def
@@ -4712,7 +4716,7 @@ DoCalBox
 Border ytop 6 xincr mul MinX add xincr
 [
 ]
-(8)
+(8) 1
 DoCalBox
 /y exch def y ymin lt {/ymin y def} if
 } def
@@ -4774,10 +4778,10 @@ _A BoxHeight _A sub lineto closepath
 BoxWidth _A sub _A lineto BoxWidth _A sub BoxHeight _A sub lineto
 _A BoxHeight _A sub lineto closepath
 1 0.8 1 setrgbcolor fill 0.0 setgray
-gsave 0 setgray newpath Border DaySize 2 div add BoxHeight Border sub DaySize 2 div sub
+Border DaySize 2 div add /moonstartx exch def gsave 0 setgray newpath moonstartx BoxHeight Border sub DaySize 2 div sub
  DaySize 2 div 0 360 arc closepath
 stroke
-Border DaySize 2 div add DaySize 2 div add Border add BoxHeight border sub DaySize 2 div sub DaySize 2 div sub moveto
+moonstartx DaySize 2 div add Border add BoxHeight border sub DaySize 2 div sub DaySize 2 div sub moveto
 /EntryFont findfont EntrySize scalefont setfont (20:56) show
 grestore
 
@@ -4831,7 +4835,7 @@ MinX ymin MaxX ymin L
 Border ytop 0 xincr mul MinX add xincr
 [
 ]
-(9)
+(9) 1
 DoCalBox
 /y exch def y ymin lt {/ymin y def} if
 } def
@@ -4839,7 +4843,7 @@ DoCalBox
 Border ytop 1 xincr mul MinX add xincr
 [
 ]
-(10)
+(10) 1
 DoCalBox
 /y exch def y ymin lt {/ymin y def} if
 } def
@@ -4847,7 +4851,7 @@ DoCalBox
 Border ytop 2 xincr mul MinX add xincr
 [
 ]
-(11)
+(11) 1
 DoCalBox
 /y exch def y ymin lt {/ymin y def} if
 } def
@@ -4855,7 +4859,7 @@ DoCalBox
 Border ytop 3 xincr mul MinX add xincr
 [
 ]
-(12)
+(12) 1
 DoCalBox
 /y exch def y ymin lt {/ymin y def} if
 } def
@@ -4863,7 +4867,7 @@ DoCalBox
 Border ytop 4 xincr mul MinX add xincr
 [
 ]
-(13)
+(13) 1
 DoCalBox
 /y exch def y ymin lt {/ymin y def} if
 } def
@@ -4871,7 +4875,7 @@ DoCalBox
 Border ytop 5 xincr mul MinX add xincr
 [
 ]
-(14)
+(14) 1
 DoCalBox
 /y exch def y ymin lt {/ymin y def} if
 } def
@@ -4879,7 +4883,7 @@ DoCalBox
 Border ytop 6 xincr mul MinX add xincr
 [
 ]
-(15)
+(15) 1
 DoCalBox
 /y exch def y ymin lt {/ymin y def} if
 } def
@@ -4949,12 +4953,12 @@ _A BoxHeight _A sub lineto closepath
 BoxWidth _A sub _A lineto BoxWidth _A sub BoxHeight _A sub lineto
 _A BoxHeight _A sub lineto closepath
 0.8 1 1 setrgbcolor fill 0.0 setgray
-gsave 0 setgray newpath Border DaySize 2 div add BoxHeight Border sub DaySize 2 div sub
+Border DaySize 2 div add /moonstartx exch def gsave 0 setgray newpath moonstartx BoxHeight Border sub DaySize 2 div sub
  DaySize 2 div 0 360 arc closepath
 stroke
-newpath Border DaySize 2 div add BoxHeight Border sub DaySize 2 div sub
+newpath moonstartx BoxHeight Border sub DaySize 2 div sub
 DaySize 2 div 270 90 arc closepath fill
-Border DaySize 2 div add DaySize 2 div add Border add BoxHeight border sub DaySize 2 div sub DaySize 2 div sub moveto
+moonstartx DaySize 2 div add Border add BoxHeight border sub DaySize 2 div sub DaySize 2 div sub moveto
 /EntryFont findfont EntrySize scalefont setfont (14:56) show
 grestore
 
@@ -4997,7 +5001,7 @@ MinX ymin MaxX ymin L
 Border ytop 0 xincr mul MinX add xincr
 [
 ]
-(16)
+(16) 1
 DoCalBox
 /y exch def y ymin lt {/ymin y def} if
 } def
@@ -5005,7 +5009,7 @@ DoCalBox
 Border ytop 1 xincr mul MinX add xincr
 [
 ]
-(17)
+(17) 1
 DoCalBox
 /y exch def y ymin lt {/ymin y def} if
 } def
@@ -5013,7 +5017,7 @@ DoCalBox
 Border ytop 2 xincr mul MinX add xincr
 [
 ]
-(18)
+(18) 1
 DoCalBox
 /y exch def y ymin lt {/ymin y def} if
 } def
@@ -5021,7 +5025,7 @@ DoCalBox
 Border ytop 3 xincr mul MinX add xincr
 [
 ]
-(19)
+(19) 1
 DoCalBox
 /y exch def y ymin lt {/ymin y def} if
 } def
@@ -5029,7 +5033,7 @@ DoCalBox
 Border ytop 4 xincr mul MinX add xincr
 [
 ]
-(20)
+(20) 1
 DoCalBox
 /y exch def y ymin lt {/ymin y def} if
 } def
@@ -5037,7 +5041,7 @@ DoCalBox
 Border ytop 5 xincr mul MinX add xincr
 [
 ]
-(21)
+(21) 1
 DoCalBox
 /y exch def y ymin lt {/ymin y def} if
 } def
@@ -5045,7 +5049,7 @@ DoCalBox
 Border ytop 6 xincr mul MinX add xincr
 [
 ]
-(22)
+(22) 1
 DoCalBox
 /y exch def y ymin lt {/ymin y def} if
 } def
@@ -5115,10 +5119,10 @@ _A BoxHeight _A sub lineto closepath
 BoxWidth _A sub _A lineto BoxWidth _A sub BoxHeight _A sub lineto
 _A BoxHeight _A sub lineto closepath
 0.8 1 1 setrgbcolor fill 0.0 setgray
-gsave 0 setgray newpath Border DaySize 2 div add BoxHeight Border sub DaySize 2 div sub
+Border DaySize 2 div add /moonstartx exch def gsave 0 setgray newpath moonstartx BoxHeight Border sub DaySize 2 div sub
  DaySize 2 div 0 360 arc closepath
 fill
-Border DaySize 2 div add DaySize 2 div add Border add BoxHeight border sub DaySize 2 div sub DaySize 2 div sub moveto
+moonstartx DaySize 2 div add Border add BoxHeight border sub DaySize 2 div sub DaySize 2 div sub moveto
 /EntryFont findfont EntrySize scalefont setfont (06:02) show
 grestore
 
@@ -5161,7 +5165,7 @@ MinX ymin MaxX ymin L
 Border ytop 0 xincr mul MinX add xincr
 [
 ]
-(23)
+(23) 1
 DoCalBox
 /y exch def y ymin lt {/ymin y def} if
 } def
@@ -5169,7 +5173,7 @@ DoCalBox
 Border ytop 1 xincr mul MinX add xincr
 [
 ]
-(24)
+(24) 1
 DoCalBox
 /y exch def y ymin lt {/ymin y def} if
 } def
@@ -5177,7 +5181,7 @@ DoCalBox
 Border ytop 2 xincr mul MinX add xincr
 [
 ]
-(25)
+(25) 1
 DoCalBox
 /y exch def y ymin lt {/ymin y def} if
 } def
@@ -5185,7 +5189,7 @@ DoCalBox
 Border ytop 3 xincr mul MinX add xincr
 [
 ]
-(26)
+(26) 1
 DoCalBox
 /y exch def y ymin lt {/ymin y def} if
 } def
@@ -5193,7 +5197,7 @@ DoCalBox
 Border ytop 4 xincr mul MinX add xincr
 [
 ]
-(27)
+(27) 1
 DoCalBox
 /y exch def y ymin lt {/ymin y def} if
 } def
@@ -5201,7 +5205,7 @@ DoCalBox
 Border ytop 5 xincr mul MinX add xincr
 [
 ]
-(28)
+(28) 1
 DoCalBox
 /y exch def y ymin lt {/ymin y def} if
 } def
@@ -5209,7 +5213,7 @@ DoCalBox
 Border ytop 6 xincr mul MinX add xincr
 [
 ]
-(29)
+(29) 1
 DoCalBox
 /y exch def y ymin lt {/ymin y def} if
 } def
@@ -5279,12 +5283,12 @@ _A BoxHeight _A sub lineto closepath
 BoxWidth _A sub _A lineto BoxWidth _A sub BoxHeight _A sub lineto
 _A BoxHeight _A sub lineto closepath
 0.8 1 1 setrgbcolor fill 0.0 setgray
-gsave 0 setgray newpath Border DaySize 2 div add BoxHeight Border sub DaySize 2 div sub
+Border DaySize 2 div add /moonstartx exch def gsave 0 setgray newpath moonstartx BoxHeight Border sub DaySize 2 div sub
  DaySize 2 div 0 360 arc closepath
 stroke
-newpath Border DaySize 2 div add BoxHeight Border sub DaySize 2 div sub
+newpath moonstartx BoxHeight Border sub DaySize 2 div sub
 DaySize 2 div 90 270 arc closepath fill
-Border DaySize 2 div add DaySize 2 div add Border add BoxHeight border sub DaySize 2 div sub DaySize 2 div sub moveto
+moonstartx DaySize 2 div add Border add BoxHeight border sub DaySize 2 div sub DaySize 2 div sub moveto
 /EntryFont findfont EntrySize scalefont setfont (07:42) show
 grestore
 
@@ -5327,7 +5331,7 @@ MinX ymin MaxX ymin L
 Border ytop 0 xincr mul MinX add xincr
 [
 ]
-(30)
+(30) 1
 DoCalBox
 /y exch def y ymin lt {/ymin y def} if
 } def
@@ -5335,7 +5339,7 @@ DoCalBox
 Border ytop 1 xincr mul MinX add xincr
 [
 ]
-(31)
+(31) 1
 DoCalBox
 /y exch def y ymin lt {/ymin y def} if
 } def
@@ -5492,9 +5496,10 @@ showpage
 %%Pages: (atend)
 %%Orientation: Landscape
 %%EndComments
+<< /PageSize [612 792] >> setpagedevice
 % This file was produced by Remind and Rem2PS, written by
 % Dianne Skoll.
-% Remind and Rem2PS are Copyright 1992-2020 Dianne Skoll.
+% Remind and Rem2PS are Copyright 1992-2021 Dianne Skoll.
 /ISOLatin1Encoding where { pop save true }{ false } ifelse
   /ISOLatin1Encoding [ StandardEncoding 0 45 getinterval aload pop /minus
     StandardEncoding 46 98 getinterval aload pop /dotlessi /grave /acute
@@ -5674,9 +5679,10 @@ def
 % Variables for calendar boxes:
 % ytop - current top position
 % ymin - minimum y reached for current row
-% border ytop xleft width textarray daynum DoCalBox ybot
+% border ytop xleft width textarray daynum onright DoCalBox ybot
 % Do the entries for one calendar box.  Returns lowest Y-coordinate reached
 /DoCalBox {
+   /onright exch def
    /daynum exch def
    /textarr exch def
    /wid exch def
@@ -5685,8 +5691,10 @@ def
    /border exch def
 % Do the day number
    /DayFont findfont DaySize scalefont setfont
-   xl wid add border sub daynum stringwidth pop sub
-   yt border sub DaySize sub moveto daynum show
+   onright 1 eq
+   {xl wid add border sub daynum stringwidth pop sub yt border sub DaySize sub moveto daynum show}
+   {xl border add yt border sub DaySize sub moveto daynum show}
+   ifelse
 % Do the text entries.  Precharge the stack with current y pos.
    /ycur yt border sub DaySize sub DaySize sub 2 add def
    /EntryFont findfont EntrySize scalefont setfont
@@ -5732,7 +5740,7 @@ ifelse
 Border ytop 6 xincr mul MinX add xincr
 [
 ]
-(1)
+(1) 1
 DoCalBox
 /y exch def y ymin lt {/ymin y def} if
 } def
@@ -5764,7 +5772,7 @@ MinX ymin MaxX ymin L
 Border ytop 0 xincr mul MinX add xincr
 [
 ]
-(2)
+(2) 1
 DoCalBox
 /y exch def y ymin lt {/ymin y def} if
 } def
@@ -5772,7 +5780,7 @@ DoCalBox
 Border ytop 1 xincr mul MinX add xincr
 [
 ]
-(3)
+(3) 1
 DoCalBox
 /y exch def y ymin lt {/ymin y def} if
 } def
@@ -5780,7 +5788,7 @@ DoCalBox
 Border ytop 2 xincr mul MinX add xincr
 [
 ]
-(4)
+(4) 1
 DoCalBox
 /y exch def y ymin lt {/ymin y def} if
 } def
@@ -5788,7 +5796,7 @@ DoCalBox
 Border ytop 3 xincr mul MinX add xincr
 [
 ]
-(5)
+(5) 1
 DoCalBox
 /y exch def y ymin lt {/ymin y def} if
 } def
@@ -5796,7 +5804,7 @@ DoCalBox
 Border ytop 4 xincr mul MinX add xincr
 [
 ]
-(6)
+(6) 1
 DoCalBox
 /y exch def y ymin lt {/ymin y def} if
 } def
@@ -5804,7 +5812,7 @@ DoCalBox
 Border ytop 5 xincr mul MinX add xincr
 [
 ]
-(7)
+(7) 1
 DoCalBox
 /y exch def y ymin lt {/ymin y def} if
 } def
@@ -5812,7 +5820,7 @@ DoCalBox
 Border ytop 6 xincr mul MinX add xincr
 [
 ]
-(8)
+(8) 1
 DoCalBox
 /y exch def y ymin lt {/ymin y def} if
 } def
@@ -5874,10 +5882,10 @@ _A BoxHeight _A sub lineto closepath
 BoxWidth _A sub _A lineto BoxWidth _A sub BoxHeight _A sub lineto
 _A BoxHeight _A sub lineto closepath
 1 0.8 1 setrgbcolor fill 0.0 setgray
-gsave 0 setgray newpath Border DaySize 2 div add BoxHeight Border sub DaySize 2 div sub
+Border DaySize 2 div add /moonstartx exch def gsave 0 setgray newpath moonstartx BoxHeight Border sub DaySize 2 div sub
  DaySize 2 div 0 360 arc closepath
 stroke
-Border DaySize 2 div add DaySize 2 div add Border add BoxHeight border sub DaySize 2 div sub DaySize 2 div sub moveto
+moonstartx DaySize 2 div add Border add BoxHeight border sub DaySize 2 div sub DaySize 2 div sub moveto
 /EntryFont findfont EntrySize scalefont setfont (20:56) show
 grestore
 
@@ -5931,7 +5939,7 @@ MinX ymin MaxX ymin L
 Border ytop 0 xincr mul MinX add xincr
 [
 ]
-(9)
+(9) 1
 DoCalBox
 /y exch def y ymin lt {/ymin y def} if
 } def
@@ -5939,7 +5947,7 @@ DoCalBox
 Border ytop 1 xincr mul MinX add xincr
 [
 ]
-(10)
+(10) 1
 DoCalBox
 /y exch def y ymin lt {/ymin y def} if
 } def
@@ -5947,7 +5955,7 @@ DoCalBox
 Border ytop 2 xincr mul MinX add xincr
 [
 ]
-(11)
+(11) 1
 DoCalBox
 /y exch def y ymin lt {/ymin y def} if
 } def
@@ -5955,7 +5963,7 @@ DoCalBox
 Border ytop 3 xincr mul MinX add xincr
 [
 ]
-(12)
+(12) 1
 DoCalBox
 /y exch def y ymin lt {/ymin y def} if
 } def
@@ -5963,7 +5971,7 @@ DoCalBox
 Border ytop 4 xincr mul MinX add xincr
 [
 ]
-(13)
+(13) 1
 DoCalBox
 /y exch def y ymin lt {/ymin y def} if
 } def
@@ -5971,7 +5979,7 @@ DoCalBox
 Border ytop 5 xincr mul MinX add xincr
 [
 ]
-(14)
+(14) 1
 DoCalBox
 /y exch def y ymin lt {/ymin y def} if
 } def
@@ -5979,7 +5987,7 @@ DoCalBox
 Border ytop 6 xincr mul MinX add xincr
 [
 ]
-(15)
+(15) 1
 DoCalBox
 /y exch def y ymin lt {/ymin y def} if
 } def
@@ -6049,12 +6057,12 @@ _A BoxHeight _A sub lineto closepath
 BoxWidth _A sub _A lineto BoxWidth _A sub BoxHeight _A sub lineto
 _A BoxHeight _A sub lineto closepath
 0.8 1 1 setrgbcolor fill 0.0 setgray
-gsave 0 setgray newpath Border DaySize 2 div add BoxHeight Border sub DaySize 2 div sub
+Border DaySize 2 div add /moonstartx exch def gsave 0 setgray newpath moonstartx BoxHeight Border sub DaySize 2 div sub
  DaySize 2 div 0 360 arc closepath
 stroke
-newpath Border DaySize 2 div add BoxHeight Border sub DaySize 2 div sub
+newpath moonstartx BoxHeight Border sub DaySize 2 div sub
 DaySize 2 div 270 90 arc closepath fill
-Border DaySize 2 div add DaySize 2 div add Border add BoxHeight border sub DaySize 2 div sub DaySize 2 div sub moveto
+moonstartx DaySize 2 div add Border add BoxHeight border sub DaySize 2 div sub DaySize 2 div sub moveto
 /EntryFont findfont EntrySize scalefont setfont (14:56) show
 grestore
 
@@ -6097,7 +6105,7 @@ MinX ymin MaxX ymin L
 Border ytop 0 xincr mul MinX add xincr
 [
 ]
-(16)
+(16) 1
 DoCalBox
 /y exch def y ymin lt {/ymin y def} if
 } def
@@ -6105,7 +6113,7 @@ DoCalBox
 Border ytop 1 xincr mul MinX add xincr
 [
 ]
-(17)
+(17) 1
 DoCalBox
 /y exch def y ymin lt {/ymin y def} if
 } def
@@ -6113,7 +6121,7 @@ DoCalBox
 Border ytop 2 xincr mul MinX add xincr
 [
 ]
-(18)
+(18) 1
 DoCalBox
 /y exch def y ymin lt {/ymin y def} if
 } def
@@ -6121,7 +6129,7 @@ DoCalBox
 Border ytop 3 xincr mul MinX add xincr
 [
 ]
-(19)
+(19) 1
 DoCalBox
 /y exch def y ymin lt {/ymin y def} if
 } def
@@ -6129,7 +6137,7 @@ DoCalBox
 Border ytop 4 xincr mul MinX add xincr
 [
 ]
-(20)
+(20) 1
 DoCalBox
 /y exch def y ymin lt {/ymin y def} if
 } def
@@ -6137,7 +6145,7 @@ DoCalBox
 Border ytop 5 xincr mul MinX add xincr
 [
 ]
-(21)
+(21) 1
 DoCalBox
 /y exch def y ymin lt {/ymin y def} if
 } def
@@ -6145,7 +6153,7 @@ DoCalBox
 Border ytop 6 xincr mul MinX add xincr
 [
 ]
-(22)
+(22) 1
 DoCalBox
 /y exch def y ymin lt {/ymin y def} if
 } def
@@ -6215,10 +6223,10 @@ _A BoxHeight _A sub lineto closepath
 BoxWidth _A sub _A lineto BoxWidth _A sub BoxHeight _A sub lineto
 _A BoxHeight _A sub lineto closepath
 0.8 1 1 setrgbcolor fill 0.0 setgray
-gsave 0 setgray newpath Border DaySize 2 div add BoxHeight Border sub DaySize 2 div sub
+Border DaySize 2 div add /moonstartx exch def gsave 0 setgray newpath moonstartx BoxHeight Border sub DaySize 2 div sub
  DaySize 2 div 0 360 arc closepath
 fill
-Border DaySize 2 div add DaySize 2 div add Border add BoxHeight border sub DaySize 2 div sub DaySize 2 div sub moveto
+moonstartx DaySize 2 div add Border add BoxHeight border sub DaySize 2 div sub DaySize 2 div sub moveto
 /EntryFont findfont EntrySize scalefont setfont (06:02) show
 grestore
 
@@ -6261,7 +6269,7 @@ MinX ymin MaxX ymin L
 Border ytop 0 xincr mul MinX add xincr
 [
 ]
-(23)
+(23) 1
 DoCalBox
 /y exch def y ymin lt {/ymin y def} if
 } def
@@ -6269,7 +6277,7 @@ DoCalBox
 Border ytop 1 xincr mul MinX add xincr
 [
 ]
-(24)
+(24) 1
 DoCalBox
 /y exch def y ymin lt {/ymin y def} if
 } def
@@ -6277,7 +6285,7 @@ DoCalBox
 Border ytop 2 xincr mul MinX add xincr
 [
 ]
-(25)
+(25) 1
 DoCalBox
 /y exch def y ymin lt {/ymin y def} if
 } def
@@ -6285,7 +6293,7 @@ DoCalBox
 Border ytop 3 xincr mul MinX add xincr
 [
 ]
-(26)
+(26) 1
 DoCalBox
 /y exch def y ymin lt {/ymin y def} if
 } def
@@ -6293,7 +6301,7 @@ DoCalBox
 Border ytop 4 xincr mul MinX add xincr
 [
 ]
-(27)
+(27) 1
 DoCalBox
 /y exch def y ymin lt {/ymin y def} if
 } def
@@ -6301,7 +6309,7 @@ DoCalBox
 Border ytop 5 xincr mul MinX add xincr
 [
 ]
-(28)
+(28) 1
 DoCalBox
 /y exch def y ymin lt {/ymin y def} if
 } def
@@ -6309,7 +6317,7 @@ DoCalBox
 Border ytop 6 xincr mul MinX add xincr
 [
 ]
-(29)
+(29) 1
 DoCalBox
 /y exch def y ymin lt {/ymin y def} if
 } def
@@ -6379,12 +6387,12 @@ _A BoxHeight _A sub lineto closepath
 BoxWidth _A sub _A lineto BoxWidth _A sub BoxHeight _A sub lineto
 _A BoxHeight _A sub lineto closepath
 0.8 1 1 setrgbcolor fill 0.0 setgray
-gsave 0 setgray newpath Border DaySize 2 div add BoxHeight Border sub DaySize 2 div sub
+Border DaySize 2 div add /moonstartx exch def gsave 0 setgray newpath moonstartx BoxHeight Border sub DaySize 2 div sub
  DaySize 2 div 0 360 arc closepath
 stroke
-newpath Border DaySize 2 div add BoxHeight Border sub DaySize 2 div sub
+newpath moonstartx BoxHeight Border sub DaySize 2 div sub
 DaySize 2 div 90 270 arc closepath fill
-Border DaySize 2 div add DaySize 2 div add Border add BoxHeight border sub DaySize 2 div sub DaySize 2 div sub moveto
+moonstartx DaySize 2 div add Border add BoxHeight border sub DaySize 2 div sub DaySize 2 div sub moveto
 /EntryFont findfont EntrySize scalefont setfont (07:42) show
 grestore
 
@@ -6427,7 +6435,7 @@ MinX ymin MaxX ymin L
 Border ytop 0 xincr mul MinX add xincr
 [
 ]
-(30)
+(30) 1
 DoCalBox
 /y exch def y ymin lt {/ymin y def} if
 } def
@@ -6435,7 +6443,7 @@ DoCalBox
 Border ytop 1 xincr mul MinX add xincr
 [
 ]
-(31)
+(31) 1
 DoCalBox
 /y exch def y ymin lt {/ymin y def} if
 } def