From 5e1d3b741632d38125a666017f20d9a45732c10b Mon Sep 17 00:00:00 2001
From: ramazanemreosmanoglu <ramazanemre@protonmail.com>
Date: Tue, 25 Oct 2022 19:55:51 +0300
Subject: [PATCH] Add constant for keybindings on xmonad

---
 .config/xmonad/xmonad.hs | 21 ++++++++++++---------
 1 file changed, 12 insertions(+), 9 deletions(-)

diff --git a/.config/xmonad/xmonad.hs b/.config/xmonad/xmonad.hs
index 34615ad..2c63087 100644
--- a/.config/xmonad/xmonad.hs
+++ b/.config/xmonad/xmonad.hs
@@ -15,15 +15,8 @@ main = do
         , normalBorderColor  = myNormalBorderColor
         , startupHook        = myStartupHook
         }
-      `additionalKeysP`
-        [  ("M-e", spawn myEmacs)
-        ,  ("M-f", spawn myBrowser)
-        ,  ("<XF86MonBrightnessUp>", spawn "brightnessctl s +2%")
-        ,  ("<XF86MonBrightnessDown>", spawn "brightnessctl s 2%-")
-        ,  ("<XF86AudioRaiseVolume>", spawn "amixer -q sset Master 3%+")
-        ,  ("<XF86AudioLowerVolume>", spawn "amixer -q sset Master 3%-")
-        ,  ("M-<Return>", spawn myTerminal)
-        ]
+      `additionalKeysP` myKeybindings
+
 
 myTerminal           = "alacritty"
 myModMask            = mod4Mask
@@ -38,3 +31,13 @@ myStartupHook :: X ()
 myStartupHook = do
   spawnOnce "/usr/bin/xmobar"
   spawn $ "feh --bg-scale " ++ myWallpaper
+
+myKeybindings :: [(String, X())]
+myKeybindings = [  ("M-e", spawn myEmacs)
+                ,  ("M-f", spawn myBrowser)
+                ,  ("<XF86MonBrightnessUp>", spawn "brightnessctl s +2%")
+                ,  ("<XF86MonBrightnessDown>", spawn "brightnessctl s 2%-")
+                ,  ("<XF86AudioRaiseVolume>", spawn "amixer -q sset Master 3%+")
+                ,  ("<XF86AudioLowerVolume>", spawn "amixer -q sset Master 3%-")
+                ,  ("M-<Return>", spawn myTerminal)
+                ]