LaTeX reader: Handle \caption for images in figures.

Closes #766.
2026-09-24 15:44:59 +08:00 · 2013-02-26 22:16:03 -08:00
parent 3fca434737
commit 52ee09608a
1 changed files with 6 additions and 3 deletions
@@ -498,12 +498,15 @@ inlineCommands = M.fromList $
  [ "noindent", "index", "nocite" ]

 mkImage :: String -> LP Inlines
-mkImage src =
+mkImage src = do
+   -- try for a caption
+   alt <- option (str "image") $ try $ spaces >>
+           controlSeq "caption" >> optional (char '*') >> grouped inline
   case takeExtension src of
        "" -> do
              defaultExt <- getOption readerDefaultImageExtension
-              return $ image (addExtension src defaultExt) "" (str "image")
-        _  -> return $ image src "" (str "image")
+              return $ image (addExtension src defaultExt) "" alt
+        _  -> return $ image src "" alt

 inNote :: Inlines -> Inlines
 inNote ils =