@@ -153,7 +153,14 @@ indentWith num = do
153153 , try (char '\t' >> count (num - tabStop) (char ' ')) ]
154154
155155translateLang :: String -> String
156−translateLang "sh" = "bash"
156+translateLang "C" = "c"
157+translateLang "C++" = "cpp"
158+translateLang "emacs-lisp" = "commonlisp" -- emacs lisp is not supported
159+translateLang "js" = "javascript"
160+translateLang "lisp" = "commonlisp"
161+translateLang "R" = "r"
162+translateLang "sh" = "bash"
163+translateLang "sqlite" = "sql"
157164translateLang cs = cs
158165
159166commaEscaped :: String -> String