yakumo.izuru/kosuzu
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source 
Signed-off-by: Izuru Yakumo <yakumo.izuru@chaotic.ninja>

git-svn-id: file:///srv/svn/repo/kosuzu/trunk@70 eb64cd80-c68d-6f47-b6a3-0ada418499da
This commit is contained in:
yakumo.izuru 2024-08-21 13:31:58 +00:00
parent 1a0bf17e36
commit 02fb238de3
2 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
cli/new.ml
View File

@ -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

2
dune-project
View File

@ -1,6 +1,6 @@
(lang dune 2.0)
(name logarion)
(version 1.4.2)
(version 1.4.3)
(license EUPL-1.2)
(authors "orbifx <fox@orbitalfox.eu>")
(bug_reports "mailto:logarion-dev@chaotic.ninja")