summaryrefslogtreecommitdiffhomepage
path: root/src/Xmobar.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Xmobar.hs')
-rw-r--r--src/Xmobar.hs7
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