diff options
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 |