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

decapitalize Space in WorkSpaces

Browse source
This commit is contained in:
Maximilian Keßler 2022-07-17 10:02:43 +02:00
parent 751bec947c
commit 00df00f750
2 changed files with 24 additions and 24 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

46
src/XMonad/Custom/ProgramWorkSpaces.hs → src/XMonad/Custom/ProgramWorkspaces.hs
View file

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

2
xmonad-custom.cabal
View file

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