decapitalize Space in WorkSpaces

src/XMonad/Custom/ProgramWorkspaces.hs

@@ -1,4 +1,4 @@
-module XMonad.Custom.ProgramWorkSpaces (myProgramWorkSpacesKeyBindings, myProgramWorkSpaces) where
+module XMonad.Custom.ProgramWorkspaces (myProgramWorkspacesKeyBindings, myProgramWorkspaces) where
 
 import XMonad
 import XMonad.Actions.WindowGo
@@ -9,14 +9,14 @@ import XMonad.Custom.Modifiers
 
 
 -- | use secondary modifier to access program workspaces
-myProgramWorkSpaceModifier :: String
-myProgramWorkSpaceModifier = mySecondaryModifier
+myProgramWorkspaceModifier :: String
+myProgramWorkspaceModifier = mySecondaryModifier
 
--- | WorkSpaces (key, label, executable, className/ general )
-type ProgramWorkSpace = (String, String, String, Query Bool)
+-- | Workspaces (key, label, executable, className/ general )
+type ProgramWorkspace = (String, String, String, Query Bool)
 
-myProgramWorkSpacesConfig :: [ProgramWorkSpace]
-myProgramWorkSpacesConfig = addClassNameStrCheck [
+myProgramWorkspacesConfig :: [ProgramWorkspace]
+myProgramWorkspacesConfig = addClassNameStrCheck [
       ("s", "signal",   "signal-desktop",   "Signal")
     , ("e", "element",  "element-desktop",  "Element")
     , ("d", "discord",  "discord",          "discord")
@@ -51,32 +51,32 @@ second4 :: (a,b,c,d) -> b
 second4 (_, b, _, _) = b
 
 
--- | workSpaces itself
-myProgramWorkSpaces :: [String]
-myProgramWorkSpaces = map second4 myProgramWorkSpacesConfig
+-- | workspaces itself
+myProgramWorkspaces :: [String]
+myProgramWorkspaces = map second4 myProgramWorkspacesConfig
 
 
 -- | Bindings to move/focus to program workspaces
 
 
 rawFocusBindings :: [(String, X())]
-myProgramWorkSpacesShiftBindings :: [(String, X())]
-(rawFocusBindings, myProgramWorkSpacesShiftBindings) =
-    makeWorkspaces myProgramWorkSpaceModifier (map quadrupleToPairFront myProgramWorkSpacesConfig)
+myProgramWorkspacesShiftBindings :: [(String, X())]
+(rawFocusBindings, myProgramWorkspacesShiftBindings) =
+    makeWorkspaces myProgramWorkspaceModifier (map quadrupleToPairFront myProgramWorkspacesConfig)
 
-myProgramWorkSpacesFocusBindingsNoLaunch :: [(String, X ())]
-myProgramWorkSpacesFocusBindingsNoLaunch = addControlToBinding rawFocusBindings
+myProgramWorkspacesFocusBindingsNoLaunch :: [(String, X ())]
+myProgramWorkspacesFocusBindingsNoLaunch = addControlToBinding rawFocusBindings
 
-myProgramWorkSpacesFocusBindingsLaunch :: [(String, X ())]
-myProgramWorkSpacesFocusBindingsLaunch = zipWithSnd (<+>) rawFocusBindings
+myProgramWorkspacesFocusBindingsLaunch :: [(String, X ())]
+myProgramWorkspacesFocusBindingsLaunch = zipWithSnd (<+>) rawFocusBindings
                                        $ map (\(a,b) -> runOrRaise a b)
-                                       $ map quadrupleToPairBack myProgramWorkSpacesConfig
+                                       $ map quadrupleToPairBack myProgramWorkspacesConfig
 
-myProgramWorkSpacesKeyBindings :: [(String, X ())]
-myProgramWorkSpacesKeyBindings = concat [
-    myProgramWorkSpacesFocusBindingsNoLaunch
-  , myProgramWorkSpacesFocusBindingsLaunch
-  , myProgramWorkSpacesShiftBindings
+myProgramWorkspacesKeyBindings :: [(String, X ())]
+myProgramWorkspacesKeyBindings = concat [
+    myProgramWorkspacesFocusBindingsNoLaunch
+  , myProgramWorkspacesFocusBindingsLaunch
+  , myProgramWorkspacesShiftBindings
   ]
                                          
 

xmonad-custom.cabal

@@ -12,7 +12,7 @@ library
   exposed-modules: XMonad.Custom.BindingUtils
                    XMonad.Custom.BasicKeyBindings
                    XMonad.Custom.SystemKeyBindings
-                   XMonad.Custom.ProgramWorkSpaces
+                   XMonad.Custom.ProgramWorkspaces
                    XMonad.Custom.UniversitySetup
                    XMonad.Custom.Layout
                    XMonad.Custom.Workspaces