Refactor terminal prompt/maxlines into terminaltype

src/Dodge/Data/Terminal.hs

@@ -37,7 +37,6 @@ data Terminal = Terminal
     , _tmName :: String
     , _tmDisplayedLines :: [(String, Color)]
     , _tmFutureLines :: [TerminalLine]
-    , _tmMaxLines :: Int
     , _tmTitle :: String
     , _tmInput :: TerminalInput
     , _tmScrollCommands :: [TerminalCommand]
@@ -47,11 +46,13 @@ data Terminal = Terminal
     , _tmCommandHistory :: [String]
     , _tmToggles :: M.Map String TerminalToggle
     , _tmPartialCommand :: Maybe TerminalCommand
-    , _tmPromptString :: String
+    , _tmType :: TerminalType
     }
     --deriving (Eq, Show, Read) --, Generic)
     --h--deriving (Eq, Show, Read) --Generic, Flat)
 
+data TerminalType = DefaultTerminal
+
 data TerminalLineString = TerminalLineConst String Color
     --deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
@@ -140,4 +141,5 @@ concat <$> mapM (deriveJSON defaultOptions)
     , ''TerminalCommandEffect
     , ''TerminalCommand
     , ''Terminal
+    , ''TerminalType
     ]