@@ -1124,7 +1124,12 @@ inlineToLaTeX (Image attr _ (source, _)) = do
1124 Just dim ->
1124 Just dim ->
1125 [d <> text (show dim)]
1125 [d <> text (show dim)]
1126 Nothing ->
1126 Nothing ->
1128+ Width | isJust (dimension Height attr) ->
1129+ [d <> "\\textwidth"]
1130+ Height | isJust (dimension Width attr) ->
1131+ [d <> "\\textheight"]
1128 dimList = showDim Width ++ showDim Height
1133 dimList = showDim Width ++ showDim Height
1129 dims = if null dimList
1134 dims = if null dimList
1130 then empty
1135 then empty