#include <Elementary.h>
#define N_ITEMS 6
typedef struct _Node_Data {
     Eina_List *children;
     int value;
     int level;
     Eina_Bool favorite;
} Node_Data;
static int nitems = 0;
static char *
_item_label_get(void *data, Evas_Object *obj, const char *part)
{
   char buf[256] = {0};
   Node_Data *d = data;
   if (!strcmp(part, "elm.text"))
     snprintf(buf, sizeof(buf), "Item # %i (level %i)", d->value, d->level);
   return strdup(buf);
}
static Evas_Object *
_item_content_get(void *data, Evas_Object *obj, const char *part)
{
   if (!strcmp(part, "elm.swallow.icon"))
   evas_object_size_hint_aspect_set(ic, EVAS_ASPECT_CONTROL_VERTICAL, 1, 1);
   return ic;
}
static void
_item_sel_cb(void *data, Evas_Object *obj, void *event_info)
{
   printf("sel item data [%p] on genlist obj [%p], item pointer [%p]\n",
          data, obj, event_info);
}
static char *
_parent_label_get(void *data, Evas_Object *obj, const char *part)
{
   char buf[256];
   Node_Data *d = data;
   snprintf(buf, sizeof(buf), "Group %d (%d items)", d->value / 7,
            eina_list_count(d->children));
   return strdup(buf);
}
static Evas_Object *
_parent_content_get(void *data, Evas_Object *obj, const char *part)
{
   if (!strcmp(part, "elm.swallow.icon"))
   evas_object_size_hint_aspect_set(ic, EVAS_ASPECT_CONTROL_VERTICAL, 1, 1);
   return ic;
}
static char *
_favorite_label_get(void *data, Evas_Object *obj, const char *part)
{
   char buf[256] = {0};
   Node_Data *d = data;
   if (!strcmp(part, "elm.text"))
     snprintf(buf, sizeof(buf), "Favorite # %i", d->value);
   return strdup(buf);
}
static Evas_Object *
_favorite_content_get(void *data, Evas_Object *obj, const char *part)
{
   if (!strcmp(part, "elm.swallow.icon"))
   evas_object_size_hint_aspect_set(ic, EVAS_ASPECT_CONTROL_VERTICAL, 1, 1);
   return ic;
}
static void
_append_cb(void *data, Evas_Object *o, void *event_info)
{
   Evas_Object *list = data;
   Node_Data *pdata, *d = malloc(sizeof(*d));
   d->children = NULL;
   d->value = nitems++;
   d->favorite = EINA_FALSE;
   if (glit)
     parent = elm_genlist_item_parent_get(glit);
   if (parent)
     {
        d->level = elm_genlist_item_expanded_depth_get(parent) + 1;
        pdata->children = eina_list_append(pdata->children, d);
     }
   else
     d->level = 0;
                           d, parent,
                           ELM_GENLIST_ITEM_NONE,
                           _item_sel_cb, NULL);
}
static void
_favorite_cb(void *data, Evas_Object *o, void *event_info)
{
   Evas_Object *list = data;
   if (!glit) return;
   d->favorite = !d->favorite;
   if (d->favorite)
     elm_genlist_item_item_class_update(glit, _itfav);
   else
     {
        if (d->children)
          elm_genlist_item_item_class_update(glit, _itp);
        else
          elm_genlist_item_item_class_update(glit, _itc);
     }
   elm_genlist_item_update(glit);
}
static void
_add_child_cb(void *data, Evas_Object *o, void *event_info)
{
   Evas_Object *list = data;
   if (!glit) return;
   glit_prev = elm_genlist_item_prev_get(glit);
   glit_parent = elm_genlist_item_parent_get(glit);
   Eina_Bool change_item = !d->children;
   
   Node_Data *ndata = malloc(sizeof(*ndata));
   ndata->value = nitems++;
   ndata->children = NULL;
   ndata->favorite = EINA_FALSE;
   ndata->level = elm_genlist_item_expanded_depth_get(glit) + 1;
   d->children = eina_list_append(d->children, ndata);
   
   if (change_item)
     {
        elm_object_item_del(glit);
        if (glit_prev != glit_parent)
                                               glit_prev,
                                               ELM_GENLIST_ITEM_TREE,
                                               _item_sel_cb, NULL);
        else
                                          ELM_GENLIST_ITEM_TREE,
                                          _item_sel_cb, NULL);
        elm_genlist_item_expanded_set(glit, EINA_FALSE);
        elm_genlist_item_selected_set(glit, EINA_TRUE);
     }
   else if (elm_genlist_item_expanded_get(glit))
     {
                                ELM_GENLIST_ITEM_NONE, _item_sel_cb, NULL);
     }
   elm_genlist_item_update(glit);
}
static void
_clear_list(Node_Data *d)
{
   Node_Data *tmp;
   EINA_LIST_FREE(d->children, tmp)
      _clear_list(tmp);
   free(d);
}
static void
_del_item_cb(void *data, Evas_Object *o, void *event_info)
{
   Evas_Object *list = data;
   if (!glit) return;
   glit_parent = elm_genlist_item_parent_get(glit);
   elm_genlist_item_subitems_clear(glit);
   elm_object_item_del(glit);
   if (glit_parent)
     {
        pdata->children = eina_list_remove(pdata->children, d);
     }
   _clear_list(d);
   elm_genlist_item_update(glit_parent);
}
static void
_expand_request_cb(void *data, Evas_Object *o, void *event_info)
{
   printf("expand request on item: %p\n", event_info);
   elm_genlist_item_expanded_set(glit, EINA_TRUE);
}
static void
_contract_request_cb(void *data, Evas_Object *o, void *event_info)
{
   printf("contract request on item: %p\n", event_info);
   elm_genlist_item_expanded_set(glit, EINA_FALSE);
}
static void
_expanded_cb(void *data, Evas_Object *o, void *event_info)
{
   Eina_List *l;
   Evas_Object *list = elm_object_item_widget_get(glit);
   EINA_LIST_FOREACH(d->children, l, it_data)
     {
        Elm_Genlist_Item_Type type = ELM_GENLIST_ITEM_NONE;
        printf("expanding item: #%d from parent #%d\n", it_data->value, d->value);
        if (it_data->favorite)
          ic = _itfav;
        else if (it_data->children)
          {
             ic = _itp;
             type = ELM_GENLIST_ITEM_TREE;
          }
        else
          ic = _itc;
                                        type, _item_sel_cb, NULL);
        elm_genlist_item_expanded_set(nitem, EINA_FALSE);
     }
}
static void
_contracted_cb(void *data, Evas_Object *o, void *event_info)
{
   elm_genlist_item_subitems_clear(glit);
}
static Evas_Object *
_button_add(Evas_Object *list, Evas_Object *box, const char *label, Evas_Smart_Cb cb)
{
   Evas_Object *bt;
   elm_object_text_set(bt, label);
   evas_object_show(bt);
   if (cb)
     evas_object_smart_callback_add(bt, "clicked", cb, list);
   return bt;
}
EAPI_MAIN int
elm_main(int argc, char **argv)
{
   Evas_Object *win, *box, *fbox;
   Evas_Object *list;
   int i;
   evas_object_size_hint_weight_set(box, EVAS_HINT_EXPAND, EVAS_HINT_EXPAND);
   evas_object_show(box);
   if (!_itc)
     {
        _itc->item_style = "default";
        _itc->func.text_get = _item_label_get;
        _itc->func.content_get = _item_content_get;
        _itc->func.state_get = NULL;
        _itc->func.del = NULL;
     }
   if (!_itp)
     {
        _itp->item_style = "default";
        _itp->func.text_get = _parent_label_get;
        _itp->func.content_get = _parent_content_get;
        _itp->func.state_get = NULL;
        _itp->func.del = NULL;
     }
   if (!_itfav)
     {
        _itfav->item_style = "default";
        _itfav->func.text_get = _favorite_label_get;
        _itfav->func.content_get = _favorite_content_get;
        _itfav->func.state_get = NULL;
        _itfav->func.del = NULL;
     }
   evas_object_size_hint_weight_set(list, EVAS_HINT_EXPAND, EVAS_HINT_EXPAND);
   evas_object_size_hint_align_set(list, EVAS_HINT_FILL, EVAS_HINT_FILL);
   evas_object_show(list);
                      NULL, NULL);
   evas_object_size_hint_weight_set(fbox, EVAS_HINT_EXPAND, 0);
   evas_object_size_hint_align_set(fbox, EVAS_HINT_FILL, EVAS_HINT_FILL);
   evas_object_show(fbox);
   _button_add(list, fbox, "append item", _append_cb);
   _button_add(list, fbox, "favorite", _favorite_cb);
   _button_add(list, fbox, "add child", _add_child_cb);
   _button_add(list, fbox, "del item", _del_item_cb);
   Node_Data *pdata = NULL; 
   for (i = 0; i < N_ITEMS; i++)
     {
        Node_Data *data = malloc(sizeof(*data)); 
        data->children = NULL;
        data->value = i;
        data->favorite = EINA_FALSE;
        nitems++;
        printf("creating item: #%d\n", data->value);
        if (i % 3 == 0)
          {
                                                 ELM_GENLIST_ITEM_TREE,
                                                 _item_sel_cb, NULL);
             elm_genlist_item_expanded_set(glg, EINA_TRUE);
             pdata = data;
             data->level = 0;
          }
        else
          {
                                           ELM_GENLIST_ITEM_NONE,
                                           _item_sel_cb, NULL);
             if (pdata)
               pdata->children = eina_list_append(pdata->children, data);
             data->level = 1;
          }
     }
   evas_object_smart_callback_add(list, "expand,request", _expand_request_cb, list);
   evas_object_smart_callback_add(list, "contract,request", _contract_request_cb, list);
   evas_object_smart_callback_add(list, "expanded", _expanded_cb, list);
   evas_object_smart_callback_add(list, "contracted", _contracted_cb, list);
   evas_object_resize(win, 420, 600);
   evas_object_show(win);
   return 0;
}