From d59175ab186d2c8d63ae75d4a13cad91a1933c4d Mon Sep 17 00:00:00 2001
From: tv <tv@shackspace.de>
Date: Mon, 28 Jul 2014 00:28:58 +0200
Subject: purge UnboundSequence & co.

---
 Main.hs | 79 +----------------------------------------------------------------
 1 file changed, 1 insertion(+), 78 deletions(-)

(limited to 'Main.hs')

diff --git a/Main.hs b/Main.hs
index 2dccd90..a64ea2d 100644
--- a/Main.hs
+++ b/Main.hs
@@ -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)]
-- 
cgit v1.2.3