Force recompile

This commit is contained in:
Mats Rauhala 2019-03-19 10:34:51 +02:00
parent e5ac4aed2a
commit 83430ca5d0

View File

@ -165,7 +165,7 @@ myManageHook = composeAll $ concat [
myKeys :: ExtraConfig -> XConfig l -> [((KeyMask, KeySym), NamedAction)] myKeys :: ExtraConfig -> XConfig l -> [((KeyMask, KeySym), NamedAction)]
myKeys extraConfig conf = myKeys extraConfig conf =
let subKeys str ks = subtitle str : mkNamedKeymap conf ks in let subKeys str ks = subtitle str : mkNamedKeymap conf ks in
subKeys "Actions" [ ("M-S-r", addName "foo" $ spawn "xmonad --restart") subKeys "Actions" [ ("M-S-r", addName "foo" (spawn "xmonad --recompile" >> spawn "xmonad --restart"))
, ("M-C-l", addName "Lock screen" $ spawn locker)] ^++^ , ("M-C-l", addName "Lock screen" $ spawn locker)] ^++^
subKeys "System" [ ("<XF86Sleep>", addName "Suspend machine" $ spawn "sudo pm-suspend") subKeys "System" [ ("<XF86Sleep>", addName "Suspend machine" $ spawn "sudo pm-suspend")
, ("<XF86AudioRaiseVolume>", addName "Increase volume" $ spawn "amixer set Master 2%+") , ("<XF86AudioRaiseVolume>", addName "Increase volume" $ spawn "amixer set Master 2%+")