@@ -337,6 +337,8 @@ blockCommands = M.fromList $
337 , ("address", mempty <$ (skipopts *> tok >>= addMeta "address"))
337 , ("address", mempty <$ (skipopts *> tok >>= addMeta "address"))
338 , ("signature", mempty <$ (skipopts *> authors))
338 , ("signature", mempty <$ (skipopts *> authors))
339 , ("date", mempty <$ (skipopts *> tok >>= addMeta "date"))
339 , ("date", mempty <$ (skipopts *> tok >>= addMeta "date"))
340+ -- Koma-script metadata commands
341+ , ("dedication", mempty <$ (skipopts *> tok >>= addMeta "dedication"))
340 -- sectioning
342 -- sectioning
341 , ("chapter", updateState (\s -> s{ stateHasChapters = True })
343 , ("chapter", updateState (\s -> s{ stateHasChapters = True })
342 *> section nullAttr 0)
344 *> section nullAttr 0)