ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

ob-plantuml: explicitly check `org-plantuml-jar-path' before use 

* lisp/ob-plantuml.el (org-babel-execute:plantuml): explicitly check
  `org-plantuml-jar-path' before use
This commit is contained in:
Eric Schulte 2010-09-02 12:47:54 -06:00
parent 7b188f7da5
commit ebad875b12
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lisp/ob-plantuml.el
View File

@ -57,12 +57,14 @@ This function is called by `org-babel-execute-src-block'."
(out-file (cdr (assoc :file params)))
(cmdline (cdr (assoc :cmdline params)))
(in-file (org-babel-temp-file "plantuml-"))
(cmd (concat "java -jar "
(shell-quote-argument org-plantuml-jar-path)
" -p " cmdline " < "
(shell-quote-argument in-file)
" > "
(shell-quote-argument out-file))))
(cmd (if (not org-plantuml-jar-path)
(error "`org-plantuml-jar-path' is not set")
(concat "java -jar "
(shell-quote-argument org-plantuml-jar-path)
" -p " cmdline " < "
(shell-quote-argument in-file)
" > "
(shell-quote-argument out-file)))))
(unless (file-exists-p org-plantuml-jar-path)
(error "Could not find plantuml.jar at %s" org-plantuml-jar-path))
(with-temp-file in-file (insert (concat "@startuml\n" body "\n@enduml")))