diff options
| author | Akshay Nair <phenax5@gmail.com> | 2024-12-14 20:07:41 +0530 |
|---|---|---|
| committer | Akshay Nair <phenax5@gmail.com> | 2024-12-14 20:45:54 +0530 |
| commit | 34907bc25dba055dfbfe91d9a91803cc75283bfa (patch) | |
| tree | 310ed24c944b073f558ce6c67e3352fe0ad19d1d /src/Chelleport/KeySequence.hs | |
| parent | 73564537897f7573690955596097085b711c92e5 (diff) | |
| download | chelleport-34907bc25dba055dfbfe91d9a91803cc75283bfa.tar.gz chelleport-34907bc25dba055dfbfe91d9a91803cc75283bfa.zip | |
Refactor view + add better highlighting of regions
Diffstat (limited to '')
| -rw-r--r-- | src/Chelleport/KeySequence.hs | 17 |
1 files changed, 1 insertions, 16 deletions
diff --git a/src/Chelleport/KeySequence.hs b/src/Chelleport/KeySequence.hs index 1bc50a5..52e3a54 100644 --- a/src/Chelleport/KeySequence.hs +++ b/src/Chelleport/KeySequence.hs @@ -1,25 +1,10 @@ module Chelleport.KeySequence where +import Chelleport.Types (KeyGrid, KeySequence) import Data.List (isPrefixOf, nub) import qualified Data.Map as Map import qualified SDL -type Cell = [Char] - -type KeySequence = [Char] - -type KeyGrid = [[Cell]] - --- padded :: Int -> a -> [a] -> [a] --- padded 0 _ ls = ls --- padded n x ls --- | length ls > n = ls --- | otherwise = padded (n - 1) x (ls ++ [x]) - --- safeHead :: a -> [a] -> a --- safeHead def [] = def --- safeHead _ (x : _) = x - nextChars :: KeySequence -> KeyGrid -> Maybe [Char] nextChars keys cells = case matches of |