ableos/sysdata/programs/horizon/src/main.hb

stn := @use("../../../libraries/stn/src/lib.hb");
.{string, memory, buffer, random, log} := stn;
.{Vec2} := stn.math

horizon_api := @use("../../../libraries/horizon_api/src/lib.hb")

render := @use("../../../libraries/render/src/lib.hb");
.{Surface} := render;
.{Font} := render.text
intouch := @use("../../../libraries/intouch/src/lib.hb")

Label := struct {is_dirty: bool, surface: Surface, text: ^u8, text_length: uint}
set_label_text := fn(label: Label, text: ^u8, text_length: uint): void {
	label.is_dirty = true
	label.text = text
	label.text_length = text_length
}

render_label_to_surface := fn(surface: Surface, label: Label, font: Font): void {
	if label.is_dirty {
		render.clear(label.surface, render.blue)
		render.put_text(label.surface, font, .(0, 0), render.red, "hi\0")
	}
	pos := Vec2(uint).(100, 100)
	render.put_surface(surface, label.surface, pos, false)
	render.sync(surface)
}

new_label := fn(text: ^u8): Label {
	text_surface := render.new_surface(100, 16)
	text_length := string.length(text)
	label := Label.(true, text_surface, text, text_length)
	return label
}

Window := struct {
	// TODO: Replace this with widgets
	implicit_framebuffer: render.Surface,
	width: int,
	height: int,
	x: int,
	y: int,
}

psf := @embed("../../../consolefonts/tamsyn/10x20r.psf")

main := fn(): int {
	win_buff := buffer.create("XHorizon\0")

	screen := render.init(true)

	// Clear the screen to black.
	render.clear(screen, render.black)

	window := render.new_surface(screen.width / 3, screen.height / 3)

	mem_buf := memory.request_page(1)
	color := random.any(render.Color)
	side := window.width / 8

	// really we should null check but it is a bit broked
	font := @unwrap(render.text.font_from_psf2(@bitcast(&psf), false))

	mouse_x := 0
	mouse_y := 0
	text_label := new_label("Hi\0")

	loop {
		// Clear the screen
		render.clear(screen, render.black)

		// TODO: Read the window buffer here
		{
			ret := buffer.recv([u8; 4096], win_buff, mem_buf)
			// for some reason this null check causes the compiler to spin forever
			// if ret == null {
			// 	log.info("No messages\0")
			// } else {
			// 	log.info("Handle Messages\0")
			// }
		}

		{
			// get input events from drivers via intouch
			// key_event := intouch.recieve_key_event()
			mouse_event := intouch.recieve_mouse_event()
			if mouse_event != null {
				mouse_x += mouse_event.x_change
				mouse_y += mouse_event.y_change
			}
			// render mouse
			render.put_rect(screen, .(mouse_x, mouse_y), .(20, 20), render.white)
			// Send events to focused window
		}

		// TODO: Get windows out of a collection and iter through

		render.put_rect(screen, .(0, 0), .(screen.width - 1, screen.height - 1), render.white)

		render_label_to_surface(screen, text_label, font)

		// Sync the screen
		render.sync(screen)
	}

	return 0
}