diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2013-06-05 00:23:32 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2013-06-05 00:23:32 +0200 |
| commit | 85fdac20a36675559802dd215a81f640b91693fe (patch) | |
| tree | 8fff8ccb15e611547f9501cd53fd569917769510 /src/Plugins/XMonadLog.hs | |
| parent | 3d1fe35837bc756a96f8bf529455794bc1ac7d8b (diff) | |
| download | xmobar-85fdac20a36675559802dd215a81f640b91693fe.tar.gz xmobar-85fdac20a36675559802dd215a81f640b91693fe.tar.bz2 | |
Stripping actions in stdin and xprop plugins
Diffstat (limited to 'src/Plugins/XMonadLog.hs')
| -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 1403800..8f63dc9 100644 --- a/src/Plugins/XMonadLog.hs +++ b/src/Plugins/XMonadLog.hs @@ -28,9 +28,11 @@ import Codec.Binary.UTF8.String as UTF8 #endif import Foreign.C (CChar) import XUtil (nextEvent') +import Actions (stripActions) - -data XMonadLog = XMonadLog | XPropertyLog String | NamedXPropertyLog String String +data XMonadLog = XMonadLog + | XPropertyLog String + | NamedXPropertyLog String String deriving (Read, Show) instance Exec XMonadLog where @@ -51,7 +53,7 @@ instance Exec XMonadLog where let update = do mwp <- getWindowProperty8 d xlog root - maybe (return ()) (cb . decodeCChar) mwp + maybe (return ()) (cb . stripActions. decodeCChar) mwp update |