diff options
| -rw-r--r-- | Main.hs | 79 |
1 files changed, 1 insertions, 78 deletions
@@ -110,7 +110,6 @@ data Command | KillLastChar | KillNextChar | ExecuteInputBuffer - | UnboundSequence String String | MotionCommand LeftRightMotion | ChangeMode Mode -- TODO Move Count Motion @@ -127,8 +126,7 @@ instance Monoid Command where data ExecError - = UnboundSequenceError String String - | UnhandledInputError String + = UnhandledInputError String | OtherError String instance Error ExecError where @@ -138,9 +136,6 @@ prettyError :: ExecError -> String prettyError e = rec e where color cc s = "\x1b[" ++ cc ++ "m" ++ s ++ "\x1b[m" - rec (UnboundSequenceError s n) = - color "31" $ "unbound sequence: <" ++ (pp "31;1" s) ++ "\x1b[;31m> " - ++ (pp "31;1" n) rec (UnhandledInputError s) = color "31" $ "unhandled input: <" ++ (pp "31;1" s) ++ "\x1b[;31m>" @@ -243,9 +238,6 @@ execCommand KillLastWord = do execCommand (AlertBadInput s) = throwError (UnhandledInputError s) -execCommand (UnboundSequence s n) = - throwError (UnboundSequenceError s n) - execCommand (Combine c1 c2) = do q0 <- get @@ -363,7 +355,6 @@ nmap = , ("w", MotionCommand $ WordsForward 1) , ("\x0a", ExecuteInputBuffer <> ChangeMode InsertMode) ] - ++ [unboundSequence "\x1b" "<Escape>"] imap = @@ -381,74 +372,6 @@ imap = , ("\x1bOc", MotionCommand $ WordsForward 1) , ("\x1bOd", MotionCommand $ WordsBackward 1) ] - ++ [unboundSequence "\x1b[2~" "<Insert>"] - ++ [unboundSequence "\x1b[5~" "<Prior>"] -- page up - ++ [unboundSequence "\x1b[6~" "<Next>"] -- page dn - ++ [unboundSequence "\x1b[7~" "<Home>"] - ++ [unboundSequence "\x1b[8~" "<End>"] - ++ [unboundSequence "\x1b[2$" "<S-Insert>"] - ++ [unboundSequence "\x1b[5$" "<S-Prior>"] -- page up - ++ [unboundSequence "\x1b[6$" "<S-Next>"] -- page dn - ++ [unboundSequence "\x1b[7$" "<S-Home>"] - ++ [unboundSequence "\x1b[8$" "<S-End>"] - ++ [unboundSequence "\x1b\x1b[2$" "<S-M-Insert>"] - ++ [unboundSequence "\x1b\x1b[5$" "<S-M-Prior>"] -- page up - ++ [unboundSequence "\x1b\x1b[6$" "<S-M-Next>"] -- page dn - ++ [unboundSequence "\x1b\x1b[7$" "<S-M-Home>"] - ++ [unboundSequence "\x1b\x1b[8$" "<S-M-End>"] - ++ [unboundSequence "\x1b\x1b[A" "<M-Up>"] - ++ [unboundSequence "\x1b\x1b[B" "<M-Down>"] - ++ [unboundSequence "\x1b\x1b[C" "<M-Right>"] - ++ [unboundSequence "\x1b\x1b[D" "<M-Left>"] - ++ [unboundSequence "\x1b\x1b[a" "<S-M-Up>"] - ++ [unboundSequence "\x1b\x1b[b" "<S-M-Down>"] - ++ [unboundSequence "\x1b\x1b[c" "<S-M-Right>"] - ++ [unboundSequence "\x1b\x1b[d" "<S-M-Left>"] - ++ [unboundSequence "\x1b[a" "<S-Up>"] - ++ [unboundSequence "\x1b[b" "<S-Down>"] - ++ [unboundSequence "\x1b[c" "<S-Right>"] - ++ [unboundSequence "\x1b[d" "<S-Left>"] - ++ [unboundSequence "\x1bOa" "<C-Up>"] - ++ [unboundSequence "\x1bOb" "<C-Down>"] - ++ [unboundSequence "\x1bOc" "<C-Right>"] - ++ [unboundSequence "\x1bOd" "<C-Left>"] - ++ [unboundSequence "\x1b\x1bOa" "<C-M-Up>"] - ++ [unboundSequence "\x1b\x1bOb" "<C-M-Down>"] - ++ [unboundSequence "\x1b\x1bOc" "<C-M-Right>"] - ++ [unboundSequence "\x1b\x1bOd" "<C-M-Left>"] - ++ [unboundSequence "\x1b[11~" "<F1>"] - ++ [unboundSequence "\x1b[12~" "<F2>"] - ++ [unboundSequence "\x1b[13~" "<F3>"] - ++ [unboundSequence "\x1b[14~" "<F4>"] - ++ [unboundSequence "\x1b[15~" "<F5>"] - ++ [unboundSequence "\x1b[17~" "<F6>"] - ++ [unboundSequence "\x1b[18~" "<F7>"] - ++ [unboundSequence "\x1b[19~" "<F8>"] - ++ [unboundSequence "\x1b[20~" "<F9>"] - ++ [unboundSequence "\x1b[21~" "<F10>"] - ++ [unboundSequence "\x1b[23~" "<F11>"] - ++ [unboundSequence "\x1b[24~" "<F12>"] - ++ [unboundSequence "\x1b\x1b[11~" "<M-F1>"] - ++ [unboundSequence "\x1b\x1b[12~" "<M-F2>"] - ++ [unboundSequence "\x1b\x1b[13~" "<M-F3>"] - ++ [unboundSequence "\x1b\x1b[14~" "<M-F4>"] - ++ [unboundSequence "\x1b\x1b[15~" "<M-F5>"] - ++ [unboundSequence "\x1b\x1b[17~" "<M-F6>"] - ++ [unboundSequence "\x1b\x1b[18~" "<M-F7>"] - ++ [unboundSequence "\x1b\x1b[19~" "<M-F8>"] - ++ [unboundSequence "\x1b\x1b[20~" "<M-F9>"] - ++ [unboundSequence "\x1b\x1b[21~" "<M-F10>"] - ++ [unboundSequence "\x1b\x1b[23~" "<M-F11>"] - ++ [unboundSequence "\x1b\x1b[24~" "<M-F12>"] - - ++ [unboundSequence "\x1b\x1b[2~" "<M-Insert>"] - ++ [unboundSequence "\x1b\x1b[3~" "<M-Delete>"] - ++ [unboundSequence "\x1b\x7f" "<M-BackSpace>"] - ++ [unboundSequence "\x1b\x0a" "<M-Return>"] - - -unboundSequence seq name = - (seq, UnboundSequence seq name) type Keymap = [(String, Command)] |