From 5ec784e0bfbfa0849deb5c97d93407772e6d8cd3 Mon Sep 17 00:00:00 2001 From: Ivan Malison Date: Thu, 24 Nov 2016 17:15:57 -0600 Subject: [PATCH] [XMonad] Fix whitespace --- dotfiles/xmonad/xmonad.hs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/dotfiles/xmonad/xmonad.hs b/dotfiles/xmonad/xmonad.hs index 198fd899..4405d477 100644 --- a/dotfiles/xmonad/xmonad.hs +++ b/dotfiles/xmonad/xmonad.hs @@ -99,6 +99,7 @@ myManageHook = composeAll . concat $ ] -- Toggles + unmodifyLayout (ModifiedLayout _ x') = x' selectLimit = DM.menuArgs "rofi" ["-dmenu", "-i"] ["2", "3", "4"] >>= @@ -114,6 +115,7 @@ instance Transformer MyToggles Window where transform GAPS x k = k (smartSpacing 5 x) unmodifyLayout transform MAGICFOCUS x k = k (magicFocus x) unmodifyLayout +-- TODO: Figure out how to disable focus follows mouse for magicFocus myToggles = [LIMIT, GAPS, MAGICFOCUS] otherToggles = [NBFULL, MIRROR] @@ -165,8 +167,6 @@ goFullscreen = sendMessage $ Toggle NBFULL -- Layout setup --- TODO: Figure out how to disable focus follows mouse for magicFocus - rename newName = RN.renamed [RN.Replace newName] layoutsStart layout = (layout, [Layout layout]) @@ -376,6 +376,7 @@ swapMinimizeStateAfter action = withFocused $ \originalWindow -> do $ minimizeWindow originalWindow -- Named Scratchpads + scratchpads = [ NS "htop" htopCommnad (title =? "htop") nonFloating , NS "spotify" spotifyCommand spotifySelector nonFloating , NS "hangouts" hangoutsCommand hangoutsSelector nonFloating @@ -399,6 +400,7 @@ bindBringAndRaiseMany :: [(KeyMask, KeySym, X (), Query Bool)] -> [((KeyMask, Ke bindBringAndRaiseMany = concatMap (\(a, b, c, d) -> bindBringAndRaise a b c d) -- Screen shift + shiftToNextScreen = withWindowSet $ \ws -> case W.visible ws of W.Screen i _ _:_ -> windows $ W.view (W.tag i) . W.shift (W.tag i)