all repos — xmonad-config @ a79a73f99c907ed274b841ab5ca87549cc97ea0b

personal xmonad config 

fix manage hook referencing wrong workspaces
la-ninpre leobrekalini@gmail.com
Sun, 12 Mar 2023 19:14:32 +0300
commit

a79a73f99c907ed274b841ab5ca87549cc97ea0b

parent

e00093fb569b5b66f657228e9bcdc463b727bd4b

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)