twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-05 14:41:54 -07:00
Code Issues Packages Projects Releases Wiki Activity

actually use the selected font in XPrompt.

Browse Source
This commit is contained in:
David Roundy
2007-08-10 17:45:43 +00:00
parent ae5fa6c7e7
commit 17342a2421
1 changed files with 1 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
XPrompt.hs
View File

@@ -132,6 +132,7 @@ mkXPrompt t conf compl action = do
liftIO $ setGraphicsExposures d gc False liftIO $ setGraphicsExposures d gc False
fontS <- liftIO (loadQueryFont d (font conf) `catch` fontS <- liftIO (loadQueryFont d (font conf) `catch`
\_ -> loadQueryFont d "-misc-fixed-*-*-*-*-10-*-*-*-*-*-*-*") \_ -> loadQueryFont d "-misc-fixed-*-*-*-*-10-*-*-*-*-*-*-*")
liftIO $ setFont d gc $ fontFromFontStruct fontS
(hist,h) <- liftIO $ readHistory (hist,h) <- liftIO $ readHistory
let st = initState d rw w s compl gc fontS (XPT t) hist conf let st = initState d rw w s compl gc fontS (XPT t) hist conf
st' <- liftIO $ execStateT runXP st st' <- liftIO $ execStateT runXP st