Improve terminal color possibilities

2024-11-07 18:51:18 +00:00
parent bfd4649e1b
commit ccc966d652
13 changed files with 207 additions and 149 deletions
@@ -0,0 +1,12 @@
+module Dodge.Terminal.Type (
+    getPromptTM,
+    getMaxLinesTM,
+) where
+
+import Dodge.Data.Terminal
+
+getPromptTM :: TerminalType -> String
+getPromptTM _ = "> "
+
+getMaxLinesTM :: TerminalType -> Int
+getMaxLinesTM _ = 14