/*
* vim:ts=8:sw=3:sts=8:noexpandtab:cino=>5n-3f0^-2{2
*/

#include "e.h"

#ifdef EFM_DEBUG
# define D(x)  do {printf(__FILE__ ":%d:  ", __LINE__); printf x; fflush(stdout);} while (0)
#else
# define D(x)  ((void) 0)
#endif

static char       *_e_thumb_file_id(char *file);

static char       *thumb_path = NULL;

int
e_thumb_init(void)
{
   char *homedir;
   char  path[PATH_MAX];
   
   homedir = e_user_homedir_get();
   if (homedir)
     {
	snprintf(path, sizeof(path), "%s/.e/e/fileman/thumbnails", homedir);
	if (!ecore_file_exists(path))
	  ecore_file_mkpath(path);
	thumb_path = strdup(path);
	free(homedir);
     }
   else return 0;
   
   return 1;
}

int
e_thumb_shutdown(void)
{
   E_FREE(thumb_path);
   return 1;
}

/* return dir where thumbs are saved */
const char *
e_thumb_dir_get(void)
{
   return thumb_path;
}

/* return hashed path of thumb */
char *
e_thumb_file_get(char *file)
{
   char *id;
   char thumb[PATH_MAX];
   
   id = _e_thumb_file_id(file);   
   if (!id) return NULL;
   snprintf(thumb, sizeof(thumb), "%s/%s", thumb_path, id);
   free(id);
   return strdup(thumb);   
}

/* return true if the saved thumb exists OR if its an eap */
int
e_thumb_exists(char *file)
{
   char *thumb;
   char *ext;

   ext = strrchr(file, '.');
   if ((ext) && (!strcasecmp(ext, ".eap")))
     return 1;

   thumb = e_thumb_file_get(file);
   if (ecore_file_exists(thumb))
     {
	free(thumb);
	return 1;
     }
   return 0;
}

int *
_e_thumb_image_create(char *file, Evas_Coord w, Evas_Coord h, int *ww, int *hh, int *alpha, Evas_Object **im, Ecore_Evas **buf)
{
   Evas *evasbuf;
   int iw, ih;
   
   *buf = ecore_evas_buffer_new(1, 1);
   evasbuf = ecore_evas_get(*buf);
   *im = evas_object_image_add(evasbuf);
   evas_object_image_file_set(*im, file, NULL);
   iw = 0; ih = 0;
   evas_object_image_size_get(*im, &iw, &ih);
   *alpha = evas_object_image_alpha_get(*im);
   if ((iw > 0) && (ih > 0))
     {
	*ww = w;
	*hh = (w * ih) / iw;
	if (*hh > h)
	  {
	     *hh = h;
	     *ww = (h * iw) / ih;
	  }
	ecore_evas_resize(*buf, *ww, *hh);
	evas_object_image_fill_set(*im, 0, 0, *ww, *hh);
	evas_object_resize(*im, *ww, *hh);
	evas_object_move(*im, 0, 0);
	evas_object_show(*im);

	return (int *)ecore_evas_buffer_pixels_get(*buf);
     }
   return NULL;
}

/* thumbnail an e17 background and return pixel data */
const int *
_e_thumb_ebg_create(char *file, Evas_Coord w, Evas_Coord h, int *ww, int *hh, int *alpha, Evas_Object **im, Ecore_Evas **buf)
{
   Evas *evasbuf;   
   Evas_Object *wallpaper;
   const int *pixels;   

   *ww = 640;
   *hh = 480;
   *alpha = 0;   
   
   w = 640;
   h = 480;
   
   *buf = ecore_evas_buffer_new(w, h);
   evasbuf = ecore_evas_get(*buf);
   
   wallpaper = edje_object_add(evasbuf);

   edje_object_file_set(wallpaper, file, "desktop/background");
      
   /* wallpaper */
   evas_object_move(wallpaper, 0, 0);
   evas_object_resize(wallpaper, w, h);   
      
   evas_object_show(wallpaper);
   
   pixels = ecore_evas_buffer_pixels_get(*buf);
   
   evas_object_del(wallpaper);   
   return pixels;
}

/* thumbnail an e17 theme and return pixel data */
const int *
_e_thumb_etheme_create(char *file, Evas_Coord w, Evas_Coord h, int *ww, int *hh, int *alpha, Evas_Object **im, Ecore_Evas **buf)
{
   Evas *evasbuf;   
   Evas_Object *wallpaper, *window, *clock, *start, **pager;
   const int *pixels;   

   *ww = 640;
   *hh = 480;
   *alpha = 0;   
   
   w = 640;
   h = 480;
   
   *buf = ecore_evas_buffer_new(w, h);
   evasbuf = ecore_evas_get(*buf);
   
   wallpaper = edje_object_add(evasbuf);
   window    = edje_object_add(evasbuf);
   clock     = edje_object_add(evasbuf);
   start     = edje_object_add(evasbuf);
   pager     = E_NEW(Evas_Object*, 3);
   pager[0]  = edje_object_add(evasbuf);
   pager[1]  = edje_object_add(evasbuf);
   pager[2]  = edje_object_add(evasbuf);
   
   edje_object_file_set(wallpaper, file, "desktop/background");   
   edje_object_file_set(window,	file, "widgets/border/default/border");
   edje_object_file_set(clock, file, "modules/clock/main");   
   edje_object_file_set(clock, file, "modules/clock/main");   
   edje_object_file_set(start, file, "modules/start/main");   
   edje_object_file_set(pager[0], file, "modules/pager/main");
   edje_object_file_set(pager[1], file, "modules/pager/desk");
   edje_object_file_set(pager[2], file, "modules/pager/window");   
   edje_object_part_text_set(window, "title_text", file);   
   edje_object_part_swallow(pager[0], "items", pager[1]);
   edje_object_part_swallow(pager[1], "items", pager[2]);
      
   /* wallpaper */
   evas_object_move(wallpaper, 0, 0);
   evas_object_resize(wallpaper, w, h);   
   /* main window */
   evas_object_move(window, (w * 0.1), (h * 0.05));
   evas_object_resize(window, w * 0.8, h * 0.75);   
   /* clock */
   evas_object_move(clock, (w * 0.9), (h * 0.9));
   evas_object_resize(clock, w * 0.1, h * 0.1);
   /* start */
   evas_object_move(start, (w * 0.9), (h * 0.9));
   evas_object_resize(start, w * 0.1, h * 0.1);   
   /* pager */
   evas_object_move(pager[0], (w * 0.3), (h * 0.9));
   evas_object_resize(pager[0], w * 0.1, h * 0.1);
      
   evas_object_show(wallpaper);
   evas_object_show(window);
   evas_object_show(clock);
   evas_object_show(start);
   evas_object_show(pager[0]);
   evas_object_show(pager[1]);
   evas_object_show(pager[2]);
   
   pixels = ecore_evas_buffer_pixels_get(*buf);
   
   evas_object_del(wallpaper);
   evas_object_del(window);
   evas_object_del(clock);
   evas_object_del(start);
   evas_object_del(pager[0]);
   evas_object_del(pager[1]);
   evas_object_del(pager[2]);   
   free(pager);
   
   return pixels;
}

/* create and save a thumb to disk */
int
e_thumb_create(char *file, Evas_Coord w, Evas_Coord h)
{
   Eet_File *ef;
   char *thumbpath, *ext;
   Evas_Object *im;
   const int *data;
   int size, ww, hh;
   Ecore_Evas *buf;
   int alpha;
   
   ext = strrchr(file, '.');
   if ((ext) && (!strcasecmp(ext, ".eap")))
     return 1;
   
   thumbpath = e_thumb_file_get(file);
   if (!thumbpath)
     return -1;
   
   if (ext)
     {
	if(!strcasecmp(ext, ".edj"))
	  {
	     /* for now, this function does both the bg and theme previews */
	     data = _e_thumb_etheme_create(file, w, h, &ww, &hh, &alpha, &im, &buf);
	  }
	else
	  data = _e_thumb_image_create(file, w, h, &ww, &hh, &alpha, &im, &buf);	 
     }
   else
     data = _e_thumb_image_create(file, w, h, &ww, &hh, &alpha, &im, &buf);
   
   if (data)
     {
	ef = eet_open(thumbpath, EET_FILE_MODE_WRITE);
	if (!ef)
	  {
	     free(thumbpath);
	     evas_object_del(im);
	     ecore_evas_free(buf);
	     return -1;
	  }
	free(thumbpath);

	eet_write(ef, "/thumbnail/orig_path", file, strlen(file), 1);
	if ((size = eet_data_image_write(ef, "/thumbnail/data",
					 (void *)data, ww, hh, alpha,
					 0, 91, 1)) <= 0)
	  {
	     evas_object_del(im);
	     ecore_evas_free(buf);
	     eet_close(ef);
	     return -1;
	  }
	eet_close(ef);
     }
   evas_object_del(im);
   ecore_evas_free(buf);
   return 1;
}

/* get evas object containing image of the thumb */
Evas_Object *
e_thumb_evas_object_get(char *file, Evas *evas, Evas_Coord width, Evas_Coord height)
{
   Eet_File *ef;
   char *thumb, *ext;
   Evas_Object *im = NULL;

#define DEF_THUMB_RETURN im = evas_object_rectangle_add(evas); \
	       evas_object_color_set(im, 255, 255, 255, 255); \
	       evas_object_resize(im, width, height); \
	       return im 
   
   D(("e_thumb_evas_object_get: (%s)\n", file));
     
   /* eap thumbnailer */
   ext = strrchr(file, '.');
   if (ext)
     {
	if (!strcasecmp(ext, ".eap"))
	  {
	     E_App *app;

	     D(("e_thumb_evas_object_get: eap found\n"));
	     app = e_app_new(file, 0);
	     D(("e_thumb_evas_object_get: eap loaded\n"));
	     if (!app)	     
	       { 
		  D(("e_thumb_evas_object_get: invalid eap\n"));
		  DEF_THUMB_RETURN;
	       }
	     else
	       {
		  D(("e_thumb_evas_object_get: creating eap thumb\n"));
		  im = edje_object_add(evas);
		  edje_object_file_set(im, file, "icon");
		  e_object_unref(E_OBJECT(app));	       
		  D(("e_thumb_evas_object_get: returning eap thumb\n"));
		  return im;
	       }
	  }
     }
     
   /* saved thumb */
   /* TODO: add ability to fetch thumbs from freedesktop dirs */
   if (!e_thumb_exists(file))
     {
	if (!e_thumb_create(file, width, height))
	  {
	     DEF_THUMB_RETURN;
	  }
     }
   
   thumb = e_thumb_file_get(file);
   if (!thumb)
     {
	DEF_THUMB_RETURN;
     }
   
   ef = eet_open(thumb, EET_FILE_MODE_READ);
   if (!ef)
     {
	eet_close(ef);
	free(thumb);
	DEF_THUMB_RETURN;
     }
   
   im = e_icon_add(evas);
   e_icon_file_key_set(im, thumb, "/thumbnail/data");
   e_icon_fill_inside_set(im, 1);
   free(thumb);
   eet_close(ef);
   return im;
}

/* return hash for a file */
static char *
_e_thumb_file_id(char *file)
{
   char                s[256], *sp;
   const char         *chmap =
     "0123456789abcdef"
     "ghijklmnopqrstuv"
     "wxyz`~!@#$%^&*()"
     "[];',.{}<>?-=_+|";
   unsigned int        id[4], i;
   struct stat         st;

   if (stat(file, &st) < 0)
     return NULL;
   
   id[0] = st.st_ino;
   id[1] = st.st_dev;
   id[2] = (st.st_size & 0xffffffff);
   id[3] = (st.st_mtime & 0xffffffff);

   sp = s;
   for (i = 0; i < 4; i++)
     {
	unsigned int t, tt;
	int j;

	t = id[i];
	j = 32;
	while (j > 0)
	  {
	     tt = t & ((1 << 6) - 1);
	     *sp = chmap[tt];
	     t >>= 6;
	     j -= 6;
	     sp++;
	  }
     }
   *sp = 0;
   return strdup(s);
}