1 (* 'todo' command, for adding, listing, deleting etc tasks from the
12 (* Parse the command line. *)
13 let subcommand, anon_params, list_retired, list_all, tag_del, todo_estimate =
14 Todo_cmdline.parse_command_line ()
16 (* Connect to the database. *)
17 let dbh = PGOCaml.connect ~database:"todo" ()
19 (* Run the subcommand. *)
22 | Idea -> (* todo idea *)
23 Todo_add.cmd_idea dbh anon_params
24 | List -> (* todo list *)
25 Todo_list.cmd_list dbh anon_params list_retired list_all
26 | Move -> (* todo move *)
27 Todo_move.cmd_move dbh anon_params
28 | Retire -> (* todo retire *)
29 Todo_retire.cmd_retire dbh anon_params
30 | Tag -> (* todo tag *)
31 Todo_tag.cmd_tag dbh anon_params tag_del
32 | Tag_add -> (* todo tag-add *)
33 Todo_tag.cmd_tag_add dbh anon_params
34 | Tag_colour -> (* todo tag-colour *)
35 Todo_tag.cmd_tag_colour dbh anon_params
36 | Tag_del -> (* todo tag-del *)
37 Todo_tag.cmd_tag_del dbh anon_params
38 | Tag_list -> (* todo tag-list *)
39 Todo_tag.cmd_tag_list dbh anon_params
40 | Today -> (* todo today *)
41 Todo_add.cmd_today dbh anon_params
42 | Todo -> (* todo todo|task *)
43 Todo_add.cmd_todo dbh anon_params todo_estimate