Bläddra i källkod

ob-plantuml: now expanding file names before shell quoting

* lisp/ob-plantuml.el (org-babel-execute:plantuml): now expanding file
names before shell quoting
Eric Schulte 14 år sedan
förälder
incheckning
b0dce5a074
1 ändrade filer med 6 tillägg och 3 borttagningar
  1. 6 3
      lisp/ob-plantuml.el

+ 6 - 3
lisp/ob-plantuml.el

@@ -60,11 +60,14 @@ This function is called by `org-babel-execute-src-block'."
 	 (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)
+			(shell-quote-argument
+			 (expand-file-name org-plantuml-jar-path))
 			" -p " cmdline " < "
-			(shell-quote-argument in-file)
+			(shell-quote-argument
+			 (expand-file-name in-file))
 			" > "
-			(shell-quote-argument out-file)))))
+			(shell-quote-argument
+			 (expand-file-name 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")))