XPrompt.hs: add sensible bindings for Home and End

darcs-hash:20071026035026-f7719-d8db907e34e2347c602cdb610f4333790801ac00.gz

1 files changed, 2 insertions, 0 deletions

diff --git a/XPrompt.hs b/XPrompt.hs
index ddb2639..51d8756 100644
--- a/XPrompt.hs
+++ b/XPrompt.hs
@@ -284,6 +284,8 @@ keyPressHandle mask (ks,_)
     | ks == xK_Right     = moveCursor   Next >> go
     | ks == xK_Up        = moveHistory  Prev >> go
     | ks == xK_Down      = moveHistory  Next >> go
+    | ks == xK_Home      = startOfLine >> go
+    | ks == xK_End       = endOfLine   >> go
     | ks == xK_Escape    = quit
     where
       go   = updateWindows >> eventLoop handle