From 85fdac20a36675559802dd215a81f640b91693fe Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Wed, 5 Jun 2013 00:23:32 +0200
Subject: Stripping actions in stdin and xprop plugins

---
 src/Actions.hs | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'src/Actions.hs')

diff --git a/src/Actions.hs b/src/Actions.hs
index cba027b..f3dc55a 100644
--- a/src/Actions.hs
+++ b/src/Actions.hs
@@ -10,13 +10,18 @@
 --
 -----------------------------------------------------------------------------
 
-module Actions where
+module Actions (Action(..), runAction, stripActions) where
 
 import System.Process (system)
 import Control.Monad (void)
+import Text.Regex (subRegex, mkRegex)
 
 data Action = Spawn String
                 deriving (Eq)
 
 runAction :: Action -> IO ()
 runAction (Spawn s) = void $ system (s ++ "&")
+
+stripActions :: String -> String
+stripActions s = subRegex actionRegex s "[action=\1]\2[action]"
+  where actionRegex = mkRegex "<action=([^>])*>(.+?)</action>"
-- 
cgit v1.2.3