68 lines
1.4 KiB
Haskell
68 lines
1.4 KiB
Haskell
module WM.Core where
|
|
|
|
import Control.Concurrent (threadDelay)
|
|
import Control.Exception (bracket)
|
|
import Foreign (Ptr)
|
|
import System.Environment (getArgs)
|
|
import WM.Layout
|
|
import WM.Mruby
|
|
import WM.XKutu
|
|
|
|
data State = State
|
|
{ mruby_pointer :: !(Ptr MrbState),
|
|
running :: !Bool,
|
|
root :: !(Maybe Tile)
|
|
}
|
|
deriving (Show)
|
|
|
|
newState :: Ptr MrbState -> State
|
|
newState ptr =
|
|
State
|
|
{ mruby_pointer = ptr,
|
|
running = True,
|
|
root = Nothing
|
|
}
|
|
|
|
run :: IO ()
|
|
run = do
|
|
is_started <- deploy
|
|
print is_started
|
|
add_keybind 24 0
|
|
w_id <- draw_rectangle 10 100 10 10 0x500070
|
|
geom <- get_geometry w_id
|
|
print geom
|
|
screen_info <- get_screen
|
|
print screen_info
|
|
pointer_info <- get_pointer
|
|
print pointer_info
|
|
bracket mrb_open mrb_close $ \mrb -> do
|
|
loadRubyLibs mrb
|
|
handle_args mrb
|
|
loop (newState mrb)
|
|
|
|
handle_args :: Ptr MrbState -> IO ()
|
|
handle_args mrb = do
|
|
args <- getArgs
|
|
case args of
|
|
[] -> pure ()
|
|
["--script", file] -> do
|
|
script <- readFile file
|
|
runRuby mrb script
|
|
_ -> putStrLn "unknown arguments"
|
|
|
|
handle_event :: Maybe Event -> State -> IO State
|
|
handle_event Nothing s = pure s
|
|
handle_event (Just ev) s
|
|
| event_btn ev == 24 = pure s {running = False}
|
|
| otherwise = print ev >> pure s
|
|
|
|
loop :: State -> IO ()
|
|
loop state
|
|
| not (running state) = pure ()
|
|
| otherwise = do
|
|
flush
|
|
threadDelay 10000
|
|
ev <- next_event
|
|
handle_event ev state
|
|
>>= loop
|