divInterp = BlockCommandInterpreter {
bciName = "div"
, bciInterpret
- = \ _ (BlockCommand _ attrs contents) -> return $ Div attrs contents
+ = \ _ (BlockCommand _ attrs contents)
+ -> return $ Div attrs (map Block contents)
}
Just linkTable
-> do Languages langTable <- getSysConf (ctxSysConf ctx)
let merged = mergeTables langTable (M.toList linkTable)
- return $ List $ mkLangList merged
+ return $ mkLangList merged
}
where
mergeTables :: Map LanguageTag LanguageName
in
(langName, pageName) : mergeTables m xs
- mkLangList :: [(LanguageName, PageName)] -> ListElement
- mkLangList xs = ListElement Bullet (map mkLangLink xs)
+ mkLangList :: [(LanguageName, PageName)] -> BlockElement
+ mkLangList xs = List Bullet (map mkLangLink xs)
mkLangLink :: (LanguageName, PageName) -> ListItem
mkLangLink (langName, pageName)
- = [Right (PageLink (Just pageName) Nothing (Just langName))]
\ No newline at end of file
+ = [Inline (PageLink (Just pageName) Nothing (Just langName))]
\ No newline at end of file