aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad
diff options
context:
space:
mode:
Diffstat (limited to 'XMonad')
-rw-r--r--XMonad/Prompt.hs16
1 files changed, 15 insertions, 1 deletions
diff --git a/XMonad/Prompt.hs b/XMonad/Prompt.hs
index 0c83637..b1fdba4 100644
--- a/XMonad/Prompt.hs
+++ b/XMonad/Prompt.hs
@@ -144,7 +144,21 @@ type ComplFunction = String -> IO [String]
initState :: XPrompt p => Display -> Window -> Window -> Rectangle -> ComplFunction
-> GC -> XMonadFont -> p -> [History] -> XPConfig -> XPState
initState d rw w s compl gc fonts pt h c =
- XPS d rw w s Nothing Nothing compl gc fonts (XPT pt) (defaultText c) 0 h c
+ XPS { dpy = d
+ , rootw = rw
+ , win = w
+ , screen = s
+ , complWin = Nothing
+ , complWinDim = Nothing
+ , completionFunction = compl
+ , gcon = gc
+ , fontS = fonts
+ , xptype = XPT pt
+ , command = defaultText c
+ , offset = length (defaultText c)
+ , history = h
+ , config = c
+ }
-- | Same as 'mkXPrompt', except that the action function can have
-- type @String -> X a@, for any @a@, and the final action returned