|
@@ -245,10 +245,11 @@ The function respects the value of the :exports header argument."
|
|
|
|
|
|
(defun org-babel-exp-code (info)
|
|
(defun org-babel-exp-code (info)
|
|
"Return the original code block formatted for export."
|
|
"Return the original code block formatted for export."
|
|
- (org-fill-template "#+BEGIN_SRC %lang%flags\n%body\n#+END_SRC\n"
|
|
|
|
- `(("lang" . ,(nth 0 info))
|
|
|
|
- ("flags" . ,(when-let (f (nth 3 info)) (concat " " f)))
|
|
|
|
- ("body" . ,(nth 1 info)))))
|
|
|
|
|
|
+ (org-fill-template
|
|
|
|
+ "#+BEGIN_SRC %lang%flags\n%body\n#+END_SRC\n"
|
|
|
|
+ `(("lang" . ,(nth 0 info))
|
|
|
|
+ ("flags" . ,((lambda (f) (when f (concat " " f))) (nth 3 info)))
|
|
|
|
+ ("body" . ,(nth 1 info)))))
|
|
|
|
|
|
(defun org-babel-exp-results (info type &optional silent hash)
|
|
(defun org-babel-exp-results (info type &optional silent hash)
|
|
"Evaluate and return the results of the current code block for export.
|
|
"Evaluate and return the results of the current code block for export.
|