diff options
| author | Akshay Nair <phenax5@gmail.com> | 2025-10-05 22:21:42 +0530 |
|---|---|---|
| committer | Akshay Nair <phenax5@gmail.com> | 2025-10-08 13:07:40 +0530 |
| commit | 424d65e53b99c65f07f36578e3d0975c4d093c0e (patch) | |
| tree | 8e6f9939a37632d51888010bad56011be191057c /lib/Daffm/Keymap.hs | |
| parent | abcbb255e8dd5f624ba5173783cf665522b527df (diff) | |
| download | daffm-424d65e53b99c65f07f36578e3d0975c4d093c0e.tar.gz daffm-424d65e53b99c65f07f36578e3d0975c4d093c0e.zip | |
Add extend config property to extend configs + move defaults
Diffstat (limited to '')
| -rw-r--r-- | lib/Daffm/Keymap.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Daffm/Keymap.hs b/lib/Daffm/Keymap.hs index aae4a95..5e5856f 100644 --- a/lib/Daffm/Keymap.hs +++ b/lib/Daffm/Keymap.hs @@ -36,7 +36,7 @@ parseKeySequence :: Text.Text -> Maybe [Key] parseKeySequence keytxt = parse keytxt [] where parse k keys = case k of - (Text.null -> True) -> pure keys + "" -> pure keys (Text.stripPrefix "<tab>" -> (Just rest')) -> parse rest' $ keys <> [V.KChar '\t'] (Text.stripPrefix "<space>" -> (Just rest')) -> parse rest' $ keys <> [V.KChar ' '] (Text.stripPrefix "<bs>" -> (Just rest')) -> parse rest' $ keys <> [V.KBS] |