f449dfd · typeable/pandoc

git.iko.soy/typeable/pandoc

on master help sign in

LaTeX reader: Add "fig:" as title for images with captions.

f449dfdJohn MacFarlane14 years ago

src/Text/Pandoc/Readers/LaTeX.hs+8−4

@@ -500,13 +500,17 @@ inlineCommands = M.fromList $

500mkImage :: String -> LP Inlines

501mkImage src = do

502 -- try for a caption

503− alt <- option (str "image") $ try $ spaces >>

503+ (alt, tit) <- option (str "image", "") $ try $ do

504+ spaces

504− controlSeq "caption" >> optional (char '*') >> grouped inline

505+ controlSeq "caption"

506+ optional (char '*')

507+ ils <- grouped inline

508+ return (ils, "fig:")

505 case takeExtension src of

509 case takeExtension src of

506 "" -> do

510 "" -> do

507 defaultExt <- getOption readerDefaultImageExtension

511 defaultExt <- getOption readerDefaultImageExtension

508− return $ image (addExtension src defaultExt) "" alt

512+ return $ image (addExtension src defaultExt) tit alt

509− _ -> return $ image src "" alt

513+ _ -> return $ image src tit alt

510

514

511inNote :: Inlines -> Inlines

515inNote :: Inlines -> Inlines

512inNote ils =

516inNote ils =