#include "e.h"

#define SMART_NAME     "e_slidecore"
#define API_ENTRY      E_Smart_Data * sd; sd = evas_object_smart_data_get(obj); if ((!obj) || (!sd) || (evas_object_type_get(obj) && strcmp(evas_object_type_get(obj), SMART_NAME)))
#define INTERNAL_ENTRY E_Smart_Data * sd; sd = evas_object_smart_data_get(obj); if (!sd) return;
typedef struct _E_Smart_Data E_Smart_Data;
typedef struct _E_Smart_Item E_Smart_Item;

struct _E_Smart_Data
{
   Evas_Coord      x, y, w, h;

   Evas_Object    *smart_obj;
   Evas_Object    *event_obj;
   Evas_Object    *o1, *o2;
   Eina_List      *items;
   double          slide_time, slide_start;
   Ecore_Animator *slide_animator;
   Evas_Coord      dist, pos, slide_pos, slide_start_pos;
   int             p1, p2, pn;
   unsigned char   down E_BITFIELD;
};

struct _E_Smart_Item
{
   const char *label;
   const char *icon;
   void        (*func)(void *data);
   void       *data;
};

/* local subsystem functions */
static Eina_Bool _e_smart_cb_slide_animator(void *data);
static void      _e_smart_event_mouse_down(void *data, Evas *e, Evas_Object *obj, void *event_info);
static void      _e_smart_event_mouse_up(void *data, Evas *e, Evas_Object *obj, void *event_info);
static void      _e_smart_event_mouse_move(void *data, Evas *e, Evas_Object *obj, void *event_info);
static void      _e_smart_reconfigure(E_Smart_Data *sd);
static void      _e_smart_add(Evas_Object *obj);
static void      _e_smart_del(Evas_Object *obj);
static void      _e_smart_move(Evas_Object *obj, Evas_Coord x, Evas_Coord y);
static void      _e_smart_resize(Evas_Object *obj, Evas_Coord w, Evas_Coord h);
static void      _e_smart_show(Evas_Object *obj);
static void      _e_smart_hide(Evas_Object *obj);
static void      _e_smart_color_set(Evas_Object *obj, int r, int g, int b, int a);
static void      _e_smart_clip_set(Evas_Object *obj, Evas_Object *clip);
static void      _e_smart_clip_unset(Evas_Object *obj);
static void      _e_smart_init(void);

/* local subsystem globals */
static Evas_Smart *_e_smart = NULL;

/* externally accessible functions */
E_API Evas_Object *
e_slidecore_add(Evas *evas)
{
   _e_smart_init();
   return evas_object_smart_add(evas, _e_smart);
}

E_API void
e_slidecore_item_distance_set(Evas_Object *obj, Evas_Coord dist)
{
   API_ENTRY return;
   if (dist < 1) dist = 1;
   sd->dist = dist;
   _e_smart_reconfigure(sd);
}

E_API void
e_slidecore_item_add(Evas_Object *obj, const char *label, const char *icon, void (*func)(void *data), void *data)
{
   E_Smart_Item *it;

   API_ENTRY return;
   it = calloc(1, sizeof(E_Smart_Item));
   if (!it) return;
   if (label) it->label = eina_stringshare_add(label);
   if (icon) it->icon = eina_stringshare_add(icon);
   it->func = func;
   it->data = data;
   sd->items = eina_list_append(sd->items, it);
   _e_smart_reconfigure(sd);
}

E_API void
e_slidecore_jump(Evas_Object *obj, int num)
{
   API_ENTRY return;

   sd->slide_start_pos = sd->pos;
   sd->slide_pos = num * sd->dist;
   if (!sd->slide_animator)
     sd->slide_animator = ecore_animator_add(_e_smart_cb_slide_animator,
                                             sd);
   sd->slide_start = ecore_loop_time_get();
}

E_API void
e_slidecore_slide_time_set(Evas_Object *obj, double t)
{
   API_ENTRY return;
   sd->slide_time = t;
}

/* local subsystem functions */

static Eina_Bool
_e_smart_cb_slide_animator(void *data)
{
   E_Smart_Data *sd;
   double t;

   sd = data;
   t = (ecore_loop_time_get() - sd->slide_start) / sd->slide_time;
   if (t > 1.0) t = 1.0;
   t = 1.0 - t;
   t = 1.0 - (t * t * t * t); /* more t's - more curve */
   if (t > 1.0) t = 1.0;
   sd->pos = sd->slide_start_pos + (t * (sd->slide_pos - sd->slide_start_pos));
   _e_smart_reconfigure(sd);

   if (t >= 1.0)
     {
        sd->slide_animator = NULL;
        return ECORE_CALLBACK_CANCEL;
     }
   return ECORE_CALLBACK_RENEW;
}

static void
_e_smart_event_mouse_down(void *data, Evas *e EINA_UNUSED, Evas_Object *obj EINA_UNUSED, void *event_info)
{
   Evas_Event_Mouse_Down *ev;
   E_Smart_Data *sd;

   sd = data;
   ev = event_info;
   if (ev->button == 1) sd->down = 1;
   if (sd->slide_animator)
     {
        ecore_animator_del(sd->slide_animator);
        sd->slide_animator = NULL;
     }
}

static void
_e_smart_event_mouse_up(void *data, Evas *e EINA_UNUSED, Evas_Object *obj EINA_UNUSED, void *event_info)
{
   Evas_Event_Mouse_Down *ev;
   E_Smart_Data *sd;

   sd = data;
   ev = event_info;
   if (ev->button == 1)
     {
        int gop = 0;

        sd->down = 0;

        gop = sd->pos - (sd->p1 * sd->dist);
        gop = ((gop / sd->dist) * sd->dist) + (sd->p1 * sd->dist);
        sd->slide_start_pos = sd->pos;
        sd->slide_pos = gop;
        if (!sd->slide_animator)
          sd->slide_animator = ecore_animator_add(_e_smart_cb_slide_animator,
                                                  sd);
        sd->slide_start = ecore_loop_time_get();
     }
}

static void
_e_smart_event_mouse_move(void *data, Evas *e EINA_UNUSED, Evas_Object *obj EINA_UNUSED, void *event_info)
{
   Evas_Event_Mouse_Move *ev;
   E_Smart_Data *sd;

   sd = data;
   ev = event_info;
   if (!sd->down) return;
   sd->pos += ev->cur.canvas.x - ev->prev.canvas.x;
   _e_smart_reconfigure(sd);
}

static void
_e_smart_reconfigure(E_Smart_Data *sd)
{
   Evas_Coord dp, pos;
   int p1, p2, at, pl1, pl2, n;
   int r, g, b, a;

   evas_object_move(sd->event_obj, sd->x, sd->y);
   evas_object_resize(sd->event_obj, sd->w, sd->h);

   pos = sd->pos;
   n = eina_list_count(sd->items);
   while (pos < 0)
     pos += (sd->dist * n);
   p1 = pos / sd->dist;
   p2 = (pos + sd->dist) / sd->dist;
   dp = pos - (p1 * sd->dist);
   at = (dp * 255) / (sd->dist - 1);

   while ((p1 < 0) || (p2 < 0))
     {
        p1 += n;
        p2 += n;
        at += 255;
        dp += sd->dist;
     }
   if ((sd->p1 != p1) || (sd->p2 != p2) || (sd->pn != n))
     {
        E_Smart_Item *it1, *it2;

        sd->pn = n;
        if (n > 0)
          {
             sd->p1 = p1;
             sd->p2 = p2;
             if (sd->o1) evas_object_del(sd->o1);
             if (sd->o2) evas_object_del(sd->o2);
             sd->o1 = NULL;
             sd->o2 = NULL;
             pl1 = sd->p1 % n;
             pl2 = sd->p2 % n;
             it1 = eina_list_nth(sd->items, pl1);
             it2 = eina_list_nth(sd->items, pl2);
             if (it1 && it2)
               {
                  sd->o1 = e_util_icon_theme_icon_add(it1->icon, 512,
                                                      evas_object_evas_get(sd->smart_obj));
                  if (sd->o1)
                    {
                       e_icon_scale_size_set(sd->o1, 0);
                       evas_object_stack_below(sd->o1, sd->event_obj);
                       evas_object_pass_events_set(sd->o1, 1);
                       evas_object_smart_member_add(sd->o1, sd->smart_obj);
                       e_icon_fill_inside_set(sd->o1, 0);
                       evas_object_clip_set(sd->o1, evas_object_clip_get(sd->smart_obj));
                       evas_object_show(sd->o1);
                    }
                  sd->o2 = e_util_icon_theme_icon_add(it2->icon, 512,
                                                      evas_object_evas_get(sd->smart_obj));
                  if (sd->o2)
                    {
                       e_icon_scale_size_set(sd->o2, 0);
                       evas_object_stack_below(sd->o2, sd->event_obj);
                       evas_object_pass_events_set(sd->o2, 1);
                       evas_object_smart_member_add(sd->o2, sd->smart_obj);
                       e_icon_fill_inside_set(sd->o2, 0);
                       evas_object_clip_set(sd->o2, evas_object_clip_get(sd->smart_obj));
                       evas_object_show(sd->o2);
                    }
                  if (at < 128)
                    {
                       if (it1->func) it1->func(it1->data);
                    }
                  else
                    {
                       if (it2->func) it2->func(it2->data);
                    }
               }
          }
     }
   evas_object_color_get(sd->smart_obj, &r, &g, &b, &a);

   evas_object_move(sd->o1, sd->x - sd->dist + dp, sd->y);
//   printf("SZ: %ix%i\n", sd->w + sd->dist + sd->dist, sd->h);
   evas_object_resize(sd->o1, sd->w + sd->dist + sd->dist, sd->h);
   evas_object_color_set(sd->o1, r, g, b, a);

   evas_object_move(sd->o2, sd->x - sd->dist - sd->dist + dp, sd->y);
   evas_object_resize(sd->o2, sd->w + sd->dist + sd->dist, sd->h);
   evas_object_color_set(sd->o2, (r * at) / 255, (g * at) / 255, (b * at) / 255, (a * at) / 255);
}

static void
_e_smart_add(Evas_Object *obj)
{
   E_Smart_Data *sd;
   Evas_Object *o;

   sd = calloc(1, sizeof(E_Smart_Data));
   if (!sd) return;
   evas_object_smart_data_set(obj, sd);

   sd->smart_obj = obj;
   sd->x = 0;
   sd->y = 0;
   sd->w = 0;
   sd->h = 0;

   evas_object_propagate_events_set(obj, 0);

   sd->dist = 48;
   sd->pos = 0;
   sd->p1 = -1;
   sd->p2 = -1;

   o = evas_object_rectangle_add(evas_object_evas_get(obj));
   sd->event_obj = o;
   evas_object_color_set(o, 0, 0, 0, 0);
   evas_object_event_callback_add(o, EVAS_CALLBACK_MOUSE_DOWN, _e_smart_event_mouse_down, sd);
   evas_object_event_callback_add(o, EVAS_CALLBACK_MOUSE_UP, _e_smart_event_mouse_up, sd);
   evas_object_event_callback_add(o, EVAS_CALLBACK_MOUSE_MOVE, _e_smart_event_mouse_move, sd);
   evas_object_smart_member_add(o, obj);
   evas_object_repeat_events_set(o, 1);

   sd->slide_time = 0.5;
}

static void
_e_smart_del(Evas_Object *obj)
{
   E_Smart_Item *it;

   INTERNAL_ENTRY;
   if (sd->slide_animator) ecore_animator_del(sd->slide_animator);
   EINA_LIST_FREE(sd->items, it)
     {
        if (it->label) eina_stringshare_del(it->label);
        if (it->icon) eina_stringshare_del(it->icon);
        free(it);
     }
   evas_object_del(sd->event_obj);
   if (sd->o1) evas_object_del(sd->o1);
   if (sd->o2) evas_object_del(sd->o2);
   free(sd);
}

static void
_e_smart_move(Evas_Object *obj, Evas_Coord x, Evas_Coord y)
{
   INTERNAL_ENTRY;
   sd->x = x;
   sd->y = y;
   _e_smart_reconfigure(sd);
}

static void
_e_smart_resize(Evas_Object *obj, Evas_Coord w, Evas_Coord h)
{
   INTERNAL_ENTRY;
   sd->w = w;
   sd->h = h;
   _e_smart_reconfigure(sd);
}

static void
_e_smart_show(Evas_Object *obj)
{
   INTERNAL_ENTRY;
   evas_object_show(sd->event_obj);
}

static void
_e_smart_hide(Evas_Object *obj)
{
   INTERNAL_ENTRY;
   evas_object_hide(sd->event_obj);
}

static void
_e_smart_color_set(Evas_Object *obj, int r, int g, int b, int a)
{
   INTERNAL_ENTRY;
   if (sd->o1) evas_object_color_set(sd->o1, r, g, b, a);
   if (sd->o2) evas_object_color_set(sd->o2, r, g, b, a);
}

static void
_e_smart_clip_set(Evas_Object *obj, Evas_Object *clip)
{
   INTERNAL_ENTRY;
   evas_object_clip_set(sd->event_obj, clip);
   if (sd->o1) evas_object_clip_set(sd->o1, clip);
   if (sd->o2) evas_object_clip_set(sd->o2, clip);
}

static void
_e_smart_clip_unset(Evas_Object *obj)
{
   INTERNAL_ENTRY;
   evas_object_clip_unset(sd->event_obj);
}

/* never need to touch this */

static void
_e_smart_init(void)
{
   if (_e_smart) return;
   {
      static const Evas_Smart_Class sc =
      {
         SMART_NAME,
         EVAS_SMART_CLASS_VERSION,
         _e_smart_add,
         _e_smart_del,
         _e_smart_move,
         _e_smart_resize,
         _e_smart_show,
         _e_smart_hide,
         _e_smart_color_set,
         _e_smart_clip_set,
         _e_smart_clip_unset,
         NULL,
         NULL,
         NULL,
         NULL,
         NULL,
         NULL,
         NULL
      };
      _e_smart = evas_smart_class_new(&sc);
   }
}