Cleanup

ghcidOutput

@@ -1 +1 @@
-All good (594 modules, at 10:28:16)
+All good (594 modules, at 19:29:05)

src/Dodge/DisplayInventory.hs

@@ -230,7 +230,7 @@ updateSection sis mcsel availablelines ss =
     ss
         & ssItems .~ sis
         & ssOffset .~ offset
-        & ssShownItems .~ shownitems
+        & ssShownItems .~ tweakfirst shownitems
   where
     oldoffset = ss ^. ssOffset
     nocursoroffset =
@@ -261,16 +261,16 @@ updateSection sis mcsel availablelines ss =
             _ -> oldoffset
     tweakfirst (x : xs)
         | offset > 0 =
-            translate 0 (-100) (color moreupcolor $ text (theindent ++ replicate 15 '^')) :
-            map h xs
-        | otherwise = map h (x : xs)
+            (color moreupcolor $ text (theindent ++ replicate 15 (toEnum 30))) :
+            xs
+        | otherwise =  (x : xs)
     tweakfirst [] = []
     moreupcolor = fromMaybe white $ allstrings ^? ix offset . _1
     shownitems
         | length shownstrings > availablelines =
-            tweakfirst (take (availablelines - 1) shownstrings)
-                ++ [translate 0 100 . color moredowncolor . textVMirror $ theindent ++ replicate 15 '^']
-        | otherwise = tweakfirst shownstrings
+            (map h $ take (availablelines - 1) shownstrings)
+                ++ [color moredowncolor . text $ theindent ++ replicate 15 (toEnum 31)]
+        | otherwise = map h shownstrings
     moredowncolor = fromMaybe white $ allstrings ^? ix (offset + availablelines - 1) . _1
     allstrings = listSelectionColorPicture sis
     shownstrings = drop offset allstrings

src/Dodge/Render/HUD.hs

@@ -131,10 +131,11 @@ getMouseInvSel w = case w ^? hud . hudElement . subInventory . nsSelected of
 
 drawDISelections :: World -> Picture
 drawDISelections w = fromMaybe mempty $ do
-    ((_, j), (_, b)) <- getMouseInvSel w
+    ((i, j), (a, b)) <- getMouseInvSel w
+    guard $ i == a
     sss <- w ^? hud . hudElement . diSections
     let idp = invDisplayParams w
-    let f x = selSecDrawCursorAt 15 idp BackdropCursor sss (0,x)
+    let f x = selSecDrawCursorAt 15 idp BackdropCursor sss (i,x)
     return . color (withAlpha 0.2 white) . foldMap f $ [min j b..max j b]
 
 drawSubInventory :: SubInventory -> Configuration -> World -> Picture