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

fix workspace names of program workspaces

Browse source
This commit is contained in:
Maximilian Keßler 2022-07-16 23:06:29 +02:00
parent d9d2f9d52c
commit feb2633282
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -45,13 +45,13 @@ quadrupleToPairBack (_, _, c, d) = (c, d)
zipWithSnd :: (a -> b -> c) -> [(d,a)] -> [b] -> [(d,c)] zipWithSnd :: (a -> b -> c) -> [(d,a)] -> [b] -> [(d,c)]
zipWithSnd f = zipWith $ \(d,a) -> \b -> (d, f a b) zipWithSnd f = zipWith $ \(d,a) -> \b -> (d, f a b)
first4 :: (a,b,c,d) -> a second4 :: (a,b,c,d) -> b
first4 (a, _, _, _) = a second4 (_, b, _, _) = b
-- | workSpaces itself -- | workSpaces itself
myProgramWorkSpaces :: [String] myProgramWorkSpaces :: [String]
myProgramWorkSpaces = map first4 myProgramWorkSpacesConfig myProgramWorkSpaces = map second4 myProgramWorkSpacesConfig
-- | Bindings to move/focus to program workspaces -- | Bindings to move/focus to program workspaces