[Date Prev][Date Next] [Thread Prev][Thread Next] [Date Index] [Thread Index]

Bug#90052: List todo/done status when using -list/-show (w/diff)



Package: ical
Version: 2.2-6
Severity: wishlist

  When given either -show or -list on the command line, ical will display
upcoming events to the terminal an exit.  When using these options, todo
items are displayed identically to normal items.

  IE:
squirrel:/den/chirik> ical -list
Saturday March 17, 2001
 * Oil change
 * Buy groceries
 * St. Patty's Day

  It'd be nice to have some way to differentiate between todo items and
normal items, and further to be able to show completed todo items
differently from not-yet completed items.  Since I use 'ical -list' in my
.login file, I decided to make a slight change to accomplish this.

  IE (Modified ical):
squirrel:/den/chirik> ical -list
Saturday March 17, 2001
 * [ ] Oil change
 * [*] Buy groceries
 * St. Patty's Day

  This way, I can see that I still need to get my oil changed, but I already
bought those groceries I needed.  St. Patty's Day doesn't require any
attention, it's just a notice on this date.

  The following patch, against /usr/lib/ical/v2.2/listing.tcl, implements
this change.  I've been using this modified listing.tcl since August, 1999
and haven't seen any problems or unexpected effects due to it.  If possible,
please also pass this patch onto the maintainer of the ical source.  I would
have done this already, but the URL I have for the ical homepage is not
valid.  Thank you.

--- listing.tcl.orig	Sat Mar 17 16:10:55 2001
+++ listing.tcl	Sat Mar 17 16:23:26 2001
@@ -50,6 +50,15 @@
 #	    $header is prepended to beginning of appt.
 #	    $indent is prepended to beginning of every line except the first.
 proc item2text {item {header " * "} {indent "   "} {wrap 40}} {
+# Modifications to show todo/done status in text output - Chirik
+    if [$item todo] {
+      if [$item is_done] {
+        set header "${header}\[*\] "
+      } else {
+        set header "${header}\[ \] "
+      }
+    }
+    
     if [$item is appt] {
 	set start [time2text [$item starttime]]
 	set finish [time2text [expr [$item starttime]+[$item length]]]


-- 
      ___   ----------------------------------------------------------
     ' ) `\      Chirik  [The Squirrel]  --|--  chirik@castlefur.com
      /'  |_./<   Chirik's Homepage is still under construction :-(
     |   /'-.\`|
     `\ |/~\/>"   A squirrel's home is really a nutcracker's suite!
       `\\_<_  --[ Ascii by mustel ]----------------------------------
                  




Reply to: