Tweak cursor storage on sss

2023-02-19 09:53:09 +00:00
parent 41851ba24d
commit 8ec1dc0830
10 changed files with 163 additions and 151 deletions
@@ -81,8 +81,7 @@ drawSelectionSections sss ldps cfig = listPicturesAtScaleOff
    <> thecursor'
  where
    thecursor' = fromMaybe mempty $ do
-        i <- sss ^? sssSelPos . _Just
-        j <- sss ^? sssSections . ix i . ssCursor . _Just . scurSel 
+        (i,j) <- sss ^? sssSelPos . _Just
        return $ selSecDrawCursor 15 [North,South,West] cfig ldps sss i j
    pics = foldMap _ssShownItems (_sssSections sss)