[XMonad] Fix indentation and whitespace in several spots

dotfiles/xmonad/xmonad.hs

@@ -124,7 +124,8 @@ emacsSelector = className =? "Emacs"
 transmissionSelector = fmap (isPrefixOf "Transmission") title
 hangoutsSelector = chromeSelectorBase <&&> fmap isHangoutsTitle title
 
-virtualClasses = [ (hangoutsSelector, "Hangouts")
+virtualClasses =
+  [ (hangoutsSelector, "Hangouts")
   , (chromeSelector, "Chrome")
   , (transmissionSelector, "Transmission")
   ]
@@ -158,7 +159,8 @@ unmodifyLayout (ModifiedLayout _ x') =  x'
 selectLimit =
   DM.menuArgs "rofi" ["-dmenu", "-i"] ["2", "3", "4"] >>= (setLimit . read)
 
-data MyToggles = LIMIT
+data MyToggles
+  = LIMIT
   | GAPS
   | MAGICFOCUS
   deriving (Read, Show, Eq, Typeable)
@@ -190,7 +192,8 @@ toggleStateToString s =
 
 toggleToStringWithState :: (Transformer t Window, Show t) => t -> X String
 toggleToStringWithState toggle =
-  (printf "%s (%s)" (show toggle) . toggleStateToString) <$> isToggleActive toggle
+  (printf "%s (%s)" (show toggle) . toggleStateToString) <$>
+  isToggleActive toggle
 
 selectToggle =
   togglesMap >>= DM.menuMapArgs "rofi" ["-dmenu", "-i"] >>=
@@ -277,7 +280,8 @@ myDecorateName ws w = do
 -- done with the existing window bringer interface
 myBringWindow WindowBringerConfig { menuCommand = cmd
                                   , menuArgs = args
-                                  , windowTitler = titler } =
+                                  , windowTitler = titler
+                                  } =
   windowMap' titler >>= DM.menuMapArgs cmd args >>= flip whenJust action
   where
     action window =
@@ -371,10 +375,10 @@ actOnWindowsInWorkspace windowAction getWindowsAction = restoreFocus $
 
 windowsWithUnfocusedClass ws = windowsWithOtherClasses (W.focus ws) ws
 windowsWithFocusedClass ws = windowsWithSameClass (W.focus ws) ws
-windowsWithOtherClasses = windowsMatchingPredicate (/=)
-windowsWithSameClass = windowsMatchingPredicate (==)
+windowsWithOtherClasses = windowsMatchingClassPredicate (/=)
+windowsWithSameClass = windowsMatchingClassPredicate (==)
 
-windowsMatchingPredicate predicate window workspace =
+windowsMatchingClassPredicate predicate window workspace =
   windowsSatisfyingPredicate workspace $ do
     windowClass <- getClass window
     return $ predicate windowClass
@@ -476,17 +480,17 @@ swapFocusedWith w ws = W.modify' (swapFocusedWith' w) (W.delete' w ws)
 swapFocusedWith' w (W.Stack current ls rs) = W.Stack w ls (rs ++ [current])
 
 swapMinimizeStateAfter action =
-  withFocused $
-  \originalWindow -> do
+  withFocused $ \originalWindow -> do
     _ <- action
-    restoreFocus $
-      do maybeUnminimizeFocused
-         withFocused $
-           \newWindow -> when (newWindow /= originalWindow) $ minimizeWindow originalWindow
+    restoreFocus $ do
+      maybeUnminimizeFocused
+      withFocused $ \newWindow ->
+        when (newWindow /= originalWindow) $ minimizeWindow originalWindow
 
 -- Named Scratchpads
 
-scratchpads = [ NS "htop" htopCommnad (title =? "htop") nonFloating
+scratchpads =
+  [ NS "htop" htopCommnad (title =? "htop") nonFloating
   , NS "spotify" spotifyCommand spotifySelector nonFloating
   , NS "hangouts" hangoutsCommand hangoutsSelector nonFloating
   ]