diff --git a/lib/KeyBindings.hs b/lib/KeyBindings.hs
index 34ea4fd..729f530 100644
--- a/lib/KeyBindings.hs
+++ b/lib/KeyBindings.hs
@@ -31,6 +31,9 @@ import qualified XMonad.StackSet as W
 -- Custom (in libs)
 import Password (passPrompt)
 
+lockScreenCmd =
+  spawn "/etc/profiles/per-user/e/bin/mpc pause; /run/current-system/sw/bin/xset s activate"
+
 modify :: XConfig l -> XConfig l
 modify conf = conf
   { modMask = mod4Mask -- Use the "Win" key for the mod key
@@ -43,6 +46,15 @@ modify conf = conf
     , ("<XF86AudioPlay>", spawn "/etc/profiles/per-user/e/bin/mpc toggle")
     , ("<XF86AudioNext>", spawn "/etc/profiles/per-user/e/bin/mpc next")
     , ("<XF86AudioPrev>", spawn "/etc/profiles/per-user/e/bin/mpc prev")
+    -- KP_1 -> KP_6 macros
+    , ("<XF86Tools>",   viewProject "sound")
+    , ("<XF86Launch5>", viewProject "frs")
+    , ("<XF86Launch6>", viewProject "chat")
+    , ("<XF86Launch7>", viewProject "isengard")
+    , ("<XF86Launch8>", viewProject "moria")
+    , ("<XF86Launch9>", viewProject "fre")
+    -- KP_Delete
+    , ("Cancel", lockScreenCmd)
     , ("M-<Down>", windows W.focusDown)
     , ("M-<Esc>", sendMessage (Toggle "Full"))
     , ("M-$", sendMessage (Toggle "Full"))
@@ -52,7 +64,7 @@ modify conf = conf
     , ("M-<Right>", nextWS)
     , ("M-<Tab>", toggleWS' ["NSP"])
     , ("M-<Up>", windows W.focusUp)
-    , ("M-S-<Delete>", spawn "/etc/profiles/per-user/e/bin/mpc pause; /run/current-system/sw/bin/xset s activate")
+    , ("M-S-<Delete>", lockScreenCmd)
     , ("M-S-<Left>", shiftToPrev >> prevWS)
     , ("M-S-<Right>", shiftToNext >> nextWS)
     , ("M-s s", spawn "/etc/profiles/per-user/e/bin/flameshot gui")