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-context.el | 458 -------------------------------------
1 file changed, 458 deletions(-)
delete mode 100644 emacs.d/elisp/muse/muse-context.el
(limited to 'emacs.d/elisp/muse/muse-context.el')
diff --git a/emacs.d/elisp/muse/muse-context.el b/emacs.d/elisp/muse/muse-context.el
deleted file mode 100644
index 45968b0..0000000
--- a/emacs.d/elisp/muse/muse-context.el
+++ /dev/null
@@ -1,458 +0,0 @@
-;;; muse-context.el --- publish entries in ConTeXt or PDF format
-
-;; Copyright (C) 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
-
-;; Author: Jean Magnan de Bornier (jean@bornier.net)
-;; Created: 16-Apr-2007
-
-;; 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.
-
-;; This file when loaded allows you to publish .muse files as ConTeXt
-;; files or as pdf files, using respectively the "context" and
-;; "context-pdf" styles. It is far from being perfect, so any feedback
-;; will be welcome and any mistake hopefully fixed.
-
-;;; Author:
-
-;; Jean Magnan de Bornier, who based this file on muse-latex.el and
-;; made the context, context-pdf, context-slides, and
-;; context-slides-pdf Muse publishing styles.
-
-;; 16 Avril 2007
-
-;;; Code:
-
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;
-;; Muse ConTeXt Publishing
-;;
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
-(require 'muse-publish)
-
-(defgroup muse-context nil
- "Rules for marking up a Muse file as a ConTeXt article."
- :group 'muse-publish)
-
-(defcustom muse-context-extension ".tex"
- "Default file extension for publishing ConTeXt files."
- :type 'string
- :group 'muse-context)
-
-(defcustom muse-context-pdf-extension ".pdf"
- "Default file extension for publishing ConTeXt files to PDF."
- :type 'string
- :group 'muse-context)
-
-(defcustom muse-context-pdf-program "texexec --pdf"
- "The program that is called to generate PDF content from ConTeXt content."
- :type 'string
- :group 'muse-context)
-
-(defcustom muse-context-pdf-cruft '(".pgf" ".tmp" ".tui" ".tuo" ".toc" ".log")
- "Extensions of files to remove after generating PDF output successfully."
- :type 'string
- :group 'muse-context)
-
-(defcustom muse-context-header
- "\\setupinteraction [state=start]
-\\usemodule[tikz]
-\\usemodule[bib]\n
-(muse-context-setup-bibliography)
- \\setuppublications[]\n
-\\setuppublicationlist[]\n\\setupcite[]\n
-\\starttext
-\\startalignment[center]
- \\blank[2*big]
- {\\tfd (muse-publishing-directive \"title\")}
- \\blank[3*medium]
- {\\tfa (muse-publishing-directive \"author\")}
- \\blank[2*medium]
- {\\tfa (muse-publishing-directive \"date\")}
- \\blank[3*medium]
-\\stopalignment
-
-(and muse-publish-generate-contents
- (not muse-context-permit-contents-tag)
- \"\\\\placecontent\n\\\\page[yes]\")\n\n"
- "Header used for publishing ConTeXt files. This may be text or a filename."
- :type 'string
- :group 'muse-context)
-
-(defcustom muse-context-footer "(muse-context-bibliography)
-\\stoptext\n"
- "Footer used for publishing ConTeXt files. This may be text or a filename."
- :type 'string
- :group 'muse-context)
-
-(defcustom muse-context-markup-regexps
- `(;; numeric ranges
- (10000 "\\([0-9]+\\)-\\([0-9]+\\)" 0 "\\1--\\2")
-
- ;; be careful of closing quote pairs
- (10100 "\"'" 0 "\"\\\\-'"))
- "List of markup regexps for identifying regions in a Muse page.
-For more on the structure of this list, see `muse-publish-markup-regexps'."
- :type '(repeat (choice
- (list :tag "Markup rule"
- integer
- (choice regexp symbol)
- integer
- (choice string function symbol))
- function))
- :group 'muse-context)
-
-(defcustom muse-context-markup-functions
- '((table . muse-context-markup-table))
- "An alist of style types to custom functions for that kind of text.
-For more on the structure of this list, see
-`muse-publish-markup-functions'."
- :type '(alist :key-type symbol :value-type function)
- :group 'muse-context)
-
-(defcustom muse-context-markup-strings
- '((image-with-desc . "\\placefigure[][]{%3%}{\\externalfigure[%1%.%2%]}")
- (image . "\\placefigure[][]{}{\\externalfigure[%s.%s]}")
- (image-link . "\\useURL[aa][%s][][%1%] \\from[aa]")
- (anchor-ref . "\\goto{%2%}{}[%1%]")
- (url . "\\useURL[aa][%s][][%s] \\from[aa]")
- (url-and-desc . "\\useURL[bb][%s][][%s]\\from[bb]\\footnote{%1%}")
- (link . "\\goto{%2%}[program(%1%)]\\footnote{%1%}")
- (link-and-anchor . "\\useexternaldocument[%4%][%4%][] \\at{%3%, page}{}[%4%::%2%]\\footnote{%1%}")
- (email-addr . "\\useURL[mail][mailto:%s][][%s]\\from[mail]")
- (anchor . "\\reference[%s] ")
- (emdash . "---")
- (comment-begin . "\\doifmode{comment}{")
- (comment-end . "}")
- (rule . "\\blank[medium]\\hrule\\blank[medium]")
- (no-break-space . "~")
- (enddots . "\\ldots ")
- (dots . "\\dots ")
- (part . "\\part{")
- (part-end . "}")
- (chapter . "\\chapter{")
- (chapter-end . "}")
- (section . "\\section{")
- (section-end . "}")
- (subsection . "\\subsection{")
- (subsection-end . "}")
- (subsubsection . "\\subsubsection{")
- (subsubsection-end . "}")
- (section-other . "\\subsubsubject{")
- (section-other-end . "}")
- (footnote . "\\footnote{")
- (footnote-end . "}")
- (footnotetext . "\\footnotetext[%d]{")
- (begin-underline . "\\underbar{")
- (end-underline . "}")
- (begin-literal . "\\type{")
- (end-literal . "}")
- (begin-emph . "{\\em ")
- (end-emph . "}")
- (begin-more-emph . "{\\bf ")
- (end-more-emph . "}")
- (begin-most-emph . "{\\bf {\\em ")
- (end-most-emph . "}}")
- (begin-example . "\\starttyping")
- (end-example . "\\stoptyping")
- (begin-center . "\\startalignment[center]\n")
- (end-center . "\n\\stopalignment")
- (begin-quote . "\\startquotation\n")
- (end-quote . "\n\\stopquotation")
- (begin-cite . "\\cite[authoryear][")
- (begin-cite-author . "\\cite[author][")
- (begin-cite-year . "\\cite[year][")
- (end-cite . "]")
- (begin-uli . "\\startitemize\n")
- (end-uli . "\n\\stopitemize")
- (begin-uli-item . "\\item ")
- (begin-oli . "\\startitemize[n]\n")
- (end-oli . "\n\\stopitemize")
- (begin-oli-item . "\\item ")
- (begin-dl . "\\startitemize\n")
- (end-dl . "\n\\stopitemize")
- (begin-ddt . "\\head ")
- (end-ddt . "\n")
- (begin-verse . "\\blank[big]")
- (end-verse-line . "\\par")
- (verse-space . "\\fixedspaces ~~")
- (end-verse . "\\blank[big]"))
- "Strings used for marking up text.
-These cover the most basic kinds of markup, the handling of which
-differs little between the various styles."
- :type '(alist :key-type symbol :value-type string)
- :group 'muse-context)
-
-(defcustom muse-context-slides-header
- "\\usemodule[(if (string-equal (muse-publishing-directive \"module\") nil) \"pre-01\" (muse-publishing-directive \"module\"))]
-\\usemodule[tikz]
-\\usemodule[newmat]
-\\setupinteraction [state=start]
-\\starttext
-\\TitlePage { (muse-publishing-directive \"title\")
-\\blank[3*medium]
-\\tfa (muse-publishing-directive \"author\")
- \\blank[2*medium]
- \\tfa (muse-publishing-directive \"date\")}"
- "Header for publishing a presentation (slides) using ConTeXt.
-Any of the predefined modules, which are available in the
-tex/context/base directory, can be used by writing a \"module\"
-directive at the top of the muse file; if no such directive is
-provided, module pre-01 is used. Alternatively, you can use your
-own style (\"mystyle\", in this example) by replacing
-\"\\usemodule[]\" with \"\\input mystyle\".
-
-This may be text or a filename."
- :type 'string
- :group 'muse-context)
-
-(defcustom muse-context-slides-markup-strings
- '((section . "\\Topic {")
- (subsection . "\\page \n{\\bf ")
- (subsubsection . "{\\em "))
- "Strings used for marking up text in ConTeXt slides."
- :type '(alist :key-type symbol :value-type string)
- :group 'muse-context)
-
-(defcustom muse-context-markup-specials-document
- '((?\\ . "\\textbackslash{}")
- (?\_ . "\\textunderscore{}")
- (?\< . "\\switchtobodyfont[small]")
- (?\> . "\\switchtobodyfont[big]")
- (?^ . "\\^")
- (?\~ . "\\~")
- (?\@ . "\\@")
- (?\$ . "\\$")
- (?\% . "\\%")
- (?\{ . "\\{")
- (?\} . "\\}")
- (?\& . "\\&")
- (?\# . "\\#"))
- "A table of characters which must be represented specially.
-These are applied to the entire document, sans already-escaped
-regions."
- :type '(alist :key-type character :value-type string)
- :group 'muse-context)
-
-(defcustom muse-context-markup-specials-example
- '()
- "A table of characters which must be represented specially.
-These are applied to regions.
-
-With the default interpretation of regions, no specials
-need to be escaped."
- :type '(alist :key-type character :value-type string)
- :group 'muse-context)
-
-(defcustom muse-context-markup-specials-literal
- '()
- "A table of characters which must be represented specially.
-This applies to =monospaced text= and regions."
- :type '(alist :key-type character :value-type string)
- :group 'muse-context)
-
-(defcustom muse-context-markup-specials-url
- '((?\\ . "\\textbackslash")
- (?\_ . "\\_")
- (?\< . "\\<")
- (?\> . "\\>")
- (?\$ . "\\$")
- (?\% . "\\%")
- (?\{ . "\\{")
- (?\} . "\\}")
- (?\& . "\\&")
- (?\# . "\\#"))
- "A table of characters which must be represented specially.
-These are applied to URLs."
- :type '(alist :key-type character :value-type string)
- :group 'muse-context)
-
-(defcustom muse-context-markup-specials-image
- '((?\\ . "\\textbackslash") ; cannot find suitable replacement
- (?\< . "\\<")
- (?\> . "\\>")
- (?\$ . "\\$")
- (?\% . "\\%")
- (?\{ . "\\{")
- (?\} . "\\}")
- (?\& . "\\&")
- (?\# . "\\#") ; cannot find suitable replacement
- )
- "A table of characters which must be represented specially.
-These are applied to image filenames."
- :type '(alist :key-type character :value-type string)
- :group 'muse-context)
-
-(defun muse-context-decide-specials (context)
- "Determine the specials to escape, depending on the CONTEXT argument."
- (cond ((memq context '(underline emphasis document url-desc verbatim
- footnote))
- muse-context-markup-specials-document)
- ((eq context 'image)
- muse-context-markup-specials-image)
- ((memq context '(email url))
- muse-context-markup-specials-url)
- ((eq context 'literal)
- muse-context-markup-specials-literal)
- ((eq context 'example)
- muse-context-markup-specials-example)
- (t (error "Invalid context argument '%s' in muse-context" context))))
-
-(defun muse-context-markup-table ()
- (let* ((table-info (muse-publish-table-fields (match-beginning 0)
- (match-end 0)))
- (row-len (car table-info))
- (field-list (cdr table-info)))
- (when table-info
- (muse-insert-markup "\\starttable[|"
- (mapconcat 'symbol-name (make-vector row-len 'l)
- "|") "|]\n \\HL\n \\VL ")
- (dolist (fields field-list)
- (let ((type (car fields)))
- (setq fields (cdr fields))
- (when (= type 3)
- (muse-insert-markup ""))
- (insert (car fields))
- (setq fields (cdr fields))
- (dolist (field fields)
- (muse-insert-markup " \\VL ")
- (insert field))
- (muse-insert-markup "\\VL\\NR\n \\HL\n \\VL ")
- (when (= type 2)
- (muse-insert-markup " "))))
- (muse-insert-markup "\\stoptable\n")
- (while (search-backward "VL \\stoptable" nil t)
- (replace-match "stoptable" nil t)))))
-
-(defun muse-context-fixup-dquotes ()
- "Fixup double quotes."
- (goto-char (point-min))
- (let ((open t))
- (while (search-forward "\"" nil t)
- (unless (get-text-property (match-beginning 0) 'read-only)
- (when (or (bobp)
- (eq (char-before) ?\n))
- (setq open t))
- (if open
- (progn
- (replace-match "``")
- (setq open nil))
- (replace-match "''")
- (setq open t))))))
-
-(defcustom muse-context-permit-contents-tag nil
- "If nil, ignore tags. Otherwise, insert table of contents.
-
-Most of the time, it is best to have a table of contents on the
-first page, with a new page immediately following. To make this
-work with documents published in both HTML and ConTeXt, we need to
-ignore the tag.
-
-If you don't agree with this, then set this option to non-nil,
-and it will do what you expect."
- :type 'boolean
- :group 'muse-context)
-
-(defun muse-context-fixup-citations ()
- "Replace semicolons in multi-head citations with colons."
- (goto-char (point-min))
- (while (re-search-forward "\\\\cite.?\\[" nil t)
- (let ((start (point))
- (end (re-search-forward "]")))
- (save-restriction
- (narrow-to-region start end)
- (goto-char (point-min))
- (while (re-search-forward ";" nil t)
- (replace-match ","))))))
-
-(defun muse-context-munge-buffer ()
- (muse-context-fixup-dquotes)
- (muse-context-fixup-citations)
- (when (and muse-context-permit-contents-tag
- muse-publish-generate-contents)
- (goto-char (car muse-publish-generate-contents))
- (muse-insert-markup "\\placecontent")))
-
-(defun muse-context-bibliography ()
- (save-excursion
- (goto-char (point-min))
- (if (re-search-forward "\\\\cite.?\\[" nil t)
- "\\completepublications[criterium=all]"
- "")))
-
-(defun muse-context-setup-bibliography ()
- (save-excursion
- (goto-char (point-min))
- (if (re-search-forward "\\\\cite.?\\[" nil t)
- (concat
- "\\usemodule[bibltx]\n\\setupbibtex [database="
- (muse-publishing-directive "bibsource") "]")
- "")))
-
-(defun muse-context-pdf-browse-file (file)
- (shell-command (concat "open " file)))
-
-(defun muse-context-pdf-generate (file output-path final-target)
- (apply
- #'muse-publish-transform-output
- file output-path final-target "PDF"
- (function
- (lambda (file output-path)
- (let* ((fnd (file-name-directory output-path))
- (command (format "%s \"%s\""
- muse-context-pdf-program
- (file-relative-name file fnd)))
- (times 0)
- (default-directory fnd)
- result)
- ;; XEmacs can sometimes return a non-number result. We'll err
- ;; on the side of caution by continuing to attempt to generate
- ;; the PDF if this happens and treat the final result as
- ;; successful.
- (while (and (< times 2)
- (or (not (numberp result))
- (not (eq result 0))
- ;; table of contents takes 2 passes
-;; (file-readable-p
-;; (muse-replace-regexp-in-string
-;; "\\.tex\\'" ".toc" file t t))
- ))
- (setq result (shell-command command)
- times (1+ times)))
- (if (or (not (numberp result))
- (eq result 0))
- t
- nil))))
- muse-context-pdf-cruft))
-
-(muse-define-style "context"
- :suffix 'muse-context-extension
- :regexps 'muse-context-markup-regexps
- :functions 'muse-context-markup-functions
- :strings 'muse-context-markup-strings
- :specials 'muse-context-decide-specials
- :after 'muse-context-munge-buffer
- :header 'muse-context-header
- :footer 'muse-context-footer
- :browser 'find-file)
-
-(muse-derive-style "context-pdf" "context"
- :final 'muse-context-pdf-generate
- :browser 'muse-context-pdf-browse-file
- :link-suffix 'muse-context-pdf-extension
- :osuffix 'muse-context-pdf-extension)
-
-(muse-derive-style "context-slides" "context"
- :header 'muse-context-slides-header
- :strings 'muse-context-slides-markup-strings)
-
-(muse-derive-style "context-slides-pdf" "context-pdf"
- :header 'muse-context-slides-header
- :strings 'muse-context-slides-markup-strings)
-
-(provide 'muse-context)
-
-;;; muse-context.el ends here
--
cgit v1.2.3-54-g00ecf