mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-29 21:07:54 +00:00
Code Releases Activity

ob-core: Tiny refactoring

Browse source 
* lisp/ob-core.el (org-babel-graphical-output-file): Refactor code.  Fix
  error messages.
This commit is contained in:
Nicolas Goaziou 2016-06-20 14:41:04 +02:00
parent 6cefae1637
commit bae2286393
1 changed files with 11 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
lisp/ob-core.el
View file

@ -3071,15 +3071,18 @@ plus the parameter value."
(setq params (cons (cons :file fname) params))))
params))
;;; Used by backends: R, Maxima, Octave.
(defun org-babel-graphical-output-file (params)
"File where a babel block should send graphical output, per PARAMS."
(unless (assq :file params)
(if (assq :file-ext params)
(user-error ":file-ext given but no :file generated; did you forget to give a block a #+NAME?")
(user-error "No :file header argument given; cannot create graphical result.")))
(and (member "graphics" (cdr (assq :result-params params)))
(cdr (assq :file params))))
"File where a babel block should send graphical output, per PARAMS.
Return nil if no graphical output is expected. Raise an error if
the output file is ill-defined."
(let ((file (cdr (assq :file params))))
(cond (file (and (member "graphics" (cdr (assq :result-params params)))
file))
((assq :file-ext params)
(user-error ":file-ext given but no :file generated; did you forget \
to name a block?"))
(t (user-error "No :file header argument given; cannot create \
graphical result")))))
(defun org-babel-make-language-alias (new old)
"Make source blocks of type NEW aliases for those of type OLD.