diff options
Diffstat (limited to 'lisp/org/ob-maxima.el')
| -rw-r--r-- | lisp/org/ob-maxima.el | 15 |
1 files changed, 11 insertions, 4 deletions
diff --git a/lisp/org/ob-maxima.el b/lisp/org/ob-maxima.el index 6bc3427eaf8..e3dfbb6684e 100644 --- a/lisp/org/ob-maxima.el +++ b/lisp/org/ob-maxima.el @@ -5,7 +5,7 @@ ;; Author: Eric S Fraga ;; Eric Schulte ;; Keywords: literate programming, reproducible research, maxima -;; Homepage: https://orgmode.org +;; URL: https://orgmode.org ;; This file is part of GNU Emacs. @@ -31,6 +31,10 @@ ;; 2) we are adding the "cmdline" header argument ;;; Code: + +(require 'org-macs) +(org-assert-version) + (require 'ob) (defvar org-babel-tangle-lang-exts) @@ -72,13 +76,16 @@ (defun org-babel-execute:maxima (body params) "Execute a block of Maxima entries with org-babel. This function is called by `org-babel-execute-src-block'." - (message "executing Maxima source code block") + (message "Executing Maxima source code block") (let ((result-params (split-string (or (cdr (assq :results params)) ""))) (result (let* ((cmdline (or (cdr (assq :cmdline params)) "")) (in-file (org-babel-temp-file "maxima-" ".max")) - (cmd (format "%s --very-quiet -r 'batchload(%S)$' %s" - org-babel-maxima-command in-file cmdline))) + (cmd (format "%s --very-quiet -r %s %s" + org-babel-maxima-command + (shell-quote-argument + (format "batchload(%S)$" in-file)) + cmdline))) (with-temp-file in-file (insert (org-babel-maxima-expand body params))) (message cmd) ;; " | grep -v batch | grep -v 'replaced' | sed '/^$/d' " |