ob-plantuml: wrapping in-file and out-file in shell-quote-argument

Thanks to Michael Gauland for pointing out this fix

* lisp/ob-plantuml.el (org-babel-execute:plantuml): wrapping in-file
  and out-file in shell-quote-argument
This commit is contained in:
Eric Schulte 2010-08-29 19:32:50 -06:00
parent 4b7c9136a7
commit fdad92edd6
1 changed files with 4 additions and 1 deletions

View File

@ -59,7 +59,10 @@ This function is called by `org-babel-execute-src-block'."
(in-file (org-babel-temp-file "plantuml-"))
(cmd (concat "java -jar "
(shell-quote-argument org-plantuml-jar-path)
" -p " cmdline " < " in-file " > " out-file)))
" -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")))