Work on terminals: allow scrolling to get default inputs

src/Dodge/Event.hs

@@ -12,32 +12,34 @@ Instead we store the events in a set, and deal with the combinations in
 module Dodge.Event
     ( handleEvent
     ) where
-import           Dodge.Combine
-import           Dodge.Event.Keyboard
+import Dodge.Terminal
+import Dodge.Combine
+import Dodge.Event.Keyboard
 --import Dodge.Event.Menu
-import           Dodge.Base
-import           Dodge.Data
+import Dodge.Base
+import Dodge.Data
 --import Dodge.Base.Window
-import           Dodge.PreloadData
+import Dodge.PreloadData
 --import Dodge.Creature.Action
-import           Dodge.Inventory
-import           Dodge.Inventory.Add
-import           Dodge.SoundLogic
+import Dodge.Inventory
+import Dodge.Inventory.Add
+import Dodge.SoundLogic
 --import Geometry
 --import Preload.Update
-import           Dodge.FloorItem
+import Dodge.FloorItem
 import qualified IntMapHelp           as IM
-import           ListHelp
+import ListHelp
 
 --import Data.Monoid
-import           Control.Lens
-import           Data.Maybe
+import Control.Lens
+import Data.Maybe
 --import Data.Maybe
 --import Data.Char
 --import Data.List
 --import Data.Function (on)
 import qualified Data.Set             as S
-import           SDL
+import qualified Data.Text as T
+import SDL
 
 handleEvent :: Event -> Universe -> IO (Maybe Universe)
 handleEvent e = case eventPayload e of
@@ -92,13 +94,14 @@ handlePressedMouseButton :: MouseButton -> Universe -> Maybe Universe
 handlePressedMouseButton but w = case (_hudElement (_hud $ _uvWorld w), but) of
     (DisplayCarte,_) -> Just $ w & uvWorld . clickMousePos .~ _mousePos (_uvWorld w)
     (_,ButtonMiddle) -> Just $ w & uvWorld . clickMousePos .~ _mousePos (_uvWorld w)
-    ( DisplayInventory (DisplayTerminal tp _) , ButtonLeft)
-                -> Just $ fromMaybe w
-                    $ do -- ugly
-            i <- _termSel tp
-            f <- _termOptions tp !? i
-            return $ w & uvWorld %~ snd f
---                & uvWorld . hud . hudElement .~ DisplayInventory NoSubInventory
+    ( DisplayInventory (DisplayTerminal _ _) , ButtonLeft)
+                -> Just $ over uvWorld doTerminalEffect w
+--                -> Just $ fromMaybe w
+--                    $ do -- ugly
+--            i <- _termSel tp
+--            f <- _termOptions tp !? i
+--            return $ w & uvWorld %~ snd f
+----                & uvWorld . hud . hudElement .~ DisplayInventory NoSubInventory
     ( DisplayInventory (CombineInventory mi) , ButtonLeft)
                 -> Just $ fromMaybe (w & uvWorld . hud . hudElement .~ DisplayInventory NoSubInventory) 
                     $ do -- ugly
@@ -147,11 +150,30 @@ wheelEvent y w = case _hudElement $ _hud w of
         | otherwise ->  w & moveTweakSel yi
     DisplayInventory (CombineInventory _) -> w
         & hud . hudElement . subInventory . combineInvSel . _Just %~ ((`mod` numcombs) . subtract yi)
-    DisplayInventory (DisplayTerminal tp _) -> w
-        & hud . hudElement . subInventory . termParams . termSel . _Just 
-            %~ ((`mod` length (_termOptions tp)) . subtract yi)
+    DisplayInventory (DisplayTerminal tp _) 
+        | rbDown -> w
+            & hud . hudElement . subInventory . termParams %~ updatetermsubsel
+        | otherwise -> w
+            & hud . hudElement . subInventory . termParams %~ updatetermsel
     _ -> w
   where
+    updatetermsel tp = case _termSel tp of
+        Nothing -> tp & termSel ?~ (0,0)
+            & termInput . _Just %~ replacewith tp 0
+        Just (i,_) -> let newi = ((`mod` length (_termCommands tp)) . subtract yi) i
+            in tp & termSel . _Just .~ (newi,0)
+                & termInput . _Just %~ replacewith tp newi
+    updatetermsubsel tp = case _termSel tp of
+        Nothing -> tp
+        Just (i,j) -> let newj = (j - yi) `mod` (1 + length (_tcArguments (_termCommands tp !! i) w))
+            in tp & termSel . _Just .~ (i,newj)
+                & termInput . _Just %~ replacewith' tp i newj w
+    replacewith tp newi _ = T.pack (_tcString (_termCommands tp !! newi))
+    replacewith' tp i j w _ = T.pack $ _tcString tc ++ " " ++ arg-- ++ ((_tcArguments tp) w !! j)
+      where
+        arg :: String
+        arg = (("":(_tcArguments tc w) )!! j)
+        tc = _termCommands tp !! i
     numcombs = length $ combineItemListYou w
     yi = round $ signum y
     numLocs = (fst . IM.findMax $ _seenLocations w) + 1