XMonad wip

hspec · Jan 27, 2025 · e105266 · e105266
1 parent 1b02b32
commit e105266
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 3 deletions.
diff --git 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
@@ -7,5 +7,5 @@ import           Run
 
 main :: IO ()
 main = do
-  XMonad.tagSelfWith "sensei"
+  XMonad.tagSelfWith "left"
   getArgs >>= run