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 "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 "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 "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 where
spawnTerminal = myTerminal ++ " -T kitty-float" spawnTerminal = myTerminal ++ " -T kitty-float"
spawnMusic = myTerminal ++ " -T ncmpcpp ncmpcpp" spawnMusic = myTerminal ++ " -T ncmpcpp ncmpcpp"
spawnMail = myTerminal ++ " -T mutt bash -c 'pushd ~/Downloads > /dev/null; mutt; popd > /dev/null'" spawnMail = myTerminal ++ " -T mutt bash -c 'pushd ~/Downloads > /dev/null; mutt; popd > /dev/null'"
spawnCal = myTerminal ++ " -T calcurse calcurse" spawnCal = myTerminal ++ " -T calcurse calcurse"
spawnBtop = myTerminal ++ " -T btop btop"
-- Config -- Config
myConfig = def myConfig = def
@ -116,6 +118,7 @@ myConfig = def
, ("M-S-v" , namedScratchpadAction myScratchpads "Windscribe" ) , ("M-S-v" , namedScratchpadAction myScratchpads "Windscribe" )
, ("M-S-s" , namedScratchpadAction myScratchpads "Terminal" ) , ("M-S-s" , namedScratchpadAction myScratchpads "Terminal" )
, ("M-S-a" , namedScratchpadAction myScratchpads "Cal" ) , ("M-S-a" , namedScratchpadAction myScratchpads "Cal" )
, ("M-o" , namedScratchpadAction myScratchpads "Btop" )
, ("M-x" , spawn "bluetoothctl connect E8:EE:CC:3E:A6:0D" ) , ("M-x" , spawn "bluetoothctl connect E8:EE:CC:3E:A6:0D" )
, ("M-S-x" , spawn "bluetoothctl disconnect 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 "lxpolkit"
spawnOnce "numlockx" spawnOnce "numlockx"
spawnOnce "blueman-applet" spawnOnce "blueman-applet"
spawnOnce "mousemove"
-- Manage hook -- Manage hook
myManageHook :: ManageHook myManageHook :: ManageHook