summaryrefslogtreecommitdiffhomepage
path: root/src/Xmobar.hs
diff options
context:
space:
mode:
authorJochen Keil <jochen.keil@gmail.com>2012-08-10 11:40:01 +0200
committerJochen Keil <jochen.keil@gmail.com>2012-08-10 11:40:01 +0200
commit2af5fab3c8df61ec189bcc880524fe73a6e1e361 (patch)
treea359b32d853bb40ffbb15af48f93aa04c40710ea /src/Xmobar.hs
parentb318c3c18d3c2d4866c3f325f8ec6f00a42876fb (diff)
downloadxmobar-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.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