Changeset 70 in code for trunk/cli/new.ml

Timestamp:

Aug 21, 2024, 1:31:58 PM (8 months ago)

Author:

yakumo.izuru

Message:

What is the point of --interactive if it throws you into a text editor, anyway?

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

File:

• trunk/cli/new.ml (modified) (3 diffs)

trunk/cli/new.ml

@@ -2 +2 @@
 open Cmdliner
 
-let new_txt title topics_opt interactive =
+let new_txt title topics_opt =
         let kv = Logarion.File_store.of_kv_file () in
         let authors = Person.Set.of_string (try Logarion.Store.KV.find "Authors" kv
@@ -11 +11 @@
         | Error s -> prerr_endline s
         | Ok (filepath, _note) ->
-                if interactive then (Sys.command ("$EDITOR " ^ filepath) |> ignore);
                 print_endline filepath
 
 let title = Arg.(value & pos 0 string "" & info [] ~docv: "title" ~doc: "Title for new article")
 let topics = Arg.(value & opt (some string) None & info ["t"; "topics"] ~docv: "Comma-separated topics" ~doc: "Topics for new article")
-let inter = Arg.(value & flag & info ["i"; "interactive"] ~doc: "Prompt through the steps of creation")
 
-let new_t = Term.(const new_txt $ title $ topics $ inter)
+let new_t = Term.(const new_txt $ title $ topics)
 
 let cmd =
@@ -26 +24 @@
       `P "Create a new article";
       `S Manpage.s_environment;
-      `P "USER - The login name of the user, used if the Authors field is blank";
-      `P "EDITOR - Default editor name" ]
+      `P "USER - The login name of the user, used if the Authors field is blank" ]
   in
   let info = Cmd.info "new" ~doc ~man in