Docx reader: parse EN.CITE and EN.REFLIST fields.

1 files changed, 16 insertions, 2 deletions

diff --git a/src/Text/Pandoc/Readers/Docx/Fields.hs b/src/Text/Pandoc/Readers/Docx/Fields.hs
index a53ef35ea..4cb89ac0c 100644
--- a/src/Text/Pandoc/Readers/Docx/Fields.hs
+++ b/src/Text/Pandoc/Readers/Docx/Fields.hs
@@ -28,6 +28,8 @@ data FieldInfo = HyperlinkField URL
                | PagerefField Anchor Bool
                | CslCitation T.Text
                | CslBibliography
+               | EndNoteCite T.Text
+               | EndNoteRefList
                | UnknownField
                deriving (Show)
 
@@ -38,7 +40,7 @@ fieldInfo :: Parser FieldInfo
 fieldInfo =
   try (HyperlinkField <$> hyperlink)
   <|>
-  try ((uncurry PagerefField) <$> pageref) 
+  try ((uncurry PagerefField) <$> pageref)
   <|>
   try addIn
   <|>
@@ -49,7 +51,7 @@ addIn = do
   spaces
   string "ADDIN"
   spaces
-  try cslCitation <|> cslBibliography
+  try cslCitation <|> cslBibliography <|> endnoteCite <|> endnoteRefList
 
 cslCitation :: Parser FieldInfo
 cslCitation = do
@@ -64,6 +66,18 @@ cslBibliography = do
   string "ZOTERO_BIBL" <|> string "Mendeley Bibliography CSL_BIBLIOGRAPHY"
   return CslBibliography
 
+endnoteCite :: Parser FieldInfo
+endnoteCite = try $ do
+  string "EN.CITE"
+  spaces
+  EndNoteCite <$> getInput
+
+endnoteRefList :: Parser FieldInfo
+endnoteRefList = try $ do
+  string "EN.REFLIST"
+  return EndNoteRefList
+
+
 escapedQuote :: Parser T.Text
 escapedQuote = string "\\\"" $> "\\\""