Changeset 36 in code for trunk/cli/publish.ml

Timestamp:

Nov 25, 2022, 4:27:51 PM (2 years ago)

Author:

fox

Message:

txt.conf wizard

File:

• trunk/cli/publish.ml (modified) (2 diffs)

trunk/cli/publish.ml

@@ -6 +6 @@
         ["htm,atom", "public_html/"; "gmi,gmi-atom", "public_gemini/"; "", "public_gopher/"]
 
+let wizard () =
+        print_endline "No txt.conf found. It's required for the repository name & id. 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
+                Logarion.File_store.file "txt.conf"
+                        (Printf.sprintf "Id: %s\nTitle: %s\nAuthors: %s\n" (Logarion.Id.generate ()) title authors);
+                Logarion.File_store.of_kv_file ()
+        | _ -> print_endline "Create a txt.conf and run publish again"; exit 1
+
 open Logarion
 let publish pubdir ids =
-        let kv = Logarion.File_store.of_kv_file () in
+        let kv =
+                match Logarion.File_store.of_kv_file ()
+                with x when x = Logarion.Store.KV.empty -> wizard () | x -> x in
         let predicate t = List.mem t.Text.id ids in
         let pubdir_source, pubdir = match pubdir with Some d -> "--pubdir ", d | None ->
@@ -16 +33 @@
         let targets = targets pubdir in
         if targets = [] then
-                Printf.eprintf "No target directories in %s='%s'\n" pubdir_source pubdir
+                Printf.eprintf "No target directories in %s='%s' (for example %s)\n"
+                        pubdir_source pubdir (Filename.concat pubdir "public_html")
         else begin
                 let pub_dirs = List.map (fun x -> snd x) targets in