diff options
| author | jao <jao@gnu.org> | 2012-04-11 09:15:50 -0700 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2012-04-11 09:15:50 -0700 |
| commit | 247e5b85bb53ba229b444082fd2d6b7261617014 (patch) | |
| tree | 103d28b189e258f38cdfbfe5732624cd1713338d /src/Plugins | |
| parent | ac1fa917952057fb6950c0979cd8dcd308440551 (diff) | |
| parent | 61c5e62376cce56247e1e709ed41896a014b7b69 (diff) | |
| download | xmobar-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')
| -rw-r--r-- | src/Plugins/XMonadLog.hs | 8 |
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 |