Update inline documentation

Signed-off-by: Izuru Yakumo <yakumo.izuru@chaotic.ninja>

git-svn-id: file:///srv/svn/repo/kosuzu/trunk@68 eb64cd80-c68d-6f47-b6a3-0ada418499da

cli/txt.ml

@@ -1,19 +1,19 @@
 open Cmdliner
 
 let subs = [
-    Authors.cmd; (* Done *)
-    Convert.cmd; (* Done *)
-    Edit.cmd; (* Done *)
-    File.cmd; (* Done *)
-    Index.cmd; (* Done *)
-    Last.cmd; (* Done *)
-    Listing.cmd; (* Done *)
-    New.cmd; (* Done *)
-    Peers.cmd; (* Done *)
-    Pull.cmd; (* Done *)
-    Recent.cmd; (* Done *)
-    Topics.cmd; (* Done *)
-    Unfile.cmd; (* Done *)
+    Authors.cmd;
+    Convert.cmd;
+    Edit.cmd;
+    File.cmd;
+    Index.cmd;
+    Last.cmd;
+    Listing.cmd;
+    New.cmd;
+    Peers.cmd;
+    Pull.cmd;
+    Recent.cmd;
+    Topics.cmd;
+    Unfile.cmd;
   ]
 
 let default_cmd = Term.(ret (const (`Help (`Pager, None))))
@@ -21,8 +21,11 @@ let default_cmd = Term.(ret (const (`Help (`Pager, None))))
 let txt =
   let doc = "Discover, collect and exchange texts" in
   let man = [
-      `S "CONTACT";
-      `P "<mailto:logarion-dev@chaotic.ninja>"; ]
+      `S Manpage.s_authors;
+      `P "orbifx <mailto:fox@orbitalfox.eu>";
+      `P "Izuru Yakumo <mailto:yakumo.izuru@chaotic.ninja>";
+      `S Manpage.s_bugs;
+      `P "Please report them at <mailto:logarion-dev@chaotic.ninja>"; ]
   in
   Cmd.group (Cmd.info "txt" ~version:"%%VERSION%%" ~doc ~man) ~default:default_cmd subs