Make parameters for display of list pictures more sensible

2023-05-10 02:25:38 +01:00
parent f569f3f173
commit 12aa1361eb
5 changed files with 29 additions and 31 deletions
@@ -146,7 +146,8 @@ examineInventoryExtra mtweaki mitm cfig = fromMaybe mempty $ do
    tweaki <- mtweaki
    -- consider moving this functionality out into a tweaks module
    tparam <- mitm ^? _Just . itTweaks . tweakParams . ix tweaki
-    return $ toTopLeft cfig $ listCursorNSW subInvX 60 tweaki 0 white (length $ showTweak tparam) 15
+    return $ toTopLeft cfig $ translate subInvX (-60) 
+        $ listCursorNSW tweaki 0 white (length $ showTweak tparam) 15

 combineInventoryExtra :: SelectionSections CombinableItem -> Configuration -> World -> Picture
 combineInventoryExtra sss cfig w = fromMaybe mempty $ do