colonelpanic/dotfiles
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[XMonad] Fix whitespace

Browse Source
This commit is contained in:
Ivan Malison 2016-11-24 17:15:57 -06:00
parent 272ce49ab0
commit 5ec784e0bf
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
dotfiles/xmonad/xmonad.hs
View File

@ -99,6 +99,7 @@ myManageHook = composeAll . concat $
] ]
-- Toggles -- Toggles
unmodifyLayout (ModifiedLayout _ x') = x' unmodifyLayout (ModifiedLayout _ x') = x'
selectLimit = DM.menuArgs "rofi" ["-dmenu", "-i"] ["2", "3", "4"] >>= 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 GAPS x k = k (smartSpacing 5 x) unmodifyLayout
transform MAGICFOCUS x k = k (magicFocus 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] myToggles = [LIMIT, GAPS, MAGICFOCUS]
otherToggles = [NBFULL, MIRROR] otherToggles = [NBFULL, MIRROR]
@ -165,8 +167,6 @@ goFullscreen = sendMessage $ Toggle NBFULL
-- Layout setup -- Layout setup
-- TODO: Figure out how to disable focus follows mouse for magicFocus
rename newName = RN.renamed [RN.Replace newName] rename newName = RN.renamed [RN.Replace newName]
layoutsStart layout = (layout, [Layout layout]) layoutsStart layout = (layout, [Layout layout])
@ -376,6 +376,7 @@ swapMinimizeStateAfter action = withFocused $ \originalWindow -> do
$ minimizeWindow originalWindow $ minimizeWindow originalWindow
-- Named Scratchpads -- Named Scratchpads
scratchpads = [ NS "htop" htopCommnad (title =? "htop") nonFloating scratchpads = [ NS "htop" htopCommnad (title =? "htop") nonFloating
, NS "spotify" spotifyCommand spotifySelector nonFloating , NS "spotify" spotifyCommand spotifySelector nonFloating
, NS "hangouts" hangoutsCommand hangoutsSelector 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) bindBringAndRaiseMany = concatMap (\(a, b, c, d) -> bindBringAndRaise a b c d)
-- Screen shift -- Screen shift
shiftToNextScreen = withWindowSet $ \ws -> shiftToNextScreen = withWindowSet $ \ws ->
case W.visible ws of case W.visible ws of
W.Screen i _ _:_ -> windows $ W.view (W.tag i) . W.shift (W.tag i) W.Screen i _ _:_ -> windows $ W.view (W.tag i) . W.shift (W.tag i)