+
+let heading fs =
+ let display str =
+ printf "\x1b[%d;%dm%s:\x1b[0m\n" 0 35 str
+ in
+ ksprintf display fs
+
+let string_of_taskid id =
+ sprintf "\x1b[%d;%dm#%ld\x1b[0m" 1 34 id
+
+let string_of_task_desc desc =
+ sprintf "\x1b[1m%s\x1b[0m" desc