52 lines
2.0 KiB
Haskell
52 lines
2.0 KiB
Haskell
import Graphics.X11.Xlib
|
|
import Graphics.X11.Xlib.Extras
|
|
import System.Environment
|
|
import System.IO
|
|
import Data.Char
|
|
|
|
main :: IO ()
|
|
main = parse True "XMONAD_COMMAND" =<< getArgs
|
|
|
|
parse :: Bool -> String -> [String] -> IO ()
|
|
parse input addr args = case args of
|
|
["--"] | input -> repl addr
|
|
| otherwise -> return ()
|
|
("--":xs) -> sendAll addr xs
|
|
("-a":a:xs) -> parse input a xs
|
|
("-h":_) -> showHelp
|
|
("--help":_) -> showHelp
|
|
("-?":_) -> showHelp
|
|
(a@('-':_):_) -> hPutStrLn stderr ("Unknown option " ++ a)
|
|
|
|
(x:xs) -> sendCommand addr x >> parse False addr xs
|
|
[] | input -> repl addr
|
|
| otherwise -> return ()
|
|
|
|
|
|
repl :: String -> IO ()
|
|
repl addr = do e <- isEOF
|
|
case e of
|
|
True -> return ()
|
|
False -> do l <- getLine
|
|
sendCommand addr l
|
|
repl addr
|
|
|
|
sendAll :: String -> [String] -> IO ()
|
|
sendAll addr ss = foldr (\a b -> sendCommand addr a >> b) (return ()) ss
|
|
|
|
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
|
|
|
|
showHelp :: IO ()
|
|
showHelp = do pn <- getProgName
|
|
putStrLn ("Send commands to a running instance of xmonad. xmonad.hs must be configured with XMonad.Hooks.ServerMode to work.\n-a atomname can be used at any point in the command line arguments to change which atom it is sending on.\nIf sent with no arguments or only -a atom arguments, it will read commands from stdin.\nEx:\n" ++ pn ++ " cmd1 cmd2\n" ++ pn ++ " -a XMONAD_COMMAND cmd1 cmd2 cmd3 -a XMONAD_PRINT hello world\n" ++ pn ++ " -a XMONAD_PRINT # will read data from stdin.\nThe atom defaults to XMONAD_COMMAND.")
|