annotate weave.sh @ 6:5370428e673e

experimenting with a perlscript for weaving
author Robert McIntyre <rlm@mit.edu>
date Mon, 24 Oct 2011 09:29:17 -0700
parents 4824087ce1f2
children ce96610fe058
rev   line source
rlm@1 1 #!/bin/sh
rlm@1 2
rlm@1 3 # assumes ./org directory with org files to publish to
rlm@1 4 # ./html
rlm@1 5
rlm@6 6 target=$(readlink -f $1)
rlm@1 7
rlm@1 8 dir=`pwd`
rlm@1 9
rlm@6 10 emacsclient \
rlm@1 11 --eval "
rlm@1 12 (progn
rlm@1 13 (setq org-publish-project-alist
rlm@1 14 '(
rlm@1 15 (\"project\"
rlm@1 16 :base-directory \"$dir/org\"
rlm@1 17 :base-extension \"org\"
rlm@1 18 :publishing-directory \"$dir/html\"
rlm@1 19 :recursive t
rlm@1 20 :publishing-function org-publish-org-to-html
rlm@1 21 :auto-preamble t)
rlm@1 22 ))
rlm@1 23
rlm@6 24 (org-publish-file \"$target\" '(\"project\"
rlm@6 25 :base-directory \"$dir/org\"
rlm@6 26 :base-extension \"org\"
rlm@6 27 :publishing-directory \"$dir/html\"
rlm@6 28 :recursive t
rlm@6 29 :publishing-function org-publish-org-to-html
rlm@6 30 :auto-preamble t)
rlm@6 31 ))" \
rlm@6 32 \
rlm@6 33 2>&1 #| pcregrep 'Wrote'
rlm@1 34
rlm@1 35
rlm@1 36
rlm@5 37
rlm@6 38
rlm@6 39
rlm@6 40