@@ -655,7 +655,7 @@ inlineToOpenXML opts (Note bs) = do
655 notes <- gets stFootnotes
655 notes <- gets stFootnotes
656 notenum <- getUniqueId
656 notenum <- getUniqueId
657 let notemarker = mknode "w:r" []
657 let notemarker = mknode "w:r" []
658− [ mknode "w:rPr" [] (rStyle "FootnoteReference")
658+ [ mknode "w:rPr" [] (rStyle "FootnoteRef")
659 , mknode "w:footnoteRef" [] () ]
659 , mknode "w:footnoteRef" [] () ]
660 let notemarkerXml = RawInline "openxml" $ ppElement notemarker
660 let notemarkerXml = RawInline "openxml" $ ppElement notemarker
661 let insertNoteRef (Plain ils : xs) = Plain (notemarkerXml : ils) : xs
661 let insertNoteRef (Plain ils : xs) = Plain (notemarkerXml : ils) : xs
@@ -672,15 +672,15 @@ inlineToOpenXML opts (Note bs) = do
672 let newnote = mknode "w:footnote" [("w:id", notenum)] $ contents
672 let newnote = mknode "w:footnote" [("w:id", notenum)] $ contents
673 modify $ \s -> s{ stFootnotes = newnote : notes }
673 modify $ \s -> s{ stFootnotes = newnote : notes }
674 return [ mknode "w:r" []
674 return [ mknode "w:r" []
675− [ mknode "w:rPr" [] (rStyle "FootnoteReference")
675+ [ mknode "w:rPr" [] (rStyle "FootnoteRef")
676 , mknode "w:footnoteReference" [("w:id", notenum)] () ] ]
676 , mknode "w:footnoteReference" [("w:id", notenum)] () ] ]
677-- internal link:
677-- internal link:
678inlineToOpenXML opts (Link txt ('#':xs,_)) = do
678inlineToOpenXML opts (Link txt ('#':xs,_)) = do
679− contents <- withTextProp (rStyle "Hyperlink") $ inlinesToOpenXML opts txt
679+ contents <- withTextProp (rStyle "Link") $ inlinesToOpenXML opts txt
680 return [ mknode "w:hyperlink" [("w:anchor",xs)] contents ]
680 return [ mknode "w:hyperlink" [("w:anchor",xs)] contents ]
681-- external link:
681-- external link:
682inlineToOpenXML opts (Link txt (src,_)) = do
682inlineToOpenXML opts (Link txt (src,_)) = do
683− contents <- withTextProp (rStyle "Hyperlink") $ inlinesToOpenXML opts txt
683+ contents <- withTextProp (rStyle "Link") $ inlinesToOpenXML opts txt
684 extlinks <- gets stExternalLinks
684 extlinks <- gets stExternalLinks
685 id' <- case M.lookup src extlinks of
685 id' <- case M.lookup src extlinks of
686 Just i -> return i
686 Just i -> return i