Bring back the publish subcommand (adapted)

git-svn-id: file:///srv/svn/repo/kosuzu/trunk@78 eb64cd80-c68d-6f47-b6a3-0ada418499da
This commit is contained in:
yakumo.izuru
2025-04-21 21:47:16 +00:00
parent d7dc784765
commit 7919277b64
7 changed files with 96 additions and 26 deletions

View File

@@ -10,6 +10,7 @@ let subs = [
Listing.cmd;
New.cmd;
Peers.cmd;
Publish.cmd;
Pull.cmd;
Recent.cmd;
Topics.cmd;
@@ -28,7 +29,7 @@ let txt =
`P "This program is named after Kosuzu Motoori from Touhou Suzunaan: Forbidden Scrollery";
`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)
let () = main ()