diff options
| author | Marc Coquand <marc@mccd.space> | 2024-05-18 13:03:40 -0500 |
|---|---|---|
| committer | Marc Coquand <marc@mccd.space> | 2024-05-18 13:03:40 -0500 |
| commit | 256397061fe5ae5649b4569c45bb53c8e45e0cbe (patch) | |
| tree | 652e7b5833ea32d13b0ae1ea9cc32ba421fed827 /bin/main.ml | |
| parent | 12ba5ed258b3a1ff30c3ece030e8eeed0dc417e9 (diff) | |
| download | stitch-256397061fe5ae5649b4569c45bb53c8e45e0cbe.tar.gz stitch-256397061fe5ae5649b4569c45bb53c8e45e0cbe.tar.bz2 stitch-256397061fe5ae5649b4569c45bb53c8e45e0cbe.zip | |
Add support for arbitrary command in the note view
Diffstat (limited to '')
| -rw-r--r-- | bin/main.ml | 20 |
1 files changed, 17 insertions, 3 deletions
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 |