Trying scheme

1 files changed, 18 insertions, 0 deletions

diff --git a/gen-scheme-words b/gen-scheme-words
new file mode 100755
index 0000000..5f2185e
--- /dev/null
+++ b/gen-scheme-words
@@ -0,0 +1,18 @@
+#!/bin/sh -e
+
+dir="$HOME/.local/share/scheme/words"
+
+first() { cut -d' ' -f1; }
+
+mkdir -p "$dir"
+
+for n in $(chicken-doc -c chicken | first)
+do
+  chicken-doc -c chicken "$n" | first | tee "$dir/chicken-$n"
+done
+
+for n in $(chicken-doc -c | first)
+do
+  [ "$n" = "chicken" ] || chicken-doc -c "$n" | first | tee "$dir/$n"
+done
+