From 618b736d895b1e762cdcc8026a673aa6207a0a8b Mon Sep 17 00:00:00 2001 From: John Herrlin Date: Sun, 13 Sep 2020 18:07:22 +0200 Subject: [PATCH] ob-java: create package dirs before write to file * lisp/ob-java.el (org-babel-execute:java): create package-name directories before writing to file. TINYCHANGE --- lisp/ob-java.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/ob-java.el b/lisp/ob-java.el index f5edc6d53..dc5efe5fb 100644 --- a/lisp/ob-java.el +++ b/lisp/ob-java.el @@ -60,12 +60,12 @@ parameters may be used, like javac -verbose" (cmdline (or (cdr (assq :cmdline params)) "")) (cmdargs (or (cdr (assq :cmdargs params)) "")) (full-body (org-babel-expand-body:generic body params))) - (with-temp-file src-file (insert full-body)) - (org-babel-eval - (concat org-babel-java-compiler " " cmpflag " " src-file) "") ;; created package-name directories if missing (unless (or (not packagename) (file-exists-p packagename)) (make-directory packagename 'parents)) + (with-temp-file src-file (insert full-body)) + (org-babel-eval + (concat org-babel-java-compiler " " cmpflag " " src-file) "") (let ((results (org-babel-eval (concat org-babel-java-command " " cmdline " " classname " " cmdargs) ""))) (org-babel-reassemble-table -- 2.28.0