Cleanup

src/Dodge/Render/HUD.hs

@@ -7,26 +7,25 @@ module Dodge.Render.HUD (
 ) where
 
 import Control.Applicative
-import Dodge.Terminal.Type
-import Dodge.CharacterEnums
-import Dodge.Creature.Test
-import Dodge.DoubleTree
-import Dodge.Data.DoubleTree
-import Dodge.Data.ComposedItem
 import Control.Lens
 import Control.Monad
 import qualified Data.Map.Strict as M
 import Data.Maybe
 --import qualified Data.Vector as V
 import Dodge.Base
+import Dodge.CharacterEnums
 --import Dodge.Clock
 import Dodge.Creature.Info
+import Dodge.Creature.Test
 import Dodge.Data.CardinalPoint
 import Dodge.Data.Combine
+import Dodge.Data.ComposedItem
 import Dodge.Data.Config
+import Dodge.Data.DoubleTree
 import Dodge.Data.SelectionList
 import Dodge.Data.World
 import Dodge.Default.SelectionList
+import Dodge.DoubleTree
 import Dodge.Equipment.Text
 import Dodge.Inventory
 import Dodge.Item.Display
@@ -39,6 +38,7 @@ import Dodge.Render.List
 import Dodge.ScreenPos
 import Dodge.SelectionSections
 import Dodge.SelectionSections.Draw
+import Dodge.Terminal.Type
 import Geometry
 import qualified IntMapHelp as IM
 import Justify
@@ -81,12 +81,13 @@ drawInventory sss w cfig =
         guard . not . isFilteringInv =<< (w ^? hud . hudElement . diSections)
         return . inventoryExtra sss cfig w $ invAdj inv
 
-drawRootCursor :: World
+drawRootCursor ::
-    -> IM.IntMap (SelectionSection ())
+    World ->
-    -> Maybe (Int,Int)
+    IM.IntMap (SelectionSection ()) ->
-    -> ListDisplayParams
+    Maybe (Int, Int) ->
-    -> Configuration
+    ListDisplayParams ->
-    -> Picture
+    Configuration ->
+    Picture
 drawRootCursor w sss msel ldp cfig = fromMaybe mempty $ do
     cr <- w ^? cWorld . lWorld . creatures . ix 0
     guard $ crIsAiming cr
@@ -94,8 +95,14 @@ drawRootCursor w sss msel ldp cfig = fromMaybe mempty $ do
     guard $ i == 0
     inv <- w ^? cWorld . lWorld . creatures . ix 0 . crInv
     (x, y) <- getRootItemBounds j inv
-    return $ drawSSMultiCursor sss (Just (0,x)) (Just (y- x)) ldp 
+    return $
-        (BoundaryCursor [minBound ..])  cfig 
+        drawSSMultiCursor
+            sss
+            (Just (0, x))
+            (Just (y - x))
+            ldp
+            (BoundaryCursor [minBound ..])
+            cfig
 
 getRootItemBounds :: Int -> IM.IntMap Item -> Maybe (Int, Int)
 getRootItemBounds i inv = do
@@ -114,14 +121,16 @@ drawMouseOver cfig w = fromMaybe mempty $ invsel <|> combinvsel
         sss <- w ^? hud . hudElement . diSections
         let idp = invDisplayParams w
         return . translateScreenPos cfig (invDisplayParams w ^. ldpPos)
-            . color (withAlpha 0.2 white) $ selSecDrawCursorAt 15 idp curs sss (j, i)
+            . color (withAlpha 0.2 white)
+            $ selSecDrawCursorAt 15 idp curs sss (j, i)
     curs = BackdropCursor
     combinvsel = do
         (j, i) <- w ^? input . mouseContext . mcoCombInv
         sss <- w ^? hud . hudElement . subInventory . ciSections
-        let idp = invDisplayParams w
+        let idp = secondColumnParams
-        return . translateScreenPos cfig (secondColumnParams ^. ldpPos) 
+        return . translateScreenPos cfig (idp ^. ldpPos)
-            . color (withAlpha 0.2 white) $ selSecDrawCursorAt 15 idp curs sss (j, i)
+            . color (withAlpha 0.2 white)
+            $ selSecDrawCursorAt 15 idp curs sss (j, i)
 
 getMouseInvSel :: World -> Maybe ((Int, Int), (Int, Int))
 getMouseInvSel w = case w ^? hud . hudElement . subInventory . nsSelected of