path: root/opplysning.c

#define _POSIX_C_SOURCE 199309L

#include <err.h>
#include <signal.h>
#include <stdint.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>

#include <libical/ical.h>
#include <raylib.h>

#include "sqlite/sqlite3.h"

enum {
	SCREEN_W = 1920,
	SCREEN_H = 1080,
};

const char *maaned[] = {
    "",	    "JANUAR", "FEBRUAR",   "MARS",    "APRIL",	  "MAI",      "JUNI",
    "JULI", "AUGUST", "SEPTEMBER", "OKTOBER", "NOVEMBER", "DESEMBER",
};
const char *ukedag[] = {
    "SØNDAG", "MANDAG", "TIRSDAG", "ONSDAG", "TORSDAG", "FREDAG", "LØRDAG",
};

enum {
	MAX_EVENTS = 64,
	SIZEOF_TITLE = 60,
};

struct event {
	int year;
	int month;
	int day;
	int wday;
	int hour;
	int minute;
	int end_hour;
	int end_minute;
	char title[SIZEOF_TITLE];
};

void
load_events(size_t *num_events, struct event events[static MAX_EVENTS],
	    const char *database)
{
	sqlite3 *db;
	if (sqlite3_open(database, &db))
		errx(1, "sqlite3_open: %s", sqlite3_errmsg(db));

	const char *sql = "SELECT "
			  "CAST(strftime('%Y', start, 'localtime') as INT), "
			  "CAST(strftime('%m', start, 'localtime') as INT), "
			  "CAST(strftime('%d', start, 'localtime') as INT), "
			  "CAST(strftime('%w', start, 'localtime') as INT), "
			  "CAST(strftime('%H', start, 'localtime') as INT), "
			  "CAST(strftime('%M', start, 'localtime') as INT), "
			  "CAST(strftime('%H', end  , 'localtime') as INT), "
			  "CAST(strftime('%M', end  , 'localtime') as INT), "
			  "summary "
			  "FROM event "
			  "WHERE datetime('now', 'start of day') < start "
			  "AND summary IS NOT NULL "
			  "ORDER BY start";
	sqlite3_stmt *stmt = NULL;
	if (sqlite3_prepare_v2(db, sql, -1, &stmt, NULL))
		errx(1, "sqlite3_prepare_v2: %s", sqlite3_errmsg(db));

	size_t n = 0;
	for (;;) {
		int step = sqlite3_step(stmt);
		if (SQLITE_DONE == step)
			break;
		if (SQLITE_ROW != step)
			errx(1, "sqlite3_step: %s", sqlite3_errmsg(db));

		if (MAX_EVENTS <= n) {
			warnx("MAX_EVENTS exceeded at %zu", n);
			break;
		}

		int year = sqlite3_column_int(stmt, 0);
		int month = sqlite3_column_int(stmt, 1);
		int day = sqlite3_column_int(stmt, 2);
		int wday = sqlite3_column_int(stmt, 3);
		int hour = sqlite3_column_int(stmt, 4);
		int minute = sqlite3_column_int(stmt, 5);
		int end_hour = sqlite3_column_int(stmt, 6);
		int end_minute = sqlite3_column_int(stmt, 7);
		const char *summary =
		    (const void *)sqlite3_column_text(stmt, 8);
		assert(summary);

		events[n].year = year;
		events[n].month = month;
		events[n].day = day;
		events[n].hour = hour;
		events[n].minute = minute;
		events[n].end_hour = end_hour;
		events[n].end_minute = end_minute;
		strncpy(events[n].title, summary, SIZEOF_TITLE);
		events[n].wday = wday;
		++n;
	}

	if (sqlite3_finalize(stmt))
		errx(1, "sqlite3_finalize: %s", sqlite3_errmsg(db));

	if (sqlite3_close(db))
		errx(1, "sqlite3_close: %s", sqlite3_errmsg(db));

	*num_events = n;
}

struct ray {
	Shader shader;
	RenderTexture2D target;
	int shader_u_time;

	Color bg;
	Color fg;
	Color hd;

	Font font_h;
	Font font_p;
};
struct ray R;

const char *the_non_ascii = "ÄÅÉËÞÜÚÍÓÖÁÐFGHÏŒØÆŒ©®BÑΜ"
			    "äåéëþüúíóöáðfghïœø朩®bñµß";

void
ray_init(void)
{
	SetTraceLogLevel(LOG_WARNING);
	InitWindow(SCREEN_W, SCREEN_H, "opplysning");
	SetTargetFPS(60);

	char *codes = calloc(128 + strlen(the_non_ascii), 1);
	if (!codes)
		err(1, "calloc");
	for (int i = 1; i < 128; ++i)
		codes[i] = i;
	memcpy(codes + 128, the_non_ascii, strlen(the_non_ascii));
	int ncp = 0;
	int *cp = LoadCodepoints(codes + 1, &ncp);
	R.font_h = LoadFontEx("font/adventpro-bold.ttf", 60, cp, ncp);
	R.font_p = LoadFontEx("font/NHaasGroteskTXPro-55Rg.ttf", 40, cp, ncp);
	UnloadCodepoints(cp);
	free(codes);

	R.bg = RAYWHITE;
	R.fg = BLACK;
	R.hd = (Color){0xf0, 0x4a, 0x00, 0xff};

	R.shader = LoadShader(0, "s.glsl");
	R.shader_u_time = GetShaderLocation(R.shader, "u_time");
	R.target = LoadRenderTexture(SCREEN_W, SCREEN_H);
}

void
blur(int x, int y, Font f, Color c, char *s)
{
	Vector2 m = MeasureTextEx(f, s, f.baseSize, 0);

	BeginTextureMode(R.target);
	ClearBackground((Color){0});
	DrawTextEx(f, s, (Vector2){0, 0}, (float)f.baseSize, 0, c);
	EndTextureMode();

	BeginShaderMode(R.shader);
	float t = GetTime();
	SetShaderValue(R.shader, R.shader_u_time, &t, SHADER_UNIFORM_FLOAT);
	DrawTextureRec(R.target.texture,
		       (Rectangle){0, SCREEN_H - m.y, m.x, -m.y},
		       (Vector2){x, y}, WHITE);
	EndShaderMode();
}
void
line(int x, int y, Font f, Color c, const char *s)
{
	DrawTextEx(f, s, (Vector2){x, y}, (float)f.baseSize, 0, c);
}

void
draw_time(int x, int y)
{
	struct timespec now = {0};
	clock_gettime(CLOCK_REALTIME, &now);
	struct tm *ti = localtime(&now.tv_sec);
	char ts[64] = {0};
	snprintf(ts, sizeof(ts), "%02d:%02d", ti->tm_hour, ti->tm_min);
	Vector2 v2_ts = MeasureTextEx(R.font_h, ts, R.font_h.baseSize, 0);
	line(x - v2_ts.x / 2, y, R.font_h, R.fg, ts);
}

void
draw_one_event(int x, int y, const struct event *e)
{
	char s[64] = {0};
	snprintf(s, sizeof(s), "%02u:%02u - %02u:%02u", e->hour, e->minute,
		 e->end_hour, e->end_minute);
	Vector2 m = MeasureTextEx(R.font_p, s, R.font_p.baseSize, 0);
	line(x + 5.8 * R.font_p.baseSize - m.x, y, R.font_p, R.fg, s);
	line(x + 6.5 * R.font_p.baseSize, y, R.font_p, R.fg, e->title);
}
void
draw_events(int x, int y, size_t numevents,
	    const struct event events[static numevents])

{
	int year = 0, month = 0, day = 0;
	for (size_t i = 0; i < numevents; ++i) {
		const struct event *e = &events[i];
		if (year != e->year || month != e->month || day != e->day) {
			year = e->year;
			month = e->month;
			day = e->day;

			char s[64] = {0};
			snprintf(s, sizeof(s), "%s %u. %s", ukedag[e->wday],
				 e->day, maaned[e->month]);
			line(x + 25, y += 50, R.font_h, R.hd, s);
			y += 20;
		}
		y += 40;
		draw_one_event(x, y, e);
	}
}

int
main(void)
{
	size_t ne_booking = 0;
	size_t ne_meetup = 0;
	struct event ev_booking[MAX_EVENTS] = {0};
	struct event ev_meetup[MAX_EVENTS] = {0};

	load_events(&ne_booking, ev_booking, "booking.db");
	load_events(&ne_meetup, ev_meetup, "meetup.db");

	ray_init();
	while (!WindowShouldClose()) {
		BeginDrawing();
		ClearBackground(R.bg);
		draw_time(SCREEN_W / 2, 0);
		draw_events(0, 0, ne_meetup, ev_meetup);
		draw_events(SCREEN_W / 2, 0, ne_booking, ev_booking);
		EndDrawing();
	}
	CloseWindow();
}