From f0ebea1d9095c151405f0fb45603dfdd721f12f7 Mon Sep 17 00:00:00 2001 From: Tomas Janousek Date: Fri, 20 Nov 2009 15:44:26 +0100 Subject: extend XMonadLog with XPropertyLog Ignore-this: baec7062f93ab5950f57c44876c2f XMonadLog can be even more awesome with the ability to gather input from custom sources. This patch adds exactly that, along with a script to read from pipe and write to xmobar using an X property. darcs-hash:20091120144426-c9ff5-596f8b40c4b3df6ede43832b147e95e48ad582ba.gz --- Plugins/XMonadLog.hs | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) (limited to 'Plugins') diff --git a/Plugins/XMonadLog.hs b/Plugins/XMonadLog.hs index 34fae31..3461e26 100644 --- a/Plugins/XMonadLog.hs +++ b/Plugins/XMonadLog.hs @@ -30,13 +30,19 @@ import Foreign.C (CChar) import XUtil (nextEvent') -data XMonadLog = XMonadLog +data XMonadLog = XMonadLog | XPropertyLog String deriving (Read, Show) instance Exec XMonadLog where - start XMonadLog cb = do + alias XMonadLog = "XMonadLog" + alias (XPropertyLog atom) = atom + + start x cb = do + let atom = case x of + XMonadLog -> "_XMONAD_LOG" + XPropertyLog a -> a d <- openDisplay "" - xlog <- internAtom d "_XMONAD_LOG" False + xlog <- internAtom d atom False root <- rootWindow d (defaultScreen d) selectInput d root propertyChangeMask -- cgit v1.2.3