From e041ad6668b26be0212407588fa285fc639a6453 Mon Sep 17 00:00:00 2001 From: "Juan J. Martinez" Date: Wed, 14 Dec 2022 23:10:04 +0000 Subject: Trying scheme --- gen-scheme-words | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) create mode 100755 gen-scheme-words (limited to 'gen-scheme-words') 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 + -- cgit v1.2.3