summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorEric Schulte <schulte.eric@gmail.com>2010-10-06 10:37:46 -0600
committerEric Schulte <schulte.eric@gmail.com>2010-10-06 10:37:46 -0600
commitf687f51dd0c21feb4c6bbcbc283b2b4b9842775f (patch)
tree83f1dc4bad203d67327c5568950d09d5ecfb0be9
parent19efdcca43742b1c0d9a071476659b0f7c7fc57d (diff)
downloadorg-mode-f687f51dd0c21feb4c6bbcbc283b2b4b9842775f.tar.gz
ob-exp: ":noweb tangle" now expands noweb references during tangling
* lisp/ob-tangle.el (org-babel-tangle-collect-blocks): accepting "tangle" as a positive argument for the :noweb header argument during tangling
-rw-r--r--lisp/ob-tangle.el5
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/ob-tangle.el b/lisp/ob-tangle.el
index a9429c4..3a0426a 100644
--- a/lisp/ob-tangle.el
+++ b/lisp/ob-tangle.el
@@ -294,7 +294,10 @@ code blocks by language."
'org-babel-expand-body:generic)
body params)))
(if (and (cdr (assoc :noweb params))
- (string= "yes" (cdr (assoc :noweb params))))
+ (let ((nowebs (split-string
+ (cdr (assoc :noweb params)))))
+ (or (member "yes" nowebs)
+ (member "tangle" nowebs))))
(org-babel-expand-noweb-references info)
(nth 1 info))))
(comment (when (or (string= "both" (cdr (assoc :comments params)))