diff options
| author | John Herrlin <jherrlin@gmail.com> | 2020-09-13 18:07:22 +0200 |
|---|---|---|
| committer | Bastien <bzg@gnu.org> | 2020-09-23 14:27:12 +0200 |
| commit | a409e1033554aa684ed9aa3e9a38d27fb01c189d (patch) | |
| tree | 0e83e3a3946fceab0fecaf6c56ecf4db0e772a4a | |
| parent | 979e82fc306c365c4e7005081e4cbbb0078c0260 (diff) | |
| download | org-mode-a409e1033554aa684ed9aa3e9a38d27fb01c189d.tar.gz | |
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
| -rw-r--r-- | lisp/ob-java.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/ob-java.el b/lisp/ob-java.el index f5edc6d..dc5efe5 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 |