diff options
| author | Jochen Keil <jochen.keil@gmail.com> | 2012-08-10 11:40:01 +0200 |
|---|---|---|
| committer | Jochen Keil <jochen.keil@gmail.com> | 2012-08-10 11:40:01 +0200 |
| commit | 2af5fab3c8df61ec189bcc880524fe73a6e1e361 (patch) | |
| tree | a359b32d853bb40ffbb15af48f93aa04c40710ea /src/Xmobar.hs | |
| parent | b318c3c18d3c2d4866c3f325f8ec6f00a42876fb (diff) | |
| download | xmobar-2af5fab3c8df61ec189bcc880524fe73a6e1e361.tar.gz xmobar-2af5fab3c8df61ec189bcc880524fe73a6e1e361.tar.bz2 | |
Run the DBus event handler in startCommand
Actually run this stuff
Diffstat (limited to 'src/Xmobar.hs')
| -rw-r--r-- | src/Xmobar.hs | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/Xmobar.hs b/src/Xmobar.hs index adbe956..fb0860d 100644 --- a/src/Xmobar.hs +++ b/src/Xmobar.hs @@ -50,6 +50,10 @@ import Signal import Window import XUtil +#ifdef DBUS +import IPC.DBus +#endif + -- $main -- -- The Xmobar data type and basic loops and functions. @@ -191,6 +195,9 @@ startCommand sig (com,s,ss) let cb str = atomically $ writeTVar var (s ++ str ++ ss) h <- forkIO $ start com cb _ <- forkIO $ trigger com ( maybe (return ()) (putMVar sig) ) +#ifdef DBUS + runIPC sig +#endif return (Just h,var) where is = s ++ "Updating..." ++ ss |