Tweak rmb cursor display

src/Dodge/Render/HUD.hs

@@ -97,8 +97,8 @@ drawRootCursor w sss msel ldp cfig = fromMaybe mempty $ do
     return $
         drawSSMultiCursor
             sss
-            (Just (0, x))
-            (Just (y - x))
+            (0, x)
+            (y - x)
             ldp
             curs
             cfig

src/Dodge/SelectionSections/Draw.hs

@@ -36,23 +36,22 @@ drawSSCursor sss ldp curs cfig =
 
 drawSSMultiCursor ::
     IMSS a ->
-    Maybe (Int, Int) ->
-    Maybe Int ->
+    (Int, Int) ->
+    Int ->
     LDParams ->
     CursorDisplay ->
     Config ->
     Picture
-drawSSMultiCursor sss msel mextra ldp curs cfig = translateScreenPos cfig (ldp ^. ldpPos)
+drawSSMultiCursor sss (i,j) ydown ldp curs cfig = translateScreenPos cfig (ldp ^. ldpPos)
     . fold
     $ do
-        (i, j) <- msel
         yint <- selSecYint i j sss
-        ydown <- mextra
         ssitms <- sss ^? ix i . ssItems
         sindent <- sss ^? ix i . ssIndent
         let selitms = fst . IM.split (j + ydown + 1) . snd . IM.split (j -1) $ ssitms
             ysize = sum . fmap _siHeight $ selitms
-            maxxoff = maximum . fmap _siOffX $ selitms
+            f x = 1 + _siOffX x + maximum (15 : (length <$> _siPictures x))
+            maxxoff = maximum . fmap f $ selitms
             minxoff = minimum . fmap _siOffX $ selitms
         return $
             listCursor
@@ -62,5 +61,6 @@ drawSSMultiCursor sss msel mextra ldp curs cfig = translateScreenPos cfig (ldp ^
                 yint
                 (minxoff + sindent)
                 white
-                (15 + maxxoff - minxoff)
+                --(15 + maxxoff - minxoff)
+                maxxoff
                 ysize