diff options
| author | Marc Coquand <marc@mccd.space> | 2024-05-15 19:40:04 -0500 |
|---|---|---|
| committer | Marc Coquand <marc@mccd.space> | 2024-05-15 19:40:04 -0500 |
| commit | 8aff6800c075677022d520c1cb374cf37badd34b (patch) | |
| tree | d2fd9d3e87fc6a512bd75eed547ec2b811a4b46b | |
| parent | 664a8d8419f0376652709c71ff7e1e6fff5493f6 (diff) | |
| download | stitch-8aff6800c075677022d520c1cb374cf37badd34b.tar.gz stitch-8aff6800c075677022d520c1cb374cf37badd34b.tar.bz2 stitch-8aff6800c075677022d520c1cb374cf37badd34b.zip | |
Updates
| -rw-r--r-- | README.org | 5 | ||||
| -rw-r--r-- | lib/grep.ml | 7 | ||||
| -rw-r--r-- | lib/help_screen.ml | 2 |
3 files changed, 5 insertions, 9 deletions
@@ -63,7 +63,7 @@ dune exec -- stitch - Building a journaling system You can build a basic capture command using $EDITOR and date command: -#+begin_src +#+begin_src sh export STITCH_DIRECTORY=/home/me/notes function capture { JRNL="$STITCH_DIRECTORY/$(date +'%y-%m-%d.%H:%M.%S').org" @@ -88,8 +88,7 @@ alias jrnl="stitch -t journal" * KNOWN ISSUES - ugrep doesn't correctly handle ordering, meaning that if you sort by - modified date, it doesn't behave correctly. Therefore, that behavior - is disabled for now. + modified date, it doesn't behave correctly. I've waited with implementing it until I've resolved that issue diff --git a/lib/grep.ml b/lib/grep.ml index a801fd7..3140347 100644 --- a/lib/grep.ml +++ b/lib/grep.ml @@ -1,8 +1,5 @@ -let execution_directory = - Sys.getenv_opt "STICH_DIRECTORY" |> Option.value ~default:"/home/mccd/notes-example" - - -let grep_cmd = Sys.getenv_opt "STICH_GREP_CMD" |> Option.value ~default:"ugrep" +let execution_directory = Sys.getenv "STITCH_DIRECTORY" +let grep_cmd = Sys.getenv_opt "STICH_GREP_CMD" |> Option.value ~default:"grep" let tag_pattern = Sys.getenv_opt "STITCH_TAG_PATTERN" |> Option.value ~default:"\\:[a-z-]+\\:" diff --git a/lib/help_screen.ml b/lib/help_screen.ml index af744c4..d9082bf 100644 --- a/lib/help_screen.ml +++ b/lib/help_screen.ml @@ -4,7 +4,7 @@ open Notty type state = { go_back : unit -> unit } let render_info = - let title = I.strf ~attr:A.(st bold) "%s" "Stitch" |> I.pad ~l:0 ~t:0 in + let title = I.strf ~attr:A.(st bold) "%s" "Stitch - About" |> I.pad ~l:0 ~t:0 in let description = I.strf ~attr:A.(st bold) |