From 4bb8909218054a559051b9a5ec157267d32f4eb6 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?L=C3=A9ana=20=E6=B1=9F?= <leana.jiang+git@icloud.com>
Date: Fri, 21 Nov 2025 23:44:17 +0800
Subject: [PATCH 1/3] vanadium/xmonad: make evolution handling smarter

How many window title are there :sob:
---
 nix/configurations/vanadium/home/xmonad/xmonad.hs | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/nix/configurations/vanadium/home/xmonad/xmonad.hs b/nix/configurations/vanadium/home/xmonad/xmonad.hs
index b6ee4e7b..438071bd 100644
--- a/nix/configurations/vanadium/home/xmonad/xmonad.hs
+++ b/nix/configurations/vanadium/home/xmonad/xmonad.hs
@@ -86,7 +86,14 @@ isEvolution :: Query Bool
 isEvolution = className ~? "gnome.Evolution"
 
 isEvolutionComposer :: Query Bool
-isEvolutionComposer = isEvolution <&&> title =? "Compose Message"
+isEvolutionComposer =
+  isEvolution <&&>
+    (fmap or . sequence)
+      [ title =? "Compose Message"
+      , title ^? "Re: "        -- reply message composer
+      , title ^? "Appointment" -- calendar event editor
+      , title ^? "Meeting"     -- calendar event editor
+      ]
 
 isFirefox :: Query Bool
 isFirefox = className =? "firefox"

From 8e6ce9e5df649bd926f8a8f9ba4a93d8b797998a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?L=C3=A9ana=20=E6=B1=9F?= <leana.jiang+git@icloud.com>
Date: Sat, 22 Nov 2025 10:13:02 +0800
Subject: [PATCH 2/3] vanadium/xmonad: useless refactor

Why not, it's Saturday.
---
 nix/configurations/vanadium/home/xmonad/xmonad.hs | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/nix/configurations/vanadium/home/xmonad/xmonad.hs b/nix/configurations/vanadium/home/xmonad/xmonad.hs
index 438071bd..50724ef3 100644
--- a/nix/configurations/vanadium/home/xmonad/xmonad.hs
+++ b/nix/configurations/vanadium/home/xmonad/xmonad.hs
@@ -191,13 +191,16 @@ doShiftAndGreedyView n = doF . go =<< ask
   where go :: Window -> WindowSet -> WindowSet
         go w s = W.greedyView n $ W.shiftWin n w s
 
-hasProp :: (Window -> WindowSet -> Bool) -> Query Bool
-hasProp f = f <$> ask <*> (liftX $ gets windowset)
+queryWindowSet :: Query WindowSet
+queryWindowSet = liftX $ gets windowset
 
 windowIsInCurrentWorkspace :: Query Bool
-windowIsInCurrentWorkspace = hasProp $ \w s -> case W.findTag w s of
-  Just from | from == W.currentTag s -> True
-  _ -> False
+windowIsInCurrentWorkspace = do
+  w <- ask
+  s <- queryWindowSet
+  pure $ case W.findTag w s of
+    Just from | from == W.currentTag s -> True
+    _ -> False
 
 myStartupHook :: X ()
 myStartupHook = do

From 36af1392540e4da307333073c3c54d55eea7b030 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?L=C3=A9ana=20=E6=B1=9F?= <leana.jiang+git@icloud.com>
Date: Sat, 22 Nov 2025 13:53:04 +0800
Subject: [PATCH 3/3] packages/ruler: update

---
 nix/packages/by-name/ruler/package.nix | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/nix/packages/by-name/ruler/package.nix b/nix/packages/by-name/ruler/package.nix
index 1a7da098..535d9cba 100644
--- a/nix/packages/by-name/ruler/package.nix
+++ b/nix/packages/by-name/ruler/package.nix
@@ -11,8 +11,8 @@ let
     domain = "git.confusedcompiler.org";
     owner = "leana8959";
     repo = "ruler";
-    rev = "00b6c4f1b5d764b049028ba4207ca1dc8ad74f2b";
-    hash = "sha256-CI9jKcNoFqv4AgQIFFkqafcg2ybs2MN+RaEnuv72Mbc=";
+    rev = "0cad6d87e2e607b39fe72fc292924c069e661293";
+    hash = "sha256-AIjGG2FxMiojO1E8jJxBXs9ZaRy3OEAtEp5CwicllRE=";
   }) { };
 
   cabalOverrides = o: {