twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-07-28 02:31:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

minor tweaks, ideas from joachim.fasting@

Browse Source
This commit is contained in:
Don Stewart
2007-06-21 03:36:13 +00:00
parent c6da7fc14a
commit 776886660b
2 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Operations.hs
View File

@@ -99,7 +99,7 @@ view = windows . W.view
modifyGap :: (Int -> (Int,Int,Int,Int) -> (Int,Int,Int,Int)) -> X ()
modifyGap f = do
XState { windowset = ws, statusGaps = gaps } <- get
let n = fromIntegral $ W.screen (W.current ws)
let n = fromIntegral . W.screen $ W.current ws
(a,i:b) = splitAt n gaps
modify $ \s -> s { statusGaps = a ++ f n i : b }
refresh