Mercurial > org-tools

comparison weave.sh @ 6:5370428e673e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
comparison
equal deleted inserted replaced
5:4824087ce1f2 6:5370428e673e
1 #!/bin/sh 1 #!/bin/sh
2 2
3 # assumes ./org directory with org files to publish to 3 # assumes ./org directory with org files to publish to
4 # ./html 4 # ./html
5 5
6 #target=$(readlink -f $1) 6 target=$(readlink -f $1)
7 7
8 dir=`pwd` 8 dir=`pwd`
9 9
10 # emacs \ 10 emacsclient \
11 # -l /home/r/config/emacs/clojure-init.el \
12 # -l /home/r/config/emacs/org-init.el \
13 # -l /home/r/config/emacs/web-color.el \
14 # --batch \
15 # --eval "
16 # (progn
17 # (setq org-publish-project-alist
18 # '(
19 # (\"project\"
20 # :base-directory \"$dir/org\"
21 # :base-extension \"org\"
22 # :publishing-directory \"$dir/html\"
23 # :recursive t
24 # :publishing-function org-publish-org-to-html
25 # :auto-preamble t)
26 # ))
27
28 # (org-publish-project \"project\"))" \
29 # \
30 # 2>&1 #| pcregrep 'Wrote'
31
32
33 emacsclient \
34 --eval " 11 --eval "
35 (progn 12 (progn
36 (setq org-publish-project-alist 13 (setq org-publish-project-alist
37 '( 14 '(
38 (\"project\" 15 (\"project\"
42 :recursive t 19 :recursive t
43 :publishing-function org-publish-org-to-html 20 :publishing-function org-publish-org-to-html
44 :auto-preamble t) 21 :auto-preamble t)
45 )) 22 ))
46 23
47 (org-publish-project \"project\"))" \ 24 (org-publish-file \"$target\" '(\"project\"
25 :base-directory \"$dir/org\"
26 :base-extension \"org\"
27 :publishing-directory \"$dir/html\"
28 :recursive t
29 :publishing-function org-publish-org-to-html
30 :auto-preamble t)
31 ))" \
32 \
33 2>&1 #| pcregrep 'Wrote'
48 34
49 35
50 36
51 37
38
39
40