From 8a2a9643def8cef50801e7004977ee51a3d8474a Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Sat, 4 Nov 2023 11:59:43 -0700
Subject: [PATCH] ;tools: bake jargon - extract Hledger.hs haddock examples to
 a test journal

---
 bake | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/bake b/bake
index cc3de69a5..a099ded3c 100755
--- a/bake
+++ b/bake
@@ -180,6 +180,11 @@ dbgstrs() {
   rg --sort path -t hs 'dbg.*?(".*")' -r '$1' -o
 }
 
+# Extract Hledger.hs examples to jargon.j.
+jargon() {
+  rg '^ *> (.*)' -or '$1' hledger-lib/Hledger.hs > jargon.j
+}
+
 if declare -f "$1" > /dev/null; then "$@"; else usage; fi
 
 # ** notes