aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJustin Bedo <cu@cua0.org>2022-02-13 08:09:39 +1100
committerJustin Bedo <cu@cua0.org>2022-02-13 08:09:39 +1100
commit3c265bb513f9c10a106c06e86a01c5b67b680d40 (patch)
tree0583a00055f07310143189108a595cb14261d985
parentcca7a01d0f83b61f12491db0923e502c5650b918 (diff)
No space after (
-rw-r--r--latexfmt.hs1
1 files changed, 1 insertions, 0 deletions
diff --git a/latexfmt.hs b/latexfmt.hs
index c1ecfe1..b7473ce 100644
--- a/latexfmt.hs
+++ b/latexfmt.hs
@@ -23,6 +23,7 @@ toStr (Wrd w) = do
if T.length w >= 1 && T.head w `elem` (".,;:!?)" :: [Char])
then print' w
else print w
+ when (w == "(") suppress
when (T.last w == '.') printnl
toStr (Cmd c) = if T.length c > 0 && isCtrl (T.head c)
then print' $ "\\" `T.append` c