Correctly capitalize Emacs

Author: xsebek

app/Main.hs

@@ -50,7 +50,7 @@ cliParser =
     Data.Foldable.asum
       [ pure Nothing
       , Just VSCode <$ switch (long "code" <> help "Generate for the VS Code editor")
-      , Just EMacs <$ switch (long "emacs" <> help "Generate for the EMacs editor")
+      , Just Emacs <$ switch (long "emacs" <> help "Generate for the Emacs editor")
       ]
   seed :: Parser (Maybe Int)
   seed = optional $ option auto (long "seed" <> short 's' <> metavar "INT" <> help "Seed to use for world generation")

src/Swarm/DocGen.hs

@@ -9,7 +9,7 @@ module Swarm.DocGen (
   keywordsCommands,
   keywordsDirections,
   operatorNames,
-  builtinCommandsListEMacs,
+  builtinCommandsListEmacs,
   editorList,
 ) where
 
@@ -55,7 +55,7 @@ data GenerateDocs where
   EditorKeywords :: Maybe EditorType -> GenerateDocs
   deriving (Eq, Show)
 
-data EditorType = EMacs | VSCode
+data EditorType = Emacs | VSCode
   deriving (Eq, Show, Enum, Bounded)
 
 generateDocs :: GenerateDocs -> IO ()
@@ -79,12 +79,12 @@ generateDocs = \case
 
 generateEditorKeywords :: EditorType -> IO ()
 generateEditorKeywords = \case
-  EMacs -> do
+  Emacs -> do
     putStrLn "(x-builtins '("
-    T.putStr . editorList EMacs $ map constSyntax builtinCommandsEMacs
+    T.putStr . editorList Emacs $ map constSyntax builtinCommandsEmacs
     putStrLn "))\n(x-commands '("
-    T.putStr $ keywordsCommands EMacs
-    T.putStr $ keywordsDirections EMacs
+    T.putStr $ keywordsCommands Emacs
+    T.putStr $ keywordsDirections Emacs
     putStrLn "))"
   VSCode -> do
     putStrLn "Functions and commands:"
@@ -94,15 +94,15 @@ generateEditorKeywords = \case
     putStrLn "\nOperators:"
     T.putStrLn operatorNames
 
-builtinCommandsEMacs :: [Const]
-builtinCommandsEMacs = [If, Run, Return, Try, Fail, Force, Fst, Snd]
+builtinCommandsEmacs :: [Const]
+builtinCommandsEmacs = [If, Run, Return, Try, Fail, Force, Fst, Snd]
 
-builtinCommandsListEMacs :: Text
-builtinCommandsListEMacs = editorList EMacs $ map constSyntax builtinCommandsEMacs
+builtinCommandsListEmacs :: Text
+builtinCommandsListEmacs = editorList Emacs $ map constSyntax builtinCommandsEmacs
 
 editorList :: EditorType -> [Text] -> Text
 editorList = \case
-  EMacs -> T.unlines . map (("  " <>) . quote)
+  Emacs -> T.unlines . map (("  " <>) . quote)
   VSCode -> T.intercalate "|"
  where
   quote = T.cons '"' . flip T.snoc '"'
@@ -114,7 +114,7 @@ constSyntax = Syntax.syntax . Syntax.constInfo
 keywordsCommands :: EditorType -> Text
 keywordsCommands e = editorList e $ map constSyntax (filter isFunc Syntax.allConst)
  where
-  isFunc c = Syntax.isUserFunc c && (e /= EMacs || c `notElem` builtinCommandsEMacs)
+  isFunc c = Syntax.isUserFunc c && (e /= Emacs || c `notElem` builtinCommandsEmacs)
 
 -- | Get formatted list of directions.
 keywordsDirections :: EditorType -> Text

test/integration/Main.hs

@@ -232,15 +232,15 @@ testEditorFiles =
         , testTextInVSCode "directions" DocGen.keywordsDirections
         ]
     , testGroup
-        "EMacs"
-        [ testTextInEMacs "builtin" (const DocGen.builtinCommandsListEMacs)
-        , testTextInEMacs "commands" DocGen.keywordsCommands
-        , testTextInEMacs "directions" DocGen.keywordsDirections
+        "Emacs"
+        [ testTextInEmacs "builtin" (const DocGen.builtinCommandsListEmacs)
+        , testTextInEmacs "commands" DocGen.keywordsCommands
+        , testTextInEmacs "directions" DocGen.keywordsDirections
         ]
     ]
  where
   testTextInVSCode name tf = testTextInFile False name (tf VSCode) "editors/vscode/syntaxes/swarm.tmLanguage.json"
-  testTextInEMacs name tf = testTextInFile True name (tf EMacs) "editors/emacs/swarm-mode.el"
+  testTextInEmacs name tf = testTextInFile True name (tf Emacs) "editors/emacs/swarm-mode.el"
   testTextInFile :: Bool -> String -> Text -> FilePath -> TestTree
   testTextInFile whitespace name t fp = testCase name $ do
     let removeLW' = T.unlines . map (T.dropWhile isSpace) . T.lines