rlm@0: #!/bin/sh
rlm@2: # assumes that there is a ./org directory, and tangles
rlm@2: # each org file in it.
rlm@2: 
rlm@0: DIR=`pwd`
rlm@0: FILES=""
rlm@0: 
rlm@2: for i in $(find $DIR/org -name "*.org"); do
rlm@0:     FILES="$FILES \"$i\""
rlm@0: done
rlm@0: 
rlm@2: 
rlm@4: emacs  --batch  \
rlm@4: -l /home/r/config/emacs/clojure-init.el \
rlm@4: -l /home/r/config/emacs/org-init.el \
rlm@0: --eval "(progn
rlm@0: (mapc (lambda (file)
rlm@0:        (find-file (expand-file-name file \"$DIR\"))
rlm@0:        (org-babel-tangle)
rlm@0:        (kill-buffer)) '($FILES)))" 2>&1 | pcregrep '(Wrote)|(tangled)'