diff --git a/src/Brick.hs b/src/Brick.hs
index 4b0ca19..8d523e0 100644
--- a/src/Brick.hs
+++ b/src/Brick.hs
@@ -89,6 +89,7 @@ editEvent e theEdit = f theEdit
         f = case e of
               EvKey (KChar 'a') [MCtrl] -> gotoBOL
               EvKey (KChar 'e') [MCtrl] -> gotoEOL
+              EvKey (KChar 'd') [MCtrl] -> deleteChar
               EvKey (KChar c) [] | c /= '\t' -> insertChar c
               EvKey KDel [] -> deleteChar
               EvKey KLeft [] -> moveLeft