Trying scheme

2 files changed, 46 insertions, 0 deletions

diff --git a/after/ftplugin/scheme.vim b/after/ftplugin/scheme.vim
new file mode 100644
index 0000000..197aa08
--- /dev/null
+++ b/after/ftplugin/scheme.vim
@@ -0,0 +1,28 @@
+"" requires:
+""
+""  chicken-install chicken-doc
+""  cd `csi -R chicken.platform -p '(chicken-home)'`
+""  curl https://3e8.org/pub/chicken-doc/chicken-doc-repo-5.tgz | tar zx
+""
+"" then run ../gen-scheme-words
+""
+let b:is_chicken=1
+
+setl complete+=d,k~/.local/share/scheme/words/**
+
+setl include=\^\(\\(use\\\|require-extension\\)\\s\\+
+setl includeexpr=substitute(v:fname,'$','.scm','')
+setl path+=/home/chl/.cache/chicken-install
+setl suffixesadd=.scm
+
+fun! Scheme_indent_top_sexp()
+    let pos = getpos('.')
+    silent! exec 'normal! 99[(=%'
+    call setpos('.', pos)
+endfun
+
+nmap <buffer> <silent> == :call Scheme_indent_top_sexp()<cr>
+nmap <buffer> gs :10 split term://csi -s %<cr>:startinsert<cr>
+
+setl makeprg=csc\ %
+setlocal keywordprg=chicken-doc\ scheme
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
+