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@0: emacs -Q --batch  \
rlm@0: --eval "(progn
rlm@0: (add-to-list 'load-path (expand-file-name \"/home/r/config/emacs/extend/org-mode/lisp/\"))
rlm@0: (add-to-list 'load-path (expand-file-name \"/home/r/config/emacs/extend/org-mode/contrib/lisp/\"))
rlm@0: (require 'org)(require 'org-exp)(require 'ob)(require 'ob-tangle)
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)'