From 00df00f750db0b48f7f9b904db688087bd1d04ad Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Maximilian=20Ke=C3=9Fler?= <git@maximilian-kessler.de>
Date: Sun, 17 Jul 2022 10:02:43 +0200
Subject: [PATCH] decapitalize Space in WorkSpaces

---
 ...gramWorkSpaces.hs => ProgramWorkspaces.hs} | 46 +++++++++----------
 xmonad-custom.cabal                           |  2 +-
 2 files changed, 24 insertions(+), 24 deletions(-)
 rename src/XMonad/Custom/{ProgramWorkSpaces.hs => ProgramWorkspaces.hs} (60%)

diff --git a/src/XMonad/Custom/ProgramWorkSpaces.hs b/src/XMonad/Custom/ProgramWorkspaces.hs
similarity index 60%
rename from src/XMonad/Custom/ProgramWorkSpaces.hs
rename to src/XMonad/Custom/ProgramWorkspaces.hs
index 44d33cf..f206a24 100644
--- a/src/XMonad/Custom/ProgramWorkSpaces.hs
+++ b/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
   ]
                                          
 
diff --git a/xmonad-custom.cabal b/xmonad-custom.cabal
index 54a61a4..023cda5 100644
--- a/xmonad-custom.cabal
+++ b/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