@@ -662,12 +662,17 @@ hierarchicalizeWithIds ((Header level attr@(_,classes,_) title'):xs) = do
662662 sectionContents' <- hierarchicalizeWithIds sectionContents
663663 rest' <- hierarchicalizeWithIds rest
664664 return $ Sec level newnum attr title' sectionContents' : rest'
665+hierarchicalizeWithIds ((Div ("",["references"],[])
666+ (Header level (ident,classes,kvs) title' : xs)):ys) =
667+ hierarchicalizeWithIds ((Header level (ident,("references":classes),kvs)
668+ title') : (xs ++ ys))
665669hierarchicalizeWithIds (x:rest) = do
666670 rest' <- hierarchicalizeWithIds rest
667671 return $ (Blk x) : rest'
668672
669673headerLtEq :: Int -> Block -> Bool
670674headerLtEq level (Header l _ _) = l <= level
675+headerLtEq level (Div ("",["references"],[]) (Header l _ _ : _)) = l <= level
671676headerLtEq _ _ = False
672677
673678-- | Generate a unique identifier from a list of inlines.