Changeset 78 in code for trunk/cmd/txt

Timestamp:

Apr 21, 2025, 9:47:16 PM (7 weeks ago)

Author:

Izuru Yakumo

Message:

Bring back the publish subcommand (adapted)

Location:

trunk/cmd/txt

Files:

• dune (modified) (1 diff)
• publish.ml (added)
• txt.ml (modified) (2 diffs)

trunk/cmd/txt/dune

@@ -3 +3 @@
  (public_name txt)
  (modules txt authors convert conversion edit file index last listing
-  new topics html atom gemini peers pull recent unfile)
+  new topics html atom gemini peers publish pull recent unfile)
  (libraries text_parse.converter text_parse.parsers kosuzu msgpck curl str cmdliner))

trunk/cmd/txt/txt.ml

@@ -11 +11 @@
     New.cmd;
     Peers.cmd;
+    Publish.cmd;
     Pull.cmd;
     Recent.cmd;
@@ -29 +30 @@
       `P "https://en.touhouwiki.net/wiki/Forbidden_Scrollery" ]
   in
-  Cmd.group (Cmd.info "txt" ~version:"%%VERSION%%" ~doc ~man) ~default:default_cmd subs
+  Cmd.group (Cmd.info "txt" ~version:"1.4.5" ~doc ~man) ~default:default_cmd subs
 
 let main () = exit (Cmd.eval txt)