#include "bad_usb_view.h"
#include "../bad_usb_script.h"
#include <gui/elements.h>

struct BadUsb {
    View* view;
    BadUsbOkCallback callback;
    void* context;
};

typedef struct {
    char* file_name;
    BadUsbState state;
    uint8_t anim_frame;
} BadUsbModel;

static void bad_usb_draw_callback(Canvas* canvas, void* _model) {
    BadUsbModel* model = _model;

    string_t disp_str;
    string_init_set_str(disp_str, model->file_name);
    elements_string_fit_width(canvas, disp_str, 128 - 2);
    canvas_set_font(canvas, FontSecondary);
    canvas_draw_str(canvas, 2, 8, string_get_cstr(disp_str));
    string_reset(disp_str);

    canvas_draw_icon(canvas, 22, 20, &I_UsbTree_48x22);

    if((model->state.state == BadUsbStateIdle) || (model->state.state == BadUsbStateDone)) {
        elements_button_center(canvas, "Run");
    } else if((model->state.state == BadUsbStateRunning) || (model->state.state == BadUsbStateDelay)) {
        elements_button_center(canvas, "Stop");
    }

    if(model->state.state == BadUsbStateNotConnected) {
        canvas_draw_icon(canvas, 4, 22, &I_Clock_18x18);
        canvas_set_font(canvas, FontPrimary);
        canvas_draw_str_aligned(canvas, 127, 27, AlignRight, AlignBottom, "Connect");
        canvas_draw_str_aligned(canvas, 127, 39, AlignRight, AlignBottom, "to USB");
    } else if(model->state.state == BadUsbStateFileError) {
        canvas_draw_icon(canvas, 4, 22, &I_Error_18x18);
        canvas_set_font(canvas, FontPrimary);
        canvas_draw_str_aligned(canvas, 127, 27, AlignRight, AlignBottom, "File");
        canvas_draw_str_aligned(canvas, 127, 39, AlignRight, AlignBottom, "ERROR");
    } else if(model->state.state == BadUsbStateScriptError) {
        canvas_draw_icon(canvas, 4, 22, &I_Error_18x18);
        canvas_set_font(canvas, FontPrimary);
        canvas_draw_str_aligned(canvas, 127, 33, AlignRight, AlignBottom, "ERROR:");
        canvas_set_font(canvas, FontSecondary);
        string_printf(disp_str, "line %u", model->state.error_line);
        canvas_draw_str_aligned(
            canvas, 127, 46, AlignRight, AlignBottom, string_get_cstr(disp_str));
        string_reset(disp_str);
    } else if(model->state.state == BadUsbStateIdle) {
        canvas_draw_icon(canvas, 4, 22, &I_Smile_18x18);
        canvas_set_font(canvas, FontBigNumbers);
        canvas_draw_str_aligned(canvas, 114, 36, AlignRight, AlignBottom, "0");
        canvas_draw_icon(canvas, 117, 22, &I_Percent_10x14);
    } else if(model->state.state == BadUsbStateRunning) {
        if(model->anim_frame == 0) {
            canvas_draw_icon(canvas, 4, 19, &I_EviSmile1_18x21);
        } else {
            canvas_draw_icon(canvas, 4, 19, &I_EviSmile2_18x21);
        }
        canvas_set_font(canvas, FontBigNumbers);
        string_printf(disp_str, "%u", ((model->state.line_cur - 1) * 100) / model->state.line_nb);
        canvas_draw_str_aligned(
            canvas, 114, 36, AlignRight, AlignBottom, string_get_cstr(disp_str));
        string_reset(disp_str);
        canvas_draw_icon(canvas, 117, 22, &I_Percent_10x14);
    } else if(model->state.state == BadUsbStateDone) {
        canvas_draw_icon(canvas, 4, 19, &I_EviSmile1_18x21);
        canvas_set_font(canvas, FontBigNumbers);
        canvas_draw_str_aligned(canvas, 114, 36, AlignRight, AlignBottom, "100");
        string_reset(disp_str);
        canvas_draw_icon(canvas, 117, 22, &I_Percent_10x14);
    } else if(model->state.state == BadUsbStateDelay) {
        if(model->anim_frame == 0) {
            canvas_draw_icon(canvas, 4, 19, &I_EviWaiting1_18x21);
        } else {
            canvas_draw_icon(canvas, 4, 19, &I_EviWaiting2_18x21);
        }
        canvas_set_font(canvas, FontBigNumbers);
        string_printf(disp_str, "%u", ((model->state.line_cur - 1) * 100) / model->state.line_nb);
        canvas_draw_str_aligned(
            canvas, 114, 36, AlignRight, AlignBottom, string_get_cstr(disp_str));
        string_reset(disp_str);
        canvas_draw_icon(canvas, 117, 22, &I_Percent_10x14);
        canvas_set_font(canvas, FontSecondary);
        string_printf(disp_str, "delay %us", model->state.delay_remain);
        canvas_draw_str_aligned(
            canvas, 127, 46, AlignRight, AlignBottom, string_get_cstr(disp_str));
        string_reset(disp_str);
    } else {
        canvas_draw_icon(canvas, 4, 22, &I_Clock_18x18);
    }

    string_clear(disp_str);
}

static bool bad_usb_input_callback(InputEvent* event, void* context) {
    furi_assert(context);
    BadUsb* bad_usb = context;
    bool consumed = false;

    if(event->type == InputTypeShort) {
        if(event->key == InputKeyOk) {
            consumed = true;
            furi_assert(bad_usb->callback);
            bad_usb->callback(InputTypeShort, bad_usb->context);
        }
    }

    return consumed;
}

BadUsb* bad_usb_alloc() {
    BadUsb* bad_usb = furi_alloc(sizeof(BadUsb));

    bad_usb->view = view_alloc();
    view_allocate_model(bad_usb->view, ViewModelTypeLocking, sizeof(BadUsbModel));
    view_set_context(bad_usb->view, bad_usb);
    view_set_draw_callback(bad_usb->view, bad_usb_draw_callback);
    view_set_input_callback(bad_usb->view, bad_usb_input_callback);

    return bad_usb;
}

void bad_usb_free(BadUsb* bad_usb) {
    furi_assert(bad_usb);
    view_free(bad_usb->view);
    free(bad_usb);
}

View* bad_usb_get_view(BadUsb* bad_usb) {
    furi_assert(bad_usb);
    return bad_usb->view;
}

void bad_usb_set_ok_callback(BadUsb* bad_usb, BadUsbOkCallback callback, void* context) {
    furi_assert(bad_usb);
    furi_assert(callback);
    with_view_model(
        bad_usb->view, (BadUsbModel * model) {
            bad_usb->callback = callback;
            bad_usb->context = context;
            return true;
        });
}

void bad_usb_set_file_name(BadUsb* bad_usb, char* name) {
    furi_assert(name);
    with_view_model(
        bad_usb->view, (BadUsbModel * model) {
            model->file_name = name;
            return true;
        });
}

void bad_usb_set_state(BadUsb* bad_usb, BadUsbState* st) {
    furi_assert(st);
    with_view_model(
        bad_usb->view, (BadUsbModel * model) {
            memcpy(&(model->state), st, sizeof(BadUsbState));
            model->anim_frame ^= 1;
            return true;
        });
}