mirror of
https://github.com/jtdaugherty/brick.git
synced 2024-11-26 09:06:56 +03:00
Edit: Bind M-< and M-> to gotoBOF and gotoEOF
This commit is contained in:
parent
b4423d2a5a
commit
e634306c21
@ -131,7 +131,7 @@ library
|
||||
contravariant,
|
||||
stm >= 2.4.3,
|
||||
text,
|
||||
text-zipper >= 0.7.1,
|
||||
text-zipper >= 0.11,
|
||||
template-haskell,
|
||||
deepseq >= 1.3 && < 1.5,
|
||||
unix,
|
||||
|
@ -126,6 +126,8 @@ handleEditorEvent e ed =
|
||||
EvKey KBS [] -> Z.deletePrevChar
|
||||
EvKey KHome [] -> Z.gotoBOL
|
||||
EvKey KEnd [] -> Z.gotoEOL
|
||||
EvKey (KChar '<') [MMeta] -> Z.gotoBOF
|
||||
EvKey (KChar '>') [MMeta] -> Z.gotoEOF
|
||||
_ -> id
|
||||
in return $ applyEdit f ed
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user