#include <stdlib.h>
#include <wlr/types/wlr_relative_pointer_v1.h>
#include <wlr/util/region.h>

#include "cursor.h"
#include "output.h"
#include "server.h"
#include "util.h"
#include "view.h"
#include "wayland-util.h"

void qw_cursor_destroy(struct qw_cursor *cursor) {
    wl_list_remove(&cursor->request_set.link);
    wl_list_remove(&cursor->axis.link);
    wl_list_remove(&cursor->motion.link);
    wl_list_remove(&cursor->motion_absolute.link);
    wl_list_remove(&cursor->frame.link);
    wl_list_remove(&cursor->button.link);

    wlr_xcursor_manager_destroy(cursor->mgr);

    free(cursor);
}

// Forward declaration: dispatch Internal-view enter/leave/motion to compositor.
static void qw_cursor_dispatch_internal_pointer(struct qw_cursor *cursor, double sx, double sy);

// Pointer focus helper function
static void update_pointer_focus(struct qw_cursor *cursor, struct wlr_surface *surface, double sx,
                                 double sy) {
    struct wlr_seat *seat = cursor->server->seat;

    if (surface == NULL) {
        wlr_seat_pointer_clear_focus(seat);
        // Reset cursor if we're not over a surface and we're not dragging
        if (cursor->server->seat->drag == NULL) {
            wlr_cursor_set_xcursor(cursor->cursor, cursor->mgr, "default");
        }
    } else {
        struct wlr_surface *prev_surface = seat->pointer_state.focused_surface;
        if (surface != prev_surface) {
            wlr_seat_pointer_notify_enter(seat, surface, sx, sy);
        }
    }
    qw_cursor_dispatch_internal_pointer(cursor, sx, sy);
}

// Notify the compositor about pointer enter/leave/motion on Internal views.
static void qw_cursor_dispatch_internal_pointer(struct qw_cursor *cursor, double sx, double sy) {
    if (!cursor->server->pointer_internal_event_cb) {
        return;
    }

    int new_wid = -1;
    if (cursor->view != NULL && cursor->view->view_type == QW_VIEW_INTERNAL) {
        new_wid = cursor->view->wid;
    }

    int prev_wid = cursor->prev_internal_wid;
    if (new_wid != prev_wid) {
        if (prev_wid != -1) {
            cursor->server->pointer_internal_event_cb(prev_wid, 0, 0, QW_POINTER_INTERNAL_LEAVE,
                                                      cursor->server->cb_data);
        }
        if (new_wid != -1) {
            cursor->server->pointer_internal_event_cb(
                new_wid, (int)sx, (int)sy, QW_POINTER_INTERNAL_ENTER, cursor->server->cb_data);
        }
        cursor->prev_internal_wid = new_wid;
    } else if (new_wid != -1) {
        cursor->server->pointer_internal_event_cb(
            new_wid, (int)sx, (int)sy, QW_POINTER_INTERNAL_MOTION, cursor->server->cb_data);
    }
}

// Update pointer focus without motion
void qw_cursor_update_pointer_focus(struct qw_cursor *cursor) {
    struct wlr_surface *surface = NULL;
    double sx = 0.0, sy = 0.0;

    cursor->view =
        qw_server_view_at(cursor->server, cursor->cursor->x, cursor->cursor->y, &surface, &sx, &sy);

    update_pointer_focus(cursor, surface, sx, sy);
}

static void qw_cursor_process_motion(struct qw_cursor *cursor, uint32_t time,
                                     struct wlr_input_device *device, double dx, double dy,
                                     double dx_unaccel, double dy_unaccel) {
    struct wlr_seat *seat = cursor->server->seat;

    // Handle motion if server is in a locked state
    if (cursor->server->lock_state != QW_SESSION_LOCK_UNLOCKED) {
        if (cursor->server->lock && !wl_list_empty(&cursor->server->lock->lock->surfaces)) {
            struct wlr_session_lock_surface_v1 *lock_surface =
                wl_container_of(cursor->server->lock->lock->surfaces.next, lock_surface, link);

            // Compute surface-local coordinates
            struct qw_output *output = lock_surface->output->data;
            double sx = cursor->cursor->x - output->full_area.x;
            double sy = cursor->cursor->y - output->full_area.y;

            // Update pointer focus to the lock surface
            wlr_seat_pointer_notify_enter(seat, lock_surface->surface, sx, sy);
            wlr_seat_pointer_notify_motion(seat, time, sx, sy);
            cursor->view = NULL; // No normal view under cursor
        } else {
            // No lock surface available, clear pointer focus
            wlr_seat_pointer_clear_focus(seat);
            cursor->view = NULL;
        }

        // Still notify the server of cursor position for UI updates
        cursor->server->cursor_motion_cb(cursor->server->cb_data);
        return;
    }

    wlr_relative_pointer_manager_v1_send_relative_motion(
        cursor->server->relative_pointer_manager, cursor->server->seat, (uint64_t)time * 1000, dx,
        dy, dx_unaccel, dy_unaccel);

    struct wlr_surface *surface = NULL;
    double sx = 0.0, sy = 0.0;
    cursor->view =
        qw_server_view_at(cursor->server, cursor->cursor->x, cursor->cursor->y, &surface, &sx, &sy);

    // Only apply pointer constraints to real pointer input.
    if (cursor->active_constraint && device != NULL && device->type == WLR_INPUT_DEVICE_POINTER) {
        if (cursor->active_constraint->surface != surface) {
            return;
        }

        double sx_confined, sy_confined;
        if (!wlr_region_confine(&cursor->confine, sx, sy, sx + dx, sy + dy, &sx_confined,
                                &sy_confined)) {
            return;
        }

        dx = sx_confined - sx;
        dy = sy_confined - sy;
    }

    wlr_cursor_move(cursor->cursor, device, dx, dy);

    update_pointer_focus(cursor, surface, sx, sy);

    // Notify server callback with current cursor position
    cursor->server->cursor_motion_cb(cursor->server->cb_data);

    wlr_scene_node_set_position(&cursor->server->drag_icon->node, (int)cursor->cursor->x,
                                (int)cursor->cursor->y);

    // Notify motion for focus or drag
    if (seat->pointer_state.focused_surface != NULL || seat->pointer_state.button_count > 0) {
        wlr_seat_pointer_notify_motion(seat, time, sx, sy);
    }
}

static void qw_cursor_implicit_grab_motion(struct qw_cursor *cursor, uint32_t time,
                                           struct wlr_input_device *device, double dx, double dy) {
    struct wlr_seat *seat = cursor->server->seat;

    double sx = cursor->cursor->x + cursor->implicit_grab.start_dx;
    double sy = cursor->cursor->y + cursor->implicit_grab.start_dy;
    wlr_cursor_move(cursor->cursor, device, dx, dy);
    wlr_seat_pointer_notify_motion(seat, time, sx, sy);
}

static void qw_cursor_handle_motion(struct wl_listener *listener, void *data) {
    // Handle relative pointer motion event
    struct qw_cursor *cursor = wl_container_of(listener, cursor, motion);
    struct wlr_pointer_motion_event *event = data;

    qw_server_idle_notify_activity(cursor->server);

    if (cursor->implicit_grab.live) {
        qw_cursor_implicit_grab_motion(cursor, event->time_msec, &event->pointer->base,
                                       event->delta_x, event->delta_y);
    } else {
        qw_cursor_process_motion(cursor, event->time_msec, &event->pointer->base, event->delta_x,
                                 event->delta_y, event->unaccel_dx, event->unaccel_dy);
    }
}

static void qw_cursor_handle_motion_absolute(struct wl_listener *listener, void *data) {
    // Handle absolute pointer motion event
    struct qw_cursor *cursor = wl_container_of(listener, cursor, motion_absolute);
    struct wlr_pointer_motion_absolute_event *event = data;

    qw_server_idle_notify_activity(cursor->server);

    double lx, ly;
    wlr_cursor_absolute_to_layout_coords(cursor->cursor, &event->pointer->base, event->x, event->y,
                                         &lx, &ly);

    double dx = lx - cursor->cursor->x;
    double dy = ly - cursor->cursor->y;

    if (cursor->implicit_grab.live) {
        qw_cursor_implicit_grab_motion(cursor, event->time_msec, &event->pointer->base, dx, dy);
    } else {
        qw_cursor_process_motion(cursor, event->time_msec, &event->pointer->base, dx, dy, dx, dy);
    }
}

void qw_cursor_warp_cursor(struct qw_cursor *cursor, double x, double y, bool motion) {
    wlr_cursor_warp_closest(cursor->cursor, NULL, x, y);
    qw_cursor_update_pointer_focus(cursor);
    if (motion) {
        cursor->server->cursor_motion_cb(cursor->server->cb_data);
    }
}

static void qw_cursor_handle_seat_request_set(struct wl_listener *listener, void *data) {
    // Handle client request to set pointer cursor image
    struct qw_cursor *cursor = wl_container_of(listener, cursor, request_set);
    struct wlr_seat_pointer_request_set_cursor_event *event = data;

    // Only allow focused client to set cursor surface
    struct wlr_seat_client *focused_client = cursor->server->seat->pointer_state.focused_client;
    if (focused_client != event->seat_client) {
        return;
    }

    // Save the requested surface and hotspot info
    cursor->saved_surface = event->surface;
    cursor->saved_hotspot_x = event->hotspot_x;
    cursor->saved_hotspot_y = event->hotspot_y;

    if (cursor->hidden) {
        // Skip applying the cursor while hidden
        return;
    }

    wlr_cursor_set_surface(cursor->cursor, event->surface, event->hotspot_x, event->hotspot_y);
}

void qw_cursor_release_implicit_grab(struct qw_cursor *cursor, uint32_t time) {
    if (cursor->implicit_grab.live) {
        wlr_log(WLR_DEBUG, "Releasing implicit grab.");
        cursor->implicit_grab.live = false;
        // Pretend the cursor just appeared where it is.
        qw_cursor_process_motion(cursor, time, NULL, 0, 0, 0, 0);
    }
}

static void qw_cursor_create_implicit_grab(struct qw_cursor *cursor, uint32_t time) {
    struct wlr_seat *seat = cursor->server->seat;
    double x = cursor->cursor->x;
    double y = cursor->cursor->y;
    double sx = seat->pointer_state.sx;
    double sy = seat->pointer_state.sy;
    qw_cursor_release_implicit_grab(cursor, time);
    wlr_log(WLR_DEBUG, "Creating implicit grab.");

    cursor->implicit_grab.start_dx = sx - x;
    cursor->implicit_grab.start_dy = sy - y;
    cursor->implicit_grab.live = true;
}

static bool qw_cursor_process_button(struct qw_cursor *cursor, int button, bool pressed) {
    if (cursor->server->lock_state != QW_SESSION_LOCK_UNLOCKED) {
        return false;
    }

    // Get current keyboard modifiers (shift, ctrl, etc)
    struct wlr_keyboard *kb = wlr_seat_get_keyboard(cursor->server->seat);
    uint32_t modifiers = kb ? wlr_keyboard_get_modifiers(kb) : 0;

    // TODO: Callback should only fire for bound modifier + button combos
    if (cursor->view != NULL && !cursor->view->grabbed_click && modifiers == 0) {
        return false;
    }

    // Call server's button callback with button info and modifiers
    return cursor->server->cursor_button_cb(button, modifiers, pressed, (int)cursor->cursor->x,
                                            (int)cursor->cursor->y, cursor->server->cb_data) != 0;
}

static void qw_cursor_handle_button(struct wl_listener *listener, void *data) {
    // Handle pointer button press/release event
    struct qw_cursor *cursor = wl_container_of(listener, cursor, button);
    struct wlr_seat *seat = cursor->server->seat;
    struct wlr_pointer_button_event *event = data;

    qw_server_idle_notify_activity(cursor->server);

    // Translate event button to internal code (e.g. BTN_LEFT)
    uint32_t button = qw_util_get_button_code(event->button);
    bool pressed = event->state == WL_POINTER_BUTTON_STATE_PRESSED;
    bool handled = false;
    static int pressed_button_count = 0;
    // TODO: exclusive client

    if (button != 0) {
        if (pressed) {
            pressed_button_count++;
        } else {
            pressed_button_count--;
        }

        if (cursor->implicit_grab.live) {
            wlr_seat_pointer_notify_button(cursor->server->seat, event->time_msec, event->button,
                                           event->state);
            if (pressed_button_count == 0) {
                qw_cursor_release_implicit_grab(cursor, event->time_msec);
            }
            return;
        }

        // When the pointer is constrained, skip further processing
        if (!cursor->active_constraint || event->pointer->base.type != WLR_INPUT_DEVICE_POINTER) {
            handled = qw_cursor_process_button(cursor, button, pressed);

            if (!handled) {
                struct wlr_surface *surface = seat->pointer_state.focused_surface;
                struct wlr_drag *drag = cursor->server->seat->drag;
                if (pressed_button_count == 1 && surface != NULL && drag == NULL) {
                    qw_cursor_create_implicit_grab(cursor, event->time_msec);
                }
            }
        }
    }

    if (!handled) {
        wlr_seat_pointer_notify_button(cursor->server->seat, event->time_msec, event->button,
                                       event->state);
    }
}

static void qw_cursor_handle_axis(struct wl_listener *listener, void *data) {
    // Handle scroll (axis) event
    struct qw_cursor *cursor = wl_container_of(listener, cursor, axis);
    struct wlr_pointer_axis_event *event = data;

    qw_server_idle_notify_activity(cursor->server);

    static double displacement = 0;
    static const uint32_t DISPLACEMENT_PER_STEP = 15; // could be configurable
    bool handled = false;

    // When the pointer is constrained, skip further processing
    if (cursor->active_constraint && event->pointer->base.type == WLR_INPUT_DEVICE_POINTER) {
        wlr_seat_pointer_notify_axis(cursor->server->seat, event->time_msec, event->orientation,
                                     event->delta, event->delta_discrete, event->source,
                                     event->relative_direction);
        return;
    }

    // Determine which button this corresponds to
    uint32_t button = 0;
    if (event->orientation == WL_POINTER_AXIS_VERTICAL_SCROLL) {
        button = (event->delta > 0) ? BUTTON_SCROLL_DOWN : BUTTON_SCROLL_UP;
    } else if (event->orientation == WL_POINTER_AXIS_HORIZONTAL_SCROLL) {
        button = (event->delta > 0) ? BUTTON_SCROLL_RIGHT : BUTTON_SCROLL_LEFT;
    }

    uint32_t button_mapped = qw_util_get_button_code(button);

    if (!cursor->implicit_grab.live) {
        // If it's a physical wheel fire callback immediately if there is a discrete delta
        if (event->source == WL_POINTER_AXIS_SOURCE_WHEEL && event->delta_discrete != 0) {
            handled = qw_cursor_process_button(cursor, button_mapped, true);
            // for anything else, we're using rate limiting
        } else if (event->source != WL_POINTER_AXIS_SOURCE_WHEEL) {
            // Touchpad or smooth scroll: integrate displacement
            displacement += event->delta;

            double abs_displacement = fabs(displacement);
            if (abs_displacement >= DISPLACEMENT_PER_STEP) {
                int steps = (int)(abs_displacement / DISPLACEMENT_PER_STEP);
                displacement = fmod(displacement, DISPLACEMENT_PER_STEP);
                for (int step = 0; step < steps; step++) {
                    handled = qw_cursor_process_button(cursor, button_mapped, true);
                }
            }
        }
    }

    if (!handled) {
        // Forward axis event to seat if not handled
        wlr_seat_pointer_notify_axis(cursor->server->seat, event->time_msec, event->orientation,
                                     event->delta, event->delta_discrete, event->source,
                                     event->relative_direction);
    }
}

static void qw_cursor_handle_frame(struct wl_listener *listener, void *data) {
    UNUSED(data);
    // Handle frame event (batch end for pointer events)
    struct qw_cursor *cursor = wl_container_of(listener, cursor, frame);
    wlr_seat_pointer_notify_frame(cursor->server->seat);
}

struct qw_cursor *qw_server_cursor_create(struct qw_server *server) {
    // Allocate memory for qw_cursor
    struct qw_cursor *cursor = calloc(1, sizeof(*cursor));
    if (!cursor) {
        wlr_log(WLR_ERROR, "failed to create qw_cursor struct");
        return NULL;
    }

    cursor->server = server;
    cursor->prev_internal_wid = -1;
    cursor->cursor = wlr_cursor_create();
    wlr_cursor_attach_output_layout(cursor->cursor, server->output_layout);
    cursor->mgr = wlr_xcursor_manager_create(NULL, 24);

    // Setup listeners for various pointer events
    cursor->request_set.notify = qw_cursor_handle_seat_request_set;
    wl_signal_add(&server->seat->events.request_set_cursor, &cursor->request_set);

    cursor->motion.notify = qw_cursor_handle_motion;
    wl_signal_add(&cursor->cursor->events.motion, &cursor->motion);

    cursor->motion_absolute.notify = qw_cursor_handle_motion_absolute;
    wl_signal_add(&cursor->cursor->events.motion_absolute, &cursor->motion_absolute);

    cursor->axis.notify = qw_cursor_handle_axis;
    wl_signal_add(&cursor->cursor->events.axis, &cursor->axis);

    cursor->frame.notify = qw_cursor_handle_frame;
    wl_signal_add(&cursor->cursor->events.frame, &cursor->frame);

    cursor->button.notify = qw_cursor_handle_button;
    wl_signal_add(&cursor->cursor->events.button, &cursor->button);

    wl_list_init(&cursor->constraint_commit.link);

    return cursor;
}

void qw_cursor_hide(struct qw_cursor *cursor) {
    if (cursor->hidden)
        return;
    cursor->hidden = true;
    wlr_cursor_set_surface(cursor->cursor, NULL, 0, 0);
}

void qw_cursor_show(struct qw_cursor *cursor) {
    if (!cursor->hidden)
        return;
    cursor->hidden = false;

    if (cursor->saved_surface) {
        wlr_cursor_set_surface(cursor->cursor, cursor->saved_surface, cursor->saved_hotspot_x,
                               cursor->saved_hotspot_y);
    }
}

static void qw_cursor_handle_pointer_constraint_set_region(struct wl_listener *listener,
                                                           void *data) {
    UNUSED(data);
    struct qw_pointer_constraint *sway_constraint =
        wl_container_of(listener, sway_constraint, set_region);
    struct qw_cursor *cursor = sway_constraint->cursor;

    cursor->active_confine_requires_warp = true;
}

static void warp_to_constraint_cursor_hint(struct qw_cursor *cursor) {
    struct wlr_pointer_constraint_v1 *constraint = cursor->active_constraint;

    if (constraint->current.cursor_hint.enabled) {
        double sx = constraint->current.cursor_hint.x;
        double sy = constraint->current.cursor_hint.y;

        struct qw_view *view = constraint->surface->data;
        if (!view) {
            return;
        }

        double lx = view->x + sx;
        double ly = view->y + sy;

        wlr_cursor_warp(cursor->cursor, NULL, lx, ly);

        // Warp the pointer as well, so that on the next pointer rebase we don't
        // send an unexpected synthetic motion event to clients.
        wlr_seat_pointer_warp(constraint->seat, sx, sy);
    }
}

static void qw_cursor_handle_pointer_constraint_destroy(struct wl_listener *listener, void *data) {
    struct qw_pointer_constraint *qw_constraint = wl_container_of(listener, qw_constraint, destroy);
    struct wlr_pointer_constraint_v1 *constraint = data;
    struct qw_cursor *cursor = qw_constraint->cursor;

    wl_list_remove(&qw_constraint->set_region.link);
    wl_list_remove(&qw_constraint->destroy.link);

    if (cursor->active_constraint == constraint) {
        warp_to_constraint_cursor_hint(cursor);

        if (cursor->constraint_commit.link.next != NULL) {
            wl_list_remove(&cursor->constraint_commit.link);
        }
        wl_list_init(&cursor->constraint_commit.link);
        cursor->active_constraint = NULL;
    }

    free(qw_constraint);
}

static void check_constraint_region(struct qw_cursor *cursor) {
    struct wlr_pointer_constraint_v1 *constraint = cursor->active_constraint;
    pixman_region32_t *region = &constraint->region;
    bool is_layer_surface, is_session_lock_surface;
    struct qw_view *view =
        qw_view_from_wlr_surface(constraint->surface, &is_layer_surface, &is_session_lock_surface);

    if (view == NULL) {
        return;
    }
    if (cursor->active_confine_requires_warp && view) {
        cursor->active_confine_requires_warp = false;

        // We may be over the constrained surface but haven't got pointer focus yet
        if (cursor->server->seat->pointer_state.focused_surface != constraint->surface) {
            qw_cursor_update_pointer_focus(cursor);
        }

        double sx = cursor->cursor->x - view->x;
        double sy = cursor->cursor->y - view->y;

        if (!pixman_region32_contains_point(region, floor(sx), floor(sy), NULL)) {
            int nboxes;
            pixman_box32_t *boxes = pixman_region32_rectangles(region, &nboxes);
            if (nboxes > 0) {
                double sx = (boxes[0].x1 + boxes[0].x2) / 2.;
                double sy = (boxes[0].y1 + boxes[0].y2) / 2.;

                wlr_cursor_warp_closest(cursor->cursor, NULL, sx - view->x, sy - view->y);

                qw_cursor_update_pointer_focus(cursor);
            }
        }
    }

    // A locked pointer will result in an empty region, thus disallowing all movement
    if (constraint->type == WLR_POINTER_CONSTRAINT_V1_CONFINED) {
        pixman_region32_copy(&cursor->confine, region);
    } else {
        pixman_region32_clear(&cursor->confine);
    }
}

static void qw_cursor_handle_constraint_commit(struct wl_listener *listener, void *data) {
    UNUSED(data);
    struct qw_cursor *cursor = wl_container_of(listener, cursor, constraint_commit);

    check_constraint_region(cursor);
}

void qw_cursor_constrain_cursor(struct qw_cursor *cursor,
                                struct wlr_pointer_constraint_v1 *constraint) {
    if (cursor->active_constraint == constraint) {
        return;
    }

    wl_list_remove(&cursor->constraint_commit.link);
    if (cursor->active_constraint) {
        if (constraint == NULL) {
            warp_to_constraint_cursor_hint(cursor);
        }
        wlr_pointer_constraint_v1_send_deactivated(cursor->active_constraint);
    }

    cursor->active_constraint = constraint;

    if (constraint == NULL) {
        wl_list_init(&cursor->constraint_commit.link);
        return;
    }

    cursor->active_confine_requires_warp = true;

    // Comment from sway:
    // FIXME: Big hack, stolen from wlr_pointer_constraints_v1.c:121.
    // This is necessary because the focus may be set before the surface
    // has finished committing, which means that warping won't work properly,
    // since this code will be run *after* the focus has been set.
    // That is why we duplicate the code here.
    if (pixman_region32_not_empty(&constraint->current.region)) {
        pixman_region32_intersect(&constraint->region, &constraint->surface->input_region,
                                  &constraint->current.region);
    } else {
        pixman_region32_copy(&constraint->region, &constraint->surface->input_region);
    }

    check_constraint_region(cursor);

    wlr_pointer_constraint_v1_send_activated(constraint);

    cursor->constraint_commit.notify = qw_cursor_handle_constraint_commit;
    wl_signal_add(&constraint->surface->events.commit, &cursor->constraint_commit);
}

void qw_cursor_pointer_constraint_new(struct qw_cursor *cursor,
                                      struct wlr_pointer_constraint_v1 *constraint) {

    struct qw_pointer_constraint *qw_constraint = calloc(1, sizeof(struct qw_pointer_constraint));
    qw_constraint->cursor = cursor;
    qw_constraint->constraint = constraint;

    qw_constraint->set_region.notify = qw_cursor_handle_pointer_constraint_set_region;
    wl_signal_add(&constraint->events.set_region, &qw_constraint->set_region);

    qw_constraint->destroy.notify = qw_cursor_handle_pointer_constraint_destroy;
    wl_signal_add(&constraint->events.destroy, &qw_constraint->destroy);

    struct wlr_seat *seat = cursor->server->seat;
    struct wlr_surface *surface = seat->keyboard_state.focused_surface;
    if (surface && surface == constraint->surface) {
        qw_cursor_constrain_cursor(cursor, constraint);
    }
}

static bool xcursor_manager_is_named(const struct wlr_xcursor_manager *manager, const char *name) {
    return (manager->name == NULL && name == NULL) ||
           (name != NULL && manager->name != NULL && strcmp(name, manager->name) == 0);
}

void qw_cursor_configure_xcursor(struct qw_cursor *cursor) {
    unsigned cursor_size = 24;
    const char *cursor_theme = NULL;

    struct qw_server *server = cursor->server;
    struct qw_qtile_config *config = server->get_qtile_config_cb(server->cb_data);
    cursor_size = config->wl_xcursor_size;
    cursor_theme = config->wl_xcursor_theme;

    // Note: XCURSOR_SIZE and XCURSOR_THEME environment variables are now set
    // from Python (Core.on_config_load) to avoid calling setenv() from C code.
    // setenv() is not thread-safe with respect to concurrent getenv() calls
    // (e.g. from fontconfig/pango initialization), which caused intermittent
    // segfaults. See https://github.com/qtile/qtile/issues/5818

#if WLR_HAS_XWAYLAND
    if (server->xwayland != NULL &&
        (cursor->xwayland_mgr == NULL ||
         !xcursor_manager_is_named(cursor->xwayland_mgr, cursor_theme) ||
         cursor->xwayland_mgr->size != cursor_size)) {

        wlr_xcursor_manager_destroy(cursor->xwayland_mgr);

        cursor->xwayland_mgr = wlr_xcursor_manager_create(cursor_theme, cursor_size);
        if (cursor->xwayland_mgr == NULL) {
            wlr_log(WLR_ERROR, "Cannot create XCursor manager for theme '%s'", cursor_theme);
        }
        wlr_xcursor_manager_load(cursor->xwayland_mgr, 1);
        struct wlr_xcursor *xcursor =
            wlr_xcursor_manager_get_xcursor(cursor->xwayland_mgr, "default", 1);
        if (xcursor != NULL) {
            struct wlr_xcursor_image *image = xcursor->images[0];
            wlr_xwayland_set_cursor(server->xwayland, image->buffer, image->width * 4, image->width,
                                    image->height, image->hotspot_x, image->hotspot_y);
        }
    }
#endif

    /* Create xcursor manager if we don't have one already, or if the
     * theme has changed */
    if (cursor->mgr == NULL || !xcursor_manager_is_named(cursor->mgr, cursor_theme) ||
        cursor->mgr->size != cursor_size) {
        wlr_xcursor_manager_destroy(cursor->mgr);
        cursor->mgr = wlr_xcursor_manager_create(cursor_theme, cursor_size);
        if (cursor->mgr == NULL) {
            wlr_log(WLR_ERROR, "Cannot create XCursor manager for theme '%s'", cursor_theme);
        }

        struct qw_output *qw_output;
        wl_list_for_each(qw_output, &server->outputs, link) {
            struct wlr_output *output = qw_output->wlr_output;
            bool result = wlr_xcursor_manager_load(cursor->mgr, output->scale);
            if (!result) {
                wlr_log(WLR_ERROR, "Cannot load xcursor theme for output '%s' with scale %f",
                        output->name, output->scale);
            }
        }

        // Reset the cursor so that we apply it to outputs that just appeared
        wlr_cursor_unset_image(cursor->cursor);
        wlr_cursor_set_xcursor(cursor->cursor, cursor->mgr, "default");
        wlr_cursor_warp(cursor->cursor, NULL, cursor->cursor->x, cursor->cursor->y);
    }
}

void qw_cursor_fake_click(struct qw_cursor *cursor) {
    struct wlr_pointer_button_event event = {
        .button = 0x110, // BTN_LEFT (0x110 from linux/input-event-codes.h)
        .state = WL_POINTER_BUTTON_STATE_PRESSED,
        .time_msec = 0,
    };

    // Simulate press
    qw_cursor_handle_button(&cursor->button, &event);

    // Simulate release
    event.state = WL_POINTER_BUTTON_STATE_RELEASED;
    qw_cursor_handle_button(&cursor->button, &event);
}
