Merge branch 'jats'

9 files changed, 2683 insertions, 6 deletions

diff --git a/COPYRIGHT b/COPYRIGHT
index b52c4267e..c7b0f58f7 100644
--- a/COPYRIGHT
+++ b/COPYRIGHT
@@ -106,3 +106,7 @@ NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
 LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
 OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
 WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+------------------------------------------------------------------------
+The template pandoc.jats is Copyright 2013--15 Martin Fenner,
+released under GPL version 2 or later.
diff --git a/MANUAL.txt b/MANUAL.txt
index e11e57459..f0e951f75 100644
--- a/MANUAL.txt
+++ b/MANUAL.txt
@@ -291,9 +291,9 @@ General options
     (LaTeX), `beamer` (LaTeX beamer slide show), `context` (ConTeXt),
     `man` (groff man), `mediawiki` (MediaWiki markup),
     `dokuwiki` (DokuWiki markup), `zimwiki` (ZimWiki markup),
-    `textile` (Textile), `org` (Emacs Org mode),
-    `texinfo` (GNU Texinfo), `opml` (OPML), `docbook` or `docbook4`
-    (DocBook 4), `docbook5` (DocBook 5), `opendocument` (OpenDocument),
+    `textile` (Textile), `org` (Emacs Org mode), `texinfo` (GNU Texinfo),
+    `opml` (OPML), `docbook` or `docbook4` (DocBook 4), `docbook5`
+    (DocBook 5), `jats` (JATS XML), `opendocument` (OpenDocument),
     `odt` (OpenOffice text document), `docx` (Word docx), `haddock`
     (Haddock markup), `rtf` (rich text format), `epub2` (EPUB v2 book),
     `epub` or `epub3` (EPUB v3), `fb2` (FictionBook2 e-book),
@@ -616,8 +616,8 @@ General writer options
 :   Include an automatically generated table of contents (or, in
     the case of `latex`, `context`, `docx`, `rst`, or `ms`,
     an instruction to create one) in the output document. This
-    option has no effect on `man`, `docbook4`, `docbook5`, `slidy`,
-    `slideous`, `s5`, or `odt` output.
+    option has no effect on `man`, `docbook4`, `docbook5`, `jats`,
+    `slidy`, `slideous`, `s5`, or `odt` output.
 
 `--toc-depth=`*NUMBER*
 
@@ -1000,7 +1000,7 @@ Math rendering in HTML
 
 `--mathml`
 
-:   Convert TeX math to [MathML] (in `docbook4`, `docbook5`,
+:   Convert TeX math to [MathML] (in `docbook4`, `docbook5`, `jats`,
     `html4` and `html5`).
 
 `--jsmath`[`=`*URL*]
diff --git a/data/templates/default.jats b/data/templates/default.jats
new file mode 100644
index 000000000..37f8f16a8
--- /dev/null
+++ b/data/templates/default.jats
@@ -0,0 +1,193 @@
+<?xml version="1.0" encoding="utf-8" ?>
+<!DOCTYPE article PUBLIC "-//NLM//DTD JATS (Z39.96) Journal Publishing DTD v1.0 20120330//EN"
+                  "JATS-journalpublishing1.dtd">
+$if(article.type)$
+<article xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:xlink="http://www.w3.org/1999/xlink" dtd-version="1.0" article-type="$article.type$">
+$else$
+<article xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:xlink="http://www.w3.org/1999/xlink" dtd-version="1.0" article-type="other">
+$endif$
+<front>
+<journal-meta>
+$if(journal.publisher-id)$
+<journal-id journal-id-type="publisher-id">$journal.publisher-id$</journal-id>
+$endif$
+$if(journal.nlm-ta)$
+<journal-id journal-id-type="nlm-ta">$journal.nlm-ta$</journal-id>
+$endif$
+$if(journal.pmc)$
+<journal-id journal-id-type="pmc">$journal.pmc$</journal-id>
+$endif$
+<journal-title-group>
+$if(journal.title)$
+<journal-title>$journal.title$</journal-title>
+$endif$
+$if(journal.abbrev-title)$
+<abbrev-journal-title>$journal.abbrev-title$</abbrev-journal-title>
+$endif$
+</journal-title-group>
+$if(journal.pissn)$
+<issn pub-type="ppub">$journal.pissn$</issn>
+$endif$
+$if(journal.eissn)$
+<issn pub-type="epub">$journal.eissn$</issn>
+$endif$
+<publisher>
+<publisher-name>$journal.publisher-name$</publisher-name>
+$if(journal.publisher-loc)$
+<publisher-loc>$journal.publisher-loc$</publisher-loc>
+$endif$
+</publisher>
+</journal-meta>
+<article-meta>
+$if(article.publisher-id)$
+<article-id pub-id-type="publisher-id">$article.publisher-id$</article-id>
+$endif$
+$if(article.doi)$
+<article-id pub-id-type="doi">$article.doi$</article-id>
+$endif$
+$if(article.pmid)$
+<article-id pub-id-type="pmid">$article.pmid$</article-id>
+$endif$
+$if(article.pmcid)$
+<article-id pub-id-type="pmcid">$article.pmcid$</article-id>
+$endif$
+$if(article.art-access-id)$
+<article-id pub-id-type="art-access-id">$article.art-access-id$</article-id>
+$endif$
+$if(article.heading)$
+<article-categories>
+<subj-group subj-group-type="heading">
+<subject>$article.heading$</subject>
+</subj-group>
+$if(article.categories)$
+<subj-group subj-group-type="categories">
+$for(article.categories)$
+<subject>$article.categories$</subject>
+$endfor$
+</subj-group>
+$endif$
+</article-categories>
+$endif$
+$if(title)$
+<title-group>
+<article-title>$title$</article-title>
+</title-group>
+$endif$
+$if(author)$
+<contrib-group>
+$for(author)$
+<contrib contrib-type="author">
+$if(author.orcid)$
+<contrib-id contrib-id-type="orcid">$author.orcid$</contrib-id>
+$endif$
+<name>
+$if(author.surname)$
+<surname>$author.surname$</surname>
+<given-names>$author.given-names$</given-names>
+$else$
+<string-name>$author$</string-name>
+$endif$
+</name>
+$if(author.email)$
+<email>$author.email$</email>
+$endif$
+$if(author.aff-id)$
+<xref ref-type="aff" rid="aff-$contrib.aff-id$"/>
+$endif$
+$if(author.cor-id)$
+<xref ref-type="corresp" rid="cor-$author.cor-id$"><sup>*</sup></xref>
+$endif$
+</contrib>
+$endfor$
+</contrib-group>
+$endif$
+$if(article.author-notes)$
+<author-notes>
+$if(article.author-notes.corresp)$
+$for(article.author-notes.corresp)$
+<corresp id="cor-$article.author-notes.corresp.id$">* E-mail: <email>$article.author-notes.corresp.email$</email></corresp>
+$endfor$
+$endif$
+$if(article.author-notes.conflict)$
+<fn fn-type="conflict"><p>$article.author-notes.conflict$</p></fn>
+$endif$
+$if(article.author-notes.con)$
+<fn fn-type="con"><p>$article.author-notes.con$</p></fn>
+$endif$
+</author-notes>
+$endif$
+$if(date)$
+$if(date.iso-8601)$
+<pub-date pub-type="epub" iso-8601-date="$date.iso-8601$">
+$else$
+<pub-date pub-type="epub">
+$endif$
+$if(date.day)$
+<day>$pub-date.day$</day>
+$endif$
+$if(date.month)$
+<month>$pub-date.month$</month>
+$endif$
+$if(date.year)$
+<year>$pub-date.year$</year>
+$else$
+<string-date>$date$</string-date>
+$endif$
+</pub-date>
+$endif$
+$if(article.volume)$
+<volume>$article.volume$</volume>
+$endif$
+$if(article.issue)$
+<issue>$article.issue$</issue>
+$endif$
+$if(article.fpage)$
+<fpage>$article.fpage$</fpage>
+$endif$
+$if(article.lpage)$
+<lpage>$article.lpage$</lpage>
+$endif$
+$if(article.elocation-id)$
+<elocation-id>$article.elocation-id$</elocation-id>
+$endif$
+$if(history)$
+<history>
+</history>
+$endif$
+$if(copyright)$
+<permissions>
+$if(copyright.statement)$
+<copyright-statement>$copyright.statement$</copyright-statement>
+$endif$
+$if(copyright.year)$
+<copyright-year>$copyright.year$</copyright-year>
+$endif$
+$if(copyright.holder)$
+<copyright-holder>$copyright.holder$</copyright-holder>
+$endif$
+$if(copyright.text)$
+<license license-type="$copyright.type$" xlink:href="$copyright.link$">
+<license-p>$copyright.text$</license-p>
+</license>
+</permissions>
+$endif$
+$endif$
+$if(tags)$
+<kwd-group kwd-group-type="author">
+$for(tags)$
+<kwd>$tags$</kwd>
+$endfor$
+</kwd-group>
+$endif$
+$if(article.funding-statement)$
+<funding-group>
+<funding-statement>$article.funding-statement$</funding-statement>
+</funding-group>
+$endif$
+</article-meta>
+$if(notes)$
+<notes>$notes$</notes>
+$endif$
+</front>
+$body$
+</article>
diff --git a/pandoc.cabal b/pandoc.cabal
index 592c308e3..33694dec0 100644
--- a/pandoc.cabal
+++ b/pandoc.cabal
@@ -41,6 +41,7 @@ Data-Files:
                  data/templates/default.html5
                  data/templates/default.docbook4
                  data/templates/default.docbook5
+                 data/templates/default.jats
                  data/templates/default.tei
                  data/templates/default.beamer
                  data/templates/default.opendocument
@@ -158,6 +159,7 @@ Extra-Source-Files:
                  test/tables.context
                  test/tables.docbook4
                  test/tables.docbook5
+                 test/tables.jats
                  test/tables.dokuwiki
                  test/tables.zimwiki
                  test/tables.icml
@@ -186,6 +188,7 @@ Extra-Source-Files:
                  test/writer.context
                  test/writer.docbook4
                  test/writer.docbook5
+                 test/writer.jats
                  test/writer.html4
                  test/writer.html5
                  test/writer.man
@@ -380,6 +383,7 @@ Library
                    Text.Pandoc.Readers.EPUB,
                    Text.Pandoc.Writers.Native,
                    Text.Pandoc.Writers.Docbook,
+                   Text.Pandoc.Writers.JATS,
                    Text.Pandoc.Writers.OPML,
                    Text.Pandoc.Writers.HTML,
                    Text.Pandoc.Writers.ICML,
diff --git a/src/Text/Pandoc.hs b/src/Text/Pandoc.hs
index e77bc6d45..977ad1ab4 100644
--- a/src/Text/Pandoc.hs
+++ b/src/Text/Pandoc.hs
@@ -117,6 +117,7 @@ module Text.Pandoc
                , writeICML
                , writeDocbook4
                , writeDocbook5
+               , writeJATS
                , writeOPML
                , writeOpenDocument
                , writeMan
@@ -182,6 +183,7 @@ import Text.Pandoc.Writers.CommonMark
 import Text.Pandoc.Writers.ConTeXt
 import Text.Pandoc.Writers.Custom
 import Text.Pandoc.Writers.Docbook
+import Text.Pandoc.Writers.JATS
 import Text.Pandoc.Writers.Docx
 import Text.Pandoc.Writers.DokuWiki
 import Text.Pandoc.Writers.EPUB
@@ -287,6 +289,7 @@ writers = [
   ,("docbook"      , StringWriter writeDocbook5)
   ,("docbook4"     , StringWriter writeDocbook4)
   ,("docbook5"     , StringWriter writeDocbook5)
+  ,("jats"         , StringWriter writeJATS)
   ,("opml"         , StringWriter writeOPML)
   ,("opendocument" , StringWriter writeOpenDocument)
   ,("latex"        , StringWriter writeLaTeX)
diff --git a/src/Text/Pandoc/Writers/JATS.hs b/src/Text/Pandoc/Writers/JATS.hs
new file mode 100644
index 000000000..9aaba78e0
--- /dev/null
+++ b/src/Text/Pandoc/Writers/JATS.hs
@@ -0,0 +1,429 @@
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE PatternGuards     #-}
+{-
+Copyright (C) 2006-2015 John MacFarlane <jgm@berkeley.edu>
+
+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 2 of the License, 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.
+
+You should have received a copy of the GNU General Public License
+along with this program; if not, write to the Free Software
+Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+-}
+{- |
+   Module      : Text.Pandoc.Writers.JATS
+   Copyright   : Copyright (C) 2017 John MacFarlane
+   License     : GNU GPL, version 2 or above
+
+   Maintainer  : John MacFarlane <jgm@berkeley.edu>
+   Stability   : alpha
+   Portability : portable
+
+Conversion of 'Pandoc' documents to JATS XML.
+Reference:
+https://jats.nlm.nih.gov/publishing/tag-library/1.1d3/element/mml-math.html
+-}
+module Text.Pandoc.Writers.JATS ( writeJATS ) where
+import Control.Monad.Reader
+import Data.Char (toLower)
+import Data.Generics (everywhere, mkT)
+import Data.List (intercalate, isSuffixOf)
+import Data.Maybe (fromMaybe)
+import qualified Text.Pandoc.Builder as B
+import Text.Pandoc.Class (PandocMonad, report)
+import Text.Pandoc.Definition
+import Text.Pandoc.Highlighting (languages, languagesByExtension)
+import Text.Pandoc.Logging
+import Text.Pandoc.Options
+import Text.Pandoc.Pretty
+import Text.Pandoc.Shared
+import Text.Pandoc.Templates (renderTemplate')
+import Text.Pandoc.Writers.Math
+import Text.Pandoc.Writers.Shared
+import Text.Pandoc.XML
+import Text.Pandoc.MIME (getMimeType)
+import Text.TeXMath
+import qualified Text.XML.Light as Xml
+
+data JATSVersion = JATS1_1
+     deriving (Eq, Show)
+
+type DB = ReaderT JATSVersion
+
+-- | Convert list of authors to a docbook <author> section
+authorToJATS :: PandocMonad m => WriterOptions -> [Inline] -> DB m B.Inlines
+authorToJATS opts name' = do
+  name <- render Nothing <$> inlinesToJATS opts name'
+  let colwidth = if writerWrapText opts == WrapAuto
+                    then Just $ writerColumns opts
+                    else Nothing
+  return $ B.rawInline "docbook" $ render colwidth $
+      if ',' `elem` name
+         then -- last name first
+              let (lastname, rest) = break (==',') name
+                  firstname = triml rest in
+              inTagsSimple "firstname" (text $ escapeStringForXML firstname) <>
+              inTagsSimple "surname" (text $ escapeStringForXML lastname)
+         else -- last name last
+              let namewords = words name
+                  lengthname = length namewords
+                  (firstname, lastname) = case lengthname of
+                    0  -> ("","")
+                    1  -> ("", name)
+                    n  -> (intercalate " " (take (n-1) namewords), last namewords)
+               in inTagsSimple "firstname" (text $ escapeStringForXML firstname) $$
+                  inTagsSimple "surname" (text $ escapeStringForXML lastname)
+
+writeJATS :: PandocMonad m => WriterOptions -> Pandoc -> m String
+writeJATS opts d =
+  runReaderT (docToJATS opts d) JATS1_1
+
+-- | Convert Pandoc document to string in JATS format.
+docToJATS :: PandocMonad m => WriterOptions -> Pandoc -> DB m String
+docToJATS opts (Pandoc meta blocks) = do
+  let elements = hierarchicalize blocks
+  let colwidth = if writerWrapText opts == WrapAuto
+                    then Just $ writerColumns opts
+                    else Nothing
+  let render'  = render colwidth
+  let opts'    = if (maybe False (("/book>" `isSuffixOf`) . trimr)
+                            (writerTemplate opts) &&
+                     TopLevelDefault == writerTopLevelDivision opts)
+                    then opts{ writerTopLevelDivision = TopLevelChapter }
+                    else opts
+  -- The numbering here follows LaTeX's internal numbering
+  let startLvl = case writerTopLevelDivision opts' of
+                   TopLevelPart    -> -1
+                   TopLevelChapter -> 0
+                   TopLevelSection -> 1
+                   TopLevelDefault -> 1
+  auths' <- mapM (authorToJATS opts) $ docAuthors meta
+  let meta' = B.setMeta "author" auths' meta
+  metadata <- metaToJSON opts
+                 (fmap (render colwidth . vcat) .
+                          (mapM (elementToJATS opts' startLvl) .
+                            hierarchicalize))
+                 (fmap (render colwidth) . inlinesToJATS opts')
+                 meta'
+  main <- (render' . inTagsIndented "body" . vcat) <$>
+            (mapM (elementToJATS opts' startLvl) elements)
+  let context = defField "body" main
+              $ defField "mathml" (case writerHTMLMathMethod opts of
+                                        MathML -> True
+                                        _      -> False)
+              $ metadata
+  return $ case writerTemplate opts of
+           Nothing  -> main
+           Just tpl -> renderTemplate' tpl context
+
+-- | Convert an Element to JATS.
+elementToJATS :: PandocMonad m => WriterOptions -> Int -> Element -> DB m Doc
+elementToJATS opts _   (Blk block) = blockToJATS opts block
+elementToJATS opts lvl (Sec _ _num (id',_,kvs) title elements) = do
+  let idAttr = [("id", writerIdentifierPrefix opts ++ id') | not (null id')]
+  let otherAttrs = ["sec-type", "specific-use"]
+  let attribs = idAttr ++ [(k,v) | (k,v) <- kvs, k `elem` otherAttrs]
+  contents <- mapM (elementToJATS opts (lvl + 1)) elements
+  title' <- inlinesToJATS opts title
+  return $ inTags True "sec" attribs $
+      inTagsSimple "title" title' $$ vcat contents
+
+-- | Convert a list of Pandoc blocks to JATS.
+blocksToJATS :: PandocMonad m => WriterOptions -> [Block] -> DB m Doc
+blocksToJATS opts = fmap vcat . mapM (blockToJATS opts)
+
+-- | Auxiliary function to convert Plain block to Para.
+plainToPara :: Block -> Block
+plainToPara (Plain x) = Para x
+plainToPara x         = x
+
+-- | Convert a list of pairs of terms and definitions into a list of
+-- JATS varlistentrys.
+deflistItemsToJATS :: PandocMonad m
+                      => WriterOptions -> [([Inline],[[Block]])] -> DB m Doc
+deflistItemsToJATS opts items =
+  vcat <$> mapM (\(term, defs) -> deflistItemToJATS opts term defs) items
+
+-- | Convert a term and a list of blocks into a JATS varlistentry.
+deflistItemToJATS :: PandocMonad m
+                     => WriterOptions -> [Inline] -> [[Block]] -> DB m Doc
+deflistItemToJATS opts term defs = do
+  term' <- inlinesToJATS opts term
+  def' <- blocksToJATS opts $ concatMap (map plainToPara) defs
+  return $ inTagsIndented "def-item" $
+      inTagsIndented "term" term' $$
+      inTagsIndented "def" def'
+
+-- | Convert a list of lists of blocks to a list of JATS list items.
+listItemsToJATS :: PandocMonad m
+                => WriterOptions -> (Maybe [String]) -> [[Block]] -> DB m Doc
+listItemsToJATS opts markers items =
+  case markers of
+       Nothing -> vcat <$> mapM (listItemToJATS opts Nothing) items
+       Just ms -> vcat <$> zipWithM (listItemToJATS opts) (map Just ms) items
+
+-- | Convert a list of blocks into a JATS list item.
+listItemToJATS :: PandocMonad m
+               => WriterOptions -> (Maybe String) -> [Block] -> DB m Doc
+listItemToJATS opts mbmarker item = do
+  contents <- blocksToJATS opts item
+  return $ inTagsIndented "list-item" $
+           maybe empty (\lbl -> inTagsIndented "label" (text lbl)) mbmarker
+           $$ contents
+
+-- | Convert a Pandoc block element to JATS.
+blockToJATS :: PandocMonad m => WriterOptions -> Block -> DB m Doc
+blockToJATS _ Null = return empty
+-- Add ids to paragraphs in divs with ids - this is needed for
+-- pandoc-citeproc to get link anchors in bibliographies:
+blockToJATS opts (Div (ident,_,_) [Para lst]) =
+  let attribs = [("id", ident) | not (null ident)] in
+      inTags True "p" attribs <$> inlinesToJATS opts lst
+blockToJATS opts (Div (ident,_,kvs) bs) = do
+  contents <- blocksToJATS opts bs
+  let attr = [("id", ident) | not (null ident)] ++
+             [("xml:lang",l) | ("lang",l) <- kvs] ++
+             [(k,v) | (k,v) <- kvs, k `elem` ["specific-use",
+                 "content-type", "orientation", "position"]]
+  return $ inTags True "boxed-text" attr contents
+blockToJATS _ (Header _ _ _) =
+  return empty -- should not occur after hierarchicalize
+-- No Plain, everything needs to be in a block-level tag
+blockToJATS opts (Plain lst) = blockToJATS opts (Para lst)
+-- title beginning with fig: indicates that the image is a figure
+blockToJATS opts (Para [Image (ident,_,kvs) txt
+  (src,'f':'i':'g':':':tit)]) = do
+  alt <- inlinesToJATS opts txt
+  let capt = if null txt
+                then empty
+                else inTagsSimple "caption" alt
+  let attr = [("id", ident) | not (null ident)] ++
+             [(k,v) | (k,v) <- kvs, k `elem` ["fig-type", "orientation",
+                                              "position", "specific-use"]]
+  let mbMT = getMimeType src
+  let maintype = fromMaybe "image" $
+                  lookup "mimetype" kvs `mplus`
+                  (takeWhile (/='/') <$> mbMT)
+  let subtype = fromMaybe "" $
+                  lookup "mime-subtype" kvs `mplus`
+                  ((drop 1 . dropWhile (/='/')) <$> mbMT)
+  let graphicattr = [("mimetype",maintype),
+                     ("mime-subtype",drop 1 subtype),
+                     ("xlink:href",src),  -- do we need to URL escape this?
+                     ("xlink:title",tit)]
+  return $ inTags True "fig" attr $
+              capt $$ selfClosingTag "graphic" graphicattr
+blockToJATS opts (Para lst) =
+  inTagsIndented "p" <$> inlinesToJATS opts lst
+blockToJATS opts (LineBlock lns) =
+  blockToJATS opts $ linesToPara lns
+blockToJATS opts (BlockQuote blocks) =
+  inTagsIndented "disp-quote" <$> blocksToJATS opts blocks
+blockToJATS _ (CodeBlock (ident,classes,kvs) str) = return $
+  inTags False tag attr (flush (text (escapeStringForXML str)))
+    where attr  = [("id",ident) | not (null ident)] ++
+                  [("language",lang) | not (null lang)] ++
+                  [(k,v) | (k,v) <- kvs, k `elem` ["code-type",
+                    "code-version", "executable",
+                    "language-version", "orientation",
+                    "platforms", "position", "specific-use"]]
+          tag   = if null lang then "preformat" else "code"
+          lang  = case langs of
+                     (l:_) -> escapeStringForXML l
+                     []    -> ""
+          isLang l    = map toLower l `elem` map (map toLower) languages
+          langsFrom s = if isLang s
+                           then [s]
+                           else languagesByExtension . map toLower $ s
+          langs       = concatMap langsFrom classes
+blockToJATS _ (BulletList []) = return empty
+blockToJATS opts (BulletList lst) = do
+  inTags True "list" [("list-type", "bullet")] <$>
+    listItemsToJATS opts Nothing lst
+blockToJATS _ (OrderedList _ []) = return empty
+blockToJATS opts (OrderedList (start, numstyle, delimstyle) items) = do
+  let listType = case numstyle of
+                       DefaultStyle -> "order"
+                       Decimal      -> "order"
+                       Example      -> "order"
+                       UpperAlpha   -> "alpha-upper"
+                       LowerAlpha   -> "alpha-lower"
+                       UpperRoman   -> "roman-upper"
+                       LowerRoman   -> "roman-lower"
+  let simpleList = start == 1 && (delimstyle == DefaultDelim ||
+                                  delimstyle == Period)
+  let markers = if simpleList
+                   then Nothing
+                   else Just $
+                          orderedListMarkers (start, numstyle, delimstyle)
+  inTags True "list" [("list-type", listType)] <$>
+    listItemsToJATS opts markers items
+blockToJATS opts (DefinitionList lst) = do
+  inTags True "def-list" [] <$> deflistItemsToJATS opts lst
+blockToJATS _ b@(RawBlock f str)
+  | f == "jats"    = return $ text str -- raw XML block
+  | otherwise      = do
+      report $ BlockNotRendered b
+      return empty
+blockToJATS _ HorizontalRule = return empty -- not semantic
+blockToJATS opts (Table [] aligns widths headers rows) = do
+  let percent w    = show (truncate (100*w) :: Integer) ++ "*"
+  let coltags = vcat $ zipWith (\w al -> selfClosingTag "col"
+                       ([("width", percent w) | w > 0] ++
+                        [("align", alignmentToString al)])) widths aligns
+  thead <- if all null headers
+              then return empty
+              else inTagsIndented "thead" <$> tableRowToJATS opts True headers
+  tbody <- (inTagsIndented "tbody" . vcat) <$>
+                mapM (tableRowToJATS opts False) rows
+  return $ inTags True "table" [] $ coltags $$ thead $$ tbody
+blockToJATS opts (Table caption aligns widths headers rows) = do
+  captionDoc <- inTagsIndented "caption" <$> blockToJATS opts (Para caption)
+  tbl <- blockToJATS opts (Table [] aligns widths headers rows)
+  return $ inTags True "table-wrap" [] $ captionDoc $$ tbl
+
+alignmentToString :: Alignment -> [Char]
+alignmentToString alignment = case alignment of
+                                 AlignLeft    -> "left"
+                                 AlignRight   -> "right"
+                                 AlignCenter  -> "center"
+                                 AlignDefault -> "left"
+
+tableRowToJATS :: PandocMonad m
+                  => WriterOptions
+                  -> Bool
+                  -> [[Block]]
+                  -> DB m Doc
+tableRowToJATS opts isHeader cols =
+  (inTagsIndented "tr" . vcat) <$> mapM (tableItemToJATS opts isHeader) cols
+
+tableItemToJATS :: PandocMonad m
+                   => WriterOptions
+                   -> Bool
+                   -> [Block]
+                   -> DB m Doc
+tableItemToJATS opts isHeader item =
+  (inTags True (if isHeader then "th" else "td") [] . vcat) <$>
+    mapM (blockToJATS opts) item
+
+-- | Convert a list of inline elements to JATS.
+inlinesToJATS :: PandocMonad m => WriterOptions -> [Inline] -> DB m Doc
+inlinesToJATS opts lst = hcat <$> mapM (inlineToJATS opts) lst
+
+-- | Convert an inline element to JATS.
+inlineToJATS :: PandocMonad m => WriterOptions -> Inline -> DB m Doc
+inlineToJATS _ (Str str) = return $ text $ escapeStringForXML str
+inlineToJATS opts (Emph lst) =
+  inTagsSimple "italic" <$> inlinesToJATS opts lst
+inlineToJATS opts (Strong lst) =
+  inTags False "bold" [("role", "strong")] <$> inlinesToJATS opts lst
+inlineToJATS opts (Strikeout lst) =
+  inTagsSimple "strike" <$> inlinesToJATS opts lst
+inlineToJATS opts (Superscript lst) =
+  inTagsSimple "sup" <$> inlinesToJATS opts lst
+inlineToJATS opts (Subscript lst) =
+  inTagsSimple "sub" <$> inlinesToJATS opts lst
+inlineToJATS opts (SmallCaps lst) =
+  inTags False "sc" [("role", "smallcaps")] <$>
+  inlinesToJATS opts lst
+inlineToJATS opts (Quoted SingleQuote lst) = do
+  contents <- inlinesToJATS opts lst
+  return $ char '‘' <> contents <> char '’'
+inlineToJATS opts (Quoted DoubleQuote lst) = do
+  contents <- inlinesToJATS opts lst
+  return $ char '“' <> contents <> char '”'
+inlineToJATS _ (Code _ str) =
+  return $ inTagsSimple "monospace" $ text (escapeStringForXML str)
+inlineToJATS _ il@(RawInline f x)
+  | f == "jats" = return $ text x
+  | otherwise   = do
+      report $ InlineNotRendered il
+      return empty
+inlineToJATS _ LineBreak = return $ selfClosingTag "break" []
+inlineToJATS _ Space = return space
+inlineToJATS opts SoftBreak
+  | writerWrapText opts == WrapPreserve = return cr
+  | otherwise = return space
+inlineToJATS opts (Note contents) =
+  -- TODO technically only <p> tags are allowed inside
+  inTagsIndented "fn" <$> blocksToJATS opts contents
+inlineToJATS opts (Cite _ lst) =
+  -- TODO revisit this after examining the jats.csl pipeline
+  inlinesToJATS opts lst
+inlineToJATS opts (Span ("",_,[]) ils) = inlinesToJATS opts ils
+inlineToJATS opts (Span (ident,_,kvs) ils) = do
+  contents <- inlinesToJATS opts ils
+  let attr = [("id",ident) | not (null ident)] ++
+             [("xml:lang",l) | ("lang",l) <- kvs] ++
+             [(k,v) | (k,v) <- kvs
+                    ,  k `elem` ["content-type", "rationale",
+                                 "rid", "specific-use"]]
+  return $ selfClosingTag "milestone-start" attr <> contents <>
+           selfClosingTag "milestone-end" []
+inlineToJATS _ (Math t str) = do
+  let addPref (Xml.Attr q v)
+         | Xml.qName q == "xmlns" = Xml.Attr q{ Xml.qName = "xmlns:mml" } v
+         | otherwise = Xml.Attr q v
+  let fixNS' e = e{ Xml.elName =
+                         (Xml.elName e){ Xml.qPrefix = Just "mml" } }
+  let fixNS = everywhere (mkT fixNS') .
+              (\e -> e{ Xml.elAttribs = map addPref (Xml.elAttribs e) })
+  let conf = Xml.useShortEmptyTags (const False) Xml.defaultConfigPP
+  res <- convertMath writeMathML t str
+  let tagtype = case t of
+                     DisplayMath -> "disp-formula"
+                     InlineMath  -> "inline-formula"
+  return $ inTagsSimple tagtype $
+             case res of
+                   Right r  -> text $ Xml.ppcElement conf
+                                    $ fixNS r
+                   Left _   -> inTagsSimple "tex-math"
+                                $ text "<![CDATA[" <>
+                                  text str <>
+                                  text "]]>"
+inlineToJATS _ (Link _attr [Str t] ('m':'a':'i':'l':'t':'o':':':email, _))
+  | escapeURI t == email =
+  return $ inTagsSimple "email" $ text (escapeStringForXML email)
+inlineToJATS opts (Link (ident,_,kvs) txt ('#':src, _)) = do
+  let attr = [("id", ident) | not (null ident)] ++
+             [("alt", stringify txt),
+              ("rid", src)] ++
+             [(k,v) | (k,v) <- kvs, k `elem` ["ref-type", "specific-use"]]
+  contents <- inlinesToJATS opts txt
+  return $ inTags False "xref" attr contents
+inlineToJATS opts (Link (ident,_,kvs) txt (src, tit)) = do
+  let attr = [("id", ident) | not (null ident)] ++
+             [("ext-link-type", "uri"),
+              ("xlink:href", src)] ++
+             [("xlink:title", tit) | not (null tit)] ++
+             [(k,v) | (k,v) <- kvs, k `elem` ["assigning-authority",
+                                              "specific-use", "xlink:actuate",
+                                              "xlink:role", "xlink:show",
+                                              "xlink:type"]]
+  contents <- inlinesToJATS opts txt
+  return $ inTags False "ext-link" attr contents
+inlineToJATS _ (Image (ident,_,kvs) _ (src, tit)) = do
+  let mbMT = getMimeType src
+  let maintype = fromMaybe "image" $
+                  lookup "mimetype" kvs `mplus`
+                  (takeWhile (/='/') <$> mbMT)
+  let subtype = fromMaybe "" $
+                  lookup "mime-subtype" kvs `mplus`
+                  ((drop 1 . dropWhile (/='/')) <$> mbMT)
+  let attr = [("id", ident) | not (null ident)] ++
+             [("mimetype", maintype),
+              ("mime-subtype", subtype),
+              ("xlink:href", src)] ++
+             [("xlink:title", tit) | not (null tit)] ++
+             [(k,v) | (k,v) <- kvs, k `elem` ["baseline-shift",
+                        "content-type", "specific-use", "xlink:actuate",
+                        "xlink:href", "xlink:role", "xlink:show",
+                        "xlink:type"]]
+  return $ selfClosingTag "inline-graphic" attr
diff --git a/test/Tests/Old.hs b/test/Tests/Old.hs
index 3c473792f..fceb776f7 100644
--- a/test/Tests/Old.hs
+++ b/test/Tests/Old.hs
@@ -77,6 +77,9 @@ tests = [ testGroup "markdown"
         , testGroup "docbook5"
           [ testGroup "writer" $ writerTests "docbook5"
           ]
+        , testGroup "jats"
+          [ testGroup "writer" $ writerTests "jats"
+          ]
         , testGroup "native"
           [ testGroup "writer" $ writerTests "native"
           , test "reader" ["-r", "native", "-w", "native", "-s"]
diff --git a/test/tables.jats b/test/tables.jats
new file mode 100644
index 000000000..11f543f17
--- /dev/null
+++ b/test/tables.jats
@@ -0,0 +1,616 @@
+<body>
+  <p>
+    Simple table with caption:
+  </p>
+  <table-wrap>
+    <caption>
+      <p>
+        Demonstration of simple table syntax.
+      </p>
+    </caption>
+    <table>
+      <col align="right" />
+      <col align="left" />
+      <col align="center" />
+      <col align="left" />
+      <thead>
+        <tr>
+          <th>
+            <p>
+              Right
+            </p>
+          </th>
+          <th>
+            <p>
+              Left
+            </p>
+          </th>
+          <th>
+            <p>
+              Center
+            </p>
+          </th>
+          <th>
+            <p>
+              Default
+            </p>
+          </th>
+        </tr>
+      </thead>
+      <tbody>
+        <tr>
+          <td>
+            <p>
+              12
+            </p>
+          </td>
+          <td>
+            <p>
+              12
+            </p>
+          </td>
+          <td>
+            <p>
+              12
+            </p>
+          </td>
+          <td>
+            <p>
+              12
+            </p>
+          </td>
+        </tr>
+        <tr>
+          <td>
+            <p>
+              123
+            </p>
+          </td>
+          <td>
+            <p>
+              123
+            </p>
+          </td>
+          <td>
+            <p>
+              123
+            </p>
+          </td>
+          <td>
+            <p>
+              123
+            </p>
+          </td>
+        </tr>
+        <tr>
+          <td>
+            <p>
+              1
+            </p>
+          </td>
+          <td>
+            <p>
+              1
+            </p>
+          </td>
+          <td>
+            <p>
+              1
+            </p>
+          </td>
+          <td>
+            <p>
+              1
+            </p>
+          </td>
+        </tr>
+      </tbody>
+    </table>
+  </table-wrap>
+  <p>
+    Simple table without caption:
+  </p>
+  <table>
+    <col align="right" />
+    <col align="left" />
+    <col align="center" />
+    <col align="left" />
+    <thead>
+      <tr>
+        <th>
+          <p>
+            Right
+          </p>
+        </th>
+        <th>
+          <p>
+            Left
+          </p>
+        </th>
+        <th>
+          <p>
+            Center
+          </p>
+        </th>
+        <th>
+          <p>
+            Default
+          </p>
+        </th>
+      </tr>
+    </thead>
+    <tbody>
+      <tr>
+        <td>
+          <p>
+            12
+          </p>
+        </td>
+        <td>
+          <p>
+            12
+          </p>
+        </td>
+        <td>
+          <p>
+            12
+          </p>
+        </td>
+        <td>
+          <p>
+            12
+          </p>
+        </td>
+      </tr>
+      <tr>
+        <td>
+          <p>
+            123
+          </p>
+        </td>
+        <td>
+          <p>
+            123
+          </p>
+        </td>
+        <td>
+          <p>
+            123
+          </p>
+        </td>
+        <td>
+          <p>
+            123
+          </p>
+        </td>
+      </tr>
+      <tr>
+        <td>
+          <p>
+            1
+          </p>
+        </td>
+        <td>
+          <p>
+            1
+          </p>
+        </td>
+        <td>
+          <p>
+            1
+          </p>
+        </td>
+        <td>
+          <p>
+            1
+          </p>
+        </td>
+      </tr>
+    </tbody>
+  </table>
+  <p>
+    Simple table indented two spaces:
+  </p>
+  <table-wrap>
+    <caption>
+      <p>
+        Demonstration of simple table syntax.
+      </p>
+    </caption>
+    <table>
+      <col align="right" />
+      <col align="left" />
+      <col align="center" />
+      <col align="left" />
+      <thead>
+        <tr>
+          <th>
+            <p>
+              Right
+            </p>
+          </th>
+          <th>
+            <p>
+              Left
+            </p>
+          </th>
+          <th>
+            <p>
+              Center
+            </p>
+          </th>
+          <th>
+            <p>
+              Default
+            </p>
+          </th>
+        </tr>
+      </thead>
+      <tbody>
+        <tr>
+          <td>
+            <p>
+              12
+            </p>
+          </td>
+          <td>
+            <p>
+              12
+            </p>
+          </td>
+          <td>
+            <p>
+              12
+            </p>
+          </td>
+          <td>
+            <p>
+              12
+            </p>
+          </td>
+        </tr>
+        <tr>
+          <td>
+            <p>
+              123
+            </p>
+          </td>
+          <td>
+            <p>
+              123
+            </p>
+          </td>
+          <td>
+            <p>
+              123
+            </p>
+          </td>
+          <td>
+            <p>
+              123
+            </p>
+          </td>
+        </tr>
+        <tr>
+          <td>
+            <p>
+              1
+            </p>
+          </td>
+          <td>
+            <p>
+              1
+            </p>
+          </td>
+          <td>
+            <p>
+              1
+            </p>
+          </td>
+          <td>
+            <p>
+              1
+            </p>
+          </td>
+        </tr>
+      </tbody>
+    </table>
+  </table-wrap>
+  <p>
+    Multiline table with caption:
+  </p>
+  <table-wrap>
+    <caption>
+      <p>
+        Here’s the caption. It may span multiple lines.
+      </p>
+    </caption>
+    <table>
+      <col width="15*" align="center" />
+      <col width="13*" align="left" />
+      <col width="16*" align="right" />
+      <col width="33*" align="left" />
+      <thead>
+        <tr>
+          <th>
+            <p>
+              Centered Header
+            </p>
+          </th>
+          <th>
+            <p>
+              Left Aligned
+            </p>
+          </th>
+          <th>
+            <p>
+              Right Aligned
+            </p>
+          </th>
+          <th>
+            <p>
+              Default aligned
+            </p>
+          </th>
+        </tr>
+      </thead>
+      <tbody>
+        <tr>
+          <td>
+            <p>
+              First
+            </p>
+          </td>
+          <td>
+            <p>
+              row
+            </p>
+          </td>
+          <td>
+            <p>
+              12.0
+            </p>
+          </td>
+          <td>
+            <p>
+              Example of a row that spans multiple lines.
+            </p>
+          </td>
+        </tr>
+        <tr>
+          <td>
+            <p>
+              Second
+            </p>
+          </td>
+          <td>
+            <p>
+              row
+            </p>
+          </td>
+          <td>
+            <p>
+              5.0
+            </p>
+          </td>
+          <td>
+            <p>
+              Here’s another one. Note the blank line between rows.
+            </p>
+          </td>
+        </tr>
+      </tbody>
+    </table>
+  </table-wrap>
+  <p>
+    Multiline table without caption:
+  </p>
+  <table>
+    <col width="15*" align="center" />
+    <col width="13*" align="left" />
+    <col width="16*" align="right" />
+    <col width="33*" align="left" />
+    <thead>
+      <tr>
+        <th>
+          <p>
+            Centered Header
+          </p>
+        </th>
+        <th>
+          <p>
+            Left Aligned
+          </p>
+        </th>
+        <th>
+          <p>
+            Right Aligned
+          </p>
+        </th>
+        <th>
+          <p>
+            Default aligned
+          </p>
+        </th>
+      </tr>
+    </thead>
+    <tbody>
+      <tr>
+        <td>
+          <p>
+            First
+          </p>
+        </td>
+        <td>
+          <p>
+            row
+          </p>
+        </td>
+        <td>
+          <p>
+            12.0
+          </p>
+        </td>
+        <td>
+          <p>
+            Example of a row that spans multiple lines.
+          </p>
+        </td>
+      </tr>
+      <tr>
+        <td>
+          <p>
+            Second
+          </p>
+        </td>
+        <td>
+          <p>
+            row
+          </p>
+        </td>
+        <td>
+          <p>
+            5.0
+          </p>
+        </td>
+        <td>
+          <p>
+            Here’s another one. Note the blank line between rows.
+          </p>
+        </td>
+      </tr>
+    </tbody>
+  </table>
+  <p>
+    Table without column headers:
+  </p>
+  <table>
+    <col align="right" />
+    <col align="left" />
+    <col align="center" />
+    <col align="right" />
+    <tbody>
+      <tr>
+        <td>
+          <p>
+            12
+          </p>
+        </td>
+        <td>
+          <p>
+            12
+          </p>
+        </td>
+        <td>
+          <p>
+            12
+          </p>
+        </td>
+        <td>
+          <p>
+            12
+          </p>
+        </td>
+      </tr>
+      <tr>
+        <td>
+          <p>
+            123
+          </p>
+        </td>
+        <td>
+          <p>
+            123
+          </p>
+        </td>
+        <td>
+          <p>
+            123
+          </p>
+        </td>
+        <td>
+          <p>
+            123
+          </p>
+        </td>
+      </tr>
+      <tr>
+        <td>
+          <p>
+            1
+          </p>
+        </td>
+        <td>
+          <p>
+            1
+          </p>
+        </td>
+        <td>
+          <p>
+            1
+          </p>
+        </td>
+        <td>
+          <p>
+            1
+          </p>
+        </td>
+      </tr>
+    </tbody>
+  </table>
+  <p>
+    Multiline table without column headers:
+  </p>
+  <table>
+    <col width="15*" align="center" />
+    <col width="13*" align="left" />
+    <col width="16*" align="right" />
+    <col width="33*" align="left" />
+    <tbody>
+      <tr>
+        <td>
+          <p>
+            First
+          </p>
+        </td>
+        <td>
+          <p>
+            row
+          </p>
+        </td>
+        <td>
+          <p>
+            12.0
+          </p>
+        </td>
+        <td>
+          <p>
+            Example of a row that spans multiple lines.
+          </p>
+        </td>
+      </tr>
+      <tr>
+        <td>
+          <p>
+            Second
+          </p>
+        </td>
+        <td>
+          <p>
+            row
+          </p>
+        </td>
+        <td>
+          <p>
+            5.0
+          </p>
+        </td>
+        <td>
+          <p>
+            Here’s another one. Note the blank line between rows.
+          </p>
+        </td>
+      </tr>
+    </tbody>
+  </table>
+</body>
diff --git a/test/writer.jats b/test/writer.jats
new file mode 100644
index 000000000..1703de4aa
--- /dev/null
+++ b/test/writer.jats
@@ -0,0 +1,1425 @@
+<?xml version="1.0" encoding="utf-8" ?>
+<!DOCTYPE article PUBLIC "-//NLM//DTD JATS (Z39.96) Journal Publishing DTD v1.0 20120330//EN"
+                  "JATS-journalpublishing1.dtd">
+<article xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:xlink="http://www.w3.org/1999/xlink" dtd-version="1.0" article-type="other">
+<front>
+<journal-meta>
+<journal-title-group>
+</journal-title-group>
+<publisher>
+<publisher-name></publisher-name>
+</publisher>
+</journal-meta>
+<article-meta>
+<title-group>
+<article-title>Pandoc Test Suite</article-title>
+</title-group>
+<pub-date pub-type="epub">
+<string-date>July 17, 2006</string-date>
+</pub-date>
+</article-meta>
+</front>
+<body>
+  <p>
+    This is a set of tests for pandoc. Most of them are adapted from John
+    Gruber’s markdown test suite.
+  </p>
+  <sec id="headers">
+    <title>Headers</title>
+    <sec id="level-2-with-an-embedded-link">
+      <title>Level 2 with an
+      <ext-link ext-link-type="uri" xlink:href="/url">embedded
+      link</ext-link></title>
+      <sec id="level-3-with-emphasis">
+        <title>Level 3 with <italic>emphasis</italic></title>
+        <sec id="level-4">
+          <title>Level 4</title>
+          <sec id="level-5">
+            <title>Level 5</title>
+          </sec>
+        </sec>
+      </sec>
+    </sec>
+  </sec>
+  <sec id="level-1">
+    <title>Level 1</title>
+    <sec id="level-2-with-emphasis">
+      <title>Level 2 with <italic>emphasis</italic></title>
+      <sec id="level-3">
+        <title>Level 3</title>
+        <p>
+          with no blank line
+        </p>
+      </sec>
+    </sec>
+    <sec id="level-2">
+      <title>Level 2</title>
+      <p>
+        with no blank line
+      </p>
+    </sec>
+  </sec>
+  <sec id="paragraphs">
+    <title>Paragraphs</title>
+    <p>
+      Here’s a regular paragraph.
+    </p>
+    <p>
+      In Markdown 1.0.0 and earlier. Version 8. This line turns into a list
+      item. Because a hard-wrapped line in the middle of a paragraph looked
+      like a list item.
+    </p>
+    <p>
+      Here’s one with a bullet. * criminey.
+    </p>
+    <p>
+      There should be a hard line break<break />here.
+    </p>
+  </sec>
+  <sec id="block-quotes">
+    <title>Block Quotes</title>
+    <p>
+      E-mail style:
+    </p>
+    <disp-quote>
+      <p>
+        This is a block quote. It is pretty short.
+      </p>
+    </disp-quote>
+    <disp-quote>
+      <p>
+        Code in a block quote:
+      </p>
+      <preformat>sub status {
+    print &quot;working&quot;;
+}</preformat>
+      <p>
+        A list:
+      </p>
+      <list list-type="order">
+        <list-item>
+          <p>
+            item one
+          </p>
+        </list-item>
+        <list-item>
+          <p>
+            item two
+          </p>
+        </list-item>
+      </list>
+      <p>
+        Nested block quotes:
+      </p>
+      <disp-quote>
+        <p>
+          nested
+        </p>
+      </disp-quote>
+      <disp-quote>
+        <p>
+          nested
+        </p>
+      </disp-quote>
+    </disp-quote>
+    <p>
+      This should not be a block quote: 2 &gt; 1.
+    </p>
+    <p>
+      And a following paragraph.
+    </p>
+  </sec>
+  <sec id="code-blocks">
+    <title>Code Blocks</title>
+    <p>
+      Code:
+    </p>
+    <preformat>---- (should be four hyphens)
+
+sub status {
+    print &quot;working&quot;;
+}
+
+this code block is indented by one tab</preformat>
+    <p>
+      And:
+    </p>
+    <preformat>    this code block is indented by two tabs
+
+These should not be escaped:  \$ \\ \&gt; \[ \{</preformat>
+  </sec>
+  <sec id="lists">
+    <title>Lists</title>
+    <sec id="unordered">
+      <title>Unordered</title>
+      <p>
+        Asterisks tight:
+      </p>
+      <list list-type="bullet">
+        <list-item>
+          <p>
+            asterisk 1
+          </p>
+        </list-item>
+        <list-item>
+          <p>
+            asterisk 2
+          </p>
+        </list-item>
+        <list-item>
+          <p>
+            asterisk 3
+          </p>
+        </list-item>
+      </list>
+      <p>
+        Asterisks loose:
+      </p>
+      <list list-type="bullet">
+        <list-item>
+          <p>
+            asterisk 1
+          </p>
+        </list-item>
+        <list-item>
+          <p>
+            asterisk 2
+          </p>
+        </list-item>
+        <list-item>
+          <p>
+            asterisk 3
+          </p>
+        </list-item>
+      </list>
+      <p>
+        Pluses tight:
+      </p>
+      <list list-type="bullet">
+        <list-item>
+          <p>
+            Plus 1
+          </p>
+        </list-item>
+        <list-item>
+          <p>
+            Plus 2
+          </p>
+        </list-item>
+        <list-item>
+          <p>
+            Plus 3
+          </p>
+        </list-item>
+      </list>
+      <p>
+        Pluses loose:
+      </p>
+      <list list-type="bullet">
+        <list-item>
+          <p>
+            Plus 1
+          </p>
+        </list-item>
+        <list-item>
+          <p>
+            Plus 2
+          </p>
+        </list-item>
+        <list-item>
+          <p>
+            Plus 3
+          </p>
+        </list-item>
+      </list>
+      <p>
+        Minuses tight:
+      </p>
+      <list list-type="bullet">
+        <list-item>
+          <p>
+            Minus 1
+          </p>
+        </list-item>
+        <list-item>
+          <p>
+            Minus 2
+          </p>
+        </list-item>
+        <list-item>
+          <p>
+            Minus 3
+          </p>
+        </list-item>
+      </list>
+      <p>
+        Minuses loose:
+      </p>
+      <list list-type="bullet">
+        <list-item>
+          <p>
+            Minus 1
+          </p>
+        </list-item>
+        <list-item>
+          <p>
+            Minus 2
+          </p>
+        </list-item>
+        <list-item>
+          <p>
+            Minus 3
+          </p>
+        </list-item>
+      </list>
+    </sec>
+    <sec id="ordered">
+      <title>Ordered</title>
+      <p>
+        Tight:
+      </p>
+      <list list-type="order">
+        <list-item>
+          <p>
+            First
+          </p>
+        </list-item>
+        <list-item>
+          <p>
+            Second
+          </p>
+        </list-item>
+        <list-item>
+          <p>
+            Third
+          </p>
+        </list-item>
+      </list>
+      <p>
+        and:
+      </p>
+      <list list-type="order">
+        <list-item>
+          <p>
+            One
+          </p>
+        </list-item>
+        <list-item>
+          <p>
+            Two
+          </p>
+        </list-item>
+        <list-item>
+          <p>
+            Three
+          </p>
+        </list-item>
+      </list>
+      <p>
+        Loose using tabs:
+      </p>
+      <list list-type="order">
+        <list-item>
+          <p>
+            First
+          </p>
+        </list-item>
+        <list-item>
+          <p>
+            Second
+          </p>
+        </list-item>
+        <list-item>
+          <p>
+            Third
+          </p>
+        </list-item>
+      </list>
+      <p>
+        and using spaces:
+      </p>
+      <list list-type="order">
+        <list-item>
+          <p>
+            One
+          </p>
+        </list-item>
+        <list-item>
+          <p>
+            Two
+          </p>
+        </list-item>
+        <list-item>
+          <p>
+            Three
+          </p>
+        </list-item>
+      </list>
+      <p>
+        Multiple paragraphs:
+      </p>
+      <list list-type="order">
+        <list-item>
+          <p>
+            Item 1, graf one.
+          </p>
+          <p>
+            Item 1. graf two. The quick brown fox jumped over the lazy dog’s
+            back.
+          </p>
+        </list-item>
+        <list-item>
+          <p>
+            Item 2.
+          </p>
+        </list-item>
+        <list-item>
+          <p>
+            Item 3.
+          </p>
+        </list-item>
+      </list>
+    </sec>
+    <sec id="nested">
+      <title>Nested</title>
+      <list list-type="bullet">
+        <list-item>
+          <p>
+            Tab
+          </p>
+          <list list-type="bullet">
+            <list-item>
+              <p>
+                Tab
+              </p>
+              <list list-type="bullet">
+                <list-item>
+                  <p>
+                    Tab
+                  </p>
+                </list-item>
+              </list>
+            </list-item>
+          </list>
+        </list-item>
+      </list>
+      <p>
+        Here’s another:
+      </p>
+      <list list-type="order">
+        <list-item>
+          <p>
+            First
+          </p>
+        </list-item>
+        <list-item>
+          <p>
+            Second:
+          </p>
+          <list list-type="bullet">
+            <list-item>
+              <p>
+                Fee
+              </p>
+            </list-item>
+            <list-item>
+              <p>
+                Fie
+              </p>
+            </list-item>
+            <list-item>
+              <p>
+                Foe
+              </p>
+            </list-item>
+          </list>
+        </list-item>
+        <list-item>
+          <p>
+            Third
+          </p>
+        </list-item>
+      </list>
+      <p>
+        Same thing but with paragraphs:
+      </p>
+      <list list-type="order">
+        <list-item>
+          <p>
+            First
+          </p>
+        </list-item>
+        <list-item>
+          <p>
+            Second:
+          </p>
+          <list list-type="bullet">
+            <list-item>
+              <p>
+                Fee
+              </p>
+            </list-item>
+            <list-item>
+              <p>
+                Fie
+              </p>
+            </list-item>
+            <list-item>
+              <p>
+                Foe
+              </p>
+            </list-item>
+          </list>
+        </list-item>
+        <list-item>
+          <p>
+            Third
+          </p>
+        </list-item>
+      </list>
+    </sec>
+    <sec id="tabs-and-spaces">
+      <title>Tabs and spaces</title>
+      <list list-type="bullet">
+        <list-item>
+          <p>
+            this is a list item indented with tabs
+          </p>
+        </list-item>
+        <list-item>
+          <p>
+            this is a list item indented with spaces
+          </p>
+          <list list-type="bullet">
+            <list-item>
+              <p>
+                this is an example list item indented with tabs
+              </p>
+            </list-item>
+            <list-item>
+              <p>
+                this is an example list item indented with spaces
+              </p>
+            </list-item>
+          </list>
+        </list-item>
+      </list>
+    </sec>
+    <sec id="fancy-list-markers">
+      <title>Fancy list markers</title>
+      <list list-type="order">
+        <list-item>
+          <label>
+            (2)
+          </label>
+          <p>
+            begins with 2
+          </p>
+        </list-item>
+        <list-item>
+          <label>
+            (3)
+          </label>
+          <p>
+            and now 3
+          </p>
+          <p>
+            with a continuation
+          </p>
+          <list list-type="roman-lower">
+            <list-item>
+              <label>
+                iv.
+              </label>
+              <p>
+                sublist with roman numerals, starting with 4
+              </p>
+            </list-item>
+            <list-item>
+              <label>
+                v.
+              </label>
+              <p>
+                more items
+              </p>
+              <list list-type="alpha-upper">
+                <list-item>
+                  <label>
+                    (A)
+                  </label>
+                  <p>
+                    a subsublist
+                  </p>
+                </list-item>
+                <list-item>
+                  <label>
+                    (B)
+                  </label>
+                  <p>
+                    a subsublist
+                  </p>
+                </list-item>
+              </list>
+            </list-item>
+          </list>
+        </list-item>
+      </list>
+      <p>
+        Nesting:
+      </p>
+      <list list-type="alpha-upper">
+        <list-item>
+          <p>
+            Upper Alpha
+          </p>
+          <list list-type="roman-upper">
+            <list-item>
+              <p>
+                Upper Roman.
+              </p>
+              <list list-type="order">
+                <list-item>
+                  <label>
+                    (6)
+                  </label>
+                  <p>
+                    Decimal start with 6
+                  </p>
+                  <list list-type="alpha-lower">
+                    <list-item>
+                      <label>
+                        c)
+                      </label>
+                      <p>
+                        Lower alpha with paren
+                      </p>
+                    </list-item>
+                  </list>
+                </list-item>
+              </list>
+            </list-item>
+          </list>
+        </list-item>
+      </list>
+      <p>
+        Autonumbering:
+      </p>
+      <list list-type="order">
+        <list-item>
+          <p>
+            Autonumber.
+          </p>
+        </list-item>
+        <list-item>
+          <p>
+            More.
+          </p>
+          <list list-type="order">
+            <list-item>
+              <p>
+                Nested.
+              </p>
+            </list-item>
+          </list>
+        </list-item>
+      </list>
+      <p>
+        Should not be a list item:
+      </p>
+      <p>
+        M.A. 2007
+      </p>
+      <p>
+        B. Williams
+      </p>
+    </sec>
+  </sec>
+  <sec id="definition-lists">
+    <title>Definition Lists</title>
+    <p>
+      Tight using spaces:
+    </p>
+    <def-list>
+      <def-item>
+        <term>
+          apple
+        </term>
+        <def>
+          <p>
+            red fruit
+          </p>
+        </def>
+      </def-item>
+      <def-item>
+        <term>
+          orange
+        </term>
+        <def>
+          <p>
+            orange fruit
+          </p>
+        </def>
+      </def-item>
+      <def-item>
+        <term>
+          banana
+        </term>
+        <def>
+          <p>
+            yellow fruit
+          </p>
+        </def>
+      </def-item>
+    </def-list>
+    <p>
+      Tight using tabs:
+    </p>
+    <def-list>
+      <def-item>
+        <term>
+          apple
+        </term>
+        <def>
+          <p>
+            red fruit
+          </p>
+        </def>
+      </def-item>
+      <def-item>
+        <term>
+          orange
+        </term>
+        <def>
+          <p>
+            orange fruit
+          </p>
+        </def>
+      </def-item>
+      <def-item>
+        <term>
+          banana
+        </term>
+        <def>
+          <p>
+            yellow fruit
+          </p>
+        </def>
+      </def-item>
+    </def-list>
+    <p>
+      Loose:
+    </p>
+    <def-list>
+      <def-item>
+        <term>
+          apple
+        </term>
+        <def>
+          <p>
+            red fruit
+          </p>
+        </def>
+      </def-item>
+      <def-item>
+        <term>
+          orange
+        </term>
+        <def>
+          <p>
+            orange fruit
+          </p>
+        </def>
+      </def-item>
+      <def-item>
+        <term>
+          banana
+        </term>
+        <def>
+          <p>
+            yellow fruit
+          </p>
+        </def>
+      </def-item>
+    </def-list>
+    <p>
+      Multiple blocks with italics:
+    </p>
+    <def-list>
+      <def-item>
+        <term>
+          <italic>apple</italic>
+        </term>
+        <def>
+          <p>
+            red fruit
+          </p>
+          <p>
+            contains seeds, crisp, pleasant to taste
+          </p>
+        </def>
+      </def-item>
+      <def-item>
+        <term>
+          <italic>orange</italic>
+        </term>
+        <def>
+          <p>
+            orange fruit
+          </p>
+          <preformat>{ orange code block }</preformat>
+          <disp-quote>
+            <p>
+              orange block quote
+            </p>
+          </disp-quote>
+        </def>
+      </def-item>
+    </def-list>
+    <p>
+      Multiple definitions, tight:
+    </p>
+    <def-list>
+      <def-item>
+        <term>
+          apple
+        </term>
+        <def>
+          <p>
+            red fruit
+          </p>
+          <p>
+            computer
+          </p>
+        </def>
+      </def-item>
+      <def-item>
+        <term>
+          orange
+        </term>
+        <def>
+          <p>
+            orange fruit
+          </p>
+          <p>
+            bank
+          </p>
+        </def>
+      </def-item>
+    </def-list>
+    <p>
+      Multiple definitions, loose:
+    </p>
+    <def-list>
+      <def-item>
+        <term>
+          apple
+        </term>
+        <def>
+          <p>
+            red fruit
+          </p>
+          <p>
+            computer
+          </p>
+        </def>
+      </def-item>
+      <def-item>
+        <term>
+          orange
+        </term>
+        <def>
+          <p>
+            orange fruit
+          </p>
+          <p>
+            bank
+          </p>
+        </def>
+      </def-item>
+    </def-list>
+    <p>
+      Blank line after term, indented marker, alternate markers:
+    </p>
+    <def-list>
+      <def-item>
+        <term>
+          apple
+        </term>
+        <def>
+          <p>
+            red fruit
+          </p>
+          <p>
+            computer
+          </p>
+        </def>
+      </def-item>
+      <def-item>
+        <term>
+          orange
+        </term>
+        <def>
+          <p>
+            orange fruit
+          </p>
+          <list list-type="order">
+            <list-item>
+              <p>
+                sublist
+              </p>
+            </list-item>
+            <list-item>
+              <p>
+                sublist
+              </p>
+            </list-item>
+          </list>
+        </def>
+      </def-item>
+    </def-list>
+  </sec>
+  <sec id="html-blocks">
+    <title>HTML Blocks</title>
+    <p>
+      Simple block on one line:
+    </p>
+    <boxed-text>
+      <p>
+        foo
+      </p>
+    </boxed-text>
+    <p>
+      And nested without indentation:
+    </p>
+    <boxed-text>
+      <boxed-text>
+        <p>
+          foo
+        </p>
+      </boxed-text>
+      <boxed-text>
+        <p>
+          bar
+        </p>
+      </boxed-text>
+    </boxed-text>
+    <p>
+      Interpreted markdown in a table:
+    </p>
+    <p>
+      This is <italic>emphasized</italic>
+    </p>
+    <p>
+      And this is <bold role="strong">strong</bold>
+    </p>
+    <p>
+      Here’s a simple block:
+    </p>
+    <p>
+      foo
+    </p>
+    <p>
+      This should be a code block, though:
+    </p>
+    <preformat>&lt;div&gt;
+    foo
+&lt;/div&gt;</preformat>
+    <p>
+      As should this:
+    </p>
+    <preformat>&lt;div&gt;foo&lt;/div&gt;</preformat>
+    <p>
+      Now, nested:
+    </p>
+    <boxed-text>
+      <boxed-text>
+        <boxed-text>
+          <p>
+            foo
+          </p>
+        </boxed-text>
+      </boxed-text>
+    </boxed-text>
+    <p>
+      This should just be an HTML comment:
+    </p>
+    <p>
+      Multiline:
+    </p>
+    <p>
+      Code block:
+    </p>
+    <preformat>&lt;!-- Comment --&gt;</preformat>
+    <p>
+      Just plain comment, with trailing spaces on the line:
+    </p>
+    <p>
+      Code:
+    </p>
+    <preformat>&lt;hr /&gt;</preformat>
+    <p>
+      Hr’s:
+    </p>
+  </sec>
+  <sec id="inline-markup">
+    <title>Inline Markup</title>
+    <p>
+      This is <italic>emphasized</italic>, and so <italic>is this</italic>.
+    </p>
+    <p>
+      This is <bold role="strong">strong</bold>, and so <bold role="strong">is
+      this</bold>.
+    </p>
+    <p>
+      An <italic><ext-link ext-link-type="uri" xlink:href="/url">emphasized
+      link</ext-link></italic>.
+    </p>
+    <p>
+      <bold role="strong"><italic>This is strong and em.</italic></bold>
+    </p>
+    <p>
+      So is <bold role="strong"><italic>this</italic></bold> word.
+    </p>
+    <p>
+      <bold role="strong"><italic>This is strong and em.</italic></bold>
+    </p>
+    <p>
+      So is <bold role="strong"><italic>this</italic></bold> word.
+    </p>
+    <p>
+      This is code: <monospace>&gt;</monospace>, <monospace>$</monospace>,
+      <monospace>\</monospace>, <monospace>\$</monospace>,
+      <monospace>&lt;html&gt;</monospace>.
+    </p>
+    <p>
+      <strike>This is <italic>strikeout</italic>.</strike>
+    </p>
+    <p>
+      Superscripts: a<sup>bc</sup>d a<sup><italic>hello</italic></sup>
+      a<sup>hello there</sup>.
+    </p>
+    <p>
+      Subscripts: H<sub>2</sub>O, H<sub>23</sub>O, H<sub>many of them</sub>O.
+    </p>
+    <p>
+      These should not be superscripts or subscripts, because of the unescaped
+      spaces: a^b c^d, a~b c~d.
+    </p>
+  </sec>
+  <sec id="smart-quotes-ellipses-dashes">
+    <title>Smart quotes, ellipses, dashes</title>
+    <p>
+      “Hello,” said the spider. “‘Shelob’ is my name.”
+    </p>
+    <p>
+      ‘A’, ‘B’, and ‘C’ are letters.
+    </p>
+    <p>
+      ‘Oak,’ ‘elm,’ and ‘beech’ are names of trees. So is ‘pine.’
+    </p>
+    <p>
+      ‘He said, “I want to go.”’ Were you alive in the 70’s?
+    </p>
+    <p>
+      Here is some quoted ‘<monospace>code</monospace>’ and a
+      “<ext-link ext-link-type="uri" xlink:href="http://example.com/?foo=1&amp;bar=2">quoted
+      link</ext-link>”.
+    </p>
+    <p>
+      Some dashes: one—two — three—four — five.
+    </p>
+    <p>
+      Dashes between numbers: 5–7, 255–66, 1987–1999.
+    </p>
+    <p>
+      Ellipses…and…and….
+    </p>
+  </sec>
+  <sec id="latex">
+    <title>LaTeX</title>
+    <list list-type="bullet">
+      <list-item>
+        <p>
+        </p>
+      </list-item>
+      <list-item>
+        <p>
+          <inline-formula><mml:math display="inline" xmlns:mml="http://www.w3.org/1998/Math/MathML"><mml:mrow><mml:mn>2</mml:mn><mml:mo>+</mml:mo><mml:mn>2</mml:mn><mml:mo>=</mml:mo><mml:mn>4</mml:mn></mml:mrow></mml:math></inline-formula>
+        </p>
+      </list-item>
+      <list-item>
+        <p>
+          <inline-formula><mml:math display="inline" xmlns:mml="http://www.w3.org/1998/Math/MathML"><mml:mrow><mml:mi>x</mml:mi><mml:mo>∈</mml:mo><mml:mi>y</mml:mi></mml:mrow></mml:math></inline-formula>
+        </p>
+      </list-item>
+      <list-item>
+        <p>
+          <inline-formula><mml:math display="inline" xmlns:mml="http://www.w3.org/1998/Math/MathML"><mml:mrow><mml:mi>α</mml:mi><mml:mo>∧</mml:mo><mml:mi>ω</mml:mi></mml:mrow></mml:math></inline-formula>
+        </p>
+      </list-item>
+      <list-item>
+        <p>
+          <inline-formula><mml:math display="inline" xmlns:mml="http://www.w3.org/1998/Math/MathML"><mml:mn>223</mml:mn></mml:math></inline-formula>
+        </p>
+      </list-item>
+      <list-item>
+        <p>
+          <inline-formula><mml:math display="inline" xmlns:mml="http://www.w3.org/1998/Math/MathML"><mml:mi>p</mml:mi></mml:math></inline-formula>-Tree
+        </p>
+      </list-item>
+      <list-item>
+        <p>
+          Here’s some display math:
+          <disp-formula><mml:math display="block" xmlns:mml="http://www.w3.org/1998/Math/MathML"><mml:mrow><mml:mfrac><mml:mi>d</mml:mi><mml:mrow><mml:mi>d</mml:mi><mml:mi>x</mml:mi></mml:mrow></mml:mfrac><mml:mi>f</mml:mi><mml:mo stretchy="false" form="prefix">(</mml:mo><mml:mi>x</mml:mi><mml:mo stretchy="false" form="postfix">)</mml:mo><mml:mo>=</mml:mo><mml:munder><mml:mo>lim</mml:mo><mml:mrow><mml:mi>h</mml:mi><mml:mo accent="false">→</mml:mo><mml:mn>0</mml:mn></mml:mrow></mml:munder><mml:mfrac><mml:mrow><mml:mi>f</mml:mi><mml:mo stretchy="false" form="prefix">(</mml:mo><mml:mi>x</mml:mi><mml:mo>+</mml:mo><mml:mi>h</mml:mi><mml:mo stretchy="false" form="postfix">)</mml:mo><mml:mo>−</mml:mo><mml:mi>f</mml:mi><mml:mo stretchy="false" form="prefix">(</mml:mo><mml:mi>x</mml:mi><mml:mo stretchy="false" form="postfix">)</mml:mo></mml:mrow><mml:mi>h</mml:mi></mml:mfrac></mml:mrow></mml:math></disp-formula>
+        </p>
+      </list-item>
+      <list-item>
+        <p>
+          Here’s one that has a line break in it:
+          <inline-formula><mml:math display="inline" xmlns:mml="http://www.w3.org/1998/Math/MathML"><mml:mrow><mml:mi>α</mml:mi><mml:mo>+</mml:mo><mml:mi>ω</mml:mi><mml:mo>×</mml:mo><mml:msup><mml:mi>x</mml:mi><mml:mn>2</mml:mn></mml:msup></mml:mrow></mml:math></inline-formula>.
+        </p>
+      </list-item>
+    </list>
+    <p>
+      These shouldn’t be math:
+    </p>
+    <list list-type="bullet">
+      <list-item>
+        <p>
+          To get the famous equation, write <monospace>$e = mc^2$</monospace>.
+        </p>
+      </list-item>
+      <list-item>
+        <p>
+          $22,000 is a <italic>lot</italic> of money. So is $34,000. (It
+          worked if “lot” is emphasized.)
+        </p>
+      </list-item>
+      <list-item>
+        <p>
+          Shoes ($20) and socks ($5).
+        </p>
+      </list-item>
+      <list-item>
+        <p>
+          Escaped <monospace>$</monospace>: $73 <italic>this should be
+          emphasized</italic> 23$.
+        </p>
+      </list-item>
+    </list>
+    <p>
+      Here’s a LaTeX table:
+    </p>
+  </sec>
+  <sec id="special-characters">
+    <title>Special Characters</title>
+    <p>
+      Here is some unicode:
+    </p>
+    <list list-type="bullet">
+      <list-item>
+        <p>
+          I hat: Î
+        </p>
+      </list-item>
+      <list-item>
+        <p>
+          o umlaut: ö
+        </p>
+      </list-item>
+      <list-item>
+        <p>
+          section: §
+        </p>
+      </list-item>
+      <list-item>
+        <p>
+          set membership: ∈
+        </p>
+      </list-item>
+      <list-item>
+        <p>
+          copyright: ©
+        </p>
+      </list-item>
+    </list>
+    <p>
+      AT&amp;T has an ampersand in their name.
+    </p>
+    <p>
+      AT&amp;T is another way to write it.
+    </p>
+    <p>
+      This &amp; that.
+    </p>
+    <p>
+      4 &lt; 5.
+    </p>
+    <p>
+      6 &gt; 5.
+    </p>
+    <p>
+      Backslash: \
+    </p>
+    <p>
+      Backtick: `
+    </p>
+    <p>
+      Asterisk: *
+    </p>
+    <p>
+      Underscore: _
+    </p>
+    <p>
+      Left brace: {
+    </p>
+    <p>
+      Right brace: }
+    </p>
+    <p>
+      Left bracket: [
+    </p>
+    <p>
+      Right bracket: ]
+    </p>
+    <p>
+      Left paren: (
+    </p>
+    <p>
+      Right paren: )
+    </p>
+    <p>
+      Greater-than: &gt;
+    </p>
+    <p>
+      Hash: #
+    </p>
+    <p>
+      Period: .
+    </p>
+    <p>
+      Bang: !
+    </p>
+    <p>
+      Plus: +
+    </p>
+    <p>
+      Minus: -
+    </p>
+  </sec>
+  <sec id="links">
+    <title>Links</title>
+    <sec id="explicit">
+      <title>Explicit</title>
+      <p>
+        Just a
+        <ext-link ext-link-type="uri" xlink:href="/url/">URL</ext-link>.
+      </p>
+      <p>
+        <ext-link ext-link-type="uri" xlink:href="/url/" xlink:title="title">URL
+        and title</ext-link>.
+      </p>
+      <p>
+        <ext-link ext-link-type="uri" xlink:href="/url/" xlink:title="title preceded by two spaces">URL
+        and title</ext-link>.
+      </p>
+      <p>
+        <ext-link ext-link-type="uri" xlink:href="/url/" xlink:title="title preceded by a tab">URL
+        and title</ext-link>.
+      </p>
+      <p>
+        <ext-link ext-link-type="uri" xlink:href="/url/" xlink:title="title with &quot;quotes&quot; in it">URL
+        and title</ext-link>
+      </p>
+      <p>
+        <ext-link ext-link-type="uri" xlink:href="/url/" xlink:title="title with single quotes">URL
+        and title</ext-link>
+      </p>
+      <p>
+        <ext-link ext-link-type="uri" xlink:href="/url/with_underscore">with_underscore</ext-link>
+      </p>
+      <p>
+        <ext-link ext-link-type="uri" xlink:href="mailto:nobody@nowhere.net">Email
+        link</ext-link>
+      </p>
+      <p>
+        <ext-link ext-link-type="uri" xlink:href="">Empty</ext-link>.
+      </p>
+    </sec>
+    <sec id="reference">
+      <title>Reference</title>
+      <p>
+        Foo <ext-link ext-link-type="uri" xlink:href="/url/">bar</ext-link>.
+      </p>
+      <p>
+        Foo <ext-link ext-link-type="uri" xlink:href="/url/">bar</ext-link>.
+      </p>
+      <p>
+        Foo <ext-link ext-link-type="uri" xlink:href="/url/">bar</ext-link>.
+      </p>
+      <p>
+        With <ext-link ext-link-type="uri" xlink:href="/url/">embedded
+        [brackets]</ext-link>.
+      </p>
+      <p>
+        <ext-link ext-link-type="uri" xlink:href="/url/">b</ext-link> by
+        itself should be a link.
+      </p>
+      <p>
+        Indented
+        <ext-link ext-link-type="uri" xlink:href="/url">once</ext-link>.
+      </p>
+      <p>
+        Indented
+        <ext-link ext-link-type="uri" xlink:href="/url">twice</ext-link>.
+      </p>
+      <p>
+        Indented
+        <ext-link ext-link-type="uri" xlink:href="/url">thrice</ext-link>.
+      </p>
+      <p>
+        This should [not][] be a link.
+      </p>
+      <preformat>[not]: /url</preformat>
+      <p>
+        Foo
+        <ext-link ext-link-type="uri" xlink:href="/url/" xlink:title="Title with &quot;quotes&quot; inside">bar</ext-link>.
+      </p>
+      <p>
+        Foo
+        <ext-link ext-link-type="uri" xlink:href="/url/" xlink:title="Title with &quot;quote&quot; inside">biz</ext-link>.
+      </p>
+    </sec>
+    <sec id="with-ampersands">
+      <title>With ampersands</title>
+      <p>
+        Here’s a
+        <ext-link ext-link-type="uri" xlink:href="http://example.com/?foo=1&amp;bar=2">link
+        with an ampersand in the URL</ext-link>.
+      </p>
+      <p>
+        Here’s a link with an amersand in the link text:
+        <ext-link ext-link-type="uri" xlink:href="http://att.com/" xlink:title="AT&amp;T">AT&amp;T</ext-link>.
+      </p>
+      <p>
+        Here’s an
+        <ext-link ext-link-type="uri" xlink:href="/script?foo=1&amp;bar=2">inline
+        link</ext-link>.
+      </p>
+      <p>
+        Here’s an
+        <ext-link ext-link-type="uri" xlink:href="/script?foo=1&amp;bar=2">inline
+        link in pointy braces</ext-link>.
+      </p>
+    </sec>
+    <sec id="autolinks">
+      <title>Autolinks</title>
+      <p>
+        With an ampersand:
+        <ext-link ext-link-type="uri" xlink:href="http://example.com/?foo=1&amp;bar=2">http://example.com/?foo=1&amp;bar=2</ext-link>
+      </p>
+      <list list-type="bullet">
+        <list-item>
+          <p>
+            In a list?
+          </p>
+        </list-item>
+        <list-item>
+          <p>
+            <ext-link ext-link-type="uri" xlink:href="http://example.com/">http://example.com/</ext-link>
+          </p>
+        </list-item>
+        <list-item>
+          <p>
+            It should.
+          </p>
+        </list-item>
+      </list>
+      <p>
+        An e-mail address: <email>nobody@nowhere.net</email>
+      </p>
+      <disp-quote>
+        <p>
+          Blockquoted:
+          <ext-link ext-link-type="uri" xlink:href="http://example.com/">http://example.com/</ext-link>
+        </p>
+      </disp-quote>
+      <p>
+        Auto-links should not occur here:
+        <monospace>&lt;http://example.com/&gt;</monospace>
+      </p>
+      <preformat>or here: &lt;http://example.com/&gt;</preformat>
+    </sec>
+  </sec>
+  <sec id="images">
+    <title>Images</title>
+    <p>
+      From “Voyage dans la Lune” by Georges Melies (1902):
+    </p>
+    <fig>
+      <caption>lalune</caption>
+      <graphic mimetype="image" mime-subtype="peg" xlink:href="lalune.jpg" xlink:title="Voyage dans la Lune" />
+    </fig>
+    <p>
+      Here is a movie
+      <inline-graphic mimetype="image" mime-subtype="jpeg" xlink:href="movie.jpg" />
+      icon.
+    </p>
+  </sec>
+  <sec id="footnotes">
+    <title>Footnotes</title>
+    <p>
+      Here is a footnote reference,<fn>
+        <p>
+          Here is the footnote. It can go anywhere after the footnote
+          reference. It need not be placed at the end of the document.
+        </p>
+      </fn> and another.<fn>
+        <p>
+          Here’s the long note. This one contains multiple blocks.
+        </p>
+        <p>
+          Subsequent blocks are indented to show that they belong to the
+          footnote (as with list items).
+        </p>
+        <preformat>  { &lt;code&gt; }</preformat>
+        <p>
+          If you want, you can indent every line, but you can also be lazy and
+          just indent the first line of each block.
+        </p>
+      </fn> This should <italic>not</italic> be a footnote reference, because
+      it contains a space.[^my note] Here is an inline note.<fn>
+        <p>
+          This is <italic>easier</italic> to type. Inline notes may contain
+          <ext-link ext-link-type="uri" xlink:href="http://google.com">links</ext-link>
+          and <monospace>]</monospace> verbatim characters, as well as
+          [bracketed text].
+        </p>
+      </fn>
+    </p>
+    <disp-quote>
+      <p>
+        Notes can go in quotes.<fn>
+          <p>
+            In quote.
+          </p>
+        </fn>
+      </p>
+    </disp-quote>
+    <list list-type="order">
+      <list-item>
+        <p>
+          And in list items.<fn>
+            <p>
+              In list.
+            </p>
+          </fn>
+        </p>
+      </list-item>
+    </list>
+    <p>
+      This paragraph should not be part of the note, as it is not indented.
+    </p>
+  </sec>
+</body>
+</article>