From 33b619663e7099a714881976961a6bb896a6278d Mon Sep 17 00:00:00 2001
From: Ivan Malison <IvanMalison@gmail.com>
Date: Sat, 26 Nov 2016 09:54:12 -0800
Subject: [PATCH] [XMonad] Fix several >80 whitespace lines

---
 dotfiles/xmonad/xmonad.hs | 22 ++++++++++++----------
 1 file changed, 12 insertions(+), 10 deletions(-)

diff --git a/dotfiles/xmonad/xmonad.hs b/dotfiles/xmonad/xmonad.hs
index 347fa414..f9e36490 100644
--- a/dotfiles/xmonad/xmonad.hs
+++ b/dotfiles/xmonad/xmonad.hs
@@ -257,15 +257,16 @@ myDecorateName ws w = do
 
 -- This needs access to X in order to unminimize, which means that I can't be
 -- done with the existing window bringer interface
-myBringWindow WindowBringerConfig{ menuCommand = cmd
-                                 , menuArgs = args
-                                 , windowTitler = titler
-                                 } =
+myBringWindow WindowBringerConfig { menuCommand = cmd
+                                  , menuArgs = args
+                                  , windowTitler = titler } =
   windowMap' titler >>= DM.menuMapArgs cmd args >>= flip whenJust action
-    where action window = sequence_ [ maximizeWindow window
-                                    , windows $ W.focusWindow window .
-                                                bringWindow window
-                                    ]
+  where
+    action window =
+      sequence_
+        [ maximizeWindow window
+        , windows $ W.focusWindow window . bringWindow window
+        ]
 
 -- Dynamic Workspace Renaming
 
@@ -345,7 +346,9 @@ maximizeSameClassesInWorkspace =
     actOnWindowsInWorkspace maybeUnminimize windowsWithFocusedClass
 
 -- Type annotation is needed to resolve ambiguity
-actOnWindowsInWorkspace :: (Window -> X ()) -> (W.Stack Window -> X [Window]) -> X ()
+actOnWindowsInWorkspace :: (Window -> X ())
+                        -> (W.Stack Window -> X [Window])
+                        -> X ()
 actOnWindowsInWorkspace windowAction getWindowsAction = restoreFocus $
   withWorkspace (getWindowsAction >=> mapM_ windowAction)
 
@@ -466,7 +469,6 @@ addKeys conf@XConfig {modMask = modm} =
     , ((modm, xK_z), shiftToNextScreen)
     , ((modm, xK_x), windows $ W.shift "NSP")
     , ((modm .|. shiftMask, xK_h), shiftToEmptyAndView)
-
     -- These need to be rebound to support boringWindows
     , ((modm, xK_j), focusDown)
     , ((modm, xK_k), focusUp)