diff options
| author | Marco Wahl <marcowahlsoft@gmail.com> | 2016-09-01 12:14:32 +0200 |
|---|---|---|
| committer | Marco Wahl <marcowahlsoft@gmail.com> | 2016-09-14 11:31:56 +0200 |
| commit | bb91f138b91aa7612f59493dc46ff27216af1f74 (patch) | |
| tree | 1002e9ee1773fcec49f4f79d4f66ff2ab589bd92 | |
| parent | d68497d887186bacb1da6c10df7e5f8ea0c7fd91 (diff) | |
| download | org-mode-bb91f138b91aa7612f59493dc46ff27216af1f74.tar.gz | |
ob-J: New variable to specify the call to J
* lisp/ob-J.el (org-babel-J-command): New custom variable
`org-babel-J-command' to store the command to call J.
| -rw-r--r-- | lisp/ob-J.el | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/lisp/ob-J.el b/lisp/ob-J.el index cbcdf39..408aea3 100644 --- a/lisp/ob-J.el +++ b/lisp/ob-J.el @@ -30,6 +30,13 @@ ;;; Code: (require 'ob) + + +(defcustom org-babel-J-command + "jconsole" + "Command to call J." + :group 'org-babel + :type 'string) (declare-function org-trim "org" (s &optional keep-lead)) (declare-function j-console-ensure-session "ext:j-console" ()) @@ -75,7 +82,7 @@ This function is called by `org-babel-execute-src-block'" (progn (with-temp-file tmp-script-file (insert full-body)) - (org-babel-eval (format "jconsole < %s" tmp-script-file) "")) + (org-babel-eval (format "%s < %s" org-babel-J-command tmp-script-file) "")) (org-babel-J-eval-string full-body))))) (defun org-babel-J-eval-string (str) |