diff options
Diffstat (limited to 'lisp/org/ob-J.el')
| -rw-r--r-- | lisp/org/ob-J.el | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/lisp/org/ob-J.el b/lisp/org/ob-J.el index c0145211bd3..e66227b8df6 100644 --- a/lisp/org/ob-J.el +++ b/lisp/org/ob-J.el @@ -3,6 +3,7 @@ ;; Copyright (C) 2011-2020 Free Software Foundation, Inc. ;; Author: Oleh Krehel +;; Maintainer: Joseph Novakovich <josephnovakovich@gmail.com> ;; Keywords: literate programming, reproducible research ;; Homepage: https://orgmode.org @@ -76,6 +77,8 @@ This function is called by `org-babel-execute-src-block'." (message "executing J source code block") (let* ((processed-params (org-babel-process-params params)) (sessionp (cdr (assq :session params))) + (sit-time (let ((sit (assq :sit params))) + (if sit (cdr sit) .1))) (full-body (org-babel-expand-body:J body params processed-params)) (tmp-script-file (org-babel-temp-file "J-src"))) @@ -86,9 +89,9 @@ This function is called by `org-babel-execute-src-block'." (with-temp-file tmp-script-file (insert full-body)) (org-babel-eval (format "%s < %s" org-babel-J-command tmp-script-file) "")) - (org-babel-J-eval-string full-body))))) + (org-babel-J-eval-string full-body sit-time))))) -(defun org-babel-J-eval-string (str) +(defun org-babel-J-eval-string (str sit-time) "Sends STR to the `j-console-cmd' session and executes it." (let ((session (j-console-ensure-session))) (with-current-buffer (process-buffer session) @@ -96,7 +99,7 @@ This function is called by `org-babel-execute-src-block'." (insert (format "\n%s\n" str)) (let ((beg (point))) (comint-send-input) - (sit-for .1) + (sit-for sit-time) (buffer-substring-no-properties beg (point-max)))))) |