Work on more complicated terminals

2022-05-31 13:30:27 +01:00
parent 79b3a86520
commit b54864bbda
13 changed files with 159 additions and 64 deletions
@@ -84,9 +84,13 @@ subInventoryDisplay subinv cfig w = case subinv of
    DisplayTerminal {_termParams = tp} -> pictures
        [ invHead cfig (_termTitle tp)
        , renderListAt subInvX 60 cfig 
+            . (++ (map (\(str,_) -> (str,white)) (_termOptions tp)))
            . reverse 
            . take (_termMaxLines tp) 
            $ _termDisplayedLines tp <&> ($ w)
+        , fromMaybe mempty $ do
+            cursori <- _termSel tp <&> (+ _termMaxLines tp)
+            return $ listCursorNSW subInvX 60 cfig cursori white 15 1
        ]
    CombineInventory mi -> pictures
        [ invHead cfig "COMBINE"