Better workspace assignments & emacs on vali

1 files changed, 5 insertions, 2 deletions

diff --git a/.xmonad/xmonad.hs b/.xmonad/xmonad.hs
index c172147..c0a18c3 100644
--- a/.xmonad/xmonad.hs
+++ b/.xmonad/xmonad.hs
@@ -72,8 +72,9 @@ defaultHost = Host { hName = "unkown"
 hostFromName :: HostName -> Host
 hostFromName h@("vali") = defaultHost { hName = h
                                       , hManageHook = composeOne $ catMaybes [ Just manageScratchTerm
-                                                                             , (\wsp -> className =? ".dwb-wrapped" -?> doShift wsp) <$> hCoWsp "web"
-                                                                             , (\wsp -> className =? "Chromium" -?> doShift wsp) <$> hCoWsp "web"
+                                                                             , assign "web"  $ className =? ".dwb-wrapped"
+                                                                             , assign "web"  $ className =? "Chromium"
+                                                                             , assign "work" $ className =? "Emacs"
                                                                              ]
                                       , hWsp = hWsp
                                       , hCoWsp = hCoWsp
@@ -83,9 +84,11 @@ hostFromName h@("vali") = defaultHost { hName = h
                                       }
   where
     workspaceNames = Map.fromList [ (2, "web")
+                                  , (3, "work")
                                   ]
     hWsp = wspFromMap workspaceNames
     hCoWsp = coWspFromMap workspaceNames
+    assign wsp test = (\wsp -> test -?> doShift wsp) <$> hCoWsp wsp
 hostFromName _ = defaultHost
 
 wspFromMap workspaceNames = \i -> case Map.lookup i workspaceNames of