Changeset 78 in code for trunk

Timestamp:

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

Author:

Izuru Yakumo

Message:

Bring back the publish subcommand (adapted)

Location:

trunk

Files:

• README.md (modified) (2 diffs)
• cmd/txt/dune (modified) (1 diff)
• cmd/txt/publish.ml (added)
• cmd/txt/txt.ml (modified) (2 diffs)
• cmd/txt_init/txt_init.ml (modified) (1 diff)
• dune-project (modified) (1 diff)
• kosuzu.opam (modified) (1 diff)

trunk/README.md

@@ -3 +3 @@
 
 Homepage: https://suzunaan.yakumo.dev/kosuzu/
+Issue tracker: https://suzunaan.yakumo.dev/kosuzu/report/1
 
 ## Differences from Logarion
@@ -8 +9 @@
 * A `txt_init` program in the spirit of the old subcommand from years past
 * Due to the current maintainer's decision, this project isn't hosted on Git anymore (but there is a [mirror](https://git.yakumo.dev/yakumo.izuru/kosuzu) available)
-
-## To-do
-* Support [geomyidae](gopher://bitreich.org/1/scm/geomyidae) `.gph` indexes, for now those can be generated manually somewhat
-* Support tab-separated value gophermaps for any other gopher daemon

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)

trunk/cmd/txt_init/txt_init.ml

@@ -1 @@
-(* $Id$ *)
 let init_repo = 
-        print_endline "Initializing repository...";
-        print_endline "It's required for the repository name and id.";
-        print_endline "Create one? (y/n)";
-        match input_line stdin with
-        |"y"->
-                        let title =
-                                print_endline "Title for repository: ";
-                                input_line stdin in
-                        let authors =
-                                print_endline "Authors (format: name <name@email> <http://website>): ";
-                                input_line stdin in
-                        Kosuzu.File_store.file "txt.conf" 
-                        (Printf.sprintf "Id:%s\nTitle: %s\nAuthors: %s\n" (Kosuzu.Id.generate ()) title authors);
-                        Kosuzu.File_store.of_kv_file ()
-        | _ ->
-                        print_endline "Aborting..."; exit 1
+  print_endline "Initializing repository...";
+  print_endline "It's required for the repository name and id.";
+  print_endline "Create one? (y/n)";
+  match input_line stdin with
+  |"y"->
+    let title =
+      print_endline "Title for repository: ";
+      input_line stdin in
+    let authors =
+      print_endline "Authors (format: name <name@email> <http://website>): ";
+      input_line stdin in
+    Kosuzu.File_store.file "txt.conf" 
+      (Printf.sprintf "Id:%s\nTitle: %s\nAuthors: %s\n" (Kosuzu.Id.generate ()) title authors);
+    Kosuzu.File_store.of_kv_file ()
+  | _ ->
+     print_endline "Aborting..."; exit 1

trunk/dune-project

@@ -1 +1 @@
 (lang dune 2.0)
 (name kosuzu)
-(version 1.4.4)
+(version 1.4.5)
 (license EUPL-1.2)
 (authors "orbifx <fox@orbitalfox.eu>")
 (maintainers "Izuru Yakumo <eternal-servant@yakumo.dev>")
 (homepage "https://suzunaan.yakumo.dev/kosuzu/")
-(source (uri svn+https://svn.yakumo.dev/yakumo.izuru/kosuzu))
+(source (uri svn+https://svn.yakumo.dev/repo/kosuzu))
 
 (generate_opam_files true)

trunk/kosuzu.opam

@@ -22 +22 @@
   ]
 ]
-dev-repo: "svn+https://svn.yakumo.dev/yakumo.izuru/kosuzu"
+dev-repo: "svn+https://svn.yakumo.dev/repo/kosuzu"