diff options
| -rw-r--r-- | Xmobar.hs | 30 | ||||
| -rw-r--r-- | xmobar.cabal | 3 |
2 files changed, 27 insertions, 6 deletions
@@ -19,6 +19,8 @@ module Xmobar (-- * Main Stuff , runXbar , eventLoop , createWin + , updateWin + , sendUpdateEvent -- * Printing -- $print , drawInWin @@ -39,6 +41,8 @@ module Xmobar (-- * Main Stuff import Graphics.X11.Xlib import Graphics.X11.Xlib.Misc +import Graphics.X11.Xlib.Event +import Graphics.X11.Xlib.Extras import Control.Monad.State import Control.Monad.Reader @@ -76,11 +80,11 @@ eventLoop :: Xbar () eventLoop = do c <- ask s <- get - i <- io $ readVariables (vars s) - ps <- io $ parseString c i - drawInWin ps - -- back again: we are never ending - io $ tenthSeconds (refresh c) + io $ forkIO $ sendUpdateEvent (display s) (window s) (refresh c) + action <- io $ allocaXEvent $ \e -> + do nextEvent (display s) e + return updateWin + action eventLoop -- | The function to create the initial window @@ -94,9 +98,25 @@ createWin config = (fi $ yPos config) (fi $ width config) (fi $ height config) + selectInput dpy win exposureMask mapWindow dpy win return (dpy,win) +sendUpdateEvent :: Display -> Window -> Int -> IO () +sendUpdateEvent dpy w d = + do tenthSeconds d + allocaXEvent $ \e -> do + setEventType e expose + sendEvent dpy w False noEventMask e + sync dpy False + +updateWin :: Xbar () +updateWin = + do c <- ask + s <- get + i <- io $ readVariables (vars s) + ps <- io $ parseString c i + drawInWin ps -- $print diff --git a/xmobar.cabal b/xmobar.cabal index 89d79c2..bc6255c 100644 --- a/xmobar.cabal +++ b/xmobar.cabal @@ -12,7 +12,8 @@ license: BSD3 license-file: LICENSE author: Andrea Rossato maintainer: andrea.rossato@unibz.it -build-depends: base>=2.0, X11>=1.2.1, mtl>=1.0, unix>=1.0, parsec>=2.0, filepath>=1.0 +build-depends: base>=2.0, X11>=1.2.1, mtl>=1.0, unix>=1.0, parsec>=2.0, filepath>=1.0, + X11-extras>=2.0 executable: xmobar main-is: Main.hs |