felixfoertsch/remind
1
0
Fork 0
mirror of https://salsa.debian.org/dskoll/remind.git synced 2026-04-16 06:18:47 +02:00
Code Issues Actions Packages Projects Releases Wiki Activity

Nicer today's reminders formatting.

Browse Source
This commit is contained in:
Dianne Skoll
2025-08-11 23:06:42 -04:00
parent d617000e95
commit 2f03c75826
1 changed files with 15 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
scripts/tkremind.in
View File

@@ -4303,6 +4303,8 @@ proc ShowTodaysReminders { force date } {
append cmdline " $ReminderFile"
if {"$date" != ""} {
append cmdline " $date"
} else {
set date [clock format [clock seconds] -format "%Y-%m-%d" -locale C]
}
append cmdline " 2>@1"
set f [open $cmdline r]
@@ -4350,7 +4352,20 @@ proc ShowTodaysReminders { force date } {
}
set arr [lsort -command compare_reminders $arr]
set old_date {}
set did_a_date 0
foreach thing $arr {
set mydate [dict get $thing date]
if {"$mydate" != "$old_date"} {
if {"$old_date" != ""} {
$w.text insert end "\n"
}
if {$did_a_date || "$mydate" != "$date"} {
$w.text insert end "> $mydate\n" bold
set did_a_date 1
}
}
set old_date $mydate
set tags {}
if {[dict exists $thing r] && [dict exists $thing g] && [dict exists $thing g]} {
set r [dict get $thing r]