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

Tweak bounds for x over selection items

Browse Source
This commit is contained in:
justin
2024-11-25 10:06:13 +00:00
parent 2299ec374c
commit 905be15a33
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
ghcidOutput
+1 -1
View File
@@ -1 +1 @@
All good (593 modules, at 10:03:17) All good (593 modules, at 10:06:01)
src/Dodge/SelectionSections.hs
+2 -2
View File
@@ -212,8 +212,8 @@ inverseSelSecYintXPosCheck cfig ldp x yint sss = do
let V2 x0 _ = screenPosAbs cfig (ldp ^. ldpPos) let V2 x0 _ = screenPosAbs cfig (ldp ^. ldpPos)
sindent <- sss ^? ix i . ssIndent sindent <- sss ^? ix i . ssIndent
itindent <- sss ^? ix i . ssItems . ix j . siOffX itindent <- sss ^? ix i . ssItems . ix j . siOffX
let x1 = x0 + _ldpScale ldp * 10 * fromIntegral (sindent + itindent) let x1 = x0 + _ldpScale ldp * 10 * (fromIntegral (sindent + itindent) - 0.5)
guard $ x - x1 < 150 && x > x1 guard $ x - x1 < 160 && x > x1
return (i,j) return (i,j)
inverseSelNumPos :: inverseSelNumPos ::