@@ -1122,7 +1122,11 @@ inlineToLaTeX (Image attr _ (source, _)) = do
11221122 Just (Pixel a) ->
11231123 [d <> text (showInInch opts (Pixel a)) <> "in"]
11241124 Just (Percent a) ->
1125− [d <> text (showFl (a / 100)) <> "\\textwidth"]
1125+ [d <> text (showFl (a / 100)) <>
1126+ case dir of
1127+ Width -> "\\textwidth"
1128+ Height -> "\\textheight"
1129+ ]
11261130 Just dim ->
11271131 [d <> text (show dim)]
11281132 Nothing ->