fix manage hook referencing wrong workspaces
la-ninpre leobrekalini@gmail.com
Sun, 12 Mar 2023 19:14:32 +0300
1 files changed,
20 insertions(+),
20 deletions(-)
jump to
M
lib/XMonad/Config/LaNinpre.hs
→
lib/XMonad/Config/LaNinpre.hs
@@ -197,8 +197,8 @@ --
-- send some windows here and there. -- | manage hook -localManageHook :: ManageHook -localManageHook = composeAll +localManageHook :: [String] -> ManageHook +localManageHook ws = composeAll [ className =? "confirm" --> doFloat , className =? "file_progress" --> doFloat , className =? "dialog" --> doFloat@@ -209,29 +209,29 @@ , className =? "splash" --> doFloat
, className =? "toolbar" --> doFloat , className =? "Image Lounge" --> doFloat -- web workspace - , title =? "Mozilla Firefox" --> doShift ( workspacesTP !! 1 ) - , className =? "Brave-browser" --> doShift ( workspacesTP !! 1 ) - , className =? "amfora" --> doShift ( workspacesTP !! 1 ) - , className =? "qutebrowser" --> doShift ( workspacesTP !! 1 ) + , title =? "Mozilla Firefox" --> doShift ( ws !! 1 ) + , className =? "Brave-browser" --> doShift ( ws !! 1 ) + , className =? "amfora" --> doShift ( ws !! 1 ) + , className =? "qutebrowser" --> doShift ( ws !! 1 ) -- doc workspace - , className =? "Geary" --> doShift ( workspacesTP !! 3 ) - , className =? "libreoffice" --> doShift ( workspacesTP !! 3 ) + , className =? "Geary" --> doShift ( ws !! 3 ) + , className =? "libreoffice" --> doShift ( ws !! 3 ) -- vm workspace -- chat workspace - , className =? "discord" --> doShift ( workspacesTP !! 5 ) - , className =? "TelegramDesktop" --> doShift ( workspacesTP !! 5 ) - , className =? "Element" --> doShift ( workspacesTP !! 5 ) - , className =? "Steam" --> doShift ( workspacesTP !! 5 ) + , className =? "discord" --> doShift ( ws !! 5 ) + , className =? "TelegramDesktop" --> doShift ( ws !! 5 ) + , className =? "Element" --> doShift ( ws !! 5 ) + , className =? "Steam" --> doShift ( ws !! 5 ) -- full workspace - , isFullscreen --> doShift ( workspacesTP !! 6 ) + , isFullscreen --> doShift ( ws !! 6 ) -- vid workspace - , className =? "Deadbeef" --> doShift ( workspacesTP !! 7 ) - , appName =? "mpv" --> doShift ( workspacesTP !! 7 ) - , className =? "vlc" --> doShift ( workspacesTP !! 7 ) + , className =? "Deadbeef" --> doShift ( ws !! 7 ) + , appName =? "mpv" --> doShift ( ws !! 7 ) + , className =? "vlc" --> doShift ( ws !! 7 ) -- gfx workspace - , className =? "Gimp" --> doShift ( workspacesTP !! 8 ) - , className =? "Blender" --> doShift ( workspacesTP !! 8 ) - , className =? "obs" --> doShift ( workspacesTP !! 8 ) + , className =? "Gimp" --> doShift ( ws !! 8 ) + , className =? "Blender" --> doShift ( ws !! 8 ) + , className =? "obs" --> doShift ( ws !! 8 ) , isFullscreen --> doFullFloat ] <+> namedScratchpadManageHook scratchPads@@ -535,7 +535,7 @@ laNinpreConfig ws ln = def
{ terminal = terminalEmulator , modMask = mod4Mask , layoutHook = localLayoutHook ln - , manageHook = localManageHook + , manageHook = localManageHook ws , workspaces = ws , borderWidth = 1 , keys = (`mkKeymap` keybinds ws)