25 lines
787 B
Haskell
25 lines
787 B
Haskell
|
import XMonad
|
||
|
|
import XMonad.Util.EZConfig
|
||
|
|
import System.Exit
|
||
|
|
|
||
|
|
main :: IO ()
|
||
|
|
main = xmonad $ myConfig
|
||
|
|
myConfig = def
|
||
|
|
`additionalKeysP`
|
||
|
|
[
|
||
|
|
-- Screen lock & suspend
|
||
|
|
("C-M-l" , spawn "swaylock" )
|
||
|
|
, ("C-M-L" , spawn "swaylock" *> spawn "systemctl suspend")
|
||
|
|
-- Terminal
|
||
|
|
, ("S-<Return>", spawn "kitty" )
|
||
|
|
-- Frequent programs
|
||
|
|
, ("S-q", spawn "firefox" )
|
||
|
|
, ("S-a", spawn "emacs" )
|
||
|
|
, ("S-d", spawn "discord" )
|
||
|
|
, ("S-g", spawn "dolphin" )
|
||
|
|
-- Program launcher
|
||
|
|
, ("S-r", spawn "rofi -show drun -theme Paper" )
|
||
|
|
-- Exit
|
||
|
|
, ("S-M-C-q", io (exitWith ExitSuccess) )
|
||
|
|
]
|