#define _POSIX_C_SOURCE 200112L
#include <assert.h>
#include <math.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>
#include <unistd.h>
#include <wayland-server-core.h>
#include <wlr/backend.h>
#include <wlr/backend/session.h>
#include <wlr/render/allocator.h>
#include <wlr/render/wlr_renderer.h>
#include <wlr/types/wlr_cursor.h>
#include <wlr/types/wlr_input_mapper.h>
#include <wlr/types/wlr_keyboard.h>
#include <wlr/types/wlr_matrix.h>
#include <wlr/types/wlr_output_layout.h>
#include <wlr/types/wlr_pointer.h>
#include <wlr/util/log.h>
#include <wlr/xcursor.h>
#include <xkbcommon/xkbcommon.h>

struct sample_state {
	struct wl_display *display;
	struct wlr_xcursor *xcursor;
	struct wlr_renderer *renderer;
	struct wlr_allocator *allocator;
	float default_color[4];
	float clear_color[4];
	struct wlr_output_layout *layout;
	struct wlr_input_mapper *input_mapper;
	struct wl_list outputs; // sample_output.link
	struct wl_list pointers; // sample_pointers.link
	struct wl_listener new_output;
	struct wl_listener new_input;
};

struct sample_output {
	struct sample_state *sample;
	struct wlr_output *output;
	struct wl_listener frame;
	struct wl_listener destroy;
	struct wl_list link;
};

struct sample_keyboard {
	struct sample_state *sample;
	struct wlr_keyboard *wlr_keyboard;
	struct wl_listener key;
	struct wl_listener destroy;
};

struct sample_pointer {
	struct sample_state *sample;
	struct wlr_pointer *wlr_pointer;
	struct wlr_cursor *cursor;
	struct wl_listener motion;
	struct wl_listener motion_absolute;
	struct wl_listener destroy;
	struct wl_list link;
};

static void output_frame_notify(struct wl_listener *listener, void *data) {
	struct sample_output *output = wl_container_of(listener, output, frame);
	struct sample_state *sample = output->sample;
	struct wlr_output *wlr_output = output->output;
	struct wlr_renderer *renderer = sample->renderer;

	wlr_output_attach_render(wlr_output, NULL);

	wlr_renderer_begin(renderer, wlr_output->width, wlr_output->height);

	wlr_renderer_clear(renderer, sample->clear_color);

	wlr_output_render_software_cursors(wlr_output, NULL);
	wlr_renderer_end(renderer);
	wlr_output_commit(wlr_output);
}

static void pointer_motion_notify(struct wl_listener *listener, void *data) {
	struct sample_pointer *pointer = wl_container_of(listener, pointer, motion);
	struct wlr_pointer_motion_event *event = data;
	wlr_cursor_warp(pointer->cursor, pointer->cursor->x + event->delta_x,
		pointer->cursor->y + event->delta_y);
}

static void pointer_motion_absolute_notify(struct wl_listener *listener, void *data) {
	struct sample_pointer *pointer =
		wl_container_of(listener, pointer, motion_absolute);
	struct wlr_pointer_motion_absolute_event *event = data;
	double lx, ly;
	wlr_input_mapper_absolute_to_layout(pointer->sample->input_mapper,
		&pointer->wlr_pointer->base, event->x, event->y, &lx, &ly);
	wlr_cursor_warp(pointer->cursor, lx, ly);
}

static void pointer_destroy_notify(struct wl_listener *listener, void *data) {
	struct sample_pointer *pointer = wl_container_of(listener, pointer, destroy);
	wlr_cursor_destroy(pointer->cursor);
	wl_list_remove(&pointer->link);
	wl_list_remove(&pointer->destroy.link);
	wl_list_remove(&pointer->motion.link);
	wl_list_remove(&pointer->motion_absolute.link);
	free(pointer);
}

static void output_remove_notify(struct wl_listener *listener, void *data) {
	struct sample_output *sample_output = wl_container_of(listener, sample_output, destroy);
	wl_list_remove(&sample_output->frame.link);
	wl_list_remove(&sample_output->destroy.link);
	wl_list_remove(&sample_output->link);
	free(sample_output);
}

static void new_output_notify(struct wl_listener *listener, void *data) {
	struct wlr_output *output = data;
	struct sample_state *sample = wl_container_of(listener, sample, new_output);

	wlr_output_init_render(output, sample->allocator, sample->renderer);

	struct sample_output *sample_output = calloc(1, sizeof(struct sample_output));
	sample_output->output = output;
	sample_output->sample = sample;
	wl_signal_add(&output->events.frame, &sample_output->frame);
	sample_output->frame.notify = output_frame_notify;
	wl_signal_add(&output->events.destroy, &sample_output->destroy);
	sample_output->destroy.notify = output_remove_notify;

	wlr_output_layout_add_auto(sample->layout, output);

	wl_list_insert(&sample->outputs, &sample_output->link);

	struct sample_pointer *pointer;
	wl_list_for_each(pointer, &sample->pointers, link) {
		struct wlr_xcursor_image *image = sample->xcursor->images[0];
		wlr_cursor_set_image(pointer->cursor, image->buffer, image->width * 4,
			image->width, image->height, image->hotspot_x, image->hotspot_y, 0);
	}

	struct wlr_output_mode *mode = wlr_output_preferred_mode(output);
	if (mode != NULL) {
		wlr_output_set_mode(output, mode);
	}

	wlr_output_commit(output);
}

static void keyboard_key_notify(struct wl_listener *listener, void *data) {
	struct sample_keyboard *keyboard = wl_container_of(listener, keyboard, key);
	struct sample_state *sample = keyboard->sample;
	struct wlr_keyboard_key_event *event = data;
	uint32_t keycode = event->keycode + 8;
	const xkb_keysym_t *syms;
	int nsyms = xkb_state_key_get_syms(keyboard->wlr_keyboard->xkb_state,
			keycode, &syms);
	for (int i = 0; i < nsyms; i++) {
		xkb_keysym_t sym = syms[i];
		if (sym == XKB_KEY_Escape) {
			wl_display_terminate(sample->display);
		}
	}
}

static void keyboard_destroy_notify(struct wl_listener *listener, void *data) {
	struct sample_keyboard *keyboard = wl_container_of(listener, keyboard, destroy);
	wl_list_remove(&keyboard->destroy.link);
	wl_list_remove(&keyboard->key.link);
	free(keyboard);
}

static void new_input_notify(struct wl_listener *listener, void *data) {
	struct wlr_input_device *device = data;
	struct sample_state *sample = wl_container_of(listener, sample, new_input);
	switch (device->type) {
	case WLR_INPUT_DEVICE_KEYBOARD:;
		struct sample_keyboard *keyboard = calloc(1, sizeof(struct sample_keyboard));
		keyboard->wlr_keyboard = wlr_keyboard_from_input_device(device);
		keyboard->sample = sample;
		wl_signal_add(&device->events.destroy, &keyboard->destroy);
		keyboard->destroy.notify = keyboard_destroy_notify;
		wl_signal_add(&keyboard->wlr_keyboard->events.key, &keyboard->key);
		keyboard->key.notify = keyboard_key_notify;
		struct xkb_context *context = xkb_context_new(XKB_CONTEXT_NO_FLAGS);
		if (!context) {
			wlr_log(WLR_ERROR, "Failed to create XKB context");
			exit(1);
		}
		struct xkb_keymap *keymap = xkb_keymap_new_from_names(context, NULL,
			XKB_KEYMAP_COMPILE_NO_FLAGS);
		if (!keymap) {
			wlr_log(WLR_ERROR, "Failed to create XKB keymap");
			exit(1);
		}
		wlr_keyboard_set_keymap(keyboard->wlr_keyboard, keymap);
		xkb_keymap_unref(keymap);
		xkb_context_unref(context);
		break;
	case WLR_INPUT_DEVICE_POINTER:;
		struct sample_pointer *pointer = calloc(1, sizeof(struct sample_pointer));
		pointer->wlr_pointer = wlr_pointer_from_input_device(device);
		pointer->sample = sample;
		pointer->cursor = wlr_cursor_create(sample->layout);

		wl_list_insert(&sample->pointers, &pointer->link);

		wl_signal_add(&device->events.destroy, &pointer->destroy);
		pointer->destroy.notify = pointer_destroy_notify;
		wl_signal_add(&pointer->wlr_pointer->events.motion, &pointer->motion);
		pointer->motion.notify = pointer_motion_notify;
		wl_signal_add(&pointer->wlr_pointer->events.motion_absolute,
			&pointer->motion_absolute);
		pointer->motion_absolute.notify = pointer_motion_absolute_notify;

		struct wlr_xcursor_image *image = sample->xcursor->images[0];
		wlr_cursor_set_image(pointer->cursor, image->buffer, image->width * 4,
			image->width, image->height, image->hotspot_x, image->hotspot_y, 0);
		break;
	default:
		break;
	}
}

int main(int argc, char *argv[]) {
	wlr_log_init(WLR_DEBUG, NULL);
	struct wl_display *display = wl_display_create();
	struct sample_state state = {
		.default_color = { 0.25f, 0.25f, 0.25f, 1 },
		.clear_color = { 0.25f, 0.25f, 0.25f, 1 },
		.display = display,
	};
	struct wlr_backend *wlr = wlr_backend_autocreate(display, NULL);
	if (!wlr) {
		exit(1);
	}

	state.renderer = wlr_renderer_autocreate(wlr);
	state.allocator = wlr_allocator_autocreate(wlr, state.renderer);

	wl_list_init(&state.outputs);
	state.layout = wlr_output_layout_create();

	wl_list_init(&state.pointers);

	wl_signal_add(&wlr->events.new_output, &state.new_output);
	state.new_output.notify = new_output_notify;
	wl_signal_add(&wlr->events.new_input, &state.new_input);
	state.new_input.notify = new_input_notify;

	struct wlr_xcursor_theme *theme = wlr_xcursor_theme_load("default", 16);
	if (!theme) {
		wlr_log(WLR_ERROR, "Failed to load cursor theme");
		return 1;
	}
	state.xcursor = wlr_xcursor_theme_get_cursor(theme, "left_ptr");
	if (!state.xcursor) {
		wlr_log(WLR_ERROR, "Failed to load left_ptr cursor");
		return 1;
	}

	if (!wlr_backend_start(wlr)) {
		wlr_log(WLR_ERROR, "Failed to start backend");
		wlr_backend_destroy(wlr);
		exit(1);
	}
	wl_display_run(display);
	wl_display_destroy(display);

	wlr_xcursor_theme_destroy(theme);
	wlr_output_layout_destroy(state.layout);
}