forked from mirrors/org-mode
contrib/babel/langs/ob-mathomatic.el: Delete whitespaces
This commit is contained in:
parent
f20ae92e88
commit
751db690a0
|
@ -55,23 +55,23 @@
|
||||||
;; graphic output
|
;; graphic output
|
||||||
(let ((graphic-file (org-babel-mathomatic-graphical-output-file params)))
|
(let ((graphic-file (org-babel-mathomatic-graphical-output-file params)))
|
||||||
(if graphic-file
|
(if graphic-file
|
||||||
(cond
|
(cond
|
||||||
((string-match ".\.eps$" graphic-file)
|
((string-match ".\.eps$" graphic-file)
|
||||||
(format ;; Need to add command to send to file.
|
(format ;; Need to add command to send to file.
|
||||||
"set plot set terminal postscript eps\\;set output %S "
|
"set plot set terminal postscript eps\\;set output %S "
|
||||||
graphic-file))
|
graphic-file))
|
||||||
((string-match ".\.ps$" graphic-file)
|
((string-match ".\.ps$" graphic-file)
|
||||||
(format ;; Need to add command to send to file.
|
(format ;; Need to add command to send to file.
|
||||||
"set plot set terminal postscript\\;set output %S "
|
"set plot set terminal postscript\\;set output %S "
|
||||||
graphic-file))
|
graphic-file))
|
||||||
|
|
||||||
((string-match ".\.pic$" graphic-file)
|
((string-match ".\.pic$" graphic-file)
|
||||||
(format ;; Need to add command to send to file.
|
(format ;; Need to add command to send to file.
|
||||||
"set plot set terminal gpic\\;set output %S "
|
"set plot set terminal gpic\\;set output %S "
|
||||||
graphic-file))
|
graphic-file))
|
||||||
(t
|
(t
|
||||||
(format ;; Need to add command to send to file.
|
(format ;; Need to add command to send to file.
|
||||||
"set plot set terminal png\\;set output %S "
|
"set plot set terminal png\\;set output %S "
|
||||||
graphic-file)))
|
graphic-file)))
|
||||||
""))
|
""))
|
||||||
;; variables
|
;; variables
|
||||||
|
@ -114,7 +114,6 @@ called by `org-babel-execute-src-block'."
|
||||||
(with-temp-file tmp-file (insert result))
|
(with-temp-file tmp-file (insert result))
|
||||||
(org-babel-import-elisp-from-file tmp-file))))))
|
(org-babel-import-elisp-from-file tmp-file))))))
|
||||||
|
|
||||||
|
|
||||||
(defun org-babel-prep-session:mathomatic (session params)
|
(defun org-babel-prep-session:mathomatic (session params)
|
||||||
(error "Mathomatic does not support sessions"))
|
(error "Mathomatic does not support sessions"))
|
||||||
|
|
||||||
|
@ -138,12 +137,9 @@ of the same value."
|
||||||
(defun org-babel-mathomatic-elisp-to-mathomatic (val)
|
(defun org-babel-mathomatic-elisp-to-mathomatic (val)
|
||||||
"Return a string of mathomatic code which evaluates to VAL."
|
"Return a string of mathomatic code which evaluates to VAL."
|
||||||
(if (listp val)
|
(if (listp val)
|
||||||
(mapconcat #'org-babel-mathomatic-elisp-to-mathomatic val " ")
|
(mapconcat #'org-babel-mathomatic-elisp-to-mathomatic val " ")
|
||||||
(format "%s" val)))
|
(format "%s" val)))
|
||||||
|
|
||||||
|
|
||||||
(provide 'ob-mathomatic)
|
(provide 'ob-mathomatic)
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
;;; ob-mathomatic.el ends here
|
;;; ob-mathomatic.el ends here
|
||||||
|
|
Loading…
Reference in a new issue