[XMonad] Fix up whitespace

This commit is contained in:
Ivan Malison 2016-11-11 10:47:20 -08:00
parent ee10889607
commit 2fe42aaf53
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8

View File

@ -54,7 +54,6 @@ main = xmonad $ def
, keys = customKeys (const []) addKeys , keys = customKeys (const []) addKeys
} where } where
x +++ y = mappend y x x +++ y = mappend y x
-- Selectors -- Selectors
@ -100,10 +99,10 @@ myLayoutHook = avoidStruts . smartSpacing 10 . minimize . boringAuto .
findM :: (Monad m) => (a -> m (Maybe b)) -> [a] -> m (Maybe b) findM :: (Monad m) => (a -> m (Maybe b)) -> [a] -> m (Maybe b)
findM f = runMaybeT . msum . map (MaybeT . f) findM f = runMaybeT . msum . map (MaybeT . f)
myWindowBringerConfig = WindowBringerConfig { menuCommand = "rofi" myWindowBringerConfig =
WindowBringerConfig { menuCommand = "rofi"
, menuArgs = ["-dmenu","-i"] , menuArgs = ["-dmenu","-i"]
, windowTitler = myDecorateName , windowTitler = myDecorateName}
}
classIfMatches window entry = do classIfMatches window entry = do
result <- runQuery (fst entry) window result <- runQuery (fst entry) window
@ -224,7 +223,6 @@ restoreOrMinimizeOtherClasses = withLastMinimized' $ \mw ->
case mw of case mw of
Just _ -> restoreAllMinimized Just _ -> restoreAllMinimized
Nothing -> minimizeOtherClassesInWorkspace Nothing -> minimizeOtherClassesInWorkspace
-- Window switching -- Window switching
@ -249,7 +247,6 @@ bindBringAndRaise mask sym start query =
bindBringAndRaiseMany :: [(KeyMask, KeySym, X (), Query Bool)] -> [((KeyMask, KeySym), X())] bindBringAndRaiseMany :: [(KeyMask, KeySym, X (), Query Bool)] -> [((KeyMask, KeySym), X())]
bindBringAndRaiseMany = concatMap (\(a, b, c, d) -> bindBringAndRaise a b c d) bindBringAndRaiseMany = concatMap (\(a, b, c, d) -> bindBringAndRaise a b c d)
-- Key bindings -- Key bindings