From 28398baeae5f2fdff4a29727f7682fdbb729bda6 Mon Sep 17 00:00:00 2001
From: Vidhu Kant Sharma <bokuwakanojogahoshii@yahoo.com>
Date: Mon, 16 Nov 2020 13:26:03 +0530
Subject: added some functionalities including goto and bring prompts

---
 xmonad.hs | 20 ++++++++++++--------
 1 file changed, 12 insertions(+), 8 deletions(-)

diff --git a/xmonad.hs b/xmonad.hs
index bd87f033..e8b0ffb4 100644
--- a/xmonad.hs
+++ b/xmonad.hs
@@ -10,6 +10,7 @@ import XMonad.Actions.Navigation2D
 import XMonad.Actions.CycleSelectedLayouts
 import XMonad.Actions.GridSelect
 import XMonad.Actions.SwapWorkspaces
+import XMonad.Actions.WindowBringer
 
 -- layouts modifiers
 import XMonad.Layout.Spacing
@@ -28,6 +29,7 @@ import XMonad.Layout.ThreeColumns
 
 -- hooks
 import XMonad.Hooks.SetWMName
+-- import XMonad.Hooks.WallpaperSetter
 
 -- utilities
 import XMonad.Util.SpawnOnce
@@ -64,6 +66,7 @@ myBrowser = "firefox"
 -- myEditor :: String
 -- myEditor = "vim"
 
+
 -- ~defaults~
 
 -- wm variables
@@ -91,10 +94,6 @@ windowGaps i j = spacingRaw False (Border i i i i) True (Border j j j j) True $
 
 -- keybindings
 
-notMyKeys = [  -- removed keybindings
-            (mod4Mask, xK_Return)
-            ]
-
 
 myKeys = [
          ((mod4Mask, xK_Return), spawn myTerminal),
@@ -134,17 +133,22 @@ myKeys = [
          ((mod1Mask, xK_k), windows W.focusUp),
 
          -- grid select
-         ((mod1Mask, xK_n), goToSelected defaultGSConfig)
+         ((mod1Mask, xK_n), goToSelected defaultGSConfig),
+      
+         -- windowbringer
+         ((mod1Mask, xK_b), bringMenu),
+         ((mod1Mask, xK_g), gotoMenu)
 
          ] ++ [ -- for extra workspace(s)
          ((myModMask, key), (windows $ W.greedyView ws))
          | (key,ws) <- myExtraWorkspaces
-         ] ++ [
+         ] ++ [ -- also for extra workspaces
          ((myModMask .|. shiftMask, key), (windows $ W.shift ws))
          | (key,ws) <- myExtraWorkspaces
          ] ++ [ -- to swap workspaces
          ((mod4Mask .|. controlMask, k), windows $ swapWithCurrent i)
-         | (i, k) <- zip myWorkspaces [xK_1 ..]]
+         | (i, k) <- zip myWorkspaces [xK_1 ..]
+         ]
 
 -- ~keybindings~
 
@@ -165,7 +169,7 @@ main = do
   layoutHook         = myLayoutHook,
   --manageHook         = myManageHook,
   --handleEventHook    = myEventHook,
-  --logHook            = myLogHook,
+-- logHook            = wallpaperSetterHook,
   startupHook        = myStartupHook
 } `additionalKeys` myKeys  
 
-- 
cgit v1.2.3