From 39e87bafd8a4de55ae515bb2c1fe8ef181282ced Mon Sep 17 00:00:00 2001
From: "Michael W. Olson" <mwolson@gnu.org>
Date: Fri, 17 Aug 2007 09:09:08 -0400
Subject: [PATCH] muse-xml: Add support for <cite>

* etc/muse.rnc (cite): Add "type" attribute.

* lisp/muse-xml.el (muse-xml-markup-strings): Mark up citations as <cite
  type="something">.  We'll leave it to the post processing tools to
  interpret that.
---
 ChangeLog        | 4 ++++
 etc/muse.rnc     | 4 +++-
 lisp/muse-xml.el | 8 ++++----
 3 files changed, 11 insertions(+), 5 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 7b6f2a2..f5fae95 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,10 @@
 
 	* etc/muse.rnc: Add the <cite> tag.
 
+	* lisp/muse-xml.el (muse-xml-markup-strings): Mark up citations as
+	<cite type="something">.  We'll leave it to the post processing
+	tools to interpret that.
+
 2007-08-16  Michael Olson  <mwolson@gnu.org>
 
 	* Release Emacs Muse 3.10.
diff --git a/etc/muse.rnc b/etc/muse.rnc
index 50c40d7..265460f 100644
--- a/etc/muse.rnc
+++ b/etc/muse.rnc
@@ -219,7 +219,9 @@ muse.element.format = element format {
 
   ## cite element
   ## used for citing sources
-muse.element.cite = element cite { text }?
+muse.element.cite = element cite {
+   muse.attribute.type?
+   & text }?
 
   ## code element
   ## used for small pieces of monospace text, like commands
diff --git a/lisp/muse-xml.el b/lisp/muse-xml.el
index c7c0c07..99b9916 100644
--- a/lisp/muse-xml.el
+++ b/lisp/muse-xml.el
@@ -167,10 +167,10 @@ For more on the structure of this list, see
     (end-center      . "\n</format></p>")
     (begin-quote     . "<blockquote>\n")
     (end-quote       . "\n</blockquote>")
-    (begin-cite      . "")
-    (begin-cite-author . "")
-    (begin-cite-year . "")
-    (end-cite        . "")
+    (begin-cite      . "<cite>")
+    (begin-cite-author . "<cite type=\"author\">")
+    (begin-cite-year . "<cite type=\"year\">")
+    (end-cite        . "</cite>")
     (begin-quote-item . "<p>")
     (end-quote-item  . "</p>")
     (begin-uli       . "<list type=\"unordered\">\n")
-- 
2.11.4.GIT