import 
    x11/[x, xlib],
    config, objects,
    logging, logger,
    tables, os, posix  

# Initialiazation stuff
proc initKeybindings (wm: WindowManager)
proc initButtons (wm: WindowManager)
proc initCommands (wm: WindowManager)

# Error Handlers
proc onWMDetected (display: PDisplay, e: PXErrorEvent): cint{.cdecl.}
proc onXError (display: PDisplay, e: PXErrorEvent): cint{.cdecl.}

# Function
proc addWindow (wm: WindowManager, w: Window)
proc tileWindows (wm: WindowManager)

# Events
proc onCreateNotify (wm: WindowManager, e: PXCreateWindowEvent)
proc onDestroyNotify (wm: WindowManager, e: PXDestroyWindowEvent)
proc onReparentNotify (wm: WindowManager, e: PXReparentEvent)
proc onMapNotify (wm: WindowManager, e: PXMapEvent)
proc onUnmapNotify (wm: WindowManager, e: PXUnmapEvent)
proc onConfigureNotify (wm: WindowManager, e: PXConfigureEvent)
proc onMapRequest (wm: WindowManager, e: PXMapRequestEvent)
proc onConfigureRequest (wm: WindowManager, e: PXConfigureRequestEvent)
proc onButtonPress (wm: WindowManager, e: PXButtonEvent)
proc onButtonRelease (wm: WindowManager, e: PXButtonEvent)
proc onMotionNotify (wm: WindowManager, e: PXMotionEvent)
proc onKeyPress (wm: WindowManager, e: PXKeyEvent)
proc onKeyRelease (wm: WindowManager, e: PXKeyEvent)

# Utils
proc getColor (wm: WindowManager, color: string): culong

# Create a window manager
proc createWindowManager*: WindowManager =
    var display = XOpenDisplay nil
    
    if display == nil:
        lvlError.log("failed to open X display " & $XDisplayName nil)
        quit QuitFailure
    
    var screen = display.DefaultScreenOfDisplay
    
    return WindowManager(
        display: display,
        screen: screen,
        colormap: screen.DefaultColormapOfScreen,
        root: display.DefaultRootWindow,
        
        clients: @[],
        focused: -1,
        keys: initTable[cuint, objects.Key](1))

# Run window manager
proc run* (wm: WindowManager) =
    wm.initKeybindings
    wm.initButtons
    wm.initCommands

    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: XEvent
        discard wm.display.XNextEvent(addr e)
        
        wm.tileWindows

        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: lvlWarn.log("ignored event " & $e.theType)

# Initialization Stuff
proc initKeybindings (wm: WindowManager) =
    discard wm.display.XUngrabKey(AnyKey, AnyModifier, wm.root)

    for key in config.keybindings:
        let keycode = wm.display.XKeysymToKeycode(XStringToKeysym key.key)

        wm.keys[cuint keycode] = key

        discard wm.display.XGrabKey(
            cint keycode,
            key.mods,
            wm.root, 
            XBool true,
            GrabModeAsync,
            GrabModeAsync)

proc initButtons (wm: WindowManager) =
    discard wm.display.XUngrabButton(AnyButton, AnyModifier, wm.root)

    for button in [1, 3]:
        discard wm.display.XGrabButton(
            cuint button,
            cuint Mod1Mask,
            wm.root,
            XBool true,
            ButtonPressMask or ButtonReleaseMask or PointerMotionMask,
            GrabModeAsync,
            GrabModeAsync,
            None,
            None)

proc initCommands (wm: WindowManager) =
    for cmd in config.init:
        discard execShellCmd cmd

proc λcloseWindow (wm: WindowManager) =
    var n = wm.clients.len
    if n > 0:
        discard wm.display.XDestroyWindow wm.clients[wm.focused]

proc λnextWindow (wm: WindowManager) =
    var n = wm.clients.high
    if n > 0:
        if wm.focused == n: wm.focused = 0
        else: wm.focused += 1
        discard wm.display.XSetInputFocus(wm.clients[wm.focused], RevertToParent, CurrentTime)
        wm.tileWindows
    lvlDebug.log $wm.focused

proc λsetMaster (wm: WindowManager) =
    var n = wm.focused
    if n != 0:
        swap(wm.clients[n], wm.clients[0])
        wm.focused = 0
        wm.tileWindows
    lvlDebug.log $wm.focused

proc λspawnCustom (wm: WindowManager, key: objects.Key) =
    if fork() == 0:
        discard execvp(key.command, nil)
        quit QuitSuccess

# Error Handlers
proc onWMDetected (display: PDisplay, e: PXErrorEvent): cint{.cdecl.} = 
    if e.theType == BadAccess:
        lvlError.log("another window manager is already running")
        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)
    
    lvlError.log(
        "received X error: \n" &
        "   request: " & $e.request_code & "\n" &
        "   error code: " & $e.error_code & " - " & errorText & "\n" &
        "   resource id: " & $e.resourceid)
    return 0

proc addWindow (wm: WindowManager, w: Window) =
    wm.clients.add w
    discard wm.display.XSetInputFocus(w, RevertToParent, CurrentTime)
    wm.focused = wm.clients.high

proc tileWindows (wm: WindowManager) =
    var 
        n = cuint wm.clients.len
        w = cuint wm.display.XDisplayWidth 0
        h = cuint wm.display.XDisplayHeight 0
        c: culong
        focused = wm.getColor config.colours.focused
        unfocused = wm.getColor config.colours.unfocused
        offset = cuint config.frameWidth*2

    if n == 0: return
    if n == 1:
        discard wm.display.XMoveResizeWindow(wm.clients[0], 0, 0, w-offset, h-offset)
        discard wm.display.XSetWindowBorder(wm.clients[0], focused)

    else:
        # resize master window to take up half the screen
        discard wm.display.XMoveResizeWindow(wm.clients[0], 0, 0, (w div 2)-offset, h-offset)

        c = if wm.focused == 0: focused else: unfocused
        discard wm.display.XSetWindowBorder(wm.clients[0], c)
    
        # maths, sort of explained here: https://i.imgur.com/fGxdfDh.png
        var 
            leftoverPixels = h - ((n-1) * (h div (n-1)))
            lastEnd: cint = 0

        for i in 1..wm.clients.len-1:
            var height = (h div (n-1))
            if leftoverPixels > 0: 
                height += 1
                leftoverPixels -= 1

            discard wm.display.XMoveResizeWindow(wm.clients[i], cint w div 2, lastEnd, (w div 2)-offset, height-offset)
            
            lastEnd += cint height

            c = if wm.focused == i: focused else: unfocused
            discard wm.display.XSetWindowBorder(wm.clients[i], c)
        
# 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) =
    if wm.focused == wm.clients.high: wm.focused -= 1
    if wm.focused > -1:
        discard wm.display.XSetInputFocus(wm.clients[wm.focused], RevertToParent, CurrentTime)

    let ti = wm.clients.find(e.window)
    if ti > -1: wm.clients.delete ti
    wm.tileWindows

proc onConfigureNotify (wm: WindowManager, e: PXConfigureEvent) = return

proc onMapRequest (wm: WindowManager, e: PXMapRequestEvent) =
    discard wm.display.XMapWindow e.window
    discard wm.display.XSetWindowBorderWidth(e.window, config.frameWidth)
    wm.addWindow e.window
    wm.tileWindows

proc onConfigureRequest (wm: WindowManager, e: PXConfigureRequestEvent) =
    var changes: XWindowChanges

    changes.x = e.x
    changes.y = e.y
    changes.width = e.width
    changes.height = e.height
    changes.border_width = e.border_width
    changes.sibling = e.above
    changes.stack_mode = e.detail 

    discard wm.display.XConfigureWindow(e.window, cuint e.value_mask, addr changes)

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) =
    lvlDebug.log "key event " & $e.keycode
    let key = wm.keys[e.keycode]
    case key.keyfunc:
        of closeWindow: wm.λcloseWindow
        of nextWindow: wm.λnextWindow
        of setMaster: wm.λsetMaster
        of spawnCustom: wm.λspawnCustom key

proc onKeyRelease (wm: WindowManager, e: PXKeyEvent) = return

# Utils
proc getColor (wm: WindowManager, color: string): culong =
    var 
        c: XColor
        cmap = wm.display.DefaultColormap 0
    
    discard wm.display.XAllocNamedColor(cmap, color, addr c, addr c) #[:
        lvlError.log "error allocating color"
        quit QuitFailure
    ]#
    
    return c.pixel