diff options
author | Eric Schulte <schulte.eric@gmail.com> | 2010-09-21 11:50:54 -0600 |
---|---|---|
committer | Eric Schulte <schulte.eric@gmail.com> | 2010-09-21 11:50:54 -0600 |
commit | 6103eacdf03817894f38915db482cd6ba4ad4eec (patch) | |
tree | dd3e5dfabf17d00e12c63256c7b4076b1c5dfed0 | |
parent | ca15dd6dbe60bdde959a5836e2b4a99d360da00b (diff) | |
download | org-mode-6103eacdf03817894f38915db482cd6ba4ad4eec.tar.gz |
ob-dot: automatically specifies "-T<ext>" based on file name extension
* lisp/ob-dot.el (org-babel-execute:dot): automatically specifies
"-T<ext>" based on file name extension
-rw-r--r-- | lisp/ob-dot.el | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/lisp/ob-dot.el b/lisp/ob-dot.el index 8f2976e..72cc691 100644 --- a/lisp/ob-dot.el +++ b/lisp/ob-dot.el @@ -65,12 +65,13 @@ (defun org-babel-execute:dot (body params) "Execute a block of Dot code with org-babel. This function is called by `org-babel-execute-src-block'." - (let ((processed-params (org-babel-process-params params)) - (result-params (split-string (or (cdr (assoc :results params)) ""))) - (out-file (cdr (assoc :file params))) - (cmdline (cdr (assoc :cmdline params))) - (cmd (or (cdr (assoc :cmd params)) "dot")) - (in-file (org-babel-temp-file "dot-"))) + (let* ((processed-params (org-babel-process-params params)) + (result-params (split-string (or (cdr (assoc :results params)) ""))) + (out-file (cdr (assoc :file params))) + (cmdline (or (cdr (assoc :cmdline params)) + (format "-T%s" (file-name-extension out-file)))) + (cmd (or (cdr (assoc :cmd params)) "dot")) + (in-file (org-babel-temp-file "dot-"))) (with-temp-file in-file (insert (org-babel-expand-body:dot body params processed-params))) (org-babel-eval (concat cmd " " in-file " " cmdline " -o " out-file) "") |