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)										)
	]