Fix bug when dragging filtered items

2024-11-25 20:04:03 +00:00
parent 8ad91c7bac
commit 3c75b78803
2 changed files with 4 additions and 3 deletions
@@ -286,11 +286,12 @@ shiftInvItems k x ab bn xs ss w = setSelWhileDragging . fromMaybe w $ do
    (mini,_) <- IS.minView xs
    if x < (k,mini)
        then do
-            _ <- ss ^? ix (mini - 1)
+            --_ <- ss ^? ix (mini - 1)
+            guard $ not . null . fst $ IM.split mini ss
            guard $ Just (k,mini-1) /= ab
            return $ shiftInvItemsUp k xs w
        else do
-            _ <- ss ^? ix (maxi + 1)
+            guard $ not . null . snd $ IM.split maxi ss
            guard $ Just (k,maxi+1) < bn
            return $ shiftInvItemsDown k xs w