X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=todo_utils.ml;h=872cfc77b30faee3d3263d3c63c1ddaadf657b2b;hb=5f323396a6104047e5a045b17ff39eb284917e89;hp=27f13dd0cd4871c0b52c25fc4a8c5f2edf7dc327;hpb=d45f03595626c22ba0029fb059df9d19bd7e6158;p=todo.git

diff --git a/todo_utils.ml b/todo_utils.ml
index 27f13dd..872cfc7 100644
--- a/todo_utils.ml
+++ b/todo_utils.ml
@@ -59,3 +59,15 @@ let string_of_estimate period =
   else if days = 1 then append "1 day";
   let str = Buffer.contents buf in
   if str <> "" then str else "-"
+
+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