ellmau/nixos
1
0
Fork 0
mirror of https://github.com/ellmau/nixos.git synced 2025-12-19 09:29:36 +01:00
Code Issues Projects Releases Wiki Activity

Add Zoom app handling, fix lockscreen call

Browse Source
This commit is contained in:
Stefan Ellmauthaler 2023-05-12 09:50:57 +02:00
parent 805d8f7ac2
commit 005430c902
Failed to extract signature
1 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
users/ellmau/conf/xmonad/xmonad.hs
View File

@ -98,7 +98,7 @@ keyMap c = mkKeymap c $
, ("M-S-e" , sendToScreen def 1) , ("M-S-e" , sendToScreen def 1)
, ("M-S-r" , sendToScreen def 2) , ("M-S-r" , sendToScreen def 2)
, ("M-t" , withFocused $ windows . W.sink) , ("M-t" , withFocused $ windows . W.sink)
, ("M-C-l" , spawn "betterlockscreen -l --show-layout -u ~/.background-image.png") , ("M-C-l" , spawn "betterlockscreen -l")
, ("M-S-<Tab>" , spawn keyboardtoggle) , ("M-S-<Tab>" , spawn keyboardtoggle)
] ++ ] ++
[(m ++ k, windows $ f w) [(m ++ k, windows $ f w)
@ -124,10 +124,24 @@ myHookManager = composeAll [ manageDocks
, className =? "Element" --> doShift "comm" , className =? "Element" --> doShift "comm"
, className =? "firefox" --> doShift "web" , className =? "firefox" --> doShift "web"
, className =? "thunderbird" --> doShift "comm" , className =? "thunderbird" --> doShift "comm"
, className =? "KeePassXC" --> doFloat
, (className =? zoomClassName) <&&> shouldFloat <$> title --> doFloat
, (className =? zoomClassName) <&&> shouldSink <$> title --> doSink
, isFullscreen --> doFullFloat , isFullscreen --> doFullFloat
, placeHook $ withGaps (32, 32, 32, 32) $ smart (0.5, 0.5) , placeHook $ withGaps (32, 32, 32, 32) $ smart (0.5, 0.5)
, manageHook def , manageHook def
] ]
where
zoomClassName = "zoom"
titleTitles =
[ "Zoom - Free Account" -- main window
, "Zoom - Licensed Account" -- main window
, "Zoom" -- meeting window
, "Zoom Meeting" -- meeting window shortly after creation
]
shouldFloat title = title `notElem` titleTitles
shouldSink title = title `elem` titleTitles
doSink = (ask >>= doF . W.sink) <+> doF W.swapDown
polybarHook :: D.Client -> PP polybarHook :: D.Client -> PP
polybarHook dbus = polybarHook dbus =