#include <Elementary.h>
#include "elm_priv.h"

/**
 * @defgroup Theme
 *
 * Functions to modify the theme in the currently running app.
 */

static Eina_List *overlay = NULL;
static Eina_List *themes = NULL;
static Eina_List *extension = NULL;
static Eina_Hash *cache = NULL;

static const char *
_elm_theme_find_try(const char *f, const char *group)
{
   const char *file;

   if (edje_file_group_exists(f, group))
     {
	file = eina_stringshare_add(f);
	if (file)
	  {
	     eina_hash_add(cache, group, file);
	     return file;
	  }
     }
   return NULL;
}

static const char *
_elm_theme_theme_element_try(const char *home, const char *f, const char *group)
{
   char buf[PATH_MAX];
   const char *file = NULL;

   if ((f[0] == '/') || ((f[0] == '.') && (f[1] == '/')) ||
       ((f[0] == '.') && (f[1] == '.') && (f[2] == '/')) ||
       (isalpha(f[0]) && f[1] == ':'))
     return _elm_theme_find_try(f, group);
   else if (((f[0] == '~') && (f[1] == '/')))
     {
	snprintf(buf, sizeof(buf), "%s/%s", home, f + 2);
	return _elm_theme_find_try(buf, group);
     }
   snprintf(buf, sizeof(buf), "%s/.elementary/themes/%s.edj", home, f);
   file = _elm_theme_find_try(buf, group);
   if (file) return file;
   snprintf(buf, sizeof(buf), "%s/themes/%s.edj", _elm_data_dir, f);
   file = _elm_theme_find_try(buf, group);
   return file;
}

static const char *
_elm_theme_group_file_find(const char *group)
{
   const Eina_List *l;
   const char *f;
   static const char *home = NULL;
   const char *file = eina_hash_find(cache, group);

   if (file) return file;
   if (!home)
     {
	home = getenv("HOME");
	if (!home) home = "";
     }
   EINA_LIST_FOREACH(overlay, l, f)
     {
	file = _elm_theme_theme_element_try(home, f, group);
	if (file) return file;
     }
   EINA_LIST_FOREACH(themes, l, f)
     {
	file = _elm_theme_theme_element_try(home, f, group);
	if (file) return file;
     }
   EINA_LIST_FOREACH(extension, l, f)
     {
	file = _elm_theme_theme_element_try(home, f, group);
	if (file) return file;
     }
   return NULL;
}

/**
 * Prepends a theme overlay to the list of overlays
 *
 * @param item The name of the theme overlay
 *
 * @ingroup Theme
 */
EAPI void
elm_theme_overlay_add(const char *item)
{
   const char *f = eina_stringshare_add(item);

   if (f) overlay = eina_list_prepend(overlay, f);
   elm_theme_flush();
}

/**
 * Delete a theme overlay from the list of overlays
 *
 * @param item The name of the theme overlay
 *
 * @ingroup Theme
 */
EAPI void
elm_theme_overlay_del(const char *item)
{
   const Eina_List *l;
   const char *f, *s;

   s = eina_stringshare_add(item);
   EINA_LIST_FOREACH(overlay, l, f)
     if (f == s)
       {
	  eina_stringshare_del(f);
	  overlay = eina_list_remove_list(overlay, (Eina_List *)l);
	  break;
       }
   eina_stringshare_del(s);
   elm_theme_flush();
}

/**
 * Prepends a theme extension to the list of extensions.
 *
 * @param item The name of the theme extension
 *
 * @ingroup Theme
 */
EAPI void
elm_theme_extension_add(const char *item)
{
   const char *f = eina_stringshare_add(item);

   if (f) extension = eina_list_append(extension, f);
   elm_theme_flush();
}

/**
 * Deletes a theme extension from the list of extensions.
 *
 * @param item The name of the theme extension
 *
 * @ingroup Theme
 */
EAPI void
elm_theme_extension_del(const char *item)
{
   const Eina_List *l;
   const char *f, *s;

   s = eina_stringshare_add(item);
   EINA_LIST_FOREACH(extension, l, f)
     if (f == s)
       {
	  eina_stringshare_del(f);
	  extension = eina_list_remove_list(extension, (Eina_List *)l);
	  break;
       }
   eina_stringshare_del(s);
   elm_theme_flush();
}

/**
 * Flush the current theme.
 *
 * @ingroup Theme
 */
EAPI void
elm_theme_flush(void)
{
   if (cache) eina_hash_free(cache);
   cache = eina_hash_string_superfast_new(EINA_FREE_CB(eina_stringshare_del));
   _elm_win_rescale();
}

/**
 * Set the theme in the current app to theme @p theme
 *
 * @param theme The name of the theme to use
 *
 * @ingroup Theme
 */
EAPI void
elm_theme_all_set(const char *theme)
{
#ifdef HAVE_ELEMENTARY_X
   static Ecore_X_Atom atom = 0;
   
   if (!atom) atom = ecore_x_atom_get("ENLIGHTENMENT_THEME");
   ecore_x_window_prop_string_set(ecore_x_window_root_first_get(),
                                  atom, theme);
#endif
}

int
_elm_theme_set(Evas_Object *o, const char *clas, const char *group, const char *style)
{
   const char *file;
   char buf2[1024];
   int ok;

   snprintf(buf2, sizeof(buf2), "elm/%s/%s/%s", clas, group, style);
   file = _elm_theme_group_file_find(buf2);
   if (file)
     {
	ok = edje_object_file_set(o, file, buf2);
	if (ok) return 1;
     }
   snprintf(buf2, sizeof(buf2), "elm/%s/%s/default", clas, group);
   file = _elm_theme_group_file_find(buf2);
   if (!file) return 0;
   ok = edje_object_file_set(o, file, buf2);
   return ok;
}

int
_elm_theme_icon_set(Evas_Object *o, const char *group, const char *style)
{
   const char *file;
   char buf2[1024];
   int w, h;

   snprintf(buf2, sizeof(buf2), "elm/icon/%s/%s", group, style);
   file = _elm_theme_group_file_find(buf2);
   if (file)
     {
	_els_smart_icon_file_edje_set(o, file, buf2);
	_els_smart_icon_size_get(o, &w, &h);
	if (w > 0) return 1;
     }
   snprintf(buf2, sizeof(buf2), "elm/icon/%s/default", group);
   file = _elm_theme_group_file_find(buf2);
   if (!file) return 0;
   _els_smart_icon_file_edje_set(o, file, buf2);
   _els_smart_icon_size_get(o, &w, &h);
   return (w > 0);
}

int
_elm_theme_parse(const char *theme)
{
   Eina_List *names = NULL;
   const char *p, *pe;

   p = theme;
   pe = p;
   for (;;)
     {
	if ((*pe == ':') || (*pe == 0))
	  { // p -> pe == 'name:'
	     if (pe > p)
	       {
		  char *n = malloc(pe - p + 1);
		  if (n)
		    {
		       const char *nn;

		       strncpy(n, p, pe - p);
		       n[pe - p] = 0;
		       nn = eina_stringshare_add(n);
		       if (nn)
			 names = eina_list_append(names, nn);
		       free(n);
		    }
	       }
	     if (*pe == 0) break;
	     p = pe + 1;
	     pe = p;
	  }
	else
	  pe++;
     }
   p = eina_list_data_get(eina_list_last(names));
   if ((!p) || ((p) && (strcmp(p, "default"))))
     {
	p = eina_stringshare_add("default");
	if (p)
	  names = eina_list_append(names, p);
     }
   if (cache)
     eina_hash_free(cache);
   cache = eina_hash_string_superfast_new(EINA_FREE_CB(eina_stringshare_del));

   EINA_LIST_FREE(themes, p)
     eina_stringshare_del(p);

   themes = names;
   return 1;
}