1 files changed, 88 insertions, 0 deletions
diff --git a/pim/rc/agenda b/pim/rc/agenda
new file mode 100755
index 0000000..ec38ad2
--- /dev/null
+++ b/pim/rc/agenda
@@ -0,0 +1,88 @@
+#!/bin/rc
+# pim/agenda -- what is happening, across every mounted calendar.
+rfork e
+
+mtpt=/mnt/pim
+days=7
+off=0
+only=()
+
+while(~ $1 -*){
+	switch($1){
+	case -m
+		mtpt=$2; shift
+	case -n
+		days=$2; shift
+	case -o
+		off=$2; shift
+	case -c
+		only=($only $2); shift
+	case *
+		echo 'usage: agenda [-m mtpt] [-n days] [-o dayoffset] [-c cal]' >[1=2]
+		exit usage
+	}
+	shift
+}
+
+cals=$only
+if(~ $#cals 0)
+	cals=`{pim/calendars -m $mtpt}
+if(~ $#cals 0){
+	echo 'pim/agenda: no calendars under '^$mtpt^'/calendars' >[1=2]
+	exit nocal
+}
+# only worth naming the calendar when more than one is in play
+tag=0
+if(! ~ $#cals 1)
+	tag=1
+
+tmp=/tmp/agenda.$pid
+fn sigexit { rm -f $tmp }
+
+now=`{date -n}
+i=$off
+last=`{echo $off + $days | bc}
+n=0
+
+while(test $i -lt $last){
+	sec=`{echo $now + $i '*' 86400 | bc}
+	day=`{date -f YYYY/MM/DD $sec}
+
+	# name, calendar, summary, location -- one line per occurrence,
+	# keyed by the file name so a sort interleaves the calendars by time
+	{
+		for(c in $cals){
+			d=$mtpt/calendars/$c/events/date/$day
+			if(test -d $d)
+			for(f in $d/*){
+				b=`{basename $f}
+				sum=`{sed -n 's/^summary: //p' $f}
+				loc=`{sed -n 's/^location: //p' $f}
+				echo $"b^'	'^$"c^'	'^$"sum^'	'^$"loc
+			}
+		}
+	} | sort >$tmp
+
+	if(test -s $tmp){
+		if(test $n -gt 0)
+			echo
+		n=1
+		date -f 'WWW DD MMM YYYY' $sec
+		awk -F'	' -v 'tag='^$tag '{
+			if ($1 ~ /^0000-allday-/)
+				t = "all day"
+			else
+				t = substr($1,1,2) ":" substr($1,3,2)
+			s = "\t" t "\t" $3
+			if ($4 != "")
+				s = s "  (" $4 ")"
+			if (tag)
+				s = s "\t" $2
+			print s
+		}' $tmp
+	}
+	i=`{echo $i + 1 | bc}
+}
+if(~ $n 0)
+	echo 'nothing in the next '^$days^' days'
+exit 0