#include "e_mod_main.h"

/* TODO cleanup !!! */

typedef struct _View View;
typedef struct _Smart_Data Smart_Data;
typedef struct _Item Item;

#define SIZE_LIST 28
#define SIZE_DETAIL 36


struct _View
{
  Evry_View view;
  Tab_View *tabs;

  const Evry_State *state;
  const Evry_Plugin *plugin;

  Evas *evas;
  Evas_Object *bg, *sframe, *span;
  int          iw, ih;
  int          zoom;
  int         mode;
  int         mode_prev;

  Eina_List *handlers;
};

/* smart object based on wallpaper module */
struct _Smart_Data
{
  View        *view;
  Eina_List   *items;
  Item        *cur_item;
  Ecore_Idle_Enterer *idle_enter;
  Ecore_Idle_Enterer *thumb_idler;
  Evas_Coord   x, y, w, h;
  Evas_Coord   cx, cy, cw, ch;
  Evas_Coord   sx, sy;
  Eina_Bool    update : 1;
  Eina_List   *queue;

  Evas_Object *selector;

  double last_select;
  double sel_pos_to;
  double sel_pos;
  double scroll_align;
  double scroll_align_to;
  Ecore_Animator *animator;

  int slide_offset;
  double slide;
  double slide_to;

  int    sliding;
  int    clearing;
};

struct _Item
{
  Evry_Item *item;
  Evas_Object *obj;
  Evas_Coord x, y, w, h;
  Evas_Object *frame, *image, *thumb;
  Eina_Bool selected : 1;
  Eina_Bool have_thumb : 1;
  Eina_Bool do_thumb : 1;
  Eina_Bool get_thumb : 1;
  Eina_Bool showing : 1;
  Eina_Bool visible : 1;
  Eina_Bool changed : 1;
  int pos;
};

static View *view = NULL;

static void _view_clear(Evry_View *view, int slide);


static void
_thumb_gen(void *data, Evas_Object *obj, void *event_info)
{
   Evas_Coord w, h;
   Item *it = data;

   if (!it->frame) return;

   e_icon_size_get(it->thumb, &w, &h);
   edje_extern_object_aspect_set(it->thumb, EDJE_ASPECT_CONTROL_BOTH, w, h);
   edje_object_part_swallow(it->frame, "e.swallow.thumb", it->thumb);
   evas_object_show(it->thumb);
   it->have_thumb = EINA_TRUE;
   it->do_thumb = EINA_FALSE;

   if (it->image) evas_object_del(it->image);
   it->image = NULL;

}

static int
_check_item(const Evry_Item *it)
{
   if (it->type != EVRY_TYPE_FILE) return 0;

   GET_FILE(file, it);

   if (!file->path || !file->mime) return 0;

   if (!strncmp(file->mime, "image/", 6))
     return 1;

   return 0;
}

static int
_thumb_idler(void *data)
{
   Smart_Data *sd = data;
   Eina_List *l, *ll;
   Item *it;

   EINA_LIST_FOREACH_SAFE(sd->queue, l, ll, it)
     {
	if (!it->image && !it->have_thumb)
	  {
	     it->image = evry_util_icon_get(it->item, sd->view->evas);

	     if (it->image)
	       {
		  edje_object_part_swallow(it->frame, "e.swallow.icon", it->image);
		  evas_object_show(it->image);
	       }
	     else it->have_thumb = EINA_TRUE;

	     /* dirbrowse fetches the mimetype for icon_get */
	     if (!it->get_thumb && _check_item(it->item))
	       it->get_thumb = EINA_TRUE;
	  }

	if (it->get_thumb && !it->thumb && !(it->have_thumb || it->do_thumb))
	  {
	     it->thumb = e_thumb_icon_add(sd->view->evas);

	     GET_FILE(file, it->item);

	     evas_object_smart_callback_add(it->thumb, "e_thumb_gen", _thumb_gen, it);

	     e_thumb_icon_file_set(it->thumb, file->path, NULL);
	     e_thumb_icon_size_set(it->thumb, it->w, it->h);
	     e_thumb_icon_begin(it->thumb);
	     it->do_thumb = EINA_TRUE;
	  }

	sd->queue = eina_list_remove_list(sd->queue, l);
	e_util_wakeup();
	return 1;
     }

   sd->thumb_idler = NULL;

   return 0;
}

static int
_e_smart_reconfigure_do(void *data)
{
   Evas_Object *obj = data;
   Smart_Data *sd = evas_object_smart_data_get(obj);
   Eina_List *l;
   Item *it;
   int iw, redo = 0, changed = 0;
   static int recursion = 0;
   Evas_Coord x, y, xx, yy, ww, hh, mw, mh, ox = 0, oy = 0;
   Evas_Coord aspect_w, aspect_h;

   if (!sd) return 0;
   if (sd->cx > (sd->cw - sd->w)) sd->cx = sd->cw - sd->w;
   if (sd->cy > (sd->ch - sd->h)) sd->cy = sd->ch - sd->h;
   if (sd->cx < 0) sd->cx = 0;
   if (sd->cy < 0) sd->cy = 0;

   aspect_w = sd->w;
   aspect_h = sd->h;

   if (sd->view->mode == VIEW_MODE_LIST)
     {
	iw = sd->w;
	hh = SIZE_LIST;
     }
   else if (sd->view->mode == VIEW_MODE_DETAIL)
     {
	iw = sd->w;
	hh = SIZE_DETAIL;
     }
   else
     {
	if (sd->view->zoom == 0)
	  {
	     int cnt = eina_list_count(sd->items);

	     aspect_w *= 3;
	     aspect_w /= 4;

	     if (cnt < 3)
	       iw = (double)sd->w / 2.5;
	     else if (cnt < 7)
	       iw = sd->w / 3;
	     else
	       iw = sd->w / 4;
	  }
	else if (sd->view->zoom == 1)
	  {
	     aspect_w *= 2;
	     aspect_w /= 3;
	     iw = sd->w / 3;
	  }
	else /* if (sd->zoom == 2) */
	  {
	     iw = sd->w;
	  }
     }

   if (aspect_w <= 0) aspect_w = 1;
   if (aspect_h <= 0) aspect_h = 1;

   x = 0;
   y = 0;
   ww = iw;

   if (sd->view->mode == VIEW_MODE_THUMB)
     hh = (aspect_h * iw) / (aspect_w);

   mw = mh = 0;
   EINA_LIST_FOREACH(sd->items, l, it)
     {
	if (x > (sd->w - ww))
	  {
	     x = 0;
	     y += hh;
	  }

	it->x = x;
	it->y = y;
	it->w = ww;
	it->h = hh;

	if ((x + ww) > mw) mw = x + ww;
	if ((y + hh) > mh) mh = y + hh;
	x += ww;
     }

   if (sd->view->mode == VIEW_MODE_LIST ||
       sd->view->mode == VIEW_MODE_DETAIL)
     mh += sd->h % hh;

   if ((mw != sd->cw) || (mh != sd->ch))
     {
	sd->cw = mw;
	sd->ch = mh;

	if (sd->cx > (sd->cw - sd->w))
	  {
	     sd->cx = sd->cw - sd->w;
	     redo = 1;
	  }
	if (sd->cy > (sd->ch - sd->h))
	  {
	     sd->cy = sd->ch - sd->h;
	     redo = 1;
	  }
	if (sd->cx < 0)
	  {
	     sd->cx = 0;
	     redo = 1;
	  }
	if (sd->cy < 0)
	  {
	     sd->cy = 0;
	     redo = 1;
	  }
	/* if (redo)
   	 *   {
   	 *      recursion = 1;
   	 *      _e_smart_reconfigure_do(obj);
   	 *      recursion = 0;
   	 *   } */
	changed = 1;
     }

   if (sd->view->mode == VIEW_MODE_THUMB)
     {
	if (sd->w > sd->cw) ox = (sd->w - sd->cw) / 2;
	if (sd->h > sd->ch) oy = (sd->h - sd->ch) / 2;

	if (sd->selector)
	  evas_object_hide(sd->selector);
     }
   else
     {
	if (!sd->selector)
	  {
	     sd->selector = edje_object_add(sd->view->evas);
	     e_theme_edje_object_set(sd->selector, "base/theme/widgets",
				     "e/modules/everything/thumbview/item/list");

	     evas_object_smart_member_add(sd->selector, obj);
	     evas_object_clip_set(sd->selector, evas_object_clip_get(obj));
	     edje_object_signal_emit(sd->selector, "e,state,selected", "e");
	  }

	if (sd->cur_item)
	  evas_object_show(sd->selector);
	else
	  evas_object_hide(sd->selector);

	evas_object_resize(sd->selector, ww, hh);
	evas_object_move(sd->selector, sd->x, sd->y + sd->sel_pos);
     }

   EINA_LIST_FOREACH(sd->items, l, it)
     {
	xx = sd->x - sd->cx + it->x + ox;
	yy = sd->y - sd->cy + it->y + oy;

	if (E_INTERSECTS(xx, yy, it->w, it->h, 0, sd->y - (it->h*4),
			 sd->x + sd->w, sd->y + sd->h + it->h*8))
	  {
	     if (!it->visible)
	       {
		  if (!it->frame)
		    {
		       it->frame = edje_object_add(sd->view->evas);
		       if (sd->view->mode == VIEW_MODE_THUMB)
			 {
			    e_theme_edje_object_set(it->frame, "base/theme/widgets",
						    "e/modules/everything/thumbview/item/thumb");
			 }
		       else
			 {
			    e_theme_edje_object_set(it->frame, "base/theme/widgets",
						 "e/modules/everything/thumbview/item/list");

			    if (sd->view->mode == VIEW_MODE_DETAIL)
			      edje_object_signal_emit(it->frame, "e,state,detail,show", "e");
			 }

		       evas_object_smart_member_add(it->frame, obj);
		       evas_object_clip_set(it->frame, evas_object_clip_get(obj));

		       if (it->item->marked)
			 edje_object_signal_emit(it->frame, "e,state,marked", "e");
		    }

		  edje_object_part_text_set(it->frame, "e.text.label", it->item->label);

		  if (sd->view->mode == VIEW_MODE_DETAIL && it->item->detail)
		    edje_object_part_text_set(it->frame, "e.text.detail", it->item->detail);

		  evas_object_show(it->frame);

		  if (it->changed)
		    edje_object_signal_emit(it->frame, "e,action,thumb,show_delayed", "e");
		  else
		    edje_object_signal_emit(it->frame, "e,action,thumb,show", "e");

		  if (it->item->browseable)
		    edje_object_signal_emit(it->frame, "e,state,browseable", "e");

		  it->visible = EINA_TRUE;
	       }

	     /* fixme */
	     if (!eina_list_data_find(sd->queue, it))
	       sd->queue = eina_list_append(sd->queue, it);

	     evas_object_move(it->frame, xx, yy);
	     evas_object_resize(it->frame, it->w, it->h);
	  }
	else if (it->visible)
	  {
	     sd->queue = eina_list_remove(sd->queue, it);
	     if (it->do_thumb) e_thumb_icon_end(it->thumb);
	     if (it->thumb) evas_object_del(it->thumb);
	     if (it->image) evas_object_del(it->image);
	     if (it->frame) evas_object_del(it->frame);

	     it->thumb = NULL;
	     it->image = NULL;
	     it->frame = NULL;

	     it->have_thumb = EINA_FALSE;
	     it->do_thumb = EINA_FALSE;
	     it->visible = EINA_FALSE;
	  }
	it->changed = EINA_FALSE;
     }

   if (changed)
     evas_object_smart_callback_call(obj, "changed", NULL);

   if (!sd->thumb_idler)
     sd->thumb_idler = ecore_idle_enterer_before_add(_thumb_idler, sd);

   sd->update = EINA_TRUE;

   if (recursion == 0)
     sd->idle_enter = NULL;

   return 0;
}

static void
_e_smart_reconfigure(Evas_Object *obj)
{
   Smart_Data *sd = evas_object_smart_data_get(obj);

   if (sd->idle_enter) return;
   sd->idle_enter = ecore_idle_enterer_before_add(_e_smart_reconfigure_do, obj);
}

static void
_e_smart_add(Evas_Object *obj)
{
   Smart_Data *sd = calloc(1, sizeof(Smart_Data));
   if (!sd) return;
   sd->x = sd->y = sd->w = sd->h = 0;
   sd->sx = sd->sy = -1;
   evas_object_smart_data_set(obj, sd);
}

static void
_e_smart_del(Evas_Object *obj)
{
   Smart_Data *sd = evas_object_smart_data_get(obj);
   Item *it;

   if (sd->idle_enter)
     ecore_idle_enterer_del(sd->idle_enter);
   if (sd->thumb_idler)
     ecore_idle_enterer_del(sd->thumb_idler);
   if (sd->animator)
     ecore_animator_del(sd->animator);

   // sd->view is just referenced
   // sd->child_obj is unused
   EINA_LIST_FREE(sd->items, it)
     {
	if (it->do_thumb) e_thumb_icon_end(it->thumb);
	if (it->thumb) evas_object_del(it->thumb);
	if (it->frame) evas_object_del(it->frame);
	if (it->image) evas_object_del(it->image);
	evry_item_free(it->item);
	free(it);
     }
   evas_object_del(sd->selector);
   
   free(sd);
   evas_object_smart_data_set(obj, NULL);
}

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

static void
_e_smart_resize(Evas_Object *obj, Evas_Coord w, Evas_Coord h)
{
   Smart_Data *sd = evas_object_smart_data_get(obj);
   sd->w = w;
   sd->h = h;
   _e_smart_reconfigure(obj);
   evas_object_smart_callback_call(obj, "changed", NULL);
}

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 Evas_Object *
_pan_add(Evas *evas)
{
   static Evas_Smart *smart = NULL;
   static const Evas_Smart_Class sc =
     {
       "wp_pan",
       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
     };
   smart = evas_smart_class_new(&sc);
   return evas_object_smart_add(evas, smart);
}

static void
_pan_set(Evas_Object *obj, Evas_Coord x, Evas_Coord y)
{
   Smart_Data *sd = evas_object_smart_data_get(obj);
   if (x > (sd->cw - sd->w)) x = sd->cw - sd->w;
   if (y > (sd->ch - sd->h)) y = sd->ch - sd->h;
   if (x < 0) x = 0;
   if (y < 0) y = 0;
   if ((sd->cx == x) && (sd->cy == y)) return;
   sd->cx = x;
   sd->cy = y;
   _e_smart_reconfigure(obj);
}

static void
_pan_get(Evas_Object *obj, Evas_Coord *x, Evas_Coord *y)
{
   Smart_Data *sd = evas_object_smart_data_get(obj);
   if (x) *x = sd->cx;
   if (y) *y = sd->cy;
}

static void
_pan_max_get(Evas_Object *obj, Evas_Coord *x, Evas_Coord *y)
{
   Smart_Data *sd = evas_object_smart_data_get(obj);
   if (x)
     {
	if (sd->w < sd->cw) *x = sd->cw - sd->w;
	else *x = 0;
     }
   if (y)
     {
	if (sd->h < sd->ch) *y = sd->ch - sd->h;
	else *y = 0;
     }
}

static void
_pan_child_size_get(Evas_Object *obj, Evas_Coord *w, Evas_Coord *h)
{
   Smart_Data *sd = evas_object_smart_data_get(obj);
   if (w) *w = sd->cw;
   if (h) *h = sd->ch;
}

static void
_pan_view_set(Evas_Object *obj, View *view)
{
   Smart_Data *sd = evas_object_smart_data_get(obj);
   sd->view = view;
}

static Item *
_pan_item_add(Evas_Object *obj, Evry_Item *item)
{
   Smart_Data *sd = evas_object_smart_data_get(obj);
   Item *it;

   it = E_NEW(Item, 1);
   if (!it) return NULL;

   sd->items = eina_list_append(sd->items, it);
   it->obj = obj;
   it->item = item;
   it->changed = EINA_TRUE;

   if (_check_item(item))
     it->get_thumb = EINA_TRUE;

   evry_item_ref(item);

   _e_smart_reconfigure(obj);

   return it;
}

static void
_pan_item_remove(Evas_Object *obj, Item *it)
{
   Smart_Data *sd = evas_object_smart_data_get(obj);

   sd->items = eina_list_remove(sd->items, it);
   if (it->do_thumb) e_thumb_icon_end(it->thumb);
   if (it->thumb) evas_object_del(it->thumb);
   if (it->frame) evas_object_del(it->frame);
   if (it->image) evas_object_del(it->image);

   sd->queue = eina_list_remove(sd->queue, it);

   evry_item_free(it->item);
   E_FREE(it);

   _e_smart_reconfigure(obj);
}

static int
_animator(void *data)
{
   Smart_Data *sd = evas_object_smart_data_get(data);
   double da;
   double spd = ((25.0/ (double)e_config->framerate) /
		 (double) (1 + sd->view->zoom));
   /* if (sd->sliding) spd *= 1.5; */
   if (spd > 0.9) spd = 0.9;

   int wait = 0;

   if (sd->sel_pos != sd->sel_pos_to)
     {
	sd->sel_pos = ((sd->sel_pos * (1.0 - spd)) +
		       (sd->sel_pos_to * spd));

	da = sd->sel_pos - sd->sel_pos_to;
	if (da < 0.0) da = -da;
	if (da < 0.02)
	  sd->sel_pos = sd->sel_pos_to;
	else
	  wait++;

	_e_smart_reconfigure(data);
     }

   if (sd->scroll_align != sd->scroll_align_to)
     {
	sd->scroll_align = ((sd->scroll_align * (1.0 - spd)) +
			    (sd->scroll_align_to * spd));

	da = sd->scroll_align - sd->scroll_align_to;
	if (da < 0.0) da = -da;
	if (da < 0.02)
	  sd->scroll_align = sd->scroll_align_to;
	else
	  wait++;

	e_scrollframe_child_pos_set(sd->view->sframe,
				    0, sd->scroll_align);
     }

   if (sd->sliding)
     {
   	sd->slide = ((sd->slide * (1.0 - spd)) +
		     (sd->slide_to * spd));

   	da = sd->slide - sd->slide_to;
   	if (da < 0.0) da = -da;
   	if (da < 0.02)
   	  {
   	     sd->slide = sd->slide_to;
   	     sd->sliding = 0;
	     if (sd->view->mode == VIEW_MODE_THUMB &&
		 sd->cur_item &&sd->cur_item->frame)
	       edje_object_signal_emit(sd->cur_item->frame,
				       "e,state,selected", "e");


	     if (sd->clearing)
	       {
		  _view_clear(EVRY_VIEW(sd->view), 0);
		  sd->animator = NULL;
		  return 0;
	       }
   	  }
   	else
   	  wait++;

	evas_object_move(sd->view->span, sd->slide, sd->y);
     }

   if (wait) return 1;

   sd->animator = NULL;
   return 0;

}

static void
_pan_item_select(Evas_Object *obj, Item *it, int scroll)
{
   Smart_Data *sd = evas_object_smart_data_get(obj);
   double align = -1;
   int prev = -1;
   int align_to = -1;

   if (sd->cur_item)
     {
	prev = sd->cur_item->y / sd->cur_item->h;
	sd->cur_item->selected = EINA_FALSE;
	if (!sd->cur_item->item->marked)
	  edje_object_signal_emit(sd->cur_item->frame,
				  "e,state,unselected", "e");
     }

   sd->cur_item = NULL;

   if (!it) return;

   sd->update = EINA_FALSE;

   sd->cur_item = it;
   sd->cur_item->selected = EINA_TRUE;

   if (evry_conf->scroll_animate)
     {
   	double now = ecore_time_get();

   	if (now - sd->last_select < 0.1 && sd->sel_pos == sd->sel_pos_to)
	  {
	     sd->scroll_align = sd->scroll_align_to;

	     scroll = 0;
	  }

   	sd->last_select = now;
     }
   else scroll = 0;

   if (sd->view->mode == VIEW_MODE_LIST ||
       sd->view->mode == VIEW_MODE_DETAIL)
     {
	int all  = sd->ch / it->h;
	int rows = (sd->h < sd->ch) ? (sd->h / it->h) : all;
	int cur  = it->y /it->h;
	int dist = rows/2;
	int scroll = (prev > 0 ? cur - prev : 0);

	if (scroll >= 0)
	  {
	     if (cur <= dist || all < rows)
	       {
		  /* step down start */
		  align = 0;
		  align_to = cur;

	       }
	     else if ((all >= rows) && (all - cur < rows - dist))
	       {
		  /* step down end */
		  align = (cur - dist);
		  align_to = rows - (all - cur);
	       }
	     else
	       {
		  /* align */
		  align = (cur - dist);
		  align_to = cur - align;
	       }
	  }
	else if (scroll < 0)
	  {
	     if (cur < rows - dist)
	       {
		  /* step up start */
		  align = 0;
		  align_to = cur;
	       }
	     else if ((all >= rows) && (all - cur <= rows - dist))
	       {
		  /* step up end */
		  align = (cur - dist);
		  align_to = rows - (all - cur);
	       }
	     else
	       {
		  /* align */
		  align = (cur - dist);
		  align_to = cur - align;
	       }
	  }

	/* edje_object_signal_emit(sd->cur_item->frame,
	 * 			"e,state,selected", "e"); */
	align *= it->h;
     }
   else
     {
	if (sd->view->zoom < 2)
	  {
	     edje_object_signal_emit(sd->cur_item->frame,
				     "e,state,selected", "e");
	  }

	if ((it->y + it->h) - sd->cy > sd->h)
	  align = it->y - (2 - sd->view->zoom) * it->h;
	else if (it->y < sd->cy)
	  align = it->y;
     }

   if (!scroll || !evry_conf->scroll_animate)
     {
	sd->scroll_align = sd->scroll_align_to;
	sd->sel_pos = sd->sel_pos_to;

	if (align_to >= 0)
	  {
	     sd->sel_pos = align_to * it->h;
	     sd->sel_pos_to = sd->sel_pos;
	  }

	if (align >= 0)
	  {
	     sd->scroll_align = align;
	     sd->scroll_align_to = align;
	     e_scrollframe_child_pos_set(sd->view->sframe,
					 0, sd->scroll_align);
	  }
	if (sd->animator)
	  ecore_animator_del(sd->animator);
	sd->animator = NULL;
     }
   else
     {
	if (align_to >= 0)
	  sd->sel_pos_to = align_to * it->h;

	if (align >= 0)
	  sd->scroll_align_to = align;

	if (!sd->animator)
	  sd->animator = ecore_animator_add(_animator, obj);
     }

   _e_smart_reconfigure(obj);
}

static void
_clear_items(Evas_Object *obj)
{
   Smart_Data *sd = evas_object_smart_data_get(obj);
   Eina_List *l;
   Item *it;

   if (sd->animator)
     ecore_animator_del(sd->animator);
   sd->animator = NULL;

   EINA_LIST_FOREACH(sd->items, l, it)
     {
	if (it->do_thumb)
	  e_thumb_icon_end(it->thumb);
	if (it->frame) evas_object_del(it->frame);
	if (it->image) evas_object_del(it->image);
	if (it->thumb) evas_object_del(it->thumb);
	it->frame = NULL;
	it->image = NULL;
	it->thumb = NULL;
	it->have_thumb = EINA_FALSE;
	it->do_thumb = EINA_FALSE;
	it->visible = EINA_FALSE;
     }

   if (sd->queue)
     eina_list_free(sd->queue);
   sd->queue = NULL;

   if (sd->thumb_idler)
     ecore_idle_enterer_del(sd->thumb_idler);
   sd->thumb_idler = NULL;
}

static void
_view_clear(Evry_View *view, int slide)
{
   View *v = (View*) view;
   Smart_Data *sd = evas_object_smart_data_get(v->span);
   Item *it;

   if (!sd->clearing && evry_conf->scroll_animate)
     {
   	if (slide)
   	  {
   	     if (sd->items && !sd->animator)
   	       sd->animator = ecore_animator_add(_animator, v->span);
   	     sd->sliding = 1;
   	     sd->slide = sd->x;
   	     sd->slide_to = sd->x + sd->w * -slide;

	     sd->clearing = EINA_TRUE;
	     return;
   	  }

	if (sd->animator)
	  ecore_animator_del(sd->animator);
     }

   sd->clearing = EINA_FALSE;

   _clear_items(v->span);

   EINA_LIST_FREE(sd->items, it)
     {
	evry_item_free(it->item);
	E_FREE(it);
     }

   _e_smart_reconfigure(v->span);

   v->tabs->clear(v->tabs);
}

static int
_sort_cb(const void *data1, const void *data2)
{
   const Item *it1 = data1;
   const Item *it2 = data2;

   return it1->pos - it2->pos;
}

static int
_update_frame(Evas_Object *obj)
{
   Smart_Data *sd = evas_object_smart_data_get(obj);

   if (sd->animator)
     ecore_animator_del(sd->animator);
   sd->animator = NULL;

   sd->scroll_align = 0;

   e_scrollframe_child_pos_set(sd->view->sframe, 0, sd->scroll_align);

   _e_smart_reconfigure_do(obj);

   if (sd->view->mode)
     {
	evas_object_show(sd->selector);
	edje_object_signal_emit(sd->selector, "e,state,selected", "e");
     }
   else
     evas_object_hide(sd->selector);

   _pan_item_select(obj, sd->cur_item, 0);

   _e_smart_reconfigure(obj);

   return 0;
}

static int
_view_update(Evry_View *view, int slide)
{
   GET_VIEW(v, view);
   Smart_Data *sd = evas_object_smart_data_get(v->span);
   Item *v_it;
   Evry_Item *p_it;
   Eina_List *l, *ll, *v_remove = NULL, *v_items = NULL;
   int pos, last_pos, last_vis = 0, first_vis = 0;
   Eina_Bool update = EINA_FALSE;
   Evry_Plugin *p = v->state->plugin;

   sd->cur_item = NULL;

   if (!p)
     {
	_view_clear(view, 0);
	return 1;
     }

   if (p != v->plugin)
     {
	if (p->config->view_mode >= 0)
	  {
	     if (p->config->view_mode != v->mode)
	       _clear_items(v->span);

	     v->mode = p->config->view_mode;
	  }
	else
	  {
	     if (v->mode_prev != v->mode)
	       _clear_items(v->span);

	     v->mode = v->mode_prev;
	  }
     }

   /* go through current view items */
   EINA_LIST_FOREACH(sd->items, l, v_it)
     {
	last_pos = v_it->pos;
	v_it->pos = 0;
	pos = 1;

	/* go through plugins current items */
	EINA_LIST_FOREACH(p->items, ll, p_it)
	  {
	     if (v_it->item == p_it)
	       {
		  if (pos != last_pos)
		    v_it->changed = EINA_TRUE;

		  v_it->pos = pos;

		  if (p_it->selected)
		    {
		       sd->cur_item = v_it;
		       v_it->selected = EINA_TRUE;
		    }
		  else
		    {
		       v_it->selected = EINA_FALSE;
		       edje_object_signal_emit(v_it->frame, "e,state,unselected", "e");
		    }
		  break;
	       }
	     pos++;
	  }

	if (v_it->visible)
	  {
	     if (!first_vis)
	       first_vis = v_it->pos;
	     last_vis = v_it->pos;
	  }

	/* view item is in list of current items */
	if (v_it->pos)
	  {
	     v_items = eina_list_append(v_items, v_it->item);

	     if (_check_item(v_it->item))
	       v_it->get_thumb = EINA_TRUE;

	     if (v_it->visible && v_it->changed)
	       update = EINA_TRUE;
	  }
	else
	  {
	     if (v_it->visible) update = EINA_TRUE;
	     v_remove = eina_list_append(v_remove, v_it);
	  }
     }

   EINA_LIST_FREE(v_remove, v_it)
     _pan_item_remove(v->span, v_it);

   /* go through plugins current items */
   pos = 1;
   EINA_LIST_FOREACH(p->items, l, p_it)
     {
	/* item is not already in view */
	if (!eina_list_data_find_list(v_items, p_it))
	  {
	     v_it = _pan_item_add(v->span, p_it);

	     if (!v_it) continue;

	     v_it->pos = pos;

	     if (p_it == v->state->cur_item)
	       {
	     	  sd->cur_item = v_it;
	     	  v_it->selected = EINA_TRUE;
	       }

	     if (pos > first_vis && pos < last_vis)
	       update = EINA_TRUE;
	  }
	pos++;
     }
   if (v_items) eina_list_free(v_items);

   sd->items = eina_list_sort(sd->items, -1, _sort_cb);

   if (update || !last_vis || v->plugin != p)
     {
	v->plugin = p;
	sd->update = EINA_TRUE;
	_update_frame(v->span);
     }

   v->tabs->update(v->tabs);

   if (evry_conf->scroll_animate)
     {
   	if (slide)
   	  {
   	     if (sd->items && !sd->animator)
   	       sd->animator = ecore_animator_add(_animator, v->span);

	     sd->clearing = EINA_FALSE;

	     if (!sd->sliding)
	       sd->slide_to = sd->x;
	     else
	       sd->slide_to += sd->w;

	     sd->slide = sd->x + sd->w * -slide;

	     sd->sliding = 1;
   	  }
   	else if (sd->sliding)
   	  {
   	     if (!sd->animator)
   	       sd->animator = ecore_animator_add(_animator, v->span);
   	  }
     }

   return 0;
}

static int
_cb_key_down(Evry_View *view, const Ecore_Event_Key *ev)
{
   View *v = (View *) view;
   Smart_Data *sd = evas_object_smart_data_get(v->span);
   Eina_List *l = NULL, *ll;
   Item *it = NULL;
   const Evry_State *s = v->state;
   int slide;

   if (!s->plugin)
     return 0;

   const char *key = ev->key;

   if (s->plugin->view_mode == VIEW_MODE_NONE)
     {
	if ((ev->modifiers & ECORE_EVENT_MODIFIER_CTRL) &&
	    (!strcmp(key, "2")))
	  {
	     if (v->mode == VIEW_MODE_LIST)
	       v->mode = VIEW_MODE_DETAIL;
	     else
	       v->mode = VIEW_MODE_LIST;

	     v->zoom = 0;
	     _clear_items(v->span);
	     _update_frame(v->span);
	     goto end;
	  }
	else if ((ev->modifiers & ECORE_EVENT_MODIFIER_CTRL) &&
		  (!strcmp(key, "3")))
	  {
	     if (v->mode != VIEW_MODE_THUMB)
	       {
		  v->zoom = 0;
		  v->mode = VIEW_MODE_THUMB;
		  _clear_items(v->span);
	       }
	     else
	       {
		  v->zoom++;
		  if (v->zoom > 2) v->zoom = 0;
		  if (v->zoom == 2)
		    _clear_items(v->span);
	       }
	     _update_frame(v->span);
	     goto end;
	  }
     }

   if (((ev->modifiers & ECORE_EVENT_MODIFIER_SHIFT) ||
	(ev->modifiers & ECORE_EVENT_MODIFIER_CTRL)) &&
       (!strcmp(key, "Up")))
     {
	if (!sd->items) goto end;
	it = sd->items->data;

	_pan_item_select(v->span, it, 1);
	evry_item_select(s, it->item);
	goto end;
     }
   else if (((ev->modifiers & ECORE_EVENT_MODIFIER_SHIFT) ||
	     (ev->modifiers & ECORE_EVENT_MODIFIER_CTRL)) &&
	    (!strcmp(key, "Down")))
     {
	if (!sd->items) goto end;

	it = eina_list_last(sd->items)->data;
	_pan_item_select(v->span, it, 1);
	evry_item_select(s, it->item);
	goto end;
     }

   if ((ev->modifiers & ECORE_EVENT_MODIFIER_CTRL) &&
       (!strcmp(key, "plus")))
     {
	EINA_LIST_FOREACH(sd->items, ll, it)
	  {
	     if (!it->item->marked)
	       {
		  if (it->frame)
		    edje_object_signal_emit(it->frame, "e,state,marked", "e");
		  evry_item_mark(s, it->item, 1);
	       }
	  }
	goto end;
     }
   else if ((ev->modifiers & ECORE_EVENT_MODIFIER_CTRL) &&
       (!strcmp(key, "minus")))
     {
	EINA_LIST_FOREACH(sd->items, ll, it)
	  {
	     if (it->item->marked)
	       {
		  if (it->frame)
		    edje_object_signal_emit(it->frame, "e,state,unmarked", "e");
		  evry_item_mark(s, it->item, 0);
	       }
	  }
	goto end;
     }
   else if (!strcmp(key, "comma") || !strcmp(key, "semicolon"))
     {
	if (!sd->cur_item)
	  goto end;

	if (!sd->cur_item->item->marked)
	  {
	     edje_object_signal_emit(sd->cur_item->frame, "e,state,marked", "e");
	     evry_item_mark(s, sd->cur_item->item, 1);
	  }
	else
	  {
	     edje_object_signal_emit(sd->cur_item->frame, "e,state,unmarked", "e");
	     evry_item_mark(s, sd->cur_item->item, 0);
	  }

	if(!strcmp(key, "comma"))
	  {
	     key = "Down";
	  }
	else
	  {
	     key = "Up";
	  }
     }

   if ((slide = v->tabs->key_down(v->tabs, ev)))
     {
	/* _view_update(view, -slide); */
	_view_update(view, 0);
	return 1;
     }

   if (sd->items)
     l = eina_list_data_find_list(sd->items, sd->cur_item);
   if (!l)
     l = sd->items;

   if (v->mode == VIEW_MODE_THUMB && !evry_conf->cycle_mode)
     {
	if (!strcmp(key, "Right"))
	  {
	     if (l && l->next)
	       it = l->next->data;

	     if (it)
	       {
		  _pan_item_select(v->span, it, 1);
		  evry_item_select(s, it->item);
	       }
	     goto end;
	  }
	else if (!strcmp(key, "Left"))
	  {
	     if (l && l->prev)
	       it = l->prev->data;

	     if (it)
	       {
		  _pan_item_select(v->span, it, 1);
		  evry_item_select(s, it->item);
	       }
	     goto end;
	  }
     }
   if (!strcmp(key, "Down"))
     {
	if (!evry_conf->cycle_mode)
	  {
	     EINA_LIST_FOREACH(l, ll, it)
	       {
		  if (it->y > sd->cur_item->y &&
		      it->x >= sd->cur_item->x)
		    break;
	       }
	  }

	if (!it && l && l->next)
	  it = l->next->data;

	if (it)
	  {
	     _pan_item_select(v->span, it, 1);
	     evry_item_select(s, it->item);
	  }
	goto end;
     }
   else if (!strcmp(key, "Up"))
     {
	if (!evry_conf->cycle_mode)
	  {
	     for(ll = l; ll; ll = ll->prev)
	       {
		  it = ll->data;

		  if (it->y < sd->cur_item->y &&
		      it->x <= sd->cur_item->x)
		    break;
	       }
	  }

	if (!it && l && l->prev)
	  it = l->prev->data;

	if (it)
	  {
	     _pan_item_select(v->span, it, 1);
	     evry_item_select(s, it->item);
	  }
	goto end;
     }
   else if (!strcmp(key, "Return"))
     {
	if (v->mode == VIEW_MODE_THUMB)
	  {
	     if (evry_browse_item(NULL))
	       goto end;
	  }
     }

   return 0;

 end:
   return 1;
}

static int
_cb_item_changed(void *data, int type, void *event)
{
   Evry_Event_Item_Changed *ev = event;
   View *v = data;
   Eina_List *l;
   Item *it;
   Smart_Data *sd = evas_object_smart_data_get(v->span);

   if (!sd) return 0;

   EINA_LIST_FOREACH(sd->items, l, it)
     if (it->item == ev->item)
       {
	  if (it->item->selected)
	    _pan_item_select(v->span, it, 1);

	  if (!it->visible) break;

	  edje_object_part_text_set(it->frame, "e.text.label", it->item->label);

	  if (it->do_thumb) e_thumb_icon_end(it->thumb);
	  if (it->thumb) evas_object_del(it->thumb);
	  if (it->image) evas_object_del(it->image);

	  it->thumb = NULL;
	  it->image = NULL;

	  it->have_thumb = EINA_FALSE;
	  it->do_thumb = EINA_FALSE;

	  if (!eina_list_data_find(sd->queue, it))
	    sd->queue = eina_list_append(sd->queue, it);

	  if (!sd->thumb_idler)
	    sd->thumb_idler = ecore_idle_enterer_before_add(_thumb_idler, sd);
       }

   return 1;
}

static Evry_View *
_view_create(Evry_View *view, const Evry_State *s, const Evas_Object *swallow)
{
   GET_VIEW(parent, view);

   View *v;
   Ecore_Event_Handler *h;

   if (!s->plugin)
     return NULL;

   v = E_NEW(View, 1);
   v->view = *view;
   v->state = s;
   v->evas = evas_object_evas_get(swallow);

   if (parent->mode < 0)
     v->mode = evry_conf->view_mode;
   else
     v->mode = parent->mode;

   v->mode_prev = v->mode;

   v->zoom = parent->zoom;

   v->bg = edje_object_add(v->evas);
   e_theme_edje_object_set(v->bg, "base/theme/widgets",
			   "e/modules/everything/thumbview/main/window");
   // scrolled thumbs
   v->span = _pan_add(v->evas);
   _pan_view_set(v->span, v);

   // the scrollframe holding the scrolled thumbs
   v->sframe = e_scrollframe_add(v->evas);
   e_scrollframe_custom_theme_set(v->sframe, "base/theme/widgets",
				  "e/modules/everything/thumbview/main/scrollframe");
   e_scrollframe_extern_pan_set(v->sframe, v->span,
				_pan_set, _pan_get, _pan_max_get,
				_pan_child_size_get);
   edje_object_part_swallow(v->bg, "e.swallow.list", v->sframe);

   evas_object_show(v->sframe);
   evas_object_show(v->span);

   v->tabs = evry_tab_view_new(s, v->evas);

   EVRY_VIEW(v)->o_list = v->bg;
   EVRY_VIEW(v)->o_bar = v->tabs->o_tabs;

   h = ecore_event_handler_add(EVRY_EVENT_ITEM_CHANGED, _cb_item_changed, v);
   v->handlers = eina_list_append(v->handlers, h);

   return EVRY_VIEW(v);
}

static void
_view_destroy(Evry_View *view)
{
   GET_VIEW(v, view);

   Ecore_Event_Handler *h;

   evas_object_del(v->bg);
   evas_object_del(v->sframe);
   evas_object_del(v->span);

   evry_tab_view_free(v->tabs);

   EINA_LIST_FREE(v->handlers, h)
     ecore_event_handler_del(h);

   E_FREE(v);
}

Eina_Bool
view_thumb_init(void)
{
   if (!evry_api_version_check(EVRY_API_VERSION))
     return EINA_FALSE;

   View *v = E_NEW(View, 1);

   v->view.id = EVRY_VIEW(v);
   v->view.name = "Icon View";
   v->view.create = &_view_create;
   v->view.destroy = &_view_destroy;
   v->view.update = &_view_update;
   v->view.clear = &_view_clear;
   v->view.cb_key_down = &_cb_key_down;
   v->mode = VIEW_MODE_NONE;

   evry_view_register(EVRY_VIEW(v), 1);

   view = v;

   return EINA_TRUE;
}

void
view_thumb_shutdown(void)
{
   evry_view_unregister(EVRY_VIEW(view));
   E_FREE(view);
}