diff options
author | Mauro Bieg <mb21@users.noreply.github.com> | 2018-06-07 19:50:14 +0200 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2018-06-07 10:50:14 -0700 |
commit | 905dee6ee3c96560d67e82f6786b8f248b5c83c8 (patch) | |
tree | 88c6c3efaf7d7ae8a53fe45a2bc9c15e6d1044ad /src/Text/Pandoc/Writers | |
parent | 9536eb7c7920fa49baec2b90c64fdbb933220df0 (diff) | |
download | pandoc-905dee6ee3c96560d67e82f6786b8f248b5c83c8.tar.gz |
beamer output: fix single digit column percentage (#4691)
fixes #4690
Diffstat (limited to 'src/Text/Pandoc/Writers')
-rw-r--r-- | src/Text/Pandoc/Writers/LaTeX.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/LaTeX.hs b/src/Text/Pandoc/Writers/LaTeX.hs index 2904bec06..4c791aa44 100644 --- a/src/Text/Pandoc/Writers/LaTeX.hs +++ b/src/Text/Pandoc/Writers/LaTeX.hs @@ -487,7 +487,7 @@ blockToLaTeX (Div (identifier,classes,kvs) bs) then \contents -> let fromPct xs = case reverse xs of - '%':ds -> '0':'.': reverse ds + '%':ds -> showFl (read (reverse ds) / 100 :: Double) _ -> xs w = maybe "0.48" fromPct (lookup "width" kvs) in inCmd "begin" "column" <> |