#include <Elementary.h>
#include <Eio.h>
#include "config.h"
#include "common.h"

typedef struct app_s
{
   edit_data *ed;

   Eio_Monitor *edc_monitor;

   Eina_Bool ctrl_pressed : 1;
   Eina_Bool shift_pressed : 1;
} app_data;

int main(int argc, char **argv);

static Eina_Bool
edc_changed_cb(void *data, int type EINA_UNUSED, void *event)
{
   //FIXME: Why does this callback called multiple times?
   Eio_Monitor_Event *ev = event;
   app_data *ad = data;

   if (ev->monitor != ad->edc_monitor) return ECORE_CALLBACK_PASS_ON;

   if (!edit_changed_get(ad->ed)) return ECORE_CALLBACK_DONE;

   if (strcmp(ev->filename, config_edc_path_get()))
     return ECORE_CALLBACK_DONE;
   build_edc();
   edit_changed_set(ad->ed, EINA_FALSE);

   return ECORE_CALLBACK_DONE;
}

static Eina_Bool
edc_default_setup()
{
   newfile_default_set();
   build_edc();

   return EINA_TRUE;
}

static Eina_Bool
main_key_up_cb(void *data, int type EINA_UNUSED, void *ev)
{
   Ecore_Event_Key *event = ev;
   app_data *ad = data;

   if (!strcmp("Control_L", event->key))
     {
        edit_editable_set(ad->ed, EINA_TRUE);
        ad->ctrl_pressed = EINA_FALSE;
     }
   else if (!strcmp("Shift_L", event->key))
     ad->shift_pressed = EINA_FALSE;

   return ECORE_CALLBACK_PASS_ON;
}

static void
auto_indentation_toggle()
{
   Eina_Bool toggle = !config_auto_indent_get();
   if (toggle) stats_info_msg_update("Auto Indentation Enabled.");
   else stats_info_msg_update("Auto Indentation Disabled.");
   config_auto_indent_set(toggle);
}

static Eina_Bool
template_insert(app_data *ad, const char *key)
{
   Edje_Part_Type type;

   if (!strcmp(key, "a") || !strcmp(key, "A"))
     type = EDJE_PART_TYPE_TABLE;
   else if (!strcmp(key, "b") || !strcmp(key, "B"))
     type = EDJE_PART_TYPE_TEXTBLOCK;
   else if (!strcmp(key, "e") || !strcmp(key, "E"))
     type = EDJE_PART_TYPE_EXTERNAL;
   else if (!strcmp(key, "g") || !strcmp(key, "G"))
     type = EDJE_PART_TYPE_GRADIENT;
   else if (!strcmp(key, "i") || !strcmp(key, "I"))
     type = EDJE_PART_TYPE_IMAGE;
   else if (!strcmp(key, "o") || !strcmp(key, "O"))
     type = EDJE_PART_TYPE_GROUP;
   else if (!strcmp(key, "p") || !strcmp(key, "P"))
     type = EDJE_PART_TYPE_PROXY;
   else if (!strcmp(key, "r") || !strcmp(key, "R"))
     type = EDJE_PART_TYPE_RECTANGLE;
   else if (!strcmp(key, "t") || !strcmp(key, "T"))
     type = EDJE_PART_TYPE_TEXT;
   else if (!strcmp(key, "s") || !strcmp(key, "S"))
     type = EDJE_PART_TYPE_SPACER;
   else if (!strcmp(key, "w") || !strcmp(key, "W"))
     type = EDJE_PART_TYPE_SWALLOW;
   else if (!strcmp(key, "x") || !strcmp(key, "X"))
     type = EDJE_PART_TYPE_BOX;
   else
     type = EDJE_PART_TYPE_NONE;

   edit_template_part_insert(ad->ed, type);

   return ECORE_CALLBACK_DONE;
}

static Eina_Bool
ctrl_func(app_data *ad, const char *key)
{
   //Save
   if (!strcmp(key, "s") || !strcmp(key, "S"))
     {
        edit_save(ad->ed);
        return ECORE_CALLBACK_DONE;
     }
  //Delete Line
   if (!strcmp(key, "d") || !strcmp(key, "D"))
     {
        edit_line_delete(ad->ed);
        return ECORE_CALLBACK_DONE;
     }
   //Find/Replace
   if (!strcmp(key, "f") || !strcmp(key, "F"))
     {
        search_open(ad->ed);
        return ECORE_CALLBACK_DONE;
     }
   //Goto Line
   if (!strcmp(key, "l") || !strcmp(key, "L"))
     {
        goto_open(ad->ed);
        return ECORE_CALLBACK_DONE;
     }
   //Part Highlight
   if (!strcmp(key, "h") || !strcmp(key, "h"))
     {
       config_part_highlight_set(!config_part_highlight_get());
       edit_part_highlight_toggle(ad->ed, EINA_TRUE);
        return ECORE_CALLBACK_DONE;
     }
   //Swallow Dummy Object
   if (!strcmp(key, "w") || !strcmp(key, "W"))
     {
        config_dummy_swallow_set(!config_dummy_swallow_get());
        view_dummy_toggle(VIEW_DATA, EINA_TRUE);
        return ECORE_CALLBACK_DONE;
     }
   //Template Code
   if (!strcmp(key, "t") || !strcmp(key, "T"))
     {
        edit_template_insert(ad->ed);
        return ECORE_CALLBACK_DONE;
     }
   //Full Edit View
   if (!strcmp(key, "comma"))
     {
        base_full_view_left();
        return ECORE_CALLBACK_DONE;
     }
   //Full Edje View
   if (!strcmp(key, "period"))
     {
        base_full_view_right();
        return ECORE_CALLBACK_DONE;
     }
   //Auto Indentation
   if (!strcmp(key, "i") || !strcmp(key, "I"))
     {
        auto_indentation_toggle();
        return ECORE_CALLBACK_DONE;
     }
   return ECORE_CALLBACK_PASS_ON;
}

static Eina_Bool
main_key_down_cb(void *data, int type EINA_UNUSED, void *ev)
{
   Ecore_Event_Key *event = ev;
   app_data *ad = data;

   //Shift Key
   if (!strcmp("Shift_L", event->key))
     {
        ad->shift_pressed = EINA_TRUE;
        return ECORE_CALLBACK_DONE;
     }

   if (ad->ctrl_pressed)
     {
        if (ad->shift_pressed) return template_insert(ad, event->key);
        else return ctrl_func(ad, event->key);
     }

   //Main Menu
   if (!strcmp(event->key, "Escape"))
     {
        if (search_is_opened() || goto_is_opened())
          {
             goto_close();
             search_close();
             edit_focus_set(ad->ed);
             return ECORE_CALLBACK_DONE;
          }
        menu_toggle();
        return ECORE_CALLBACK_DONE;
     }

   if (menu_open_depth() > 0) return ECORE_CALLBACK_PASS_ON;

   //Control Key
   if (!strcmp("Control_L", event->key))
     {
        ad->ctrl_pressed = EINA_TRUE;
        return ECORE_CALLBACK_PASS_ON;
     }
   //README
   if (!strcmp(event->key, "F1"))
     {
        menu_about();
        return ECORE_CALLBACK_DONE;
     }
   //New
   if (!strcmp(event->key, "F2"))
     {
        menu_edc_new();
        return ECORE_CALLBACK_DONE;
     }
   //Save
   if (!strcmp(event->key, "F3"))
     {
        menu_edc_save();
        return ECORE_CALLBACK_DONE;
     }
   //Load
   if (!strcmp(event->key, "F4"))
     {
        menu_edc_load();
        return ECORE_CALLBACK_DONE;
     }
   //Line Number
   if (!strcmp(event->key, "F5"))
     {
        config_linenumber_set(!config_linenumber_get());
        edit_line_number_toggle(ad->ed);
        return ECORE_CALLBACK_DONE;
     }
   //Statusbar
   if (!strcmp(event->key, "F10"))
     {
        base_statusbar_toggle(EINA_TRUE);
        return ECORE_CALLBACK_DONE;
     }
   //Tools
   if (!strcmp(event->key, "F11"))
     {
        base_tools_toggle(EINA_TRUE);
        return ECORE_CALLBACK_DONE;
     }
   //Setting
   if (!strcmp(event->key, "F12"))
     {
        menu_setting();
        return ECORE_CALLBACK_DONE;
     }

   return ECORE_CALLBACK_PASS_ON;
}

static Eina_Bool
main_mouse_wheel_cb(void *data, int type EINA_UNUSED, void *ev)
{
   Ecore_Event_Mouse_Wheel *event = ev;
   app_data *ad = data;
   Evas_Coord x, y, w, h;

   if (!ad->ctrl_pressed) return ECORE_CALLBACK_PASS_ON;

   //View Scale
   view_data *vd = edj_mgr_view_get(NULL);
   Evas_Object *view = view_obj_get(vd);
   evas_object_geometry_get(view, &x, &y, &w, &h);

   if ((event->x >= x) && (event->x <= (x + w)) &&
       (event->y >= y) && (event->y <= (y + h)))
     {
        double scale = config_view_scale_get();

        if (event->z < 0) scale += 0.1;
        else scale -= 0.1;

        config_view_scale_set(scale);
        scale = config_view_scale_get();
        view_scale_set(vd, scale);

        char buf[256];
        snprintf(buf, sizeof(buf), "View Scale: %2.2fx", scale);
        stats_info_msg_update(buf);

        return ECORE_CALLBACK_PASS_ON;
     }

   //Font Size
   Evas_Object *editor = edit_obj_get(ad->ed);
   evas_object_geometry_get(editor, &x, &y, &w, &h);

   if ((event->x >= x) && (event->x <= (x + w)) &&
       (event->y >= y) && (event->y <= (y + h)))
     {
        if (event->z < 0)
          {
             config_font_size_set(config_font_size_get() + 0.1f);
             edit_font_size_update(ad->ed, EINA_TRUE, EINA_TRUE);
          }
        else
          {
             config_font_size_set(config_font_size_get() - 0.1f);
             edit_font_size_update(ad->ed, EINA_TRUE, EINA_TRUE);
          }

        return ECORE_CALLBACK_PASS_ON;
     }

   return ECORE_CALLBACK_PASS_ON;
}

static void
edc_view_set(Eina_Stringshare *group)
{
   view_data *vd = edj_mgr_view_get(group);
   if (vd) edj_mgr_view_switch_to(vd);
   else vd = edj_mgr_view_new(group);

   if (!vd) return;

   if (group) stats_edc_group_update(group);
}

static void
view_sync_cb(void *data EINA_UNUSED, Eina_Stringshare *part_name,
             Eina_Stringshare *group_name)
{
   if (stats_group_name_get() != group_name)
     edc_view_set(group_name);
   view_part_highlight_set(VIEW_DATA, part_name);
}

static void
edc_edit_set(app_data *ad)
{
   edit_data *ed = edit_init(base_layout_get());
   edit_edc_read(ed, config_edc_path_get());
   base_right_view_set(edit_obj_get(ed));
   edit_view_sync_cb_set(ed, view_sync_cb, ad);
   ad->ed = ed;
}

static void
statusbar_set()
{
   Evas_Object *obj = stats_init(base_layout_get());
   elm_object_part_content_set(base_layout_get(), "elm.swallow.statusbar",
                              obj);
   base_statusbar_toggle(EINA_FALSE);
}

static void
config_update_cb(void *data)
{
   app_data *ad = data;
   build_cmd_set();
   edit_line_number_toggle(ad->ed);
   edit_font_size_update(ad->ed, EINA_FALSE, EINA_TRUE);

   base_tools_toggle(EINA_FALSE);
   base_statusbar_toggle(EINA_FALSE);
   edit_part_highlight_toggle(ad->ed, EINA_FALSE);
   view_dummy_toggle(VIEW_DATA, EINA_FALSE);

   //previous build was failed, Need to rebuild then reload the edj.
   if (edj_mgr_reload_need_get())
     {
        build_edc();
        edit_changed_set(ad->ed, EINA_FALSE);
        edj_mgr_clear();
        edc_view_set(stats_group_name_get());
        eio_monitor_del(ad->edc_monitor);
        ad->edc_monitor = eio_monitor_add(config_edc_path_get());
        if (!ad->edc_monitor) EINA_LOG_ERR("Failed to add Eio_Monitor");
     }
   //If the edc is reloaded, then rebuild it!
   else if (edit_changed_get(ad->ed))
     {
        edit_changed_set(ad->ed, EINA_FALSE);
     }

   view_scale_set(edj_mgr_view_get(NULL), config_view_scale_get());
}

static void
args_dispatch(int argc, char **argv, char *edc_path, char *img_path,
              char *snd_path, char *fnt_path, char *data_path)
{
   Eina_Bool default_edc = EINA_TRUE;

   //No arguments. set defaults
   if (argc == 1) goto defaults;

   //Help
   if ((argc >=2 ) && !strcmp(argv[1], "--help"))
     {
        fprintf(stdout, "Usage: enventor [input file] [-id image path] [-sd sound path] [-fd font path] [-dd data path]\n");
        exit(0);
     }

   //edc path
   if ((argc >= 2) && strstr(argv[1], ".edc"))
     {
        sprintf(edc_path, "%s", argv[1]);
        default_edc = EINA_FALSE;
     }
   else goto defaults;

   //edc image path
   int cur_arg = 2;

   while (cur_arg < argc)
     {
        if (argc > (cur_arg + 1))
          {
             if (!strcmp("-id", argv[cur_arg]))
               sprintf(img_path, "%s", argv[cur_arg + 1]);
             else if (!strcmp("-sd", argv[cur_arg]))
               sprintf(snd_path, "%s", argv[cur_arg + 1]);
             else if (!strcmp("-fd", argv[cur_arg]))
               sprintf(fnt_path, "%s", argv[cur_arg + 1]);
             else if (!strcmp("-dd", argv[cur_arg]))
               sprintf(data_path, "%s", argv[cur_arg + 1]);
          }
        cur_arg += 2;
     }

defaults:
   if (default_edc) sprintf(edc_path, "%s", DEFAULT_EDC_PATH);
}

static void
config_data_set(app_data *ad, int argc, char **argv)
{
   char edc_path[PATH_MAX] = { 0, };
   char img_path[PATH_MAX] = { 0, };
   char snd_path[PATH_MAX] = { 0, };
   char fnt_path[PATH_MAX] = { 0, };
   char data_path[PATH_MAX] = { 0, };

   args_dispatch(argc, argv, edc_path, img_path, snd_path, fnt_path, data_path);
   config_init(edc_path, img_path, snd_path, fnt_path, data_path);
   config_update_cb_set(config_update_cb, ad);
}

static void
elm_setup()
{
   elm_need_efreet();
   elm_config_profile_set("standard");

   /* Recover the scale & theme since it will be reset by
      elm_config_profile_set() */
   elm_theme_set(NULL, "default");
   char *scale = getenv("ELM_SCALE");
   if (scale) elm_config_scale_set(atof(scale));

   /* Recover the current engine since it will be reset by
      elm_config_profiel_set() */
   char *engine = getenv("ELM_ENGINE");
   if (engine && !strncmp(engine, "gl", strlen("gl")))
     elm_config_preferred_engine_set("opengl_x11");

   elm_config_focus_highlight_clip_disabled_set(EINA_FALSE);
   elm_config_scroll_bounce_enabled_set(EINA_FALSE);
   elm_policy_set(ELM_POLICY_QUIT, ELM_POLICY_QUIT_LAST_WINDOW_CLOSED);
   elm_app_compile_bin_dir_set(PACKAGE_BIN_DIR);
   elm_app_compile_data_dir_set(PACKAGE_DATA_DIR);
   elm_app_compile_lib_dir_set(PACKAGE_LIB_DIR);
   elm_app_info_set(main, "enventor",
                    "images/logo.png");

   snprintf(EDJE_PATH, sizeof(EDJE_PATH), "%s/themes/enventor.edj",
            elm_app_data_dir_get());
   elm_theme_extension_add(NULL, EDJE_PATH);
}

static void
edj_mgr_set()
{
   edj_mgr_init(base_layout_get());
   base_left_view_set(edj_mgr_obj_get());
}

static void
tools_set(edit_data *ed)
{
   Evas_Object *tools = tools_create(base_layout_get(), ed);
   base_tools_set(tools);
}

static Eina_Bool
init(app_data *ad, int argc, char **argv)
{
   elm_init(argc, argv);

   ecore_event_handler_add(ECORE_EVENT_KEY_DOWN, main_key_down_cb, ad);
   ecore_event_handler_add(ECORE_EVENT_KEY_UP, main_key_up_cb, ad);
   ecore_event_handler_add(ECORE_EVENT_MOUSE_WHEEL, main_mouse_wheel_cb, ad);

   elm_setup();

   config_data_set(ad, argc, argv);

   if (!build_init()) return EINA_FALSE;
   if (!edc_default_setup()) return EINA_FALSE;
   if (!base_gui_init()) return EINA_FALSE;

   edj_mgr_set();
   statusbar_set();
   edc_edit_set(ad);
   edc_view_set(stats_group_name_get());
   menu_init(ad->ed);
   tools_set(ad->ed);

   base_gui_show();

   ad->edc_monitor = eio_monitor_add(config_edc_path_get());
   if (!ad->edc_monitor) EINA_LOG_ERR("Failed to add Eio_Monitor");

   ecore_event_handler_add(EIO_MONITOR_FILE_MODIFIED, edc_changed_cb, ad);

   return EINA_TRUE;
}

static void
term(app_data *ad)
{
   build_term();
   menu_term();
   edit_term(ad->ed);
   edj_mgr_term();
   stats_term();
   base_gui_term();
   config_term();

   elm_shutdown();
}

int
main(int argc, char **argv)
{
   app_data ad;
   memset(&ad, 0x00, sizeof(ad));

   if (!init(&ad, argc, argv))
     {
        term(&ad);
        return 0;
     }

   elm_run();

   term(&ad);

   return 0;
}