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 named scratchpad

Browse Source
This commit is contained in:
Stefan Ellmauthaler 2023-05-30 10:49:51 +02:00
parent 82a322e8f0
commit c786e21bbe
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

@ -31,6 +31,8 @@ import XMonad.Layout.Tabbed
import XMonad.Layout.Renamed import XMonad.Layout.Renamed
import XMonad.Layout.ThreeColumns import XMonad.Layout.ThreeColumns
import XMonad.Layout.PerWorkspace import XMonad.Layout.PerWorkspace
import XMonad.Util.NamedScratchpad
main :: IO () main :: IO ()
main' :: D.Client -> IO () main' :: D.Client -> IO ()
@ -51,7 +53,7 @@ main' dbus = do
, layoutHook = layout , layoutHook = layout
, modMask = mod4Mask -- rebind mod to super key , modMask = mod4Mask -- rebind mod to super key
, keys = keyMap , keys = keyMap
, manageHook = myHookManager , manageHook = myHookManager <+> namedScratchpadManageHook scratchpads
, startupHook = do -- autostart , startupHook = do -- autostart
startupHook def startupHook def
spawn "autorandr -c" spawn "autorandr -c"
@ -104,6 +106,8 @@ keyMap c = mkKeymap c $
, ("M-t" , withFocused $ windows . W.sink) , ("M-t" , withFocused $ windows . W.sink)
, ("M-C-l" , spawn "betterlockscreen -l") , ("M-C-l" , spawn "betterlockscreen -l")
, ("M-S-<Tab>" , spawn keyboardtoggle) , ("M-S-<Tab>" , spawn keyboardtoggle)
-- scratchPad terminal
, ("M-C-t" , namedScratchpadAction scratchpads "term")
] ++ ] ++
[(m ++ k, windows $ f w) [(m ++ k, windows $ f w)
| (w, k) <- zip (XMonad.workspaces c) (map show $ [1..9] ++ [0]), | (w, k) <- zip (XMonad.workspaces c) (map show $ [1..9] ++ [0]),
@ -186,3 +190,13 @@ fadeAllBut qry amt inact = do isInactive <- isUnfocused
else return amt else return amt
polybarLogHook dbus = fadeHook 0.95 0.75 <+> dynamicLogWithPP (polybarHook dbus) polybarLogHook dbus = fadeHook 0.95 0.75 <+> dynamicLogWithPP (polybarHook dbus)
-- scratchPads
scratchpads :: [NamedScratchpad]
scratchpads =
[ NS
"term"
"alacritty --class AlacrittyNSP -t scratchpad"
(className =? "AlacrittyNSP")
(customFloating $ W.RationalRect (3 / 5) (4 / 6) (1 / 5) (1 / 6))
]