mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2025-02-02 20:55:13 +00:00
Code

org-babel: make [:file filename] imply [:exports results]

Browse Source 
Unless :exports is already none or both. This allows users to export
file output simply by adding a [:file filename] header arg.
This commit is contained in:
Dan Davison 2009-10-11 19:32:46 -04:00
parent 286bf35fe5
commit 6c0c2039dd
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
contrib/babel/lisp/org-babel.el
View File

@ -674,6 +674,8 @@ parameters when merging lists."
'(("file" "vector" "table" "scalar" "raw" "org" "html" "latex" "code" "pp")
("replace" "silent")
("output" "value")))
(exports-exclusive-groups
'(("code" "results" "both" "none")))
params results exports tangle vars var ref)
(flet ((e-merge (exclusive-groups &rest result-params)
;; maintain exclusivity of mutually exclusive parameters
@ -706,9 +708,11 @@ parameters when merging lists."
(:file
(when (cdr pair)
(setq results (e-merge results-exclusive-groups results '("file")))
(unless (or (member "both" exports) (member "none" exports))
(setq exports (e-merge exports-exclusive-groups exports '("results"))))
(setq params (cons pair (assq-delete-all (car pair) params)))))
(:exports
(setq exports (e-merge '(("code" "results" "both" "none"))
(setq exports (e-merge exports-exclusive-groups
exports (split-string (cdr pair)))))
(:tangle
(setq tangle (e-merge '(("yes" "no"))