#include "palette_manip.h"
#include "src/resource_ids.auto.h"
#include <pebble.h>

// window statics
static Window *s_main_window;
static BitmapLayer *s_time_mg_layers[4];
static BitmapLayer *s_time_fg_layers[4];
static BitmapLayer *s_e_layer;
static BitmapLayer *s_f_layer;
static Layer *s_batt_mg_layer;
static Layer *s_batt_layer;
static const uint8_t s_x_r = (PBL_DISPLAY_WIDTH / 2) + 2;
static const uint8_t s_x_l = (s_x_r - 2 * (69 / 2)) - 5;
#if PBL_DISPLAY_HEIGHT == 260
static const GRect s_time_grects[4] = {GRect(s_x_l, 18, 69, 110), GRect(s_x_r, 18, 69, 110), GRect(s_x_l, 132, 69, 110), GRect(s_x_r, 132, 69, 110)};
#elif PBL_DISPLAY_HEIGHT == 180
static const GRect s_time_grects[4] = {GRect(s_x_l, -22, 69, 110), GRect(s_x_r, -22, 69, 110), GRect(s_x_l, 92, 69, 110), GRect(s_x_r, 92, 69, 110)};
#else
static const GRect s_time_grects[4] = {GRect(s_x_l, 2, 69, 110), GRect(s_x_r, 2, 69, 110), GRect(s_x_l, 116, 69, 110), GRect(s_x_r, 116, 69, 110)};
#endif
static const uint16_t s_fuel_guage_x_pos = PBL_DISPLAY_WIDTH - 23;

// persist statics&defines
static GColor8 s_mg_color;
static GColor8 s_fg_color;
#define storage_key_show_time_mg 0
#define storage_key_led_color 1
#define storage_key_bg_color 2
#define storage_key_mg_color 3
#define storage_key_fg_color 4

// bitmaps
static GBitmap *s_font_bitmaps[10];
static GBitmap *s_e_icon;
static GBitmap *s_f_icon;

// tracking statics
static int s_batt_level;

// bar statics
static const uint8_t s_bar_height = 8;
static const uint8_t s_bar_width = 17;
static const uint8_t s_bar_spacing = s_bar_height + 1;

static void batt_update_proc(Layer *layer, GContext *ctx) {
	graphics_context_set_fill_color(ctx, GColorWhite);
	const uint8_t bar_count = s_batt_level / 5;
	uint16_t bar_bottom_pos = 195;

	for (uint8_t i = 0; i < bar_count; ++i) {
		graphics_fill_rect(ctx, GRect(0, bar_bottom_pos, s_bar_width, s_bar_height), 0, GCornerNone);
		bar_bottom_pos -= s_bar_spacing;
	}
}

static void batt_callback(BatteryChargeState state) {
	s_batt_level = state.charge_percent;
	layer_mark_dirty(s_batt_layer);
}

static void batt_mg_update_proc(Layer *layer, GContext *ctx) {
	GRect bounds = layer_get_bounds(layer);
	graphics_context_set_fill_color(ctx, s_mg_color);
	graphics_fill_rect(ctx, bounds, 0, GCornerNone);
	graphics_context_set_stroke_color(ctx, GColorRed);
	const uint16_t red_y = bounds.origin.y + 183;
	graphics_draw_line(ctx, GPoint(bounds.origin.x + 1, red_y), GPoint(bounds.origin.x + s_bar_width, red_y));
	graphics_context_set_stroke_color(ctx, GColorDukeBlue);
	const uint16_t blue_y = bounds.origin.y + 1;
	graphics_draw_line(ctx, GPoint(bounds.origin.x + 1, blue_y), GPoint(bounds.origin.x + s_bar_width, blue_y));
}

static void main_window_load() {
	Layer *window_layer = window_get_root_layer(s_main_window);

	if (persist_exists(storage_key_led_color)) {
		light_set_color_rgb888(persist_read_int(storage_key_led_color));
	} else {
		light_set_color(GColorWhite);
	}

	if (persist_exists(storage_key_bg_color)) {
		window_set_background_color(s_main_window, (GColor8){.argb = persist_read_int(storage_key_bg_color)});
	} else {
		window_set_background_color(s_main_window, GColorBlue);
	}

	s_batt_mg_layer = layer_create(GRect(s_fuel_guage_x_pos - 1, 21, s_bar_width + 2, PBL_DISPLAY_HEIGHT - 43));
	layer_set_update_proc(s_batt_mg_layer, batt_mg_update_proc);

	if (persist_read_bool(storage_key_show_time_mg)) {
		for (int i = 0; i < 4; ++i) {
			s_time_mg_layers[i] = bitmap_layer_create(s_time_grects[i]);
			bitmap_layer_set_compositing_mode(s_time_mg_layers[i], GCompOpSet);
			layer_add_child(window_layer, bitmap_layer_get_layer(s_time_mg_layers[i]));
		}
	}

	s_e_layer = bitmap_layer_create(GRect(s_fuel_guage_x_pos, PBL_DISPLAY_HEIGHT - 18, 17, 15));
	s_f_layer = bitmap_layer_create(GRect(s_fuel_guage_x_pos, 4, 17, 13));
	bitmap_layer_set_bitmap(s_e_layer, s_e_icon);
	bitmap_layer_set_bitmap(s_f_layer, s_f_icon);
	bitmap_layer_set_compositing_mode(s_e_layer, GCompOpSet);
	bitmap_layer_set_compositing_mode(s_f_layer, GCompOpSet);

	if (s_fg_color.argb != GColorWhite.argb) {
		for (int i = 0; i < 10; ++i) {
			replace_gbitmap_color(GColorWhite, s_fg_color, s_font_bitmaps[i], NULL);
		}
		replace_gbitmap_color(GColorWhite, s_fg_color, s_e_icon, NULL);
		replace_gbitmap_color(GColorWhite, s_fg_color, s_e_icon, NULL);
	}

	for (int i = 0; i < 4; ++i) {
		layer_add_child(window_layer, bitmap_layer_get_layer(s_time_fg_layers[i]));
	}
	layer_add_child(window_layer, bitmap_layer_get_layer(s_e_layer));
	layer_add_child(window_layer, bitmap_layer_get_layer(s_f_layer));
	layer_add_child(window_layer, s_batt_mg_layer);
	layer_add_child(window_layer, s_batt_layer);
}

static void main_window_unload() {
	layer_destroy(s_batt_mg_layer);
	bitmap_layer_destroy(s_f_layer);
	bitmap_layer_destroy(s_e_layer);
	for (int i = 0; i < 4; ++i) {
		if (s_time_mg_layers[i]) {
			bitmap_layer_destroy(s_time_mg_layers[i]);
		}
	}
}

static void update_minute_1() {
	time_t temp = time(NULL);
	struct tm *tick_time = localtime(&temp);

	uint8_t hour = (uint8_t)tick_time->tm_hour;
	if (!clock_is_24h_style()) {
		hour = hour % 12;
		if (hour == 0) {
			hour = 12;
		}
	}
	uint8_t minute = (uint8_t)tick_time->tm_min;

	static uint8_t s_time_digits[4];
	s_time_digits[0] = hour / 10;
	s_time_digits[1] = hour % 10;
	s_time_digits[2] = minute / 10;
	s_time_digits[3] = minute % 10;

	for (int i = 0; i < 4; ++i) {
		bitmap_layer_set_bitmap(s_time_fg_layers[i], s_font_bitmaps[s_time_digits[i]]);
	}
}

static void minute_handler(struct tm *tick_time, TimeUnits units_changed) {
	update_minute_1();
}

static void soft_reload(bool first_load) {
	if (persist_exists(storage_key_mg_color)) {
		s_mg_color = (GColor8){.argb = persist_read_int(storage_key_mg_color)};
	} else {
		s_mg_color = GColorLightGray;
	}
	if (persist_exists(storage_key_fg_color)) {
		s_fg_color = (GColor8){.argb = persist_read_int(storage_key_fg_color)};
	} else {
		s_fg_color = GColorWhite;
	}
	if (!first_load) {
		window_stack_remove(s_main_window, false);
		window_destroy(s_main_window);
	}
	s_main_window = window_create();
	window_set_window_handlers(
	    s_main_window,
	    (WindowHandlers){.load = main_window_load, .unload = main_window_unload});
	window_stack_push(s_main_window, false);
}

static void init() {
	// load bitmaps
	s_font_bitmaps[0] = gbitmap_create_with_resource(RESOURCE_ID_0);
	s_font_bitmaps[1] = gbitmap_create_with_resource(RESOURCE_ID_1);
	s_font_bitmaps[2] = gbitmap_create_with_resource(RESOURCE_ID_2);
	s_font_bitmaps[3] = gbitmap_create_with_resource(RESOURCE_ID_3);
	s_font_bitmaps[4] = gbitmap_create_with_resource(RESOURCE_ID_4);
	s_font_bitmaps[5] = gbitmap_create_with_resource(RESOURCE_ID_5);
	s_font_bitmaps[6] = gbitmap_create_with_resource(RESOURCE_ID_6);
	s_font_bitmaps[7] = gbitmap_create_with_resource(RESOURCE_ID_7);
	s_font_bitmaps[8] = gbitmap_create_with_resource(RESOURCE_ID_8);
	s_font_bitmaps[9] = gbitmap_create_with_resource(RESOURCE_ID_9);
	s_e_icon = gbitmap_create_with_resource(RESOURCE_ID_E);
	s_f_icon = gbitmap_create_with_resource(RESOURCE_ID_F);

	for (int i = 0; i < 4; ++i) {
		s_time_fg_layers[i] = bitmap_layer_create(s_time_grects[i]);
		bitmap_layer_set_compositing_mode(s_time_fg_layers[i], GCompOpSet);
	}
	s_batt_layer = layer_create(GRect(s_fuel_guage_x_pos, 0, s_bar_width, PBL_DISPLAY_HEIGHT));
	layer_set_update_proc(s_batt_layer, batt_update_proc);

	update_minute_1();
	batt_callback(battery_state_service_peek());
	soft_reload(true);
	tick_timer_service_subscribe(MINUTE_UNIT, minute_handler);
	battery_state_service_subscribe(batt_callback);
}

static void deinit() {
	battery_state_service_unsubscribe();
	tick_timer_service_unsubscribe();
	layer_destroy(s_batt_layer);
	gbitmap_destroy(s_f_icon);
	gbitmap_destroy(s_e_icon);
	for (int i = 0; i < 4; ++i) {
		bitmap_layer_destroy(s_time_fg_layers[i]);
	}
	for (int i = 0; i < 10; ++i) {
		gbitmap_destroy(s_font_bitmaps[i]);
	}
	window_destroy(s_main_window);
}

int main(void) {
	init();
	app_event_loop();
	deinit();
}