max/xmonad-custom
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

change order in program workspace declaration

Browse source
This commit is contained in:
Maximilian Keßler 2022-07-16 17:20:27 +02:00
parent b46a906665
commit 199740cb43
1 changed files with 10 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
src/XMonad/Custom/ProgramWorkSpaces.hs
View file

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