twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-06 15:01:53 -07:00
Code Issues Packages Projects Releases Wiki Activity

fix a bug when ncompletions = nrows

Browse Source
This commit is contained in:
c.lopez
2012-08-26 08:31:37 +00:00
parent 8f9fa05c0f
commit cd6feb81e2
1 changed files with 2 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
XMonad/Prompt.hs
View File

@@ -527,12 +527,11 @@ completionHandle _ k e = handle k e
nextComplIndex :: XPState -> Int -> (Int,Int) nextComplIndex :: XPState -> Int -> (Int,Int)
nextComplIndex st nitems = case complWinDim st of nextComplIndex st nitems = case complWinDim st of
Nothing -> (0,0) --no window dims (just destroyed or not created) Nothing -> (0,0) --no window dims (just destroyed or not created)
Just winDim -> let Just (_,_,_,_,_,yy) -> let
(_,_,_,_,_,yy) = winDim
(ncols,nrows) = (nitems `div` length yy + if (nitems `mod` length yy > 0) then 1 else 0, length yy) (ncols,nrows) = (nitems `div` length yy + if (nitems `mod` length yy > 0) then 1 else 0, length yy)
(currentcol,currentrow) = complIndex st (currentcol,currentrow) = complIndex st
in if (currentcol + 1 >= ncols) then --hlight is in the last column in if (currentcol + 1 >= ncols) then --hlight is in the last column
if (currentrow + 1 < (nitems `mod` nrows) ) then --hlight is still not at the last row if (currentrow + 1 < nrows ) then --hlight is still not at the last row
(currentcol, currentrow + 1) (currentcol, currentrow + 1)
else else
(0,0) (0,0)