e878dedbb6
Format - New B32 ID Index - New option: txt index --print - Move scheme to peers - Replace peer.*.conf files with index packed locations Instead of adding a URL to peers.*.conf, run `txt pull <url>` Conversion - Rewritten converters - txt-convert looks for a .convert.conf containing `key: value` lines. - Specifiable topic-roots from .convert.conf. - Added `Topics:` key, with comma seperated topics. If set only those topics will appear in the main index and used as topic roots. Other topics will have sub-indices generated, but won't be listed in the main index. - HTML converter header & footer options - HTML-index renamed to HTM-index Internal - Change types: uuid:Uuid -> id:string - File_store merges identical texts - Use peer ID for store path, store peers' texts in .local/share/texts - Simple URN resolution for converter Continue to next feed if parsing one fails - Phasing-out Archive, replaced by improved packs - Eliminate Bos, Cohttp, lwt, uri, tls, Re, Ptime, dependencies - Lock version for Cmdliner, fix dune-project - Optional resursive store - Improve header_pack - Fix recursive mkdir
27 lines
1.1 KiB
OCaml
27 lines
1.1 KiB
OCaml
open Logarion
|
|
open Cmdliner
|
|
|
|
let new_txt title topics_opt interactive =
|
|
let t = match title with "" -> "Draft" | _ -> title in
|
|
let authors = Person.Set.of_string (Sys.getenv "USER") in
|
|
let text = { (Text.blank ()) with title = t; authors } in
|
|
let text = try Text.with_str_set text "Topics" (Option.get topics_opt)
|
|
with _ -> text in
|
|
match File_store.with_text text with
|
|
| Error s -> prerr_endline s
|
|
| Ok (filepath, _note) ->
|
|
if not interactive then print_endline filepath
|
|
else
|
|
(print_endline @@ "Created: " ^ filepath;
|
|
Sys.command ("$EDITOR " ^ filepath) |> ignore)
|
|
|
|
let term =
|
|
let title = Arg.(value & pos 0 string "" & info []
|
|
~docv:"title" ~doc:"Title for new article") in
|
|
let topics= Arg.(value & opt (some string) None & info ["t"; "topics"]
|
|
~docv:"comma-separated topics" ~doc:"Topics for new article") in
|
|
let inter = Arg.(value & flag & info ["i"; "interactive"]
|
|
~doc:"Prompts through the steps of creation") in
|
|
Term.(const new_txt $ title $ topics $ inter), Term.info "new"
|
|
~doc:"create a new article" ~man:[ `S "DESCRIPTION";
|
|
`P "Create a new article, with title 'Draft' when none provided"]
|