TEI writer: Use height instead of depth for images.

Closes #4331.
This commit is contained in:
John MacFarlane 2018-02-01 11:38:33 -08:00
parent c501942866
commit 8bdbdc24de

View file

@ -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 -> []