diff options
Diffstat (limited to 'src/windowmanager.nim')
| -rw-r--r-- | src/windowmanager.nim | 106 |
1 files changed, 106 insertions, 0 deletions
diff --git a/src/windowmanager.nim b/src/windowmanager.nim new file mode 100644 index 0000000..e90ec94 --- /dev/null +++ b/src/windowmanager.nim @@ -0,0 +1,106 @@ +import + x11/[x, xlib], + logging, /logger + +type + WindowManager* = ref object + display: PDisplay + root: Window + +# Error Handlers +proc onWMDetected (display: PDisplay, e: PXErrorEvent): cint{.cdecl.} +proc onXError (display: PDisplay, e: PXErrorEvent): cint{.cdecl.} + +# Events +proc onCreateNotify (wm: WindowManager, e: PXCreateWindowEvent): void +proc onDestroyNotify (wm: WindowManager, e: PXDestroyWindowEvent): void +proc onReparentNotify (wm: WindowManager, e: PXReparentEvent): void +proc onMapNotify (wm: WindowManager, e: PXMapEvent): void +proc onUnmapNotify (wm: WindowManager, e: PXUnmapEvent): void +proc onConfigureNotify (wm: WindowManager, e: PXConfigureEvent): void +proc onMapRequest (wm: WindowManager, e: PXMapRequestEvent): void +proc onConfigureRequest (wm: WindowManager, e: PXConfigureRequestEvent): void +proc onButtonPress (wm: WindowManager, e: PXButtonEvent): void +proc onButtonRelease (wm: WindowManager, e: PXButtonEvent): void +proc onMotionNotify (wm: WindowManager, e: PXMotionEvent): void +proc onKeyPress (wm: WindowManager, e: PXKeyEvent): void +proc onKeyRelease (wm: WindowManager, e: PXKeyEvent): void + +# Run window manager +proc run* (wm: WindowManager) = + discard XSetErrorHandler onWMDetected # Temporary error handler if there is another window manager running + + discard wm.display.XSelectInput(wm.root, SubstructureNotifyMask or SubstructureRedirectMask) + discard wm.display.XSync XBool false + + discard XSetErrorHandler onXError + + while true: + var e: PXEvent + discard wm.display.XNextEvent e + + case e.theType: + of CreateNotify: wm.onCreateNotify addr e.xcreatewindow + of DestroyNotify: wm.onDestroyNotify addr e.xdestroywindow + of ReparentNotify: wm.onReparentNotify addr e.xreparent + of MapNotify: wm.onMapNotify addr e.xmap + of UnmapNotify: wm.onUnmapNotify addr e.xunmap + of ConfigureNotify: wm.onConfigureNotify addr e.xconfigure + of MapRequest: wm.onMapRequest addr e.xmaprequest + of ConfigureRequest: wm.onConfigureRequest addr e.xconfigurerequest + of ButtonPress: wm.onButtonPress addr e.xbutton + of ButtonRelease: wm.onButtonRelease addr e.xbutton + of MotionNotify: wm.onMotionNotify addr e.xmotion + of KeyPress: wm.onKeyPress addr e.xkey + of KeyRelease: wm.onKeyRelease addr e.xkey + else: consoleLog.log(lvlWarn, "ignored event") + +proc createWindowManager*: WindowManager = + var display = XOpenDisplay nil + + if display == nil: + consoleLog.log(lvlError, "failed to open X display " & $XDisplayName nil) + quit QuitFailure + + return WindowManager( + display: display, + root: display.DefaultRootWindow()) + +# Error Handlers +proc onWMDetected (display: PDisplay, e: PXErrorEvent): cint{.cdecl.} = + if e.theType == BadAccess: + consoleLog.log(lvlError, "other window manager detected") + quit QuitFailure + + return 0 + +proc onXError (display: PDisplay, e: PXErrorEvent): cint{.cdecl.} = + var errorText = newString 1024 + + discard display.XGetErrorText( + cint e.error_code, + cstring errorText, + cint len errorText) + + consoleLog.log( + lvlError, "received X error: \n" & + " request: " & $e.request_code & "\n" & + " error code: " & $e.error_code & " - " & errorText & "\n" & + " resource id: " & $e.resourceid) + + return 0 + +# Events +proc onCreateNotify (wm: WindowManager, e: PXCreateWindowEvent) = return +proc onDestroyNotify (wm: WindowManager, e: PXDestroyWindowEvent) = return +proc onReparentNotify (wm: WindowManager, e: PXReparentEvent) = return +proc onMapNotify (wm: WindowManager, e: PXMapEvent) = return +proc onUnmapNotify (wm: WindowManager, e: PXUnmapEvent) = return +proc onConfigureNotify (wm: WindowManager, e: PXConfigureEvent) = return +proc onMapRequest (wm: WindowManager, e: PXMapRequestEvent) = return +proc onConfigureRequest (wm: WindowManager, e: PXConfigureRequestEvent) = return +proc onButtonPress (wm: WindowManager, e: PXButtonEvent) = return +proc onButtonRelease (wm: WindowManager, e: PXButtonEvent) = return +proc onMotionNotify (wm: WindowManager, e: PXMotionEvent) = return +proc onKeyPress (wm: WindowManager, e: PXKeyEvent) = return +proc onKeyRelease (wm: WindowManager, e: PXKeyEvent) = return
\ No newline at end of file |