alias memo memo
proc memo {} {
    complete
    set cmd [string tolower [lindex [args] 0]]
    switch -glob -- $cmd {
	del* -
	rem* {
	    set n [lindex [args] 1]
	    catch {incr n -1}
	    if [catch {lindex [get_cookie memo] $n} str] {
		echo "[kano] invalid memo number $n"
	    } {
		set_cookie memo [lreplace [get_cookie memo] $n $n]
		echo "[kano] deleted memo '[lindex $str 2]'"
	    }
	}
	read {
	    set memos [get_cookie memo]
	    echo "[kano] [llength $memos] memo[s [llength $memos]]"
	    set c 1
	    foreach i $memos {
		set n [format %02d $c].
		switch -- [lindex $i 0] {
		    time {
			echo "[kano] $n \[at [clock format [lindex $i 1] -format %H:%M]\]\n        [lindex $i 2]"
		    }
		    date {
			echo "[kano] $n \[on [clock format [lindex $i 1] -format "%m/%d/%y at %H:%M"]\]:\n        [lindex $i 2]"
		    }
		    default {
			echo "[kano] $n [lindex $i 2]"
		    }
		}
		incr c
	    }
	}
	date {
	    if [catch {clock scan [lindex [raw_args] 1]} time] {
		echo "[kano] $time"
		echo "[kano] try: /[event] date \"[clock format [clock seconds] -format %m/%d/%y]\" remember to do..something or other."
	    } else {
		if {$time < [clock seconds]} {
		    echo "[kano] [clock format $time] has already passed!"
		} else {
		    set msg [lrange [raw_args] 2 end]
		    set memoz [get_cookie memo]
		    lappend memoz [list date $time $msg]
		    set_cookie memo $memoz
		    echo "[kano] Added memo for [clock format $time -format "%m/%d/%y %I:%M:%S %p"]: $msg"
		}
	    }
	}
	time {
	    if [catch {clock scan [lindex [raw_args] 1]} time] {
		echo "[kano] $time"
		echo "[kano] try: /[event] time \"[clock format [clock seconds] -format %m/%d/%y]\" remember to do..something or other."
	    } {
		set msg [lrange [raw_args] 2 end]
		set memoz [get_cookie memo]
		lappend memoz [list time $time $msg]
		set_cookie memo $memoz
		echo "[kano] Added memo for [clock format $time -format "%I:%M %p"]: $msg"
	    }
	}
	add {
	    set msg [join [lrange [split [raw_args]] 1 end]]
	    set memoz [get_cookie memo]
	    lappend memoz [list memo [clock seconds] $msg]
	    set_cookie memo $memoz
	    echo "[kano] Added memo: $msg"
	}
	default {
	    echo "Usage: /[event] add <note>: Adds a memo to the list."
	    echo "       /[event] time <time> <note>: Adds a memo to the list, and displays it at a certain time."
	    echo "       /[event] date \"<date>\" <note>: Adds a memo to the list, and displays it when you load the script, for only one day."
	    echo "       /[event] read Shows you each memo."
	    if {[set g [llength [get_cookie memo]]] < 2} {
		set j <number>
	    } {
		set j <1-$g>
	    }
	    echo "       /[event] remove $j: Removes a memo from the list."
	}
    }
    complete
}

proc showmemo {} {
    set memos ""
    set orig [get_cookie memo]
    set sec [clock seconds]
    foreach i $orig {
	set ret 1
	set time [lindex $i 1]
	switch -- [lindex $i 0] {
	    time {
		if {[clock format $sec -format %H:%M] == [clock format \
			$time -format %H:%M]} {
		    time {beep;after 5} 50
		    msgbox Memo [lindex $i 2]
		    echo "[kano] memo: [lindex $i 2]"
		}
		set ret 1
	    }
	    date {
		if {$sec /60 == $time / 60} {
		    time {beep;after 5} 50
		    msgbox Memo [lindex $i 2]
		    echo "[kano] memo: [lindex $i 2]"
		    set ret 0
		} elseif {$sec > $time} {set ret 0}
	    }
	}
	if $ret {lappend memos $i}
    }
    if {$memos != $orig} {set_cookie memo $memos}
}

if ![info exists firstmemo] {
    set firstmemo 1
    on_minute showmemo
}

kaddhelp memo ";Adds notifiers for events and times."
addecho "[kano] loaded memo.ka release2"