Improve drawRBOptions positioning

src/Dodge/Inventory/SelectionList.hs

@@ -51,19 +51,13 @@ invSelectionItem w indent loc =
 -- note the convoluted display of the hotkey/equipment, this was done to avoid a
 -- space leak
 itemDisplay :: World -> Creature -> CItem -> [String]
-itemDisplay w cr ci = -- f
-        basicItemDisplay itm
---        (itemNumberDisplay w cr ci)
-        `g` anyextra
+itemDisplay w cr ci = basicItemDisplay itm `g` anyextra
   where
     itm = ci ^. _1
     NInt itid = itm ^. itID
-    --f (x:xs) (y:_) = itemDisplayPad x y : xs
-    --f xs _ = xs
-    --g (x:xs) (y:_) = (rightPad 15 ' ' x ++ y) : xs
-    g (x:xs) (y:_) = (x ++ y) : xs
+    g (x:xs) (Just y) = (x <> y) : xs
     g xs _ = xs
-    anyextra = maybeToList (anyscroll <> anyexternal <> anyhotkey <> anyequippos)
+    anyextra = anyscroll <> anyexternal <> anyhotkey <> anyequippos
     anyhotkey = fmap hotkeyToString
         (w ^? cWorld . lWorld . imHotkeys . unNIntMap . ix itid)
     anyequippos = do