From 31e504757ac68ea2b3ad1303665453f7e0342806 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Sat, 4 Jul 2015 14:22:15 +0200 Subject: Switched to applicative --- .xmonad/xmonad.hs | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to '.xmonad/xmonad.hs') diff --git a/.xmonad/xmonad.hs b/.xmonad/xmonad.hs index c5d4532..8321f25 100644 --- a/.xmonad/xmonad.hs +++ b/.xmonad/xmonad.hs @@ -47,6 +47,8 @@ import XMonad.Prompt.MySsh import Network.HostName +import Control.Applicative (<$>) + type KeyMap = Map (ButtonMask, KeySym) (X ()) data Host l1 l2 = Host @@ -69,12 +71,12 @@ defaultHost = Host { hName = "unkown" --hostFromName :: (LayoutClass l1 a, LayoutClass l2 a) => HostName -> Host (l1 a) (l2 a) hostFromName h@("vali") = defaultHost { hName = h , hManageHook = composeOne $ catMaybes [ Just manageScratchTerm - , hCoWsp "web" >>= \wsp -> (className =? ".dwb-wrapped" -?> doShift wsp) - , hCoWsp "web" >>= \wsp -> (className =? "Chromium" -?> doShift wsp) + , (\wsp -> className =? ".dwb-wrapped" -?> doShift wsp) <$> hCoWsp "web" + , (\wsp -> className =? "Chromium" -?> doShift wsp) <$> hCoWsp "web" ] , hWsp = hWsp , hCoWsp = hCoWsp - , hLayoutMod = mkMod [ hCoWsp "web" >>= \wsp -> onWorkspace wsp (noBorders Full ||| tabbedLayout tabbedBottomAlways) + , hLayoutMod = mkMod [ (\wsp -> onWorkspace wsp $ noBorders Full ||| tabbedLayout tabbedBottomAlways) <$> hCoWsp "web" ] , hKeysMod = \conf -> Map.union $ Map.fromList $ join $ map (spawnBindings conf) [ (xK_d, ["dwb", "dwb $(xclip -o)"]) ] -- cgit v1.2.3