aboutsummaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
authorMarc Coquand <marc@mccd.space>2024-05-15 19:40:04 -0500
committerMarc Coquand <marc@mccd.space>2024-05-15 19:40:04 -0500
commit8aff6800c075677022d520c1cb374cf37badd34b (patch)
treed2fd9d3e87fc6a512bd75eed547ec2b811a4b46b /lib
parent664a8d8419f0376652709c71ff7e1e6fff5493f6 (diff)
downloadstitch-8aff6800c075677022d520c1cb374cf37badd34b.tar.gz
stitch-8aff6800c075677022d520c1cb374cf37badd34b.tar.bz2
stitch-8aff6800c075677022d520c1cb374cf37badd34b.zip
Updates
Diffstat (limited to '')
-rw-r--r--lib/grep.ml7
-rw-r--r--lib/help_screen.ml2
2 files changed, 3 insertions, 6 deletions
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)