justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Cleanup

Browse Source
This commit is contained in:
justin
2024-11-20 17:24:05 +00:00
parent a05511f6d8
commit b750fe4186
6 changed files with 200 additions and 229 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Update.hs
+1 -7
View File
@@ -306,8 +306,6 @@ checkTermDist w = fromMaybe w $ do
updateMouseContext :: Configuration -> Universe -> Universe
updateMouseContext cfig u = case u ^. uvWorld . input . mouseContext of
OverInvFiltDrag -> u & uvWorld . input . mouseContext .~ invfiltdrag
OverInvFiltDragDrop -> u & uvWorld . input . mouseContext .~ invfiltdrag
OverInvDrag {} -> u & uvWorld . input . mouseContext .~ invdrag
OverInvDragSelect{} -> u
_ -> u & uvWorld . input . mouseContext
@@ -341,10 +339,6 @@ updateMouseContext cfig u = case u ^. uvWorld . input . mouseContext of
sss <- w ^? hud . hudElement . diSections
(0,j) <- inverseSelNumPos cfig (invDisplayParams w) sss mpos
return $ OverInvDrag $ Just j
invfiltdrag = fromMaybe OverInvFiltDragDrop $ do
sss <- w ^? hud . hudElement . diSections
(0,_) <- inverseSelNumPos cfig (invDisplayParams w) sss mpos
return $ OverInvFiltDrag
overinv = do
sss <- w ^? hud . hudElement . diSections
selpos <- inverseSelNumPos cfig (invDisplayParams w) sss mpos
@@ -359,7 +353,7 @@ updateMouseContext cfig u = case u ^. uvWorld . input . mouseContext of
let mpossel = inverseSelNumPos cfig secondColumnParams sss (w ^. input . mousePos)
return $ case mpossel of
Nothing -> OverCombEscape
Just (-1, _) -> OverCombFilter
Just (-1, i) | (-1,i) == msel -> OverCombFilter
Just x | x == msel -> OverCombCombine x
Just x -> OverCombSelect x
overterm = do