@@ -522,7 +522,7 @@ pandocToEPUB version opts doc = do
522 toChapters [] = return []
522 toChapters [] = return []
523 toChapters (Div _ bs@(Header 1 _ _:_) : rest) =
523 toChapters (Div _ bs@(Header 1 _ _:_) : rest) =
524 toChapters (bs ++ rest)
524 toChapters (bs ++ rest)
525− toChapters (Header n attr@(_,classes,_) ils : bs) = do
525+ toChapters (Header n (ident,classes,kvs) ils : bs) = do
526 nums <- get
526 nums <- get
527 mbnum <- if "unnumbered" `elem` classes
527 mbnum <- if "unnumbered" `elem` classes
528 then return Nothing
528 then return Nothing
@@ -537,10 +537,12 @@ pandocToEPUB version opts doc = do
537 put nums'
537 put nums'
538 return $ Just ks
538 return $ Just ks
539 let (xs,ys) = break isChapterHeader bs
539 let (xs,ys) = break isChapterHeader bs
540− (Chapter mbnum (Header n attr ils : xs) :) `fmap` toChapters ys
540+ (Chapter mbnum
541+ (Header n (ident,"chapter-title":classes,kvs) ils : xs) :) <$>
541 toChapters (b:bs) = do
543 toChapters (b:bs) = do
542 let (xs,ys) = break isChapterHeader bs
544 let (xs,ys) = break isChapterHeader bs
543− (Chapter Nothing (b:xs) :) `fmap` toChapters ys
545+ (Chapter Nothing (b:xs) :) <$> toChapters ys
545 let chapters' = evalState (toChapters blocks') []
547 let chapters' = evalState (toChapters blocks') []