From 2080386a22877a7072675e6d5a6367209068960f Mon Sep 17 00:00:00 2001
From: gwern0 <gwern0@gmail.com>
Date: Fri, 26 Oct 2007 05:50:26 +0200
Subject: XPrompt.hs: add sensible bindings for Home and End
darcs-hash:20071026035026-f7719-d8db907e34e2347c602cdb610f4333790801ac00.gz
---
XPrompt.hs | 2 ++
1 file changed, 2 insertions(+)
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
--
cgit v1.2.3