4e7aadb · typeable/pandoc

475 else do

476 contents <- blockListToHtml opts blocks

477 return $ H.blockquote $ nl opts >> contents >> nl opts

478−blockToHtml opts (Header level (ident,_,_) lst) = do

478+blockToHtml opts (Header level (_,_,_) lst) = do

479 contents <- inlineListToHtml opts lst

480 secnum <- liftM stSecNum get

481 let contents' = if writerNumberSections opts && not (null secnum)

482 then (H.span ! A.class_ "header-section-number" $ toHtml

483 $ showSecNum secnum) >> strToHtml " " >> contents

484 else contents

485− let revealSlash = ['/' | writerSlideVariant opts == RevealJsSlides]

486− let contents'' = if writerTableOfContents opts && not (null ident)

487− then H.a ! A.href (toValue $

488− '#' : revealSlash ++

489− writerIdentifierPrefix opts ++

490− ident) $ contents'

491− else contents'

492 return $ case level of

485 return $ case level of

493− 1 -> H.h1 contents''

486+ 1 -> H.h1 contents'

494− 2 -> H.h2 contents''

487+ 2 -> H.h2 contents'

495− 3 -> H.h3 contents''

488+ 3 -> H.h3 contents'

496− 4 -> H.h4 contents''

489+ 4 -> H.h4 contents'

497− 5 -> H.h5 contents''

490+ 5 -> H.h5 contents'

498− 6 -> H.h6 contents''

491+ 6 -> H.h6 contents'

499− _ -> H.p contents''

492+ _ -> H.p contents'

500blockToHtml opts (BulletList lst) = do

493blockToHtml opts (BulletList lst) = do

501 contents <- mapM (blockListToHtml opts) lst

494 contents <- mapM (blockListToHtml opts) lst

502 return $ unordList opts contents

495 return $ unordList opts contents