summaryrefslogtreecommitdiffhomepage
path: root/src/Plugins/XMonadLog.hs
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2012-04-11 09:15:50 -0700
committerjao <jao@gnu.org>2012-04-11 09:15:50 -0700
commit247e5b85bb53ba229b444082fd2d6b7261617014 (patch)
tree103d28b189e258f38cdfbfe5732624cd1713338d /src/Plugins/XMonadLog.hs
parentac1fa917952057fb6950c0979cd8dcd308440551 (diff)
parent61c5e62376cce56247e1e709ed41896a014b7b69 (diff)
downloadxmobar-247e5b85bb53ba229b444082fd2d6b7261617014.tar.gz
xmobar-247e5b85bb53ba229b444082fd2d6b7261617014.tar.bz2
Merge pull request #41 from mathstuf/dev/add-incremental-config-option
dev/add-incremental-config-option
Diffstat (limited to 'src/Plugins/XMonadLog.hs')
-rw-r--r--src/Plugins/XMonadLog.hs8
1 files changed, 5 insertions, 3 deletions
diff --git a/src/Plugins/XMonadLog.hs b/src/Plugins/XMonadLog.hs
index 3461e26..1403800 100644
--- a/src/Plugins/XMonadLog.hs
+++ b/src/Plugins/XMonadLog.hs
@@ -30,17 +30,19 @@ import Foreign.C (CChar)
import XUtil (nextEvent')
-data XMonadLog = XMonadLog | XPropertyLog String
+data XMonadLog = XMonadLog | XPropertyLog String | NamedXPropertyLog String String
deriving (Read, Show)
instance Exec XMonadLog where
alias XMonadLog = "XMonadLog"
alias (XPropertyLog atom) = atom
+ alias (NamedXPropertyLog _ name) = name
start x cb = do
let atom = case x of
- XMonadLog -> "_XMONAD_LOG"
- XPropertyLog a -> a
+ XMonadLog -> "_XMONAD_LOG"
+ XPropertyLog a -> a
+ NamedXPropertyLog a _ -> a
d <- openDisplay ""
xlog <- internAtom d atom False