From 02fb238de358c832976e149d7f2dd105e41e3197 Mon Sep 17 00:00:00 2001 From: "yakumo.izuru" Date: Wed, 21 Aug 2024 13:31:58 +0000 Subject: [PATCH] What is the point of --interactive if it throws you into a text editor, anyway? Signed-off-by: Izuru Yakumo git-svn-id: file:///srv/svn/repo/kosuzu/trunk@70 eb64cd80-c68d-6f47-b6a3-0ada418499da --- cli/new.ml | 9 +++------ dune-project | 2 +- 2 files changed, 4 insertions(+), 7 deletions(-) diff --git a/cli/new.ml b/cli/new.ml index c4ef771..2a4bc4c 100644 --- a/cli/new.ml +++ b/cli/new.ml @@ -1,7 +1,7 @@ open Logarion 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 with Not_found -> Sys.getenv "USER") in @@ -10,14 +10,12 @@ let new_txt title topics_opt interactive = match File_store.with_text text with | 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 = let doc = "Create a new article" in @@ -25,8 +23,7 @@ let cmd = `S Manpage.s_description; `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 Cmd.v info new_t diff --git a/dune-project b/dune-project index e47f76e..af181fc 100644 --- a/dune-project +++ b/dune-project @@ -1,6 +1,6 @@ (lang dune 2.0) (name logarion) -(version 1.4.2) +(version 1.4.3) (license EUPL-1.2) (authors "orbifx ") (bug_reports "mailto:logarion-dev@chaotic.ninja")