fuxino/dotfiles
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Update XMonad config

Browse Source
This commit is contained in:
daniele 2024-11-08 18:33:13 +01:00
parent 4c26943c81
commit 67458bdc9e
Signed by: fuxino
GPG Key ID: 981A2B2A3BBF5514
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
.config/xmonad/xmonad.hs
View File

@ -83,12 +83,14 @@ myScratchpads =
, NS "Music" spawnMusic (title =? "ncmpcpp") (customFloating $ W.RationalRect 0.2 0.2 0.6 0.6)
, NS "Mail" spawnMail (title =? "mutt") (customFloating $ W.RationalRect 0.2 0.2 0.6 0.6)
, NS "Cal" spawnCal (title =? "calcurse") (customFloating $ W.RationalRect 0.2 0.2 0.6 0.6)
, NS "Btop" spawnBtop (title =? "btop") (customFloating $ W.RationalRect 0.2 0.2 0.6 0.6)
]
where
spawnTerminal = myTerminal ++ " -T kitty-float"
spawnMusic = myTerminal ++ " -T ncmpcpp ncmpcpp"
spawnMail = myTerminal ++ " -T mutt bash -c 'pushd ~/Downloads > /dev/null; mutt; popd > /dev/null'"
spawnCal = myTerminal ++ " -T calcurse calcurse"
spawnBtop = myTerminal ++ " -T btop btop"
-- Config
myConfig = def
@ -116,6 +118,7 @@ myConfig = def
, ("M-S-v" , namedScratchpadAction myScratchpads "Windscribe" )
, ("M-S-s" , namedScratchpadAction myScratchpads "Terminal" )
, ("M-S-a" , namedScratchpadAction myScratchpads "Cal" )
, ("M-o" , namedScratchpadAction myScratchpads "Btop" )
, ("M-x" , spawn "bluetoothctl connect E8:EE:CC:3E:A6:0D" )
, ("M-S-x" , spawn "bluetoothctl disconnect E8:EE:CC:3E:A6:0D" )
]
@ -208,7 +211,6 @@ myStartupHook = do
spawnOnce "lxpolkit"
spawnOnce "numlockx"
spawnOnce "blueman-applet"
spawnOnce "mousemove"
-- Manage hook
myManageHook :: ManageHook