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.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
]

2
xmonad-custom.cabal
View file

@ -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