@@ -78,10 +78,10 @@ escapeSingleQuotes =
78escapeEllipses = gsub "\\.\\.\\.|\\. \\. \\." "\\ldots{}"
78escapeEllipses = gsub "\\.\\.\\.|\\. \\. \\." "\\ldots{}"
80escapeDashes = gsub "([0-9])-([0-9])" "\\1--\\2" .
80escapeDashes = gsub "([0-9])-([0-9])" "\\1--\\2" .
81− gsub " -- " "---" .
81+ gsub " *--- *" "---" .
82− gsub "([^[:punct:][:space:]])--([^[:punct:][:space:]])" "\\1---\\2"
82+ gsub "([^-])--([^-])" "\\1---\\2"
84−escapeSmart = escapeSingleQuotes . escapeDoubleQuotes . escapeDashes . escapeEllipses
84+escapeSmart = escapeDashes . escapeSingleQuotes . escapeDoubleQuotes . escapeEllipses
86-- | Escape string for LaTeX (including smart quotes, dashes, ellipses)
86-- | Escape string for LaTeX (including smart quotes, dashes, ellipses)
87stringToLaTeX :: String -> String
87stringToLaTeX :: String -> String