|
@@ -0,0 +1,37 @@
|
|
|
+#!/usr/bin/zsh
|
|
|
+# Copyright FlintFam Systems Management, 2013.
|
|
|
+#
|
|
|
+# This program is free software: you can redistribute it and/or modify
|
|
|
+# it under the terms of the GNU General Public License as published by
|
|
|
+# the Free Software Foundation, either version 3 of the License, or
|
|
|
+# (at your option) any later version.
|
|
|
+#
|
|
|
+# This program is distributed in the hope that it will be useful,
|
|
|
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
+# GNU General Public License for more details.
|
|
|
+#
|
|
|
+# You should have received a copy of the GNU General Public License
|
|
|
+# along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|
|
+
|
|
|
+DIR=`pwd`
|
|
|
+FILES=""
|
|
|
+
|
|
|
+for i in $@; do
|
|
|
+ FILES="$FILES \"$i\""
|
|
|
+done
|
|
|
+
|
|
|
+ORGBASEDIR=''
|
|
|
+ORGLDIR="${ORGBASEDIR}/lisp/"
|
|
|
+ORGCONTRIB="${ORGBASEDIR}/contrib/"
|
|
|
+
|
|
|
+
|
|
|
+emacs -Q --batch \
|
|
|
+ --eval "(progn
|
|
|
+ (add-to-list 'load-path (expand-file-name \"$ORGLDIR\"))
|
|
|
+ (add-to-list 'load-path (expand-file-name \"$ORGCONTRIB\" t))
|
|
|
+ (require 'org)(require 'org-exp)(require 'ob)(require 'ob-tangle)
|
|
|
+ (mapc (lambda (file)
|
|
|
+ (find-file (expand-file-name file \"$DIR\"))
|
|
|
+ (org-babel-tangle)
|
|
|
+ (kill-buffer)) '($FILES)))" 2>&1 |grep tangled
|