felixfoertsch/remind
1
0
Fork 0
mirror of https://salsa.debian.org/dskoll/remind.git synced 2026-04-17 23:08:40 +02:00
Code Issues Actions Packages Projects Releases Wiki Activity

Uniquify lines in error message to avoid overwhelming.

Browse Source
This commit is contained in:
Dianne Skoll
2022-03-12 11:32:26 -05:00
parent 51ae17bd0a
commit 7495ae1e05
1 changed files with 11 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
scripts/tkremind
View File

@@ -1136,12 +1136,22 @@ proc FillCalWindow {} {
} }
set problem [catch { close $file } errmsg] set problem [catch { close $file } errmsg]
if {$problem} { if {$problem} {
set RemindErrors $errmsg set RemindErrors [unique_lines $errmsg]
set_button_to_errors set_button_to_errors
} }
DisplayTime DisplayTime
} }
proc unique_lines { s } {
set l [split $s "\n"]
foreach line $l {
if {"$line" != ""} {
dict set d $line 1
}
}
return [join [dict keys $d] "\n"]
}
#--------------------------------------------------------------------------- #---------------------------------------------------------------------------
# MoveMonth -- move by +1 or -1 months # MoveMonth -- move by +1 or -1 months
# Arguments: # Arguments: