From 256397061fe5ae5649b4569c45bb53c8e45e0cbe Mon Sep 17 00:00:00 2001 From: Marc Coquand Date: Sat, 18 May 2024 13:03:40 -0500 Subject: Add support for arbitrary command in the note view --- bin/main.ml | 20 +++++++++++++++++--- 1 file changed, 17 insertions(+), 3 deletions(-) (limited to 'bin') diff --git a/bin/main.ml b/bin/main.ml index 757b391..8fbefb1 100644 --- a/bin/main.ml +++ b/bin/main.ml @@ -61,7 +61,9 @@ let envs = let headlines_cmd = let doc = "write notes seperately and compose" in let author = [ `S Manpage.s_authors; `P "Marc Coquand (mccd.space)" ] in - let bugs = [ `S Manpage.s_bugs; `P "Email bug reports to marc@mccd.space" ] in + let bugs = + [ `S Manpage.s_bugs; `P "Email bug reports to ~marcc/stitch-general@lists.sr.ht." ] + in let description = [ `S Manpage.s_description ; `P @@ -138,6 +140,16 @@ let headlines_cmd = toggle the todo items." ] in + let commands = + [ `S "COMMANDS" + ; `P "" + ; `P + "You can run arbitrary commands in Stitch. These commands can make use of \ + variable substitutions. Available substitutions are" + ; `I ("%(file)", "Currently selected file") + ; `I ("%(content)", "Currently selected content") + ] + in let credit = [ `S "CREDIT" ; `P "Stitch was inspired by the note-taking tool Howm for EMacs by HIRAOKA Kazuyuki." @@ -147,9 +159,11 @@ let headlines_cmd = Cmd.info ~envs "stitch" - ~version:"0.0.2 ALPHA" + ~version:"0.0.3 ALPHA" ~doc - ~man:(List.concat [ bugs; author; description; example_set_up_basic; credit ]) + ~man: + (List.concat + [ description; commands; example_set_up_basic; bugs; author; credit ]) in Cmd.v info headlines_t -- cgit v1.2.3