msu-0.0.2: main.hs

module Main where

import MSU.Display
import MSU.Hooks
import MSU.Xrandr.Command
import MSU.Xrandr.Parse
import System.IO (hPrint, stderr)
import System.Process (readProcess, runCommand, waitForProcess)

main :: IO ()
main = do
    xrandrOutput <- readProcess "xrandr" ["--query"] ""

    case parseXrandr xrandrOutput of
        Left err -> hPrint stderr err
        Right displays -> do
            runCmd $ defaultCommand displays
            runHook runCmd "after-setup"

defaultCommand :: [Display] -> String
defaultCommand displays = buildCommand $ do
    allOff displays
    firstOn displays
    extend rightOf displays

runCmd :: String -> IO ()
runCmd cmd = do
    putStrLn cmd
    _ <- waitForProcess =<< runCommand cmd

    return ()