diff options
Diffstat (limited to 'highway/Main.hs')
| -rw-r--r-- | highway/Main.hs | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/highway/Main.hs b/highway/Main.hs index 481ec33..0749499 100644 --- a/highway/Main.hs +++ b/highway/Main.hs @@ -22,6 +22,13 @@ geometry = WlOutput.Geometry { WlOutput.geometryX = 0 , WlOutput.geometryTransform = WlOutput.TransformNormal } +mode :: WlOutput.Mode +mode = WlOutput.Mode { WlOutput.modeFlags = [WlOutput.ModeFlagCurrent, WlOutput.ModeFlagPreferred] + , WlOutput.modeWidth = 5120 + , WlOutput.modeHeight = 2880 + , WlOutput.modeRefresh = 60000 + } + data CustomMessage = MsgBindOutput Global (NewObject WlOutput.Object) | MsgDestroyOutput WlOutput.Object @@ -47,7 +54,8 @@ handleMessage m | Just (MsgBindOutput _ o) <- fromMessage m = do output <- createObject o MsgDestroyOutput outs <- outputs <%= M.insert output Output sendEvent output $ WlOutput.EvGeometry geometry - sendEvent output $ WlOutput.EvDone + sendEvent output $ WlOutput.EvMode mode + sendEvent output WlOutput.EvDone liftIO $ putStrLn $ "Output created, outputs: " ++ show outs flushEvents | Just (MsgDestroyOutput o) <- fromMessage m = do outputs %= M.delete o |