aboutsummaryrefslogtreecommitdiff
path: root/.config/XMonad/lib
diff options
context:
space:
mode:
Diffstat (limited to '.config/XMonad/lib')
-rw-r--r--.config/XMonad/lib/Defaults.hs2
-rw-r--r--.config/XMonad/lib/Keybindings.hs11
2 files changed, 8 insertions, 5 deletions
diff --git a/.config/XMonad/lib/Defaults.hs b/.config/XMonad/lib/Defaults.hs
index df81331..8492cd7 100644
--- a/.config/XMonad/lib/Defaults.hs
+++ b/.config/XMonad/lib/Defaults.hs
@@ -27,7 +27,7 @@ myModMask' = mod1Mask
myModShiftMask = myModMask .|. shiftMask
myModShiftMask' = myModMask' .|. shiftMask
-myLockscreen = "notify-send 'to be set up!' 'to be set up!'"
+myLockscreen = "betterlockscreen -q -l"
myColorPicker = "colorpicker --short --one-shot --preview | xsel -b"
myTerminal = "open_terminal"
diff --git a/.config/XMonad/lib/Keybindings.hs b/.config/XMonad/lib/Keybindings.hs
index 672e286..7e65e81 100644
--- a/.config/XMonad/lib/Keybindings.hs
+++ b/.config/XMonad/lib/Keybindings.hs
@@ -43,6 +43,7 @@ myMouseKeybindings = [
myKeybindings :: [((KeyMask, KeySym), X ())]
myKeybindings = [
((myModMask, xK_Return), spawn myTerminal)
+ , ((myModShiftMask, xK_Return), spawn myLockscreen)
, ((myModMask .|. shiftMask, xK_q), kill1)
, ((myModShiftMask, xK_p), spawn myLauncher)
@@ -66,10 +67,10 @@ myKeybindings = [
, ((myModMask .|. shiftMask, xK_minus), spawn backlightDown)
-- modify gaps on runtime
- , ((myModMask, xK_F2), incWindowSpacing 1)
- , ((myModMask, xK_F1), decWindowSpacing 1)
- , ((myModMask .|. shiftMask, xK_F2), incScreenSpacing 1)
- , ((myModMask .|. shiftMask, xK_F1), decScreenSpacing 1)
+ -- , ((myModMask, xK_F2), incWindowSpacing 1)
+ -- , ((myModMask, xK_F1), decWindowSpacing 1)
+ -- , ((myModMask .|. shiftMask, xK_F2), incScreenSpacing 1)
+ -- , ((myModMask .|. shiftMask, xK_F1), decScreenSpacing 1)
-- view prev/next workspaces
, ((myModShiftMask, xK_Tab ), prevWS)
@@ -169,6 +170,8 @@ myKeybindingsP = [
, ("M-a m", spawn volMute)
, ("M-a p", spawn pausePlay)
, ("M-a d", myScratchpad "arandr")
+ , ("M-a r", spawn "screenrefresh")
+ , ("M-a S-r", spawn "screenrefresh -b")
-- media
, ("M-m w", myScratchpad "wallpaper")
, ("M-S-x", myScratchpad "wallpaper")