From 199740cb43e2aa68d0aa355f85a12d51625f955b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Maximilian=20Ke=C3=9Fler?= <git@maximilian-kessler.de>
Date: Sat, 16 Jul 2022 17:20:27 +0200
Subject: [PATCH] change order in program workspace declaration

---
 src/XMonad/Custom/ProgramWorkSpaces.hs | 23 ++++++++++-------------
 1 file changed, 10 insertions(+), 13 deletions(-)

diff --git a/src/XMonad/Custom/ProgramWorkSpaces.hs b/src/XMonad/Custom/ProgramWorkSpaces.hs
index ceef0c0..16fdd9e 100644
--- a/src/XMonad/Custom/ProgramWorkSpaces.hs
+++ b/src/XMonad/Custom/ProgramWorkSpaces.hs
@@ -1,7 +1,5 @@
 module XMonad.Custom.ProgramWorkSpaces (myProgramWorkSpacesKeyBindings, myProgramWorkSpaces) where
 
-import Data.Tuple
-
 import XMonad
 import XMonad.Actions.WindowGo
 
@@ -12,20 +10,20 @@ import XMonad.Custom.BindingUtils
 myProgramWorkSpaceSuperKey :: String
 myProgramWorkSpaceSuperKey = "M1"
 
--- | WorkSpaces (label, key, executable, className/ general )
+-- | WorkSpaces (key, label, executable, className/ general )
 type ProgramWorkSpace = (String, String, String, Query Bool)
 
 myProgramWorkSpacesConfig :: [ProgramWorkSpace]
 myProgramWorkSpacesConfig = addClassNameStrCheck [
-      ("signal",    "s", "signal-desktop",   "Signal")
-    , ("element",   "e", "element-desktop",  "Element")
-    , ("discord",   "d", "discord",          "discord")
-    , ("telegram",  "t", "telegram-desktop", "TelegramDesktop")
-    , ("ownCloud",  "o", "owncloud",         "owncloud")
-    , ("firefox",   "f", "firefox",          "firefox")
-    , ("mail",      "m", "thunderbird",      "Thunderbird")
-    , ("xournal",   "x", "xournalpp",        "Xournalpp")
-    , ("qute",      "q", "qutebrowser",      "qutebrowser")
+      ("s", "signal",   "signal-desktop",   "Signal")
+    , ("e", "element",  "element-desktop",  "Element")
+    , ("d", "discord",  "discord",          "discord")
+    , ("t", "telegram", "telegram-desktop", "TelegramDesktop")
+    , ("o", "ownCloud", "owncloud",         "owncloud")
+    , ("f", "firefox",  "firefox",          "firefox")
+    , ("m", "mail",     "thunderbird",      "Thunderbird")
+    , ("x", "xournal",  "xournalpp",        "Xournalpp")
+    , ("q", "qute",     "qutebrowser",      "qutebrowser")
   ]
   where
     addClassNameStrCheck = mapFourth4 $ \classNameStr -> className =? classNameStr
@@ -59,7 +57,6 @@ myProgramWorkSpaces = map first4 myProgramWorkSpacesConfig
 
 myProgramWorkSpacesBindingsRaw :: [(String, String)]
 myProgramWorkSpacesBindingsRaw = (addModifierToBinding myProgramWorkSpaceSuperKey)
-                               . (map swap)
                                . (map quadrupleToPairFront)
                                $ myProgramWorkSpacesConfig