From 4b0c115b58211dcc063bcd09f8fe122e558b92ce Mon Sep 17 00:00:00 2001
From: Ralph Amissah <ralph@amissah.com>
Date: Tue, 20 Oct 2015 18:52:12 -0400
Subject: literate programming introduced, tangle not yet run

---
 tangle | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100755 tangle

(limited to 'tangle')

diff --git a/tangle b/tangle
new file mode 100755
index 0000000..8e7569d
--- /dev/null
+++ b/tangle
@@ -0,0 +1,23 @@
+#!/bin/sh
+# -*- mode: shell-script -*-
+# tangle files with org-mode
+DIR=`pwd`
+ORGFILES=""
+EMACSLISP=/usr/share/emacs/site-lisp
+EMACSLISP_ORG=~/.emacs.d/elpa/org-20151005
+EMACSLISP_ORG_CONTRIB=~/.emacs.d/elpa/org-plus-contrib-20151005
+# wrap each argument in the code required to call tangle on it
+for i in $@; do
+ ORGFILES="$ORGFILES \"$i\""
+done
+emacs --batch -Q -q \
+--eval "(progn
+(add-to-list 'load-path (expand-file-name \"$EMACSLISP\"))
+(add-to-list 'load-path (expand-file-name \"$EMACSLISP_ORG\" t))
+(add-to-list 'load-path (expand-file-name \"$EMACSLISP_ORG_CONTRIB\" t))
+(require 'org)(require 'ob)(require 'ob-tangle)
+(mapc (lambda (file)
+  (find-file (expand-file-name file \"$DIR\"))
+  (setq-local org-src-preserve-indentation t)
+  (org-babel-tangle)
+  (kill-buffer)) '($ORGFILES)))" 2>&1 #|grep tangled
-- 
cgit v1.2.3