From af2af13a1dc55415a0d41334e5dec10502a1819b Mon Sep 17 00:00:00 2001
From: eeva <eeva@kktdr>
Date: Mon, 28 May 2018 20:53:36 +0300
Subject: [PATCH] Ignore NSP, get rid of gridSelect

---
 lib/KeyBindings.hs | 8 +++-----
 lib/Projects.hs    | 8 ++++----
 2 files changed, 7 insertions(+), 9 deletions(-)

diff --git a/lib/KeyBindings.hs b/lib/KeyBindings.hs
index 8f4c3fc..f323ada 100644
--- a/lib/KeyBindings.hs
+++ b/lib/KeyBindings.hs
@@ -12,7 +12,6 @@ import Text.EditDistance
 import XMonad
 import XMonad.Actions.CycleWS
 import XMonad.Actions.DynamicProjects
-import XMonad.Actions.GridSelect
 import XMonad.Core
 import XMonad.Layout.ToggleLayouts
 import XMonad.Operations
@@ -42,7 +41,7 @@ modify conf = conf
     , ("M-<Left>", prevWS)
     , ("M-e", nextScreen)
     , ("M-<Right>", nextWS)
-    , ("M-<Tab>", toggleWS)
+    , ("M-<Tab>", toggleWS' ["NSP"])
     , ("M-<Up>", windows W.focusUp)
     , ("M-S-<Delete>", spawn "/run/current-system/sw/bin/i3lock-fancy -g -p")
     , ("M-S-<Left>", shiftToPrev >> prevWS)
@@ -50,12 +49,11 @@ modify conf = conf
     , ("M-s s", spawn "sleep 0.2 ; /run/current-system/sw/bin/scrot -s /tmp/screenSel.png")
     , ("M-s S", spawn "/run/current-system/sw/bin/scrot /tmp/screen.png")
     -- Workspace and tasks
+    , ("M-b", switchProjectPrompt promptConfig)
     , ("M-p m", shiftToProjectPrompt promptConfig)
     , ("M-p n", switchProjectPrompt promptConfig)
     , ("M-p r", renameProjectPrompt promptConfig)
     , ("M-p s", shellPrompt promptConfig)
-    , ("M-p u", gridselectWorkspace' defaultGSConfig viewProject)
-    , ("M-p v", gridselectWorkspace defaultGSConfig W.view)
     -- Scratchpads
     , ("M-p p", namedScratchpadAction R.pads "htop")
     ]
@@ -68,7 +66,7 @@ viewProject id = do
     Nothing -> return ()
 
 promptConfig = def
-  { position          = Top
+  { position          = Bottom
   , alwaysHighlight   = True
   , bgColor           = S.magenta
   , bgHLight          = S.base0
diff --git a/lib/Projects.hs b/lib/Projects.hs
index 3e8184e..90e5f08 100644
--- a/lib/Projects.hs
+++ b/lib/Projects.hs
@@ -6,17 +6,17 @@ import XMonad
 import XMonad.Actions.DynamicProjects
 
 projects :: [Project]
-projects =  [ Project { projectName = "games"
+projects =  [ Project { projectName = "steam"
                       , projectDirectory = "~/"
                       , projectStartHook = Nothing
                       }
-            , Project { projectName = "web"
-                      , projectDirectory = "~/"
+            , Project { projectName = "tootgun"
+                      , projectDirectory = "~/candy/tootgun"
                       , projectStartHook = Nothing
                       }
            ]
 
 modify :: XConfig l -> XConfig l
 modify conf = dynamicProjects projects conf
-  { workspaces = ["games", "web"] }
+  { workspaces = [] }