From ebf9561d762051b7f82b47242d7b30337662dc37 Mon Sep 17 00:00:00 2001
From: Tomas Janousek <tomi@nomi.cz>
Date: Thu, 11 Feb 2021 21:23:52 +0000
Subject: [PATCH] scripts/xmonadpropread: Print current property value at start

It was only printed after the first change.
---
 scripts/xmonadpropread.hs | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/scripts/xmonadpropread.hs b/scripts/xmonadpropread.hs
index 680751b4..132d2b18 100644
--- a/scripts/xmonadpropread.hs
+++ b/scripts/xmonadpropread.hs
@@ -37,13 +37,17 @@ main = do
     root  <- rootWindow d (defaultScreen d)
     selectInput d root propertyChangeMask
 
+    let printProp = do
+            mwp <- getWindowProperty8 d xlog root
+            maybe (return ()) (putStrLn . decodeCChar) mwp
+
+    printProp
+
     allocaXEvent $ \ep -> forever $ do
         nextEvent d ep
         e <- getEvent ep
         case e of
-            PropertyEvent { ev_atom = a } | a ==  xlog -> do
-                mwp <- getWindowProperty8 d xlog root
-                maybe (return ()) (putStrLn . decodeCChar) mwp
+            PropertyEvent { ev_atom = a } | a ==  xlog -> printProp
             _ -> return ()
 
 decodeCChar :: [CChar] -> String