Mercurial > org-tools
changeset 7:ce96610fe058
perl script is amazing
author | Robert McIntyre <rlm@mit.edu> |
---|---|
date | Mon, 24 Oct 2011 09:41:38 -0700 |
parents | 5370428e673e |
children | 73beed20f7de |
files | auto-weave.pl old-weave.sh weave-all.sh weave.sh |
diffstat | 4 files changed, 38 insertions(+), 37 deletions(-) [+] |
line wrap: on
line diff
1.1 --- a/auto-weave.pl Mon Oct 24 09:29:17 2011 -0700 1.2 +++ b/auto-weave.pl Mon Oct 24 09:41:38 2011 -0700 1.3 @@ -21,8 +21,7 @@ 1.4 my $e = shift; 1.5 my $name = $e->fullname; 1.6 print "$name was modified\n" if $e->IN_MODIFY; 1.7 - ` 1.8 - 1.9 + `weave $name`; 1.10 }); 1.11 1.12
2.1 --- a/old-weave.sh Mon Oct 24 09:29:17 2011 -0700 2.2 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 2.3 @@ -1,34 +0,0 @@ 2.4 -#!/bin/sh 2.5 - 2.6 -# assumes ./org directory with org files to publish to 2.7 -# ./html 2.8 - 2.9 -#target=$(readlink -f $1) 2.10 - 2.11 -dir=`pwd` 2.12 - 2.13 -emacs \ 2.14 --l /home/r/config/emacs/clojure-init.el \ 2.15 --l /home/r/config/emacs/org-init.el \ 2.16 --l /home/r/config/emacs/web-color.el \ 2.17 ---batch \ 2.18 ---eval " 2.19 -(progn 2.20 -(setq org-publish-project-alist 2.21 - '( 2.22 - (\"project\" 2.23 - :base-directory \"$dir/org\" 2.24 - :base-extension \"org\" 2.25 - :publishing-directory \"$dir/html\" 2.26 - :recursive t 2.27 - :publishing-function org-publish-org-to-html 2.28 - :auto-preamble t) 2.29 - )) 2.30 - 2.31 -(org-publish-project \"project\"))" \ 2.32 -\ 2.33 -2>&1 #| pcregrep 'Wrote' 2.34 - 2.35 - 2.36 - 2.37 -
3.1 --- /dev/null Thu Jan 01 00:00:00 1970 +0000 3.2 +++ b/weave-all.sh Mon Oct 24 09:41:38 2011 -0700 3.3 @@ -0,0 +1,34 @@ 3.4 +#!/bin/sh 3.5 + 3.6 +# assumes ./org directory with org files to publish to 3.7 +# ./html 3.8 + 3.9 +#target=$(readlink -f $1) 3.10 + 3.11 +dir=`pwd` 3.12 + 3.13 +emacs \ 3.14 +-l /home/r/config/emacs/clojure-init.el \ 3.15 +-l /home/r/config/emacs/org-init.el \ 3.16 +-l /home/r/config/emacs/web-color.el \ 3.17 +--batch \ 3.18 +--eval " 3.19 +(progn 3.20 +(setq org-publish-project-alist 3.21 + '( 3.22 + (\"project\" 3.23 + :base-directory \"$dir/org\" 3.24 + :base-extension \"org\" 3.25 + :publishing-directory \"$dir/html\" 3.26 + :recursive t 3.27 + :publishing-function org-publish-org-to-html 3.28 + :auto-preamble t) 3.29 + )) 3.30 + 3.31 +(org-publish-project \"project\"))" \ 3.32 +\ 3.33 +2>&1 #| pcregrep 'Wrote' 3.34 + 3.35 + 3.36 + 3.37 +