From 4cb0c1bfd386a3a9bf69bc94d8d394988565dffe Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Wed, 15 Jul 2015 22:43:03 +0200 Subject: Better workspace assignments & emacs on vali --- .xmonad/xmonad.hs | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to '.xmonad/xmonad.hs') 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 -- cgit v1.2.3