Commit before working on displaying composed items in inventory

ghcidOutput

@@ -1 +1 @@
-All good (614 modules, at 11:30:44)
+All good (614 modules, at 15:05:45)

src/Dodge/Data/SelectionList.hs

@@ -5,6 +5,7 @@
 
 module Dodge.Data.SelectionList where
 
+import Dodge.Data.DoubleTree
 import Color
 import Control.Lens
 import Data.IntMap.Strict (IntMap)
@@ -61,6 +62,17 @@ data SelectionSection a = SelectionSection
     , _ssIndent :: Int
     , _ssDescriptor :: String
     }
+    |
+    SelectionTreeSection
+    { _stsItems :: DoubleTree (SelectionItem a)
+    , _ssCursor :: Maybe SectionCursor
+    , _ssMinSize :: Int
+    , _ssOffset :: Int
+    , _ssShownItems :: [Picture]
+    , _ssIndent :: Int
+    , _ssDescriptor :: String
+    }
+
 
 data SelectionWidth
     = FixedSelectionWidth Int

src/Dodge/TestString.hs

@@ -16,14 +16,13 @@ import Data.ByteString.Lazy.Char8 (unpack)
 import qualified Data.Aeson.Encode.Pretty as AEP
 import Control.Lens
 import Dodge.Data.Universe
---import Data.Maybe
---import ShortShow
---import qualified Data.Map.Strict as M
 import qualified IntMapHelp as IM
+
 testStringInit :: Universe -> [String]
-testStringInit u = fromMaybe mempty $ do
-    inv <- fmap invLDT $ u ^? uvWorld . cWorld . lWorld . creatures . ix 0 . crInv
-    return $ concatMap (prettyLDT (\(x,_,_,_) -> take 5 (show $ x ^. itType . iyBase))) inv
+testStringInit _ = mempty
+--testStringInit u = fromMaybe mempty $ do
+--    inv <- fmap invLDT $ u ^? uvWorld . cWorld . lWorld . creatures . ix 0 . crInv
+--    return $ concatMap (prettyLDT (\(x,_,_,_) -> take 5 (show $ x ^. itType . iyBase))) inv
 
 --testStringInit u = maybe [] invTree (u ^? uvWorld . cWorld . lWorld . creatures . ix 0 . crInv)
 --    [fromMaybe "" $ do