#include "menu.h"
#include <stdio.h>
#include <stdbool.h>

#include <furi.h>
#include <gui/gui.h>
#include <gui/elements.h>

#include "menu_event.h"
#include "menu_item.h"
#include <assets_icons.h>

struct Menu {
    MenuEvent* event;

    // GUI
    Gui* gui;
    ViewPort* view_port;
    IconAnimation* icon;

    // State
    MenuItem* root;
    MenuItem* settings;
    MenuItem* current;
};

void menu_view_port_callback(Canvas* canvas, void* context);

ValueMutex* menu_init() {
    Menu* menu = furi_alloc(sizeof(Menu));

    // Event dispatcher
    menu->event = menu_event_alloc();

    ValueMutex* menu_mutex = furi_alloc(sizeof(ValueMutex));
    if(menu_mutex == NULL || !init_mutex(menu_mutex, menu, sizeof(Menu))) {
        printf("[menu_task] cannot create menu mutex\r\n");
        furi_check(0);
    }

    // OpenGui record
    menu->gui = furi_record_open("gui");

    // Allocate and configure view_port
    menu->view_port = view_port_alloc();

    // Open GUI and register fullscreen view_port
    gui_add_view_port(menu->gui, menu->view_port, GuiLayerFullscreen);

    view_port_enabled_set(menu->view_port, false);
    view_port_draw_callback_set(menu->view_port, menu_view_port_callback, menu_mutex);
    view_port_input_callback_set(menu->view_port, menu_event_input_callback, menu->event);

    return menu_mutex;
}

void menu_build_main(Menu* menu) {
    furi_assert(menu);
    // Root point
    menu->root = menu_item_alloc_menu(NULL, NULL);
}

void menu_item_add(Menu* menu, MenuItem* item) {
    menu_item_subitem_add(menu->root, item);
}

void menu_settings_item_add(Menu* menu, MenuItem* item) {
    menu_item_subitem_add(menu->settings, item);
}

void menu_draw_primary(Menu* menu, Canvas* canvas) {
    size_t position = menu_item_get_position(menu->current);
    MenuItemArray_t* items = menu_item_get_subitems(menu->current);
    size_t items_count = MenuItemArray_size(*items);
    if(items_count) {
        MenuItem* item;
        size_t shift_position;
        // First line
        canvas_set_font(canvas, FontSecondary);
        shift_position = (0 + position + items_count - 1) % (MenuItemArray_size(*items));
        item = *MenuItemArray_get(*items, shift_position);
        canvas_draw_icon_animation(canvas, 4, 3, menu_item_get_icon(item));
        canvas_draw_str(canvas, 22, 14, menu_item_get_label(item));
        // Second line main
        canvas_set_font(canvas, FontPrimary);
        shift_position = (1 + position + items_count - 1) % (MenuItemArray_size(*items));
        item = *MenuItemArray_get(*items, shift_position);
        canvas_draw_icon_animation(canvas, 4, 25, menu_item_get_icon(item));
        canvas_draw_str(canvas, 22, 36, menu_item_get_label(item));
        // Third line
        canvas_set_font(canvas, FontSecondary);
        shift_position = (2 + position + items_count - 1) % (MenuItemArray_size(*items));
        item = *MenuItemArray_get(*items, shift_position);
        canvas_draw_icon_animation(canvas, 4, 47, menu_item_get_icon(item));
        canvas_draw_str(canvas, 22, 58, menu_item_get_label(item));
        // Frame and scrollbar
        // elements_frame(canvas, 0, 0, 128 - 5, 21);
        elements_frame(canvas, 0, 21, 128 - 5, 21);
        // elements_frame(canvas, 0, 42, 128 - 5, 21);
        elements_scrollbar(canvas, position, items_count);
    } else {
        canvas_draw_str(canvas, 2, 32, "Empty");
        elements_scrollbar(canvas, 0, 0);
    }
}

void menu_draw_secondary(Menu* menu, Canvas* canvas) {
    size_t position = 0;
    size_t selected_position = menu_item_get_position(menu->current);
    size_t window_position = menu_item_get_window_position(menu->current);
    MenuItemArray_t* items = menu_item_get_subitems(menu->current);
    const uint8_t items_on_screen = 4;
    const uint8_t item_height = 16;
    const uint8_t item_width = 123;
    size_t items_count = MenuItemArray_size(*items);
    MenuItemArray_it_t it;

    canvas_set_font(canvas, FontSecondary);
    for(MenuItemArray_it(it, *items); !MenuItemArray_end_p(it); MenuItemArray_next(it)) {
        size_t item_position = position - window_position;

        if(item_position < items_on_screen) {
            if(position == selected_position) {
                canvas_set_color(canvas, ColorBlack);
                elements_slightly_rounded_box(
                    canvas, 0, (item_position * item_height) + 1, item_width, item_height - 2);
                canvas_set_color(canvas, ColorWhite);
            } else {
                canvas_set_color(canvas, ColorBlack);
            }
            canvas_draw_str(
                canvas,
                6,
                (item_position * item_height) + item_height - 4,
                menu_item_get_label(*MenuItemArray_ref(it)));
        }

        position++;
    }

    elements_scrollbar(canvas, selected_position, items_count);
}

void menu_view_port_callback(Canvas* canvas, void* context) {
    furi_assert(canvas);
    furi_assert(context);

    Menu* menu = acquire_mutex((ValueMutex*)context, 100); // wait 10 ms to get mutex
    if(menu == NULL) return; // redraw fail

    furi_assert(menu->current);

    canvas_clear(canvas);
    canvas_set_color(canvas, ColorBlack);

    // if top level
    if(menu_item_get_parent(menu->current) == NULL) {
        menu_draw_primary(menu, canvas);
    } else {
        menu_draw_secondary(menu, canvas);
    }

    release_mutex((ValueMutex*)context, menu);
}

void menu_set_icon(Menu* menu, IconAnimation* icon) {
    furi_assert(menu);

    if(menu->icon) {
        icon_animation_stop(menu->icon);
    }

    menu->icon = icon;

    if(menu->icon) {
        icon_animation_start(menu->icon);
    }
}

void menu_update(Menu* menu) {
    furi_assert(menu);

    if(menu->current) {
        size_t position = menu_item_get_position(menu->current);
        MenuItemArray_t* items = menu_item_get_subitems(menu->current);
        size_t items_count = MenuItemArray_size(*items);
        if(items_count) {
            MenuItem* item = *MenuItemArray_get(*items, position);
            menu_set_icon(menu, menu_item_get_icon(item));
        }
    }

    menu_event_activity_notify(menu->event);
    view_port_update(menu->view_port);
}

void menu_up(Menu* menu) {
    furi_assert(menu);
    size_t position = menu_item_get_position(menu->current);
    size_t window_position = menu_item_get_window_position(menu->current);
    MenuItemArray_t* items = menu_item_get_subitems(menu->current);

    const uint8_t items_on_screen = 4;

    if(position > 0) {
        position--;
        if(((position - window_position) < 1) && window_position > 0) {
            window_position--;
        }
    } else {
        position = MenuItemArray_size(*items) - 1;
        if(position > (items_on_screen - 1)) {
            window_position = position - (items_on_screen - 1);
        }
    }

    menu_item_set_position(menu->current, position);
    menu_item_set_window_position(menu->current, window_position);
    menu_update(menu);
}

void menu_down(Menu* menu) {
    furi_assert(menu);
    size_t position = menu_item_get_position(menu->current);
    size_t window_position = menu_item_get_window_position(menu->current);
    MenuItemArray_t* items = menu_item_get_subitems(menu->current);

    const uint8_t items_on_screen = 4;
    if(position < (MenuItemArray_size(*items) - 1)) {
        position++;
        if((position - window_position) > (items_on_screen - 2) &&
           window_position < (MenuItemArray_size(*items) - items_on_screen)) {
            window_position++;
        }
    } else {
        position = 0;
        window_position = 0;
    }

    menu_item_set_position(menu->current, position);
    menu_item_set_window_position(menu->current, window_position);
    menu_update(menu);
}

void menu_ok(Menu* menu) {
    furi_assert(menu);

    if(!menu->current) {
        view_port_enabled_set(menu->view_port, true);
        menu->current = menu->root;
        menu_item_set_position(menu->current, 0);
        menu_item_set_window_position(menu->current, 0);
        menu_update(menu);
        return;
    }

    MenuItemArray_t* items = menu_item_get_subitems(menu->current);
    if(!items || MenuItemArray_size(*items) == 0) {
        return;
    }

    size_t position = menu_item_get_position(menu->current);
    MenuItem* item = *MenuItemArray_get(*items, position);
    MenuItemType type = menu_item_get_type(item);

    if(type == MenuItemTypeMenu) {
        menu->current = item;
        menu_item_set_position(menu->current, 0);
        menu_item_set_window_position(menu->current, 0);
        menu_update(menu);
    } else if(type == MenuItemTypeFunction) {
        menu_item_function_call(item);
        gui_send_view_port_back(menu->gui, menu->view_port);
    }
}

void menu_back(Menu* menu) {
    furi_assert(menu);
    MenuItem* parent = menu_item_get_parent(menu->current);
    if(parent) {
        menu->current = parent;
        menu_update(menu);
    } else {
        menu_exit(menu);
    }
}

void menu_exit(Menu* menu) {
    furi_assert(menu);
    view_port_enabled_set(menu->view_port, false);
    menu->current = NULL;
    menu_update(menu);
}

int32_t menu_srv(void* p) {
    ValueMutex* menu_mutex = menu_init();

    MenuEvent* menu_event = NULL;
    {
        Menu* menu = acquire_mutex_block(menu_mutex);
        furi_check(menu);

        menu_build_main(menu);

        // immutable thread-safe object
        menu_event = menu->event;

        release_mutex(menu_mutex, menu);
    }

    furi_record_create("menu", menu_mutex);

    while(1) {
        MenuMessage m = menu_event_next(menu_event);

        Menu* menu = acquire_mutex_block(menu_mutex);

        if(!menu->current && m.type != MenuMessageTypeOk) {
        } else if(m.type == MenuMessageTypeUp) {
            menu_up(menu);
        } else if(m.type == MenuMessageTypeDown) {
            menu_down(menu);
        } else if(m.type == MenuMessageTypeOk) {
            menu_ok(menu);
        } else if(m.type == MenuMessageTypeBack) {
            menu_back(menu);
        } else if(m.type == MenuMessageTypeIdle) {
            menu_exit(menu);
        } else {
            // TODO: fail somehow?
        }

        release_mutex(menu_mutex, menu);
    }

    return 0;
}