Start implementing attachable scroll items

src/Dodge/Inventory.hs

@@ -4,7 +4,7 @@ module Dodge.Inventory (
     rmSelectedInvItem,
     rmInvItem,
     updateCloseObjects,
-    closeObjScrollDir,
+    --closeObjScrollDir,
     changeSwapSel,
     scrollAugInvSel,
     crNumFreeSlots,
@@ -31,7 +31,7 @@ import Geometry
 import qualified IntMapHelp as IM
 import LensHelp
 import ListHelp
-import Padding
+--import Padding
 
 -- TODO check what happens to selection index when dropping non-selected items
 
@@ -134,11 +134,11 @@ updateCloseObjects w =
     updatebyid (Right btid) = fmap Right $ w ^? cWorld . lWorld . buttons . ix (_btID btid)
 
 
-closeObjScrollDir :: Float -> World -> World
-closeObjScrollDir x
-    | x > 0 = over (hud . closeObjects) rotU
-    | x < 0 = over (hud . closeObjects) rotD
-    | otherwise = id
+--closeObjScrollDir :: Float -> World -> World
+--closeObjScrollDir x
+--    | x > 0 = over (hud . closeObjects) rotU
+--    | x < 0 = over (hud . closeObjects) rotD
+--    | otherwise = id
 
 changeSwapSel :: Int -> World -> World
 changeSwapSel yi w