Add endnotes support

data/docx/word/styles.xml

@@ -337,6 +337,14 @@
     <w:unhideWhenUsed />
     <w:qFormat />
   </w:style>
+  <w:style w:type="paragraph" w:styleId="EndnoteText">
+    <w:name w:val="Endnote Text" />
+    <w:basedOn w:val="Normal" />
+    <w:next w:val="EndnoteText" />
+    <w:uiPriority w:val="9" />
+    <w:unhideWhenUsed />
+    <w:qFormat />
+  </w:style>
   <w:style w:type="character" w:default="1" w:styleId="DefaultParagraphFont">
     <w:name w:val="Default Paragraph Font" />
     <w:semiHidden />
@@ -428,6 +436,13 @@
       <w:vertAlign w:val="superscript" />
     </w:rPr>
   </w:style>
+  <w:style w:type="character" w:styleId="EndnoteReference">
+    <w:name w:val="Endnote Reference" />
+    <w:basedOn w:val="BodyTextChar" />
+    <w:rPr>
+      <w:vertAlign w:val="superscript" />
+    </w:rPr>
+  </w:style>
   <w:style w:type="character" w:styleId="Hyperlink">
     <w:name w:val="Hyperlink" />
     <w:basedOn w:val="BodyTextChar" />

data/pandoc.lua

@@ -581,11 +581,12 @@ M.InlineMath = M.Inline:create_constructor(
 
 --- Creates a Note inline element
 -- @function Note
--- @tparam      {Block,...} content     footnote block content
+-- @tparam      {Block,...} content     note block content
+-- @tparam      "FootNote"|"EndNote"    note type
 M.Note = M.Inline:create_constructor(
   "Note",
-  function(content) return {c = ensureList(content)} end,
-  "content"
+  function(content, notetype) return {c = {notetype, ensureList(content)}} end,
+  {"content", "notetype"}
 )
 
 --- Creates a Quoted inline element given the quote type and quoted content.

src/Text/Pandoc/Lua/StackInstances.hs

@@ -140,6 +140,11 @@ instance ToLuaStack QuoteType where
 instance FromLuaStack QuoteType where
   peek idx = safeRead' =<< peek idx
 
+instance ToLuaStack NoteType where
+  push = push . show
+instance FromLuaStack NoteType where
+  peek idx = safeRead' =<< peek idx
+
 instance ToLuaStack Double where
   push = push . (realToFrac :: Double -> LuaNumber)
 instance FromLuaStack Double where
@@ -252,7 +257,7 @@ pushInline = \case
   Image attr alt (src,tit) -> pushViaConstructor "Image" alt src tit (LuaAttr attr)
   LineBreak                -> pushViaConstructor "LineBreak"
   Link attr lst (src,tit)  -> pushViaConstructor "Link" lst src tit (LuaAttr attr)
-  Note blcks               -> pushViaConstructor "Note" blcks
+  Note t blcks             -> pushViaConstructor "Note" blcks t
   Math mty str             -> pushViaConstructor "Math" mty str
   Quoted qt inlns          -> pushViaConstructor "Quoted" qt inlns
   RawInline f cs           -> pushViaConstructor "RawInline" f cs
@@ -280,7 +285,7 @@ peekInline idx = defineHowTo "get Inline value" $ do
     "Link"       -> (\(LuaAttr attr, lst, tgt) -> Link attr lst tgt)
                     <$> elementContent
     "LineBreak"  -> return LineBreak
-    "Note"       -> Note <$> elementContent
+    "Note"       -> uncurry Note <$> elementContent
     "Math"       -> uncurry Math <$> elementContent
     "Quoted"     -> uncurry Quoted <$> elementContent
     "RawInline"  -> uncurry RawInline <$> elementContent

src/Text/Pandoc/Readers/Docx.hs

@@ -67,7 +67,7 @@ implemented, [-] means partially implemented):
   - [X] Link (links to an arbitrary bookmark create a span with the target as
         id and "anchor" class)
   - [X] Image
-  - [X] Note (Footnotes and Endnotes are silently combined.)
+  - [X] Note
 -}
 
 module Text.Pandoc.Readers.Docx
@@ -320,7 +320,7 @@ runToInlines (Footnote bps) = do
   return $ note blksList
 runToInlines (Endnote bps) = do
   blksList <- smushBlocks <$> mapM bodyPartToBlocks bps
-  return $ note blksList
+  return $ endNote blksList
 runToInlines (InlineDrawing fp title alt bs ext) = do
   (lift . lift) $ P.insertMedia fp Nothing bs
   return $ imageWith (extentToAttr ext) fp title $ text alt

src/Text/Pandoc/Readers/HTML.hs

@@ -110,7 +110,7 @@ replaceNotes :: PandocMonad m => [Block] -> TagParser m [Block]
 replaceNotes = walkM replaceNotes'
 
 replaceNotes' :: PandocMonad m => Inline -> TagParser m Inline
-replaceNotes' (RawInline (Format "noteref") ref) = maybe (Str "") (Note . B.toList) . lookup ref <$> getNotes
+replaceNotes' (RawInline (Format "noteref") ref) = maybe (Str "") (Note FootNote . B.toList) . lookup ref <$> getNotes
   where
     getNotes = noteTable <$> getState
 replaceNotes' x = return x

src/Text/Pandoc/Readers/Muse.hs

@@ -480,12 +480,22 @@ paraUntil end = do
   updateState (\st -> st { museInPara = False })
   return (fmap B.para $ trimInlinesF $ mconcat l, e)
 
-noteMarker :: PandocMonad m => MuseParser m String
-noteMarker = try $ do
-  char '['
+noteBrackets :: NoteType -> (Char, Char)
+noteBrackets nt =
+  case nt of
+    EndNote -> ('{', '}')
+    _       -> ('[', ']')
+
+noteMarker :: PandocMonad m => NoteType -> MuseParser m (NoteType, String)
+noteMarker nt = try $ do
+  char l
   first <- oneOf "123456789"
-  rest <- manyTill digit (char ']')
-  return $ first:rest
+  rest <- manyTill digit (char r)
+  return (nt, [l] ++ (first:rest) ++ [r])
+  where (l, r) = noteBrackets nt
+
+anyNoteMarker :: PandocMonad m => MuseParser m (NoteType, String)
+anyNoteMarker = noteMarker FootNote <|> noteMarker EndNote
 
 -- Amusewiki version of note
 -- Parsing is similar to list item, except that note marker is used instead of list marker
@@ -495,7 +505,7 @@ amuseNoteBlockUntil :: PandocMonad m
 amuseNoteBlockUntil end = try $ do
   guardEnabled Ext_amuse
   pos <- getPosition
-  ref <- noteMarker <* spaceChar
+  (_, ref) <- anyNoteMarker <* spaceChar
   st <- getState
   setState $ st{ museInPara = False }
   (content, e) <- listItemContentsUntil (sourceColumn pos) (fail "x") end
@@ -512,7 +522,7 @@ emacsNoteBlock :: PandocMonad m => MuseParser m (F Blocks)
 emacsNoteBlock = try $ do
   guardDisabled Ext_amuse
   pos <- getPosition
-  ref <- noteMarker <* skipSpaces
+  (_, ref) <- anyNoteMarker <* skipSpaces
   content <- mconcat <$> blocksTillNote
   oldnotes <- museNotes <$> getState
   case M.lookup ref oldnotes of
@@ -522,7 +532,7 @@ emacsNoteBlock = try $ do
   return mempty
   where
     blocksTillNote =
-      many1Till parseBlock (eof <|> () <$ lookAhead noteMarker)
+      many1Till parseBlock (eof <|> () <$ lookAhead anyNoteMarker)
 
 --
 -- Verse markup
@@ -816,15 +826,15 @@ anchor = try $ do
 
 footnote :: PandocMonad m => MuseParser m (F Inlines)
 footnote = try $ do
-  ref <- noteMarker
+  (notetype, ref) <- anyNoteMarker
   return $ do
     notes <- asksF museNotes
     case M.lookup ref notes of
-      Nothing -> return $ B.str $ "[" ++ ref ++ "]"
+      Nothing -> return $ B.str ref
       Just (_pos, contents) -> do
         st <- askF
         let contents' = runF contents st { museNotes = M.empty }
-        return $ B.note contents'
+        return $ B.singleton $ Note notetype $ B.toList contents'
 
 whitespace :: PandocMonad m => MuseParser m (F Inlines)
 whitespace = try $ do

src/Text/Pandoc/Readers/Odt/ContentReader.hs

@@ -694,8 +694,12 @@ read_link         = matchingElement NsText "a"
 
 read_note        :: InlineMatcher
 read_note         = matchingElement NsText "note"
-                    $ liftA note
-                    $ matchChildContent' [ read_note_body ]
+                    $ liftA2 (\nt -> singleton . Note nt . toList)
+                      (liftA makeNoteType (findAttrWithDefault NsText "note-class" "footnote"))
+                      (matchChildContent' [ read_note_body ])
+  where
+    makeNoteType :: String -> NoteType
+    makeNoteType x = if x == "endnote" then EndNote else FootNote
 
 read_note_body   :: BlockMatcher
 read_note_body    = matchingElement NsText "note-body"

src/Text/Pandoc/Shared.hs

@@ -351,8 +351,8 @@ removeFormatting = query go . walk (deNote . deQuote)
         go _          = []
 
 deNote :: Inline -> Inline
-deNote (Note _) = Str ""
-deNote x        = x
+deNote (Note _ _) = Str ""
+deNote x          = x
 
 deQuote :: Inline -> Inline
 deQuote (Quoted SingleQuote xs) =

src/Text/Pandoc/Writers/AsciiDoc.hs

@@ -477,13 +477,13 @@ inlineToAsciiDoc opts (Image attr alternate (src, tit)) = do
                 then empty
                 else "," <> cat (intersperse "," dimList)
   return $ "image:" <> text src <> "[" <> linktext <> linktitle <> dims <> "]"
-inlineToAsciiDoc opts (Note [Para inlines]) =
-  inlineToAsciiDoc opts (Note [Plain inlines])
-inlineToAsciiDoc opts (Note [Plain inlines]) = do
+inlineToAsciiDoc opts (Note t [Para inlines]) =
+  inlineToAsciiDoc opts (Note t [Plain inlines])
+inlineToAsciiDoc opts (Note _ [Plain inlines]) = do
   contents  <- inlineListToAsciiDoc opts inlines
   return $ text "footnote:[" <> contents <> "]"
 -- asciidoc can't handle blank lines in notes
-inlineToAsciiDoc _ (Note _) = return "[multiblock footnote omitted]"
+inlineToAsciiDoc _ (Note _ _) = return "[multiblock footnote omitted]"
 inlineToAsciiDoc opts (Span (ident,_,_) ils) = do
   let identifier = if null ident then empty else ("[[" <> text ident <> "]]")
   contents <- inlineListToAsciiDoc opts ils

src/Text/Pandoc/Writers/CommonMark.hs

@@ -71,7 +71,7 @@ softBreakToSpace SoftBreak = Space
 softBreakToSpace x         = x
 
 processNotes :: Inline -> State [[Block]] Inline
-processNotes (Note bs) = do
+processNotes (Note _ bs) = do
   modify (bs :)
   notes <- get
   return $ Str $ "[" ++ show (length notes) ++ "]"
@@ -310,5 +310,5 @@ inlineToNodes opts (Span attr ils) =
                 [node (HTML_INLINE (T.pack "</span>")) []]) ++)
          else (nodes ++)
 inlineToNodes opts (Cite _ ils) = (inlinesToNodes opts ils ++)
-inlineToNodes _ (Note _) = id -- should not occur
+inlineToNodes _ (Note{}) = id -- should not occur
 -- we remove Note elements in preprocessing

src/Text/Pandoc/Writers/ConTeXt.hs

@@ -459,7 +459,7 @@ inlineToConTeXt (Image attr@(_,cls,_) _ (src, _)) = do
                 then src
                 else unEscapeString src
   return $ braces $ "\\externalfigure" <> brackets (text src') <> dims <> clas
-inlineToConTeXt (Note contents) = do
+inlineToConTeXt (Note _ contents) = do
   contents' <- blockListToConTeXt contents
   let codeBlock x@(CodeBlock _ _) = [x]
       codeBlock _                 = []

src/Text/Pandoc/Writers/Custom.hs

@@ -241,7 +241,7 @@ inlineToCustom (Link attr txt (src,tit)) =
 inlineToCustom (Image attr alt (src,tit)) =
   callFunc "Image" (Stringify alt) src tit (attrToMap attr)
 
-inlineToCustom (Note contents) = callFunc "Note" (Stringify contents)
+inlineToCustom (Note noteType contents) = callFunc "Note" (Stringify contents) noteType
 
 inlineToCustom (Span attr items) =
   callFunc "Span" (Stringify items) (attrToMap attr)

src/Text/Pandoc/Writers/Docbook.hs

@@ -315,7 +315,7 @@ hasLineBreaks :: [Inline] -> Bool
 hasLineBreaks = getAny . query isLineBreak . walk removeNote
   where
     removeNote :: Inline -> Inline
-    removeNote (Note _) = Str ""
+    removeNote (Note{}) = Str ""
     removeNote x        = x
     isLineBreak :: Inline -> Any
     isLineBreak LineBreak = Any True
@@ -427,7 +427,7 @@ inlineToDocbook opts (Image attr _ (src, tit)) = return $
                         inTagsIndented "title" (text $ escapeStringForXML tit)
   in  inTagsIndented "inlinemediaobject" $ inTagsIndented "imageobject" $
       titleDoc $$ imageToDocbook opts attr src
-inlineToDocbook opts (Note contents) =
+inlineToDocbook opts (Note _ contents) =
   inTagsIndented "footnote" <$> blocksToDocbook opts contents
 
 isMathML :: HTMLMathMethod -> Bool