瀏覽代碼

post header arg post-processes code block results

* lisp/ob-core.el (org-babel-common-header-args-w-values): Add :post to
  the list of header arguments.
  (org-babel-execute-src-block): Post process results when the :post
  header argument has been supplied.
Eric Schulte 12 年之前
父節點
當前提交
d35ec18ab5
共有 1 個文件被更改,包括 6 次插入0 次删除
  1. 6 0
      lisp/ob-core.el

+ 6 - 0
lisp/ob-core.el

@@ -442,6 +442,7 @@ then run `org-babel-pop-to-session'."
     (noweb-ref	. :any)
     (noweb-sep  . :any)
     (padline	. ((yes no)))
+    (post       . :any)
     (results	. ((file list vector table scalar verbatim)
 		   (raw html latex org code pp drawer)
 		   (replace silent none append prepend)
@@ -611,6 +612,11 @@ block."
 				      (not (listp result)))
 				 (list (list result)) result))
 			   (funcall cmd body params)))
+		    ;; possibly perform post process provided its appropriate
+		    (when (cdr (assoc :post params))
+		      (let ((*this* result))
+			(setq result (org-babel-ref-resolve
+				      (cdr (assoc :post params))))))
 		    ;; if non-empty result and :file then write to :file
 		    (when (cdr (assoc :file params))
 		      (when result