Command += DeleteEntireLine

1 files changed, 14 insertions, 0 deletions

diff --git a/src/Main.hs b/src/Main.hs
index 139b478..11b246c 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -154,6 +154,7 @@ data Command
   | MulCount Int
   | SetCount Int
   | SetRegister Char
+  | DeleteEntireLine
 
 instance Monoid Command where
     mempty = Nop
@@ -324,6 +325,18 @@ execCommand (SetCount i) = modify $ \q -> q { count = i }
 
 execCommand (SetRegister c) = modify $ \q -> q { register = c }
 
+execCommand DeleteEntireLine = modify $ \q ->
+    -- TODO Numbered registers "0 to "9
+    --      Small delete register "-
+    let s = showBuffer $ buffer q
+        r = register q
+    in q { registers = Map.insert r s
+                     $ Map.insert defaultRegister
+                     $ registers q
+         , buffer = emptyBuffer
+         , register = defaultRegister
+         }
+
 
 reform :: Int -> Char -> String
 reform colorCode c =
@@ -422,6 +435,7 @@ charToCode c = "\\x" ++ showIntAtBase 16 intToDigit (ord c) ""
 dmap :: Keymap
 dmap =
   [ ("\x1b", ChangeMode NormalMode)
+  , ("d", DeleteEntireLine <> ChangeMode NormalMode)
   ]