diff options
| -rw-r--r-- | src/Main.hs | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/src/Main.hs b/src/Main.hs index 3af0d5f..139b478 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -358,6 +358,7 @@ renderInputLine m (lhs, rhs) = do InsertMode -> "> " VerbatimMode -> "\x1b[34;1m^\x1b[m " SelectRegisterMode -> "\" " + DeleteMode -> "\x1b[31;1m>\x1b[m " putStr $ promptString ++ (lhs >>= reform') ++ (rhs >>= reform') moveCursorLeft (length $ rhs >>= reformVis) @@ -418,6 +419,12 @@ charToCode :: Char -> String charToCode c = "\\x" ++ showIntAtBase 16 intToDigit (ord c) "" +dmap :: Keymap +dmap = + [ ("\x1b", ChangeMode NormalMode) + ] + + selectRegisterMap :: Keymap selectRegisterMap = [ ("\x1b", ChangeMode NormalMode) @@ -438,6 +445,7 @@ nmap = , ("l", MotionCommand $ GotoRight 1) , ("b", MotionCommand $ WordsBackward 1) , ("w", MotionCommand $ WordsForward 1) + , ("d", ChangeMode DeleteMode) , ("\"", ChangeMode SelectRegisterMode) , ("\x1b[C", MotionCommand $ GotoRight 1) , ("\x1b[D", MotionCommand $ GotoLeft 1) @@ -472,6 +480,7 @@ data Mode | NormalMode | VerbatimMode | SelectRegisterMode + | DeleteMode deriving (Eq) instance Show Mode where @@ -479,6 +488,7 @@ instance Show Mode where show InsertMode = "insert" show VerbatimMode = "verbatim" show SelectRegisterMode = "select register" + show DeleteMode = "delete" getCommand :: Mode -> String -> Command @@ -488,6 +498,7 @@ getCommand VerbatimMode s = InsertString s <> ChangeMode InsertMode getCommand SelectRegisterMode s = maybe (AlertBadInput s) id $ lookup s selectRegisterMap -- ^ TODO clear bad input +getCommand DeleteMode s = maybe (AlertBadInput s) id $ lookup s dmap -- TODO Control.Monad.whenLeft |