forked from colonelpanic/dotfiles
[XMonad] Fix up whitespace
This commit is contained in:
parent
ee10889607
commit
2fe42aaf53
@ -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 =
|
||||||
, menuArgs = ["-dmenu", "-i"]
|
WindowBringerConfig { menuCommand = "rofi"
|
||||||
, windowTitler = myDecorateName
|
, menuArgs = ["-dmenu","-i"]
|
||||||
}
|
, 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
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user