mirror of
https://github.com/jgm/pandoc.git
synced 2026-09-24 15:44:59 +08:00
@@ -145,7 +145,7 @@ imageToTEI :: PandocMonad m => WriterOptions -> Attr -> String -> m Doc
|
||||
imageToTEI _ attr src = return $ selfClosingTag "graphic" $
|
||||
("url", src) : idAndRole attr ++ dims
|
||||
where
|
||||
dims = go Width "width" ++ go Height "depth"
|
||||
dims = go Width "width" ++ go Height "height"
|
||||
go dir dstr = case dimension dir attr of
|
||||
Just a -> [(dstr, show a)]
|
||||
Nothing -> []
|
||||
|
||||
Reference in New Issue
Block a user