diff options
| author | Bastien Guerry <bzg@altern.org> | 2013-02-26 17:56:36 +0100 |
|---|---|---|
| committer | Bastien Guerry <bzg@altern.org> | 2013-02-26 17:56:36 +0100 |
| commit | 751db690a0abbfc5c4134cc1c083a49e666c7053 (patch) | |
| tree | 8d2d39286655889daf14c3b07c2920f76cc715ce | |
| parent | f20ae92e88cc8b09957fe05a350abc6e9dbe6f37 (diff) | |
| download | org-mode-751db690a0abbfc5c4134cc1c083a49e666c7053.tar.gz | |
contrib/babel/langs/ob-mathomatic.el: Delete whitespaces
| -rw-r--r-- | contrib/babel/langs/ob-mathomatic.el | 24 |
1 files changed, 10 insertions, 14 deletions
diff --git a/contrib/babel/langs/ob-mathomatic.el b/contrib/babel/langs/ob-mathomatic.el index 0ab84b0..73be9a7 100644 --- a/contrib/babel/langs/ob-mathomatic.el +++ b/contrib/babel/langs/ob-mathomatic.el @@ -55,23 +55,23 @@ ;; graphic output (let ((graphic-file (org-babel-mathomatic-graphical-output-file params))) (if graphic-file - (cond + (cond ((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 " graphic-file)) ((string-match ".\.ps$" graphic-file) - (format ;; Need to add command to send to file. - "set plot set terminal postscript\\;set output %S " + (format ;; Need to add command to send to file. + "set plot set terminal postscript\\;set output %S " graphic-file)) ((string-match ".\.pic$" graphic-file) - (format ;; Need to add command to send to file. - "set plot set terminal gpic\\;set output %S " + (format ;; Need to add command to send to file. + "set plot set terminal gpic\\;set output %S " graphic-file)) - (t - (format ;; Need to add command to send to file. - "set plot set terminal png\\;set output %S " + (t + (format ;; Need to add command to send to file. + "set plot set terminal png\\;set output %S " graphic-file))) "")) ;; variables @@ -114,7 +114,6 @@ called by `org-babel-execute-src-block'." (with-temp-file tmp-file (insert result)) (org-babel-import-elisp-from-file tmp-file)))))) - (defun org-babel-prep-session:mathomatic (session params) (error "Mathomatic does not support sessions")) @@ -138,12 +137,9 @@ of the same value." (defun org-babel-mathomatic-elisp-to-mathomatic (val) "Return a string of mathomatic code which evaluates to VAL." (if (listp val) - (mapconcat #'org-babel-mathomatic-elisp-to-mathomatic val " ") + (mapconcat #'org-babel-mathomatic-elisp-to-mathomatic val " ") (format "%s" val))) - (provide 'ob-mathomatic) - - ;;; ob-mathomatic.el ends here |