From 57366f385a2f1f35bbe741d7542096db81368c72 Mon Sep 17 00:00:00 2001
From: Tom Willemsen
Date: Thu, 17 Mar 2011 11:23:07 +0100
Subject: Big changes, last one before I wipe it all.
* Added muse
* Added graphviz-dot-mode
* Remove all trailing whitespace on save.
This is the last commit I'm going to do before throwing it all away
again.
---
emacs.d/elisp/muse/muse-docbook.el | 352 +++++++++++++++++++++++++++++++++++++
1 file changed, 352 insertions(+)
create mode 100644 emacs.d/elisp/muse/muse-docbook.el
(limited to 'emacs.d/elisp/muse/muse-docbook.el')
diff --git a/emacs.d/elisp/muse/muse-docbook.el b/emacs.d/elisp/muse/muse-docbook.el
new file mode 100644
index 0000000..a54089f
--- /dev/null
+++ b/emacs.d/elisp/muse/muse-docbook.el
@@ -0,0 +1,352 @@
+;;; muse-docbook.el --- publish DocBook files
+
+;; 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:
+
+;;; Contributors:
+
+;; Dale P. Smith (dpsm AT en DOT com) improved the markup
+;; significantly and made many valuable suggestions.
+
+;;; Code:
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;
+;; Muse DocBook XML Publishing
+;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(require 'muse-publish)
+(require 'muse-regexps)
+(require 'muse-xml-common)
+
+(defgroup muse-docbook nil
+ "Options controlling the behavior of Muse DocBook XML publishing.
+See `muse-docbook' for more information."
+ :group 'muse-publish)
+
+(defcustom muse-docbook-extension ".xml"
+ "Default file extension for publishing DocBook XML files."
+ :type 'string
+ :group 'muse-docbook)
+
+(defcustom muse-docbook-header
+ "
+ (muse-docbook-encoding)\"?>
+(muse-docbook-entities)>
+
+
+ (muse-publishing-directive \"title\")
+ (muse-docbook-get-author
+ (muse-publishing-directive \"author\"))
+ (muse-publishing-directive \"date\")
+
+ \n"
+ "Header used for publishing DocBook XML files.
+This may be text or a filename."
+ :type 'string
+ :group 'muse-docbook)
+
+(defcustom muse-docbook-footer "
+
+(muse-docbook-bibliography)\n"
+ "Footer used for publishing DocBook XML files.
+This may be text or a filename."
+ :type 'string
+ :group 'muse-docbook)
+
+(defcustom muse-docbook-markup-regexps
+ `(;; Beginning of doc, end of doc, or plain paragraph separator
+ (10000 ,(concat "\\(\\(\n\\(?:[" muse-regexp-blank "]*\n\\)*"
+ "\\([" muse-regexp-blank "]*\n\\)\\)"
+ "\\|\\`\\s-*\\|\\s-*\\'\\)")
+ 3 muse-docbook-markup-paragraph))
+ "List of markup rules for publishing a Muse page to DocBook XML.
+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-docbook)
+
+(defcustom muse-docbook-markup-functions
+ '((anchor . muse-xml-markup-anchor)
+ (table . muse-xml-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-docbook)
+
+(defcustom muse-docbook-markup-strings
+ '((image-with-desc . "
+
+
+
+