Sketched out fix for letting raw directive in RST include files

src/Text/Pandoc/Readers/RST.hs

@@ -266,6 +266,46 @@ lineBlockDirective body = do
  lines' <- mapM parseInlineFromText $ T.lines $ stripTrailingNewlines body
  return $ B.lineBlock lines'
 
+--
+-- raw directive
+--
+-- See https://docutils.sourceforge.io/docs/ref/rst/directives.html#raw-data-pass-through
+
+rawDirective :: PandocMonad m
+ => Text
+ -> [(Text, Text)]
+ -> Text
+ -> RSTParser m Blocks
+rawDirective top fields body = do
+ -- Ignore the format for now and just include all the time
+ let format = maybe "" T.unpack $ trim top
+
+ let f = maybe "" lookup "file" fields >>= safeRead
+ -- There are a few more optional fields that I'm ignoring for now: uri, encoding, and classes
+ let uri = maybe "" lookup "uri" fields >>= safeRead
+ let encoding = maybe "" lookup "encoding" fields >>= safeRead
+ let classes = maybe [] T.words (lookup "class" fields)
+
+ -- The guards should be 'fail if body and f' and 'fail if not body and not f'
+ guard $ (T.null (trim body) && null f)
+ guard $ (not $ T.null (trim body) && not $ null f)
+
+ case f of
+ -- just include the file
+ Just file ->
+ -- not sure how necessary toStream is since we're not using start-lines and end-lines from includedirective
+ let toStream t =
+ Sources [(initialPos file,
+ (t) <>
+ "\n")] -- see #7436
+ currentDir <- takeDirectory . sourceName <$> getPosition
+ -- need to parse as RAW blocks here
+ return insertIncludedFile parseBlocks toStream [currentDir] file
+ -- else read the body as a raw block
+ Nothing -> return $ B.rawBlock (trim top) (stripTrailingNewlines body)
+
+
+
 --
 -- paragraph block
 --
@@ -662,7 +702,7 @@ directive' = do
  "list-table" -> listTableDirective top fields body'
  "csv-table" -> csvTableDirective top fields body'
  "line-block" -> lineBlockDirective body'
- "raw" -> return $ B.rawBlock (trim top) (stripTrailingNewlines body)
+ "raw" -> rawDirective top fields body'
  "role" -> addNewRole top $ map (second trim) fields
  "container" -> B.divWith
  (name, "container" : T.words top ++ classes, []) <$>