From 2f05cf41fff897c9ef00b2cb8430dd58c98ca7c4 Mon Sep 17 00:00:00 2001 From: Dan Davison Date: Tue, 27 Oct 2009 17:52:01 -0400 Subject: [PATCH] org-babel: allow header arg values to be lisp forms. This allows e.g. :file (format "%s/images/pca-scatter.png" dir) --- contrib/babel/lisp/org-babel.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/contrib/babel/lisp/org-babel.el b/contrib/babel/lisp/org-babel.el index 2ceda674..6d274289 100644 --- a/contrib/babel/lisp/org-babel.el +++ b/contrib/babel/lisp/org-babel.el @@ -462,7 +462,8 @@ may be specified in the properties of the current outline entry." (lambda (arg) (if (string-match "\\([^ \f\t\n\r\v]+\\)[ \f\t\n\r\v]+\\([^ \f\t\n\r\v]+.*\\)" arg) (cons (intern (concat ":" (match-string 1 arg))) - (org-babel-chomp (match-string 2 arg))) + (let ((raw (org-babel-chomp (match-string 2 arg)))) + (if (org-babel-number-p raw) raw (eval (org-babel-read raw))))) (cons (intern (concat ":" arg)) nil))) (split-string (concat " " arg-string) "[ \f\t\n\r\v]+:" t))))) -- 2.11.4.GIT