/*
 * vim:ts=8:sw=3:sts=8:noexpandtab:cino=>5n-3f0^-2{2
 */
#include "e.h"

/* local subsystem functions */
typedef struct _E_Exehist E_Exehist;
typedef struct _E_Exehist_Item E_Exehist_Item;

struct _E_Exehist
{
   Evas_List *history;
   Evas_List *mimes;
};

struct _E_Exehist_Item
{
   const char   *exe;
   const char   *launch_method;
   double        exetime;
};

static void _e_exehist_unload_queue(void);
static void _e_exehist_load(void);
static void _e_exehist_clear(void);
static void _e_exehist_unload(void);
static void _e_exehist_limit(void);
static void _e_exehist_cb_unload(void *data);

/* local subsystem globals */
static E_Config_DD *_e_exehist_config_edd = NULL;
static E_Config_DD *_e_exehist_config_item_edd = NULL;
static E_Exehist *_e_exehist = NULL;
static E_Powersave_Deferred_Action *_e_exehist_unload_defer = NULL;
static int _e_exehist_changes = 0;

/* externally accessible functions */
EAPI int
e_exehist_init(void)
{
   _e_exehist_config_item_edd = E_CONFIG_DD_NEW("E_Exehist_Item", E_Exehist_Item);
#undef T
#undef D
#define T E_Exehist_Item
#define D _e_exehist_config_item_edd
   E_CONFIG_VAL(D, T, exe, STR);
   E_CONFIG_VAL(D, T, launch_method, STR);
   E_CONFIG_VAL(D, T, exetime, DOUBLE);
   
   _e_exehist_config_edd = E_CONFIG_DD_NEW("E_Exehist", E_Exehist);
#undef T
#undef D
#define T E_Exehist
#define D _e_exehist_config_edd
   E_CONFIG_LIST(D, T, history, _e_exehist_config_item_edd);
   E_CONFIG_LIST(D, T, mimes, _e_exehist_config_item_edd);
   return 1;
}

EAPI int
e_exehist_shutdown(void)
{
   if (_e_exehist_unload_defer)
     {
	e_powersave_deferred_action_del(_e_exehist_unload_defer);
	_e_exehist_unload_defer = NULL;
     }
   _e_exehist_cb_unload(NULL);
   E_CONFIG_DD_FREE(_e_exehist_config_item_edd);
   E_CONFIG_DD_FREE(_e_exehist_config_edd);
   return 1;
}

EAPI void
e_exehist_add(const char *launch_method, const char *exe)
{
   E_Exehist_Item *ei;

   _e_exehist_load();
   if (!_e_exehist) return;
   ei = E_NEW(E_Exehist_Item, 1);
   if (!ei)
     {
	_e_exehist_unload_queue();
	return;
     }
   ei->launch_method = evas_stringshare_add(launch_method);
   ei->exe = evas_stringshare_add(exe);
   ei->exetime = ecore_time_get();
   _e_exehist->history = evas_list_append(_e_exehist->history, ei);
   _e_exehist_limit();
   _e_exehist_changes++;
   _e_exehist_unload_queue();
}

EAPI void
e_exehist_clear(void)
{
   _e_exehist_load();
   if (!_e_exehist) return;
   _e_exehist_clear();
   _e_exehist_changes++;
   _e_exehist_unload_queue();
}

EAPI int
e_exehist_popularity_get(const char *exe)
{
   Evas_List *l;
   int count = 0;
   
   _e_exehist_load();
   if (!_e_exehist) return 0;
   for (l = _e_exehist->history; l; l = l->next)
     {
	E_Exehist_Item *ei;
	
	ei = l->data;
	if ((ei->exe) && (!strcmp(exe, ei->exe))) count++;
     }
   _e_exehist_unload_queue();
   return count;
}

EAPI double
e_exehist_newest_run_get(const char *exe)
{
   Evas_List *l;
   
   _e_exehist_load();
   if (!_e_exehist) return 0.0;
   for (l = evas_list_last(_e_exehist->history); l; l = l->prev)
     {
	E_Exehist_Item *ei;
	
	ei = l->data;
	if ((ei->exe) && (!strcmp(exe, ei->exe)))
	  {
	     _e_exehist_unload_queue();
	  }
	     return ei->exetime;
     }
   _e_exehist_unload_queue();
   return 0.0;
}

EAPI Evas_List *
e_exehist_list_get(void)
{
   Evas_List *list = NULL, *l, *m;
   int count = 1;
   int max;

   max = e_config->exebuf_max_hist_list;
   if (!max) max = 20;
   _e_exehist_load();
   for (l = evas_list_last(_e_exehist->history); l; l = l->prev)
     {
	int bad = 0;
	E_Exehist_Item *ei;
	
	ei = l->data;
	if (!(ei->exe)) continue;
	for (m = list; m; m = m->next) 
	  {
	     const char *exe;

	     if (!(exe = m->data)) continue;
	     if (!strcmp(exe, ei->exe))
	       {
		  bad = 1;
		  break;
	       }
	  }
	if (!(bad))
	  {
	     list = evas_list_append(list, ei->exe);
	     count++;
	  }
	if (count > max) break;
     }
   _e_exehist_unload_queue();
   return list;
}

EAPI void
e_exehist_mime_desktop_add(const char *mime, Efreet_Desktop *desktop)
{
   const char *f;
   E_Exehist_Item *ei;
   Evas_List *l;
   
   if ((!mime) || (!desktop)) return;
   if (!desktop->orig_path) return;
   _e_exehist_load();
   if (!_e_exehist) return;
   
   f = efreet_util_path_to_file_id(desktop->orig_path);
   if (!f) return;
   for (l = _e_exehist->mimes; l; l = l->next)
     {
	ei = l->data;
	if ((ei->launch_method) && (!strcmp(mime, ei->launch_method)))
	  {
	     if ((ei->exe) && (!strcmp(f, ei->exe)))
	       {
		  _e_exehist_unload_queue();
		  return;
	       }
             if (ei->exe) evas_stringshare_del(ei->exe);
	     if (ei->launch_method) evas_stringshare_del(ei->launch_method);
	     free(ei);
	     _e_exehist->mimes = evas_list_remove_list(_e_exehist->mimes, l);
	     _e_exehist_changes++;
	     break;
	  }
     }
   ei = E_NEW(E_Exehist_Item, 1);
   if (!ei)
     {
	_e_exehist_unload_queue();
	return;
     }
   ei->launch_method = evas_stringshare_add(mime);
   ei->exe = evas_stringshare_add(f);
   ei->exetime = ecore_time_get();
   _e_exehist->mimes = evas_list_append(_e_exehist->mimes, ei);
   _e_exehist_limit();
   _e_exehist_changes++;
   _e_exehist_unload_queue();
}

EAPI Efreet_Desktop *
e_exehist_mime_desktop_get(const char *mime)
{
   Efreet_Desktop *desktop;
   E_Exehist_Item *ei;
   Evas_List *l;
   
   if (!mime) return NULL;
   _e_exehist_load();
   if (!_e_exehist) return NULL;
   for (l = _e_exehist->mimes; l; l = l->next)
     {
	ei = l->data;
	if ((ei->launch_method) && (!strcmp(mime, ei->launch_method)))
	  {
	     desktop = NULL;
	     if (ei->exe) desktop = efreet_util_desktop_file_id_find(ei->exe);
	     if (desktop)
	       {
		  _e_exehist_unload_queue();
		  return desktop;
	       }
	  }
     }
   _e_exehist_unload_queue();
   return NULL;
}

/* local subsystem functions */
static void
_e_exehist_unload_queue(void)
{
   if (_e_exehist_unload_defer)
     e_powersave_deferred_action_del(_e_exehist_unload_defer);
   _e_exehist_unload_defer = 
     e_powersave_deferred_action_add(_e_exehist_cb_unload, NULL);
}

static void
_e_exehist_load(void)
{
   if (!_e_exehist)
     _e_exehist = e_config_domain_load("exehist", _e_exehist_config_edd);
   if (!_e_exehist)
     _e_exehist = E_NEW(E_Exehist, 1);
}

static void
_e_exehist_clear(void)
{
   if (_e_exehist)
     {
	while (_e_exehist->history)
	  {
	     E_Exehist_Item *ei;
	     
	     ei = _e_exehist->history->data;
	     if (ei->exe) evas_stringshare_del(ei->exe);
	     if (ei->launch_method) evas_stringshare_del(ei->launch_method);
	     free(ei);
	     _e_exehist->history = evas_list_remove_list(_e_exehist->history, _e_exehist->history);
	  }
	while (_e_exehist->mimes)
	  {
	     E_Exehist_Item *ei;
	     
	     ei = _e_exehist->mimes->data;
	     if (ei->exe) evas_stringshare_del(ei->exe);
	     if (ei->launch_method) evas_stringshare_del(ei->launch_method);
	     free(ei);
	     _e_exehist->mimes = evas_list_remove_list(_e_exehist->mimes, _e_exehist->mimes);
	  }
     }
}

static void
_e_exehist_unload(void)
{
   _e_exehist_clear();
   E_FREE(_e_exehist);
}

static void
_e_exehist_limit(void)
{
   /* go from first item in hist on and either delete all items before a
    * specific timestamp, or if the list count > limit then delete items
    * 
    * for now - limit to 500
    */
   if (_e_exehist)
     {
	while (evas_list_count(_e_exehist->history) > 500)
	  {
	     E_Exehist_Item *ei;
	     
	     ei = _e_exehist->history->data;
	     if (ei->exe) evas_stringshare_del(ei->exe);
	     if (ei->launch_method) evas_stringshare_del(ei->launch_method);
	     free(ei);
	     _e_exehist->history = evas_list_remove_list(_e_exehist->history, _e_exehist->history);
	  }
	while (evas_list_count(_e_exehist->mimes) > 500)
	  {
	     E_Exehist_Item *ei;
	     
	     ei = _e_exehist->mimes->data;
	     if (ei->exe) evas_stringshare_del(ei->exe);
	     if (ei->launch_method) evas_stringshare_del(ei->launch_method);
	     free(ei);
	     _e_exehist->mimes = evas_list_remove_list(_e_exehist->mimes, _e_exehist->mimes);
	  }
     }
}

static void
_e_exehist_cb_unload(void *data)
{
   if (_e_exehist_changes)
     {
	e_config_domain_save("exehist", _e_exehist_config_edd, _e_exehist);
	_e_exehist_changes = 0;
     }
   _e_exehist_unload();
   _e_exehist_unload_defer = NULL;
}