jtdaugherty/brick
1
1
Fork 0
mirror of https://github.com/jtdaugherty/brick.git synced 2024-11-29 21:46:11 +03:00
Code Issues Projects Releases Wiki Activity

Bind Ctrl-U to delete to BOL edit widget

Browse Source 
Ctrl-u will now delete all text from the cursor position to the
beginning of the current line. This is a standard readline binding.
This commit is contained in:
Hans-Peter Deifel 2016-07-31 22:32:04 +02:00
parent 4cc231fa29
commit e6dc695932
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
brick.cabal
View File

@ -88,7 +88,7 @@ library
vector, vector,
contravariant, contravariant,
text, text,
text-zipper >= 0.2.1, text-zipper >= 0.5,
template-haskell, template-haskell,
deepseq >= 1.3 && < 1.5 deepseq >= 1.3 && < 1.5

2
src/Brick/Widgets/Edit.hs
View File

@ -49,6 +49,7 @@ import Brick.AttrMap
-- * Ctrl-d, Del: delete character at cursor position -- * Ctrl-d, Del: delete character at cursor position
-- * Backspace: delete character prior to cursor position -- * Backspace: delete character prior to cursor position
-- * Ctrl-k: delete all from cursor to end of line -- * Ctrl-k: delete all from cursor to end of line
-- * Ctrl-u: delete all from cursor to beginning of line
-- * Arrow keys: move cursor -- * Arrow keys: move cursor
-- * Enter: break the current line at the cursor position -- * Enter: break the current line at the cursor position
data Editor n = data Editor n =
@ -72,6 +73,7 @@ handleEditorEvent e ed =
EvKey (KChar 'e') [MCtrl] -> Z.gotoEOL EvKey (KChar 'e') [MCtrl] -> Z.gotoEOL
EvKey (KChar 'd') [MCtrl] -> Z.deleteChar EvKey (KChar 'd') [MCtrl] -> Z.deleteChar
EvKey (KChar 'k') [MCtrl] -> Z.killToEOL EvKey (KChar 'k') [MCtrl] -> Z.killToEOL
EvKey (KChar 'u') [MCtrl] -> Z.killToBOL
EvKey KEnter [] -> Z.breakLine EvKey KEnter [] -> Z.breakLine
EvKey KDel [] -> Z.deleteChar EvKey KDel [] -> Z.deleteChar
EvKey (KChar c) [] | c /= '\t' -> Z.insertChar c EvKey (KChar c) [] | c /= '\t' -> Z.insertChar c