Prechádzať zdrojové kódy

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 rokov pred
rodič
commit
d35ec18ab5
1 zmenil súbory, kde vykonal 6 pridanie a 0 odobranie
  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