diff options
| author | Adam Vogt <vogt.adam@gmail.com> | 2009-11-15 03:56:47 +0100 |
|---|---|---|
| committer | Adam Vogt <vogt.adam@gmail.com> | 2009-11-15 03:56:47 +0100 |
| commit | 140ea83e4922055317ab64d0a968f89efc5e3cc4 (patch) | |
| tree | a47e2328c87daad8b5290faf960d54cd21002cf4 | |
| parent | a0b42ff9d7120d6ae202365ada3893be6480144c (diff) | |
| download | XMonadContrib-140ea83e4922055317ab64d0a968f89efc5e3cc4.tar.gz XMonadContrib-140ea83e4922055317ab64d0a968f89efc5e3cc4.tar.xz XMonadContrib-140ea83e4922055317ab64d0a968f89efc5e3cc4.zip | |
Use less short names in X.Prompt
Ignore-this: 1d27b8efc4d829a5642717c6f6426336
darcs-hash:20091115025647-1499c-f326242916f623c9685e2ecc1bc2ea7ab600ebfd.gz
| -rw-r--r-- | XMonad/Prompt.hs | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/XMonad/Prompt.hs b/XMonad/Prompt.hs index 17a628d..74b7730 100644 --- a/XMonad/Prompt.hs +++ b/XMonad/Prompt.hs @@ -266,9 +266,7 @@ getInput = gets command -- module. mkXPromptWithReturn :: XPrompt p => p -> XPConfig -> ComplFunction -> (String -> X a) -> X (Maybe a) mkXPromptWithReturn t conf compl action = do - c <- ask - let d = display c - rw = theRoot c + XConf { display = d, theRoot = rw } <- ask s <- gets $ screenRect . W.screenDetail . W.current . windowset hist <- io readHistory w <- io $ createWin d rw conf s @@ -313,8 +311,7 @@ mkXPrompt t conf compl action = mkXPromptWithReturn t conf compl action >> retur runXP :: XP () runXP = do - st <- get - let (d,w) = (dpy &&& win) st + (d,w) <- gets (dpy &&& win) status <- io $ grabKeyboard d w True grabModeAsync grabModeAsync currentTime when (status == grabSuccess) $ do updateWindows |