git.iko.soy/vty
on master help sign in
more on config
021a059Corey O'Connor
src/Graphics/Vty/Config.hs+6
compare with master
unifiedsplit
@@ -8,17 +8,23 @@ module Graphics.Vty.Config where
8
8
9import Data.Default
9import Data.Default
10
10
11+import Graphics.Vty.Input.Events
12+
11import System.FilePath
13import System.FilePath
12
14
13data Config = Config
15data Config = Config
14 { singleEscPeriod :: Int -- ^ AKA VTIME. The default is 100000 microseconds or 0.1 seconds.
16 { singleEscPeriod :: Int -- ^ AKA VTIME. The default is 100000 microseconds or 0.1 seconds.
15 -- | Debug information about the input process is appended to the file.
17 -- | Debug information about the input process is appended to the file.
16 , debugInputLog :: Maybe FilePath
18 , debugInputLog :: Maybe FilePath
19+ , inputOverrides :: ClassifyTable
17 } deriving (Show, Eq)
20 } deriving (Show, Eq)
18
21
19instance Default Config where
22instance Default Config where
20 def = Config
23 def = Config
21 { singleEscPeriod = 100000
24 { singleEscPeriod = 100000
22 , debugInputLog = Nothing
25 , debugInputLog = Nothing
26+ , inputOverrides = []
23 }
27 }
24
28
29+parseConfigFile :: FilePath -> IO Config
30+parseConfigFile path = return def
src/Graphics/Vty/Input/Terminfo.hs−3
@@ -70,9 +70,6 @@ classifyTableForTerm termName term =
70classifyTableUserOverrides :: IO ClassifyTable
70classifyTableUserOverrides :: IO ClassifyTable
71classifyTableUserOverrides = return []
71classifyTableUserOverrides = return []
72
72
73−parseOverrideFile :: FilePath -> IO ClassifyTable
74−parseOverrideFile _ = return []
75−
76-- | key table assumed to be applicable to all terminals.
73-- | key table assumed to be applicable to all terminals.
77universalTable :: ClassifyTable
74universalTable :: ClassifyTable
78universalTable = concat [visibleChars, ctrlChars, ctrlMetaChars, specialSupportKeys]
75universalTable = concat [visibleChars, ctrlChars, ctrlMetaChars, specialSupportKeys]