@@ -82,7 +82,8 @@ import System.FilePath (takeExtension)
8282import Data.Aeson (Value)
8383import Control.Monad.Except (throwError)
8484import Text.Pandoc.Error
85−import Text.Pandoc.Class (PandocMonad)
85+import Text.Pandoc.Class (PandocMonad, report)
86+import Text.Pandoc.Logging
8687
8788data WriterState = WriterState
8889 { stNotes :: [Html] -- ^ List of notes
@@ -591,7 +592,9 @@ blockToHtml opts (RawBlock f str)
591592 | (f == Format "latex" || f == Format "tex") &&
592593 allowsMathEnvironments (writerHTMLMathMethod opts) &&
593594 isMathEnvironment str = blockToHtml opts $ Plain [Math DisplayMath str]
594− | otherwise = return mempty
595+ | otherwise = do
596+ report $ BlockNotRendered (RawBlock f str)
597+ return mempty
595598blockToHtml _ (HorizontalRule) = do
596599 html5 <- gets stHtml5
597600 return $ if html5 then H5.hr else H.hr
@@ -925,7 +928,9 @@ inlineToHtml opts inline = do
925928 DisplayMath -> brtag >> m >> brtag
926929 (RawInline f str)
927930 | f == Format "html" -> return $ preEscapedString str
928− | otherwise -> return mempty
931+ | otherwise -> do
932+ report $ InlineNotRendered inline
933+ return mempty
929934 (Link attr txt (s,_)) | "mailto:" `isPrefixOf` s -> do
930935 linkText <- inlineListToHtml opts txt
931936 lift $ obfuscateLink opts attr linkText s