tkgoodstuff/tcl/Ical-fetch.tcl

24 lines
693 B
Tcl
Raw Permalink Normal View History

# Ical-fetch.tcl for tkgoodstuff
calendar maincal $env(HOME)/.calendar
set today [date today]
set default_alarms { 0 5 10 15 }
catch { eval "set default_alarms \{ [maincal option DefaultAlarms ]\}"}
maincal query $today $today item date {
if [$item is appt] {
set ialarmlist [expr [catch {$item alarms} outtext ] == 0 ? {$outtext} : [list $default_alarms] ]
set alarmlist ""
for {set i 0} {$i < [llength $ialarmlist]} {incr i} {
if {[lsearch $alarmlist [lindex $ialarmlist $i]] == -1} {
lappend alarmlist [lindex $ialarmlist $i]
}
}
puts "lappend Ical(itemlist) \[list [$item starttime] [list $alarmlist] [list [$item text]] \]"
}
}
exit