From 82b8ca280905ea284730f228ae082c42c348e818 Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Thu, 17 Mar 2011 11:36:56 +0100 Subject: Big emacs cleanup, must be lighter --- emacs.d/elisp/muse/muse-import-latex.el | 149 -------------------------------- 1 file changed, 149 deletions(-) delete mode 100644 emacs.d/elisp/muse/muse-import-latex.el (limited to 'emacs.d/elisp/muse/muse-import-latex.el') diff --git a/emacs.d/elisp/muse/muse-import-latex.el b/emacs.d/elisp/muse/muse-import-latex.el deleted file mode 100644 index 5297131..0000000 --- a/emacs.d/elisp/muse/muse-import-latex.el +++ /dev/null @@ -1,149 +0,0 @@ -;;; muse-import-latex.el --- convert a LaTex file into a Muse file - -;; Copyright (C) 2004, 2005, 2006, 2007, 2008, 2009, 2010 -;; Free Software Foundation, Inc. - -;; This file is part of Emacs Muse. It is not part of GNU Emacs. - -;; Emacs Muse 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. - -;; Emacs Muse 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. - -;; You should have received a copy of the GNU General Public License -;; along with Emacs Muse; see the file COPYING. If not, write to the -;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, -;; Boston, MA 02110-1301, USA. - -;;; Commentary: - -;; Helper commands for converting a LaTeX file into a Muse file. - -;;; Contributors: - -;;; Code: - -(require 'muse) -(require 'muse-regexps) - -(defun muse-i-l-write-citation (note author citation pages) - (save-excursion - (goto-char (point-max)) - (if (= note 1) - (insert "\nFootnotes:\n\n")) - (let ((beg (point))) - (insert "\n[" (number-to-string note) "] " author) - (if (and citation pages) - (insert ", " citation ", " pages)) - (insert "\n") - (goto-char beg) - (while (re-search-forward (concat "p.\\\\[" muse-regexp-blank "\n]+") - nil t) - (replace-match "p.")) - (goto-char beg) - (while (re-search-forward "--" nil t) - (replace-match "-"))))) - -(defun muse-i-l-write-footnote (note text) - (save-excursion - (goto-char (point-max)) - (if (= note 1) - (insert "\nFootnotes:\n\n")) - (insert "\n[" (number-to-string note) "] " text ?\n))) - -;;;###autoload -(defun muse-import-latex () - (interactive) - (goto-char (point-min)) - (while (not (eobp)) - (cond - ((or (looking-at "^\\\\documentclass") - (looking-at "^\\\\input") - (looking-at "^\\\\begin{document}") - (looking-at "^\\\\end{document}") - (looking-at "^\\\\author") - (looking-at "^\\\\\\(med\\|big\\|small\\)skip") - (looking-at "^\\\\maketitle")) - (delete-region (point) (muse-line-end-position))) - ((looking-at "^\\\\title{\\(.+\\)}") - (delete-region (match-end 1) (muse-line-end-position)) - (delete-region (point) (match-beginning 1)) - (insert "#title "))) - (forward-line)) - (goto-char (point-min)) - (while (re-search-forward "\\\\\\(l\\)?dots{}" nil t) - (replace-match (concat (and (string= (match-string 1) "l") ".") - "..."))) - (goto-char (point-min)) - (while (re-search-forward "\\(``\\|''\\)" nil t) - (replace-match "\"")) - (goto-char (point-min)) - (while (re-search-forward "---" nil t) - (replace-match " -- ")) - (goto-char (point-min)) - (while (re-search-forward "\\\\tableofcontents" nil t) - (replace-match "")) - (goto-char (point-min)) - (while (re-search-forward "\\\\\\\\" nil t) - (replace-match "")) - (goto-char (point-min)) - (while (re-search-forward "\\\\\\(sub\\)?section{\\([^}]+\\)}" nil t) - (replace-match (concat (if (string= (match-string 1) "sub") - "**" "*") - " " (match-string 2)))) - (goto-char (point-min)) - (while (re-search-forward "\\\\\\(begin\\|end\\){verse}" nil t) - (replace-match (concat "<" (if (string= (match-string 1) "end") "/") - "verse>"))) - (goto-char (point-min)) - (while (re-search-forward "\\\\\\(begin\\|end\\){quote}\n" nil t) - (replace-match "")) - (goto-char (point-min)) - (while (re-search-forward - "\\\\\\(emph\\|textbf\\){\\([^}]+?\\)\\(\\\\/\\)?}" nil t) - (replace-match - (if (string= (match-string 1) "emph") "*\\2*" "**\\2**"))) - (let ((footnote-index 1)) - (goto-char (point-min)) - (while (re-search-forward - (concat "\\\\\\(q\\)?\\(footnote\\|excerpt\\)\\(np\\)?" - "\\({\\([^}]+\\)}\\)?" - "\\({\\([^}]+\\)}{\\([^}]+\\)}\\)?{\\([^}]+\\)}") nil t) - (let ((beg (match-beginning 0)) - (end (match-end 0))) - (unless (string= (match-string 2) "footnote") - (if (null (match-string 1)) - (insert " " (match-string 9)) - (let ((b (point)) e) - (insert "\"" (match-string 9) "\"") - (setq e (point-marker)) - (save-match-data - (save-excursion - (goto-char b) - (while (< (point) e) - (if (looking-at "\\s-+") - (delete-region (match-beginning 0) - (match-end 0))) - (forward-line)))) - (set-marker e nil)))) - (insert "[" (number-to-string footnote-index) "]") - (if (string= (match-string 2) "footnote") - (muse-i-l-write-footnote footnote-index (match-string 9)) - (muse-i-l-write-citation footnote-index (match-string 5) - (match-string 7) (match-string 8))) - (setq footnote-index (1+ footnote-index)) - (delete-region beg end)))) - (goto-char (point-min)) - (while (looking-at "\n") (delete-char 1)) - (goto-char (point-min)) - (while (re-search-forward "\n\n+" nil t) - (replace-match "\n\n"))) - -(provide 'muse-import-latex) - -;;; muse-import-latex.el ends here -- cgit v1.2.3-54-g00ecf