From e1052663642079b9c5a7b88cd290fb2ddfbc821c Mon Sep 17 00:00:00 2001
From: Simon Hengel <sol@typeful.net>
Date: Sat, 25 Jan 2025 17:48:00 +0700
Subject: [PATCH] XMonad wip

---
 driver/XMonad.hs | 6 ++++--
 driver/sensei.hs | 2 +-
 2 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/driver/XMonad.hs b/driver/XMonad.hs
index 3ff5b9f1..dba53a77 100644
--- a/driver/XMonad.hs
+++ b/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
diff --git a/driver/sensei.hs b/driver/sensei.hs
index fb418527..919a2693 100644
--- a/driver/sensei.hs
+++ b/driver/sensei.hs
@@ -7,5 +7,5 @@ import           Run
 
 main :: IO ()
 main = do
-  XMonad.tagSelfWith "sensei"
+  XMonad.tagSelfWith "left"
   getArgs >>= run