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 +
     4.1 --- a/weave.sh	Mon Oct 24 09:29:17 2011 -0700
     4.2 +++ b/weave.sh	Mon Oct 24 09:41:38 2011 -0700
     4.3 @@ -5,7 +5,9 @@
     4.4  
     4.5  target=$(readlink -f $1)
     4.6  
     4.7 -dir=`pwd`
     4.8 +org=`dirname $target`
     4.9 +
    4.10 +dir=`dirname $org`
    4.11  
    4.12  emacsclient \
    4.13  --eval "