From a652c330707e2e9bbe963e01af79ce730cf3452e Mon Sep 17 00:00:00 2001
From: Josh Rahm <joshuarahm@gmail.com>
Date: Sun, 10 Apr 2022 13:26:16 -0600
Subject: Rename Internal to Rahm.Desktop

---
 src/Rahm/Desktop/Logger.hs | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100644 src/Rahm/Desktop/Logger.hs

(limited to 'src/Rahm/Desktop/Logger.hs')

diff --git a/src/Rahm/Desktop/Logger.hs b/src/Rahm/Desktop/Logger.hs
new file mode 100644
index 0000000..c73942f
--- /dev/null
+++ b/src/Rahm/Desktop/Logger.hs
@@ -0,0 +1,32 @@
+module Rahm.Desktop.Logger where
+
+import XMonad
+import qualified XMonad.Util.ExtensibleState as XS
+import System.IO
+
+import Rahm.Desktop.NoPersist
+
+newtype LoggerState =
+  LoggerState {
+    logHandle :: Maybe (NoPersist Handle)
+  }
+
+instance ExtensionClass LoggerState where
+  initialValue = LoggerState Nothing
+
+logs :: String -> X ()
+logs s = do
+  LoggerState handle' <- XS.get
+
+  handle <-
+    case handle' of
+      Nothing -> do
+        handle <- io $ openFile "/tmp/xmonad.log" AppendMode
+        XS.put $ LoggerState $ Just $ NoPersist handle
+        return handle
+
+      Just (NoPersist h) -> return h
+
+  io $ do
+    hPutStrLn handle s
+    hFlush handle
-- 
cgit