aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorgwern0 <gwern0@gmail.com>2008-12-03 02:33:23 +0100
committergwern0 <gwern0@gmail.com>2008-12-03 02:33:23 +0100
commitb0fbbf55772dbe2be6d7e21ff1f2041ce06d73a8 (patch)
treef6c111b151772f99bf090d744acf9aa6942bf383
parent04cd43d8c2cd0fe0b1631c91687a2050af84fe59 (diff)
downloadXMonadContrib-b0fbbf55772dbe2be6d7e21ff1f2041ce06d73a8.tar.gz
XMonadContrib-b0fbbf55772dbe2be6d7e21ff1f2041ce06d73a8.tar.xz
XMonadContrib-b0fbbf55772dbe2be6d7e21ff1f2041ce06d73a8.zip
XMonad.Prompt: swap up and down per bug #243
Ignore-this: 8ab0481a0da7a983f501ac2fec4a68e8 darcs-hash:20081203013323-f7719-2dc8e5f3d85d0a700628046a6c83af9872789135.gz
-rw-r--r--XMonad/Prompt.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/XMonad/Prompt.hs b/XMonad/Prompt.hs
index 62d554a..d2ddd53 100644
--- a/XMonad/Prompt.hs
+++ b/XMonad/Prompt.hs
@@ -379,10 +379,10 @@ keyPressHandle mask (ks,_)
| ks == xK_Delete = deleteString Next >> go
| ks == xK_Left = moveCursor Prev >> go
| ks == xK_Right = moveCursor Next >> go
- | ks == xK_Up = moveHistory W.focusUp' >> go
- | ks == xK_Down = moveHistory W.focusDown' >> go
| ks == xK_Home = startOfLine >> go
| ks == xK_End = endOfLine >> go
+ | ks == xK_Down = moveHistory W.focusUp' >> go
+ | ks == xK_Up = moveHistory W.focusDown' >> go
| ks == xK_Escape = quit
where
go = updateWindows >> eventLoop handle