XMonad wip

Author: sol

driver/XMonad.hs

@@ -59,7 +59,7 @@ addTag (Tag name) (XWindowId wid) = do
 
   let 
     tags :: String
-    tags = if "not found" `elem` words result then "" else extractTags result
+    tags = if strip result == "_XMONAD_TAGS:  not found."  then "" else extractTags result
 
     newTags :: String
     newTags = if null tags then name else tags <> " " <> name
@@ -74,5 +74,7 @@ tagSelfWith name = do
   pid <- PID . show <$> getProcessID
   result <- findAncestorWindowId pid
   case result of
-    Just wid -> addTag name wid
+    Just wid -> do
+      addTag name wid
+      -- callProcess "xrefresh" [] -- FIXME
     Nothing -> exitFailure

driver/sensei.hs

@@ -7,5 +7,5 @@ import           Run
 
 main :: IO ()
 main = do
-  XMonad.tagSelfWith "sensei"
+  XMonad.tagSelfWith "left"
   getArgs >>= run