twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 11:30:22 -07:00
Code Issues Packages Projects Releases Wiki Activity

Bug correction when areasColumn > 1

Browse Source
This commit is contained in:
Malebria 2008-05-26 22:32:20 +00:00
parent 3436683f88
commit f95fa1f551
1 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
XMonad/Actions/Plane.hs
View File

@ -112,10 +112,18 @@ plane function columns limits direction = do
state <- get state <- get
xconf <- ask xconf <- ask
let vertical f = let vertical f =
if mod currentWS columns >= mod areas columns if column >= areasColumn
then mod (f currentWS columns) $ div areas columns * columns then mod (f currentWS columns) $ areasLine * columns
else mod (f currentWS columns) $ ((div areas columns + 1) * columns) else mod (f currentWS columns) $ (areasLine + 1) * columns
horizontal f = mod (f currentWS) columns + line * columns
horizontal f =
if line < areasLine
then mod (f column) columns + lineNumber
else mod (f column) areasColumn + lineNumber
areasLine = div areas columns
areasColumn = mod areas columns
lineNumber = line * columns
line = div currentWS columns line = div currentWS columns
column = mod currentWS columns column = mod currentWS columns
currentWS = fromJust mCurrentWS currentWS = fromJust mCurrentWS