Edit: Bind M-< and M-> to gotoBOF and gotoEOF

This commit is contained in:
Mario Lang 2021-07-20 01:11:43 +02:00
parent b4423d2a5a
commit e634306c21
2 changed files with 3 additions and 1 deletions

View File

@ -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,

View File

@ -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