From 2080386a22877a7072675e6d5a6367209068960f Mon Sep 17 00:00:00 2001 From: gwern0 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(+) (limited to 'XPrompt.hs') 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