twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 11:30:22 -07:00
Code Issues Packages Projects Releases Wiki Activity

de-obfuscate the initState and set the init offset to the length of the default text

Browse Source
This commit is contained in:
Andrea Rossato 2008-01-10 14:09:51 +00:00
parent 9a4559d2fa
commit c1a711dba0
1 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
XMonad/Prompt.hs
View File

@ -144,7 +144,21 @@ type ComplFunction = String -> IO [String]
initState :: XPrompt p => Display -> Window -> Window -> Rectangle -> ComplFunction initState :: XPrompt p => Display -> Window -> Window -> Rectangle -> ComplFunction
-> GC -> XMonadFont -> p -> [History] -> XPConfig -> XPState -> GC -> XMonadFont -> p -> [History] -> XPConfig -> XPState
initState d rw w s compl gc fonts pt h c = 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 -- | Same as 'mkXPrompt', except that the action function can have
-- type @String -> X a@, for any @a@, and the final action returned -- type @String -> X a@, for any @a@, and the final action returned