Support architecture argument to Dt

silby · Nov 3, 2024 · 70771de · 70771de
1 parent 5b4e922
commit 70771de
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/src/Text/Pandoc/Readers/Mdoc.hs b/src/Text/Pandoc/Readers/Mdoc.hs
@@ -248,9 +248,13 @@ parsePrologue = do
   macro "Dt"
   (Lit title _) <- lit
   (Lit section _) <- lit
+  arch <- optionMaybe (toString <$> lit)
   eol
   emptyMacro "Os"
-  let adjust = B.setMeta "title" (B.str title) . B.setMeta "date" date . B.setMeta "section" (B.str section)
+  let adjust = B.setMeta "title" (B.str title)
+             . B.setMeta "date" date
+             . B.setMeta "section" (B.str section)
+             . maybe id (B.setMeta "architecture" . B.str) arch
   modifyState $ \s -> s{metadata = adjust $ metadata s}
 
 shToSectionMode :: T.Text -> MdocSection