298 lines
8.3 KiB
EmacsLisp
298 lines
8.3 KiB
EmacsLisp
;;; matlab-publish.el --- Utilities for editing MATLAB files for publishing
|
|
|
|
;; Copyright (C) 2009, 2019 Uwe Brauer
|
|
|
|
;; Author: Uwe Brauer oub@mat.ucm.es
|
|
;; Maintainer: Uwe Brauer oub@mat.ucm.es
|
|
;; Created: 25 Feb 2009
|
|
;; Version: 1.0
|
|
;; Keywords:
|
|
|
|
|
|
;; This program is free software; you can redistribute it and/or modify
|
|
;; it under the terms of the GNU General Public License as published by
|
|
;; the Free Software Foundation; either version 3, or (at your option)
|
|
;; any later version.
|
|
|
|
;; This program is distributed in the hope that it will be useful,
|
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
;; GNU General Public License for more details.
|
|
|
|
;; A copy of the GNU General Public License can be obtained from this
|
|
;; program's author (send electronic mail to oub@mat.ucm.es) or from
|
|
;; the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA
|
|
;; 02139, USA.
|
|
|
|
|
|
;;; Commentary:
|
|
|
|
|
|
;;; Code:
|
|
|
|
(require 'matlab)
|
|
(require 'matlab-shell)
|
|
|
|
;; Variables
|
|
(defvar matlab-temp-region-file "region.m"
|
|
"*Variable for the file which saves the region for publishing.")
|
|
|
|
(defvar matlab-show-matlab-shell t
|
|
"* t means the matlab buffer shell is shown when running matlab.")
|
|
|
|
;; Functions
|
|
(defun matlab-select-publish-form (ch)
|
|
"This function allows to publish the m file, either as in LaTeX or in HTML format."
|
|
(interactive "c1: LaTeX, 2: HTML ")
|
|
(setq ch (downcase ch))
|
|
(call-interactively (cond ((eql ch ?1) #'matlab-publish-file-latex)
|
|
((eql ch ?2) #'matlab-publish-file-html)
|
|
(t (error 'args-out-of-range '(1 2 ch))))))
|
|
|
|
(defun matlab-publish-file-latex ()
|
|
"Publish a matlab file in the LaTeX format."
|
|
(interactive)
|
|
(let ((pub (file-name-nondirectory (buffer-file-name))))
|
|
(matlab-shell-run-command (format "publish('%s','latex')" pub)))
|
|
(if matlab-show-matlab-shell
|
|
(matlab-show-matlab-shell-buffer)))
|
|
|
|
|
|
|
|
(defun matlab-publish-file-html ()
|
|
"Publish a matlab file in the html format."
|
|
(interactive)
|
|
(let ((pub (file-name-nondirectory (buffer-file-name))))
|
|
(matlab-shell-run-command (format "publish('%s','html')" pub)))
|
|
(if matlab-show-matlab-shell
|
|
(matlab-show-matlab-shell-buffer)))
|
|
|
|
|
|
|
|
(defun matlab-select-environment (ch)
|
|
"Inserts structured text.
|
|
This results in LaTeX mode in title, sections, description, boldified text,
|
|
unnumbered equations and bullet list."
|
|
(interactive "c1: title, 2: section, 3:descrip, 4:boldify, 5:equation, 6:list ")
|
|
(setq ch (downcase ch))
|
|
(call-interactively (cond ((eql ch ?1) #'matlab-insert-title)
|
|
((eql ch ?2) #'matlab-insert-section)
|
|
((eql ch ?3) #'matlab-insert-description-text)
|
|
((eql ch ?4) #'matlab-boldify)
|
|
((eql ch ?5) #'matlab-insert-equation)
|
|
((eql ch ?6) #'matlab-insert-bullet-list)
|
|
(t (error 'args-out-of-range '(1 2 3 5 6 ch))))))
|
|
|
|
|
|
(defun matlab-insert-title ()
|
|
(interactive)
|
|
(goto-char (point-min))
|
|
(insert "%% TITLE\n")
|
|
(forward-line -1)
|
|
(forward-char 3))
|
|
|
|
(defun matlab-insert-section ()
|
|
(interactive)
|
|
(insert "%% Section\n")
|
|
(forward-line -1)
|
|
(forward-char 3))
|
|
|
|
|
|
(defun matlab-insert-description-text ()
|
|
(interactive)
|
|
(insert "%%\n")
|
|
(insert "% DESCRIPTIVE TEXT\n")
|
|
(forward-line -1)
|
|
(forward-char 2))
|
|
|
|
|
|
|
|
(defun matlab-boldify ()
|
|
"Insert either \%\%\\n \% \*BOLD TEXT\*\\n or, when mark is active, surrounds region by * *."
|
|
(interactive)
|
|
(if (or (and (boundp 'zmacs-region-active-p) zmacs-region-active-p)
|
|
(and (boundp 'transient-mark-mode) transient-mark-mode mark-active))
|
|
(save-excursion
|
|
(goto-char (point))
|
|
(insert "*")
|
|
(goto-char (mark))
|
|
(insert "*"))
|
|
(insert "\n%%\n")
|
|
(insert "% *BOLD TEXT*\n")
|
|
(backward-char 2)))
|
|
|
|
|
|
(defun matlab-insert-bold-text ()
|
|
(interactive)
|
|
(insert "%%\n")
|
|
(insert "% *BOLD TEXT*\n")
|
|
(forward-line -1)
|
|
(forward-char 2))
|
|
|
|
(defun matlab-insert-monospaces-text ()
|
|
(interactive)
|
|
(insert "%%\n")
|
|
(insert "% |MONOSPACED TEXT|\n")
|
|
(forward-line -1)
|
|
(forward-char 2))
|
|
|
|
|
|
(defun matlab-insert-preformated-text ()
|
|
(interactive)
|
|
(insert "%%\n")
|
|
(insert "%\n")
|
|
(insert "% PREFORMATTED\n")
|
|
(insert "% TEXT\n")
|
|
(insert "% \n")
|
|
(forward-line -3)
|
|
(forward-char 3))
|
|
|
|
(defun matlab-insert-equation ()
|
|
(interactive)
|
|
(insert "%%\n")
|
|
(insert "% \n")
|
|
(insert "% $$e^{\pi i} + 1 = 0$$\n")
|
|
(insert "% \n")
|
|
(forward-line -2)
|
|
(forward-char 4))
|
|
|
|
|
|
(defun matlab-insert-bullet-list ()
|
|
(interactive)
|
|
(insert "%%\n")
|
|
(insert "% \n")
|
|
(insert "% * ITEM1\n")
|
|
(insert "% * ITEM2\n")
|
|
(insert "% \n")
|
|
(forward-line -3)
|
|
(forward-char 4))
|
|
|
|
|
|
|
|
|
|
(defun matlab-write-region (start end)
|
|
(interactive "r")
|
|
(write-region start end (expand-file-name matlab-temp-region-file) nil nil nil nil)
|
|
(find-file matlab-temp-region-file))
|
|
|
|
|
|
(defun matlab-write-region-novisit (start end)
|
|
(interactive "r")
|
|
(write-region start end (expand-file-name matlab-temp-region-file) nil nil nil nil))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(defun matlab-publish-region (start end ch)
|
|
(interactive "r\nc1: LaTeX, 2: HTML ")
|
|
(setq ch (downcase ch))
|
|
(write-region start end (expand-file-name matlab-temp-region-file) nil nil nil nil)
|
|
(call-interactively (cond ((eql ch ?1) #'matlab-publish-region-latex)
|
|
((eql ch ?2) #'matlab-publish-region-html)
|
|
(t (error 'args-out-of-range '(1 2 ch))))))
|
|
|
|
|
|
|
|
(defun matlab-publish-region-latex ()
|
|
(interactive)
|
|
(matlab-shell-run-command (format "publish('%s','latex')" matlab-temp-region-file))
|
|
(if matlab-show-matlab-shell
|
|
(matlab-show-matlab-shell-buffer)))
|
|
|
|
|
|
|
|
(defun matlab-publish-region-html ()
|
|
(interactive)
|
|
(matlab-shell-run-command (format "publish('%s','html')" matlab-temp-region-file))
|
|
(if matlab-show-matlab-shell
|
|
(matlab-show-matlab-shell-buffer)))
|
|
|
|
|
|
|
|
|
|
(provide 'matlab-publish)
|
|
|
|
;;{{{Change log:
|
|
|
|
;; $Id$
|
|
;; $Log$
|
|
;; Revision 1.1 2009-07-06 19:59:10 zappo
|
|
;; Utilities for editing MATLAB files for publishing
|
|
;;
|
|
;; Revision 1.9 2009/03/08 09:38:31 oub
|
|
;; * matlab-publish.el (matlab-select-environment): change function
|
|
;; slightly
|
|
;; (matlab-insert-section): new function
|
|
;;
|
|
;; Revision 1.8 2009/03/07 13:54:57 oub
|
|
;; (matlab-write-region-novisit): New function
|
|
;; (matlab-publish-region-old): new function
|
|
;; (matlab-publish-region): New function
|
|
;; (matlab-publish-region-latex): new function
|
|
;; (matlab-publish-region-html): new function
|
|
;;
|
|
;; Revision 1.7 2009/03/07 13:26:55 oub
|
|
;; (matlab-show-matlab-shell): New variable
|
|
;; (matlab-publish-file-latex): add
|
|
;; (if matlab-show-matlab-shell
|
|
;; (matlab-show-matlab-shell-buffer)))
|
|
;;
|
|
;; Revision 1.6 2009/03/07 11:00:04 oub
|
|
;; * matlab-publish.el (matlab-boldify): Modify the function.
|
|
;;
|
|
;; Revision 1.5 2009/03/06 14:24:47 oub
|
|
;; * matlab-publish.el (matlab-temp-region-file): new variable
|
|
;; (matlab-write-region): New function
|
|
;;
|
|
;; Revision 1.4 2009/02/26 16:18:23 oub
|
|
;; modifiy the insert functions in order that the jump to the text where
|
|
;; new stuff has to be inserted.
|
|
;;
|
|
;; Revision 1.3 2009/02/26 16:06:08 oub
|
|
;; (defun matlab-select-environment (ch)
|
|
;; (interactive "c1: title, 2: descr, 3: bold:, 4:mono, 5:pre, 6:equation, 7:list ")
|
|
;; (setq ch (downcase ch))
|
|
;; (call-interactively (cond ((eql ch ?1) #'matlab-insert-title)
|
|
;; ((eql ch ?2) #'matlab-insert-description-text)
|
|
;; ((eql ch ?3) #'matlab-insert-bold-text)
|
|
;; ((eql ch ?4) #'matlab-insert-monospaces-text)
|
|
;; ((eql ch ?5) #'matlab-insert-preformated-text)
|
|
;; ((eql ch ?6) #'matlab-insert-equation)
|
|
;; ((eql ch ?7) #'matlab-insert-bullet-list)
|
|
;; (t (error 'args-out-of-range '(1 2 3 5 6 7 ch))))))
|
|
;;
|
|
;; Revision 1.2 2009/02/26 11:24:17 oub
|
|
;; New functions
|
|
;; (defun matlab-insert-title ()
|
|
;;
|
|
;; (defun matlab-insert-description-text ()
|
|
;;
|
|
;;
|
|
;; (defun matlab-insert-bold-text ()
|
|
;;
|
|
;;
|
|
;; (defun matlab-insert-monospaces-text ()
|
|
;;
|
|
;;
|
|
;;
|
|
;; (defun matlab-insert-preformated-text ()
|
|
;;
|
|
;;
|
|
;; (defun matlab-insert-equation ()
|
|
;;
|
|
;;
|
|
;; (defun matlab-insert-bullet-list ()
|
|
;;
|
|
;; Revision 1.1 2009/02/26 11:15:02 oub
|
|
;; Initial revision
|
|
;;
|
|
|
|
;;}}}
|
|
|
|
(provide 'matlab-publish)
|
|
|
|
;;; matlab-publish.el ends here
|