diff options
| author | David Roundy <droundy@darcs.net> | 2007-08-10 19:45:43 +0200 |
|---|---|---|
| committer | David Roundy <droundy@darcs.net> | 2007-08-10 19:45:43 +0200 |
| commit | d9535d12b2ce0dd30f14efadd286b76a2468c663 (patch) | |
| tree | 8dca3e7a8bc32e051a1cec34571fb38b645551bd /XPrompt.hs | |
| parent | 0aa1b7d42902ef91fb182182ad4de110baac7fc9 (diff) | |
| download | XMonadContrib-d9535d12b2ce0dd30f14efadd286b76a2468c663.tar.gz XMonadContrib-d9535d12b2ce0dd30f14efadd286b76a2468c663.tar.xz XMonadContrib-d9535d12b2ce0dd30f14efadd286b76a2468c663.zip | |
actually use the selected font in XPrompt.
darcs-hash:20070810174543-72aca-37b0aba755e79a399b0cbe2e972f0f445752fc88.gz
Diffstat (limited to 'XPrompt.hs')
| -rw-r--r-- | XPrompt.hs | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -132,6 +132,7 @@ mkXPrompt t conf compl action = do liftIO $ setGraphicsExposures d gc False fontS <- liftIO (loadQueryFont d (font conf) `catch` \_ -> loadQueryFont d "-misc-fixed-*-*-*-*-10-*-*-*-*-*-*-*") + liftIO $ setFont d gc $ fontFromFontStruct fontS (hist,h) <- liftIO $ readHistory let st = initState d rw w s compl gc fontS (XPT t) hist conf st' <- liftIO $ execStateT runXP st |