From 0f67011c139348ebab63c9c01e7d8f19744d6d12 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Wed, 16 Feb 2022 17:59:03 +0000
Subject: initial contents

---
 sendCommand.hs | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100644 sendCommand.hs

(limited to 'sendCommand.hs')

diff --git a/sendCommand.hs b/sendCommand.hs
new file mode 100644
index 0000000..635f729
--- /dev/null
+++ b/sendCommand.hs
@@ -0,0 +1,21 @@
+-- https://gist.github.com/lierdakil/216a9d2b9e934d9e1a30
+
+import Graphics.X11.Xlib
+import Graphics.X11.Xlib.Extras
+import System.Environment
+
+main :: IO ()
+main = sendCommand "XMONAD_COMMAND" =<< getArgs
+
+sendCommand :: String -> [String] -> IO ()
+sendCommand addr (s:_) = do
+  d   <- openDisplay ""
+  rw  <- rootWindow d $ defaultScreen d
+  a <- internAtom d addr False
+  m <- internAtom d s False
+  allocaXEvent $ \e -> do
+                  setEventType e clientMessage
+                  setClientMessageEvent e rw a 32 m currentTime
+                  sendEvent d rw False structureNotifyMask e
+                  sync d False
+sendCommand _ _ = return ()
-- 
cgit v1.2.3