/* $Id: panel.c,v 1.15 2011/02/02 02:28:04 khorben Exp $ */
/* Copyright (c) 2011 Pierre Pronchery <khorben@defora.org> */
/* This file is part of DeforaOS Desktop Phone */
/* This program is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, version 3 of the License.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program.  If not, see <http://www.gnu.org/licenses/>. */



#include <System.h>
#include <stdlib.h>
#ifdef DEBUG
# include <stdio.h>
#endif
#include <string.h>
#include <gtk/gtk.h>
#include "Phone.h"
#include "../phone.h"


/* Panel */
/* private */
/* types */
typedef enum _PanelBattery
{
	PANEL_BATTERY_UNKNOWN = 0,
	PANEL_BATTERY_ERROR,
	PANEL_BATTERY_EMPTY,
	PANEL_BATTERY_CAUTION,
	PANEL_BATTERY_LOW,
	PANEL_BATTERY_GOOD,
	PANEL_BATTERY_FULL
} PanelBattery;
#define PANEL_BATTERY_LAST	PANEL_BATTERY_FULL
#define PANEL_BATTERY_COUNT	(PANEL_BATTERY_LAST + 1)

typedef enum _PanelSignal
{
	PANEL_SIGNAL_UNKNOWN,
	PANEL_SIGNAL_00,
	PANEL_SIGNAL_25,
	PANEL_SIGNAL_50,
	PANEL_SIGNAL_75,
	PANEL_SIGNAL_100
} PanelSignal;
#define PANEL_SIGNAL_LAST	PANEL_SIGNAL_100
#define PANEL_SIGNAL_COUNT	(PANEL_SIGNAL_LAST + 1)

typedef struct _Panel
{
	guint timeout;
	GtkWidget * plug;
	GtkWidget * hbox;
	/* battery */
	PanelBattery battery_level;
	GtkWidget * battery_image;
	guint battery_timeout;
	/* cell type */
	GtkWidget * cell;
	/* signal */
	PanelSignal signal_level;
	GtkWidget * signal_image;
	/* operator */
	GtkWidget * operator;
	/* preferences */
	GtkWidget * window;
	GtkWidget * battery;
} Panel;


/* prototypes */
static int _panel_init(PhonePlugin * plugin);
static int _panel_destroy(PhonePlugin * plugin);
static int _panel_event(PhonePlugin * plugin, PhoneEvent event, ...);
static void _panel_settings(PhonePlugin * plugin);

static void _panel_set_operator(Panel * panel, char const * operator);
static void _panel_set_signal_level(Panel * panel, gdouble level);


/* public */
/* variables */
PhonePlugin plugin =
{
	NULL,
	"Panel",
	"gnome-monitor",
	_panel_init,
	_panel_destroy,
	_panel_event,
	_panel_settings,
	NULL
};


/* private */
/* functions */
/* panel_init */
static gboolean _on_plug_delete_event(gpointer data);
static void _on_plug_embedded(gpointer data);
static gboolean _on_battery_timeout(gpointer data);

static int _panel_init(PhonePlugin * plugin)
{
	Panel * panel;
	PangoFontDescription * bold;
	char const * p;

#ifdef DEBUG
	fprintf(stderr, "DEBUG: %s()\n", __func__);
#endif
	if((panel = object_new(sizeof(*panel))) == NULL)
		return 1;
	plugin->priv = panel;
	panel->timeout = 0;
	bold = pango_font_description_new();
	pango_font_description_set_weight(bold, PANGO_WEIGHT_BOLD);
	panel->plug = gtk_plug_new(0);
	g_signal_connect_swapped(G_OBJECT(panel->plug), "delete-event",
			G_CALLBACK(_on_plug_delete_event), plugin);
	g_signal_connect_swapped(G_OBJECT(panel->plug), "embedded", G_CALLBACK(
				_on_plug_embedded), plugin);
	panel->hbox = gtk_hbox_new(FALSE, 2);
	/* battery */
	panel->battery_timeout = 0;
	panel->battery_level = -1;
	panel->battery_image = gtk_image_new();
	gtk_box_pack_start(GTK_BOX(panel->hbox), panel->battery_image, FALSE,
			TRUE, 0);
	if((p = plugin->helper->config_get(plugin->helper->phone, "panel",
					"battery")) == NULL
			|| strcmp(p, "1") != 0)
		gtk_widget_set_no_show_all(panel->battery_image, TRUE);
	/* cell type */
	panel->cell = gtk_image_new_from_icon_name("stock_internet",
			GTK_ICON_SIZE_SMALL_TOOLBAR);
	gtk_widget_set_no_show_all(panel->cell, TRUE);
	gtk_box_pack_start(GTK_BOX(panel->hbox), panel->cell, FALSE, TRUE, 0);
	/* signal */
	panel->signal_level = -1;
	panel->signal_image = gtk_image_new();
	gtk_box_pack_start(GTK_BOX(panel->hbox), panel->signal_image, FALSE,
			TRUE, 0);
	panel->operator = gtk_label_new(NULL);
	gtk_label_set_ellipsize(GTK_LABEL(panel->operator),
			PANGO_ELLIPSIZE_END);
#if GTK_CHECK_VERSION(2, 6, 0)
	gtk_label_set_max_width_chars(GTK_LABEL(panel->operator), 12);
#endif
	gtk_widget_modify_font(panel->operator, bold);
	gtk_box_pack_start(GTK_BOX(panel->hbox), panel->operator, TRUE, TRUE,
			0);
	_panel_set_signal_level(panel, 0.0 / 0.0);
	gtk_container_add(GTK_CONTAINER(panel->plug), panel->hbox);
	gtk_widget_show_all(panel->hbox);
	/* preferences */
	panel->window = NULL;
	pango_font_description_free(bold);
	_on_plug_delete_event(plugin);
	return 0;
}

static gboolean _on_plug_delete_event(gpointer data)
{
	PhonePlugin * plugin = data;
	Panel * panel = plugin->priv;
	GdkEvent event;
	GdkEventClient * client = &event.client;

#ifdef DEBUG
	fprintf(stderr, "DEBUG: %s()\n", __func__);
#endif
	if(panel->timeout == 0)
		panel->timeout = g_timeout_add(5000, _on_plug_delete_event,
				plugin);
	memset(&event, 0, sizeof(event));
	client->type = GDK_CLIENT_EVENT;
	client->window = NULL;
	client->send_event = TRUE;
	client->message_type = gdk_atom_intern(PHONE_EMBED_MESSAGE, FALSE);
	client->data_format = 32;
	client->data.l[0] = gtk_plug_get_id(GTK_PLUG(panel->plug));
	gdk_event_send_clientmessage_toall(&event);
	return TRUE;
}

static void _on_plug_embedded(gpointer data)
{
	PhonePlugin * plugin = data;
	Panel * panel = plugin->priv;

#ifdef DEBUG
	fprintf(stderr, "DEBUG: %s()\n", __func__);
#endif
	if(panel->timeout != 0)
		g_source_remove(panel->timeout);
	panel->timeout = 0;
	gtk_widget_show(panel->plug);
#if 0 /* XXX disabled for now because of a race condition */
	plugin->helper->queue(plugin->helper->phone, "AT+COPS?");
#endif
}

static gboolean _on_battery_timeout(gpointer data)
{
	PhonePlugin * plugin = data;

	plugin->helper->queue(plugin->helper->phone, "AT+CBC");
	return TRUE;
}


/* panel_destroy */
static int _panel_destroy(PhonePlugin * plugin)
{
	Panel * panel = plugin->priv;

	if(panel->battery_timeout != 0)
		g_source_remove(panel->battery_timeout);
	if(panel->timeout != 0)
		g_source_remove(panel->timeout);
	gtk_widget_destroy(panel->hbox);
	return 0;
}


/* panel_event */
static int _event_set_battery_level(Panel * panel, gdouble level);
static int _event_set_cell_type(Panel * panel, gboolean gprs);
static void _set_battery_image(Panel * panel, PanelBattery battery);

static int _panel_event(PhonePlugin * plugin, PhoneEvent event, ...)
{
	Panel * panel = plugin->priv;
	va_list ap;
	char const * operator;
	gdouble level;
	gboolean active;

#ifdef DEBUG
	fprintf(stderr, "DEBUG: %s(plugin, %u, ...)\n", __func__, event);
#endif
	va_start(ap, event);
	switch(event)
	{
		case PHONE_EVENT_BATTERY_LEVEL:
			level = va_arg(ap, gdouble);
			_event_set_battery_level(panel, level);
			break;
		case PHONE_EVENT_FUNCTIONAL:
			/* FIXME should be disabled upon errors fetching CBC */
			if(gtk_widget_get_no_show_all(panel->battery_image)
					== TRUE || panel->battery_timeout != 0)
				break;
			panel->battery_timeout = g_timeout_add(5000,
					_on_battery_timeout, plugin);
			_on_battery_timeout(plugin);
			break;
		case PHONE_EVENT_GPRS_ATTACHMENT:
			active = va_arg(ap, gboolean);
			_event_set_cell_type(panel, active);
			break;
		case PHONE_EVENT_SET_OPERATOR:
			operator = va_arg(ap, char const *);
			_panel_set_operator(panel, operator);
			break;
		case PHONE_EVENT_SET_SIGNAL_LEVEL:
			level = va_arg(ap, gdouble);
			_panel_set_signal_level(panel, level);
			break;
		default:
			break;
	}
	va_end(ap);
	return 0;
}

static int _event_set_battery_level(Panel * panel, gdouble level)
{
#ifdef DEBUG
	fprintf(stderr, "DEBUG: %s(plugin, %lf)\n", __func__, level);
#endif
	if(level < 0.0)
		_set_battery_image(panel, PANEL_BATTERY_UNKNOWN);
	else if(level <= 1.0)
		_set_battery_image(panel, PANEL_BATTERY_EMPTY);
	else if(level <= 10.0)
		_set_battery_image(panel, PANEL_BATTERY_CAUTION);
	else if(level <= 20.0)
		_set_battery_image(panel, PANEL_BATTERY_LOW);
	else if(level <= 75.0)
		_set_battery_image(panel, PANEL_BATTERY_GOOD);
	else if(level <= 100.0)
		_set_battery_image(panel, PANEL_BATTERY_FULL);
	else
		_set_battery_image(panel, PANEL_BATTERY_ERROR);
	return 0;
}

static void _set_battery_image(Panel * panel, PanelBattery battery)
{
	char const * icons[PANEL_BATTERY_COUNT] =
	{
		"stock_dialog-question",
		"battery-missing",
		"battery-empty",
		"battery-caution",
		"battery-low",
		"battery-good",
		"battery-full"
	};

	if(panel->battery_level == battery)
		return;
	panel->battery_level = battery;
	/* XXX may not be the correct size */
	gtk_image_set_from_icon_name(GTK_IMAGE(panel->battery_image),
			icons[battery], GTK_ICON_SIZE_SMALL_TOOLBAR);
}

static int _event_set_cell_type(Panel * panel, gboolean gprs)
{
	if(gprs)
		gtk_widget_show(panel->cell);
	else
		gtk_widget_hide(panel->cell);
	return 0;
}


/* panel_set_operator */
static void _panel_set_operator(Panel * panel, char const * operator)
{
	gtk_label_set_text(GTK_LABEL(panel->operator), operator);
}


/* panel_set_signal_level */
static void _signal_level_set_image(Panel * panel, PanelSignal signal);

static void _panel_set_signal_level(Panel * panel, gdouble level)
{
	if(level < 0.0)
	{
		if(panel->signal_level != PANEL_SIGNAL_00)
			_panel_set_operator(panel, "");
		_signal_level_set_image(panel, PANEL_SIGNAL_00);
	}
	else if(level < 0.25)
		_signal_level_set_image(panel, PANEL_SIGNAL_25);
	else if(level < 0.50)
		_signal_level_set_image(panel, PANEL_SIGNAL_50);
	else if(level < 0.75)
		_signal_level_set_image(panel, PANEL_SIGNAL_75);
	else if(level <= 1.0)
		_signal_level_set_image(panel, PANEL_SIGNAL_100);
	else
		_signal_level_set_image(panel, PANEL_SIGNAL_UNKNOWN);
}

static void _signal_level_set_image(Panel * panel, PanelSignal signal)
{
	char const * icons[PANEL_SIGNAL_COUNT] =
	{
		"network-wireless",
		"phone-signal-00",
		"phone-signal-25",
		"phone-signal-50",
		"phone-signal-75",
		"phone-signal-100"
	};

	if(panel->signal_level == signal)
		return;
	panel->signal_level = signal;
	/* XXX may not be the correct size */
	gtk_image_set_from_icon_name(GTK_IMAGE(panel->signal_image),
			icons[signal], GTK_ICON_SIZE_SMALL_TOOLBAR);
}


/* panel_settings */
static void _on_settings_cancel(gpointer data);
static gboolean _on_settings_closex(gpointer data);
static void _on_settings_ok(gpointer data);

static void _panel_settings(PhonePlugin * plugin)
{
	Panel * panel = plugin->priv;
	GtkWidget * vbox;
	GtkWidget * bbox;
	GtkWidget * widget;

	if(panel->window != NULL)
	{
		gtk_window_present(GTK_WINDOW(panel->window));
		return;
	}
	panel->window = gtk_window_new(GTK_WINDOW_TOPLEVEL);
	gtk_container_set_border_width(GTK_CONTAINER(panel->window), 4);
	gtk_window_set_default_size(GTK_WINDOW(panel->window), 200, 300);
#if GTK_CHECK_VERSION(2, 6, 0)
	gtk_window_set_icon_name(GTK_WINDOW(panel->window), "gnome-settings");
#endif
	gtk_window_set_title(GTK_WINDOW(panel->window), "Panel preferences");
	g_signal_connect_swapped(G_OBJECT(panel->window), "delete-event",
			G_CALLBACK(_on_settings_closex), plugin);
	vbox = gtk_vbox_new(FALSE, 0);
	/* check button */
	panel->battery = gtk_check_button_new_with_label(
			"Monitor battery activity");
	gtk_box_pack_start(GTK_BOX(vbox), panel->battery, FALSE, TRUE, 0);
	/* button box */
	bbox = gtk_hbutton_box_new();
	gtk_button_box_set_layout(GTK_BUTTON_BOX(bbox), GTK_BUTTONBOX_END);
	gtk_button_box_set_spacing(GTK_BUTTON_BOX(bbox), 4);
	widget = gtk_button_new_from_stock(GTK_STOCK_CANCEL);
	g_signal_connect_swapped(G_OBJECT(widget), "clicked", G_CALLBACK(
				_on_settings_cancel), plugin);
	gtk_container_add(GTK_CONTAINER(bbox), widget);
	widget = gtk_button_new_from_stock(GTK_STOCK_OK);
	g_signal_connect_swapped(G_OBJECT(widget), "clicked", G_CALLBACK(
				_on_settings_ok), plugin);
	gtk_container_add(GTK_CONTAINER(bbox), widget);
	gtk_box_pack_end(GTK_BOX(vbox), bbox, FALSE, TRUE, 0);
	gtk_container_add(GTK_CONTAINER(panel->window), vbox);
	_on_settings_cancel(plugin);
	gtk_widget_show_all(panel->window);
}

static void _on_settings_cancel(gpointer data)
{
	PhonePlugin * plugin = data;
	Panel * panel = plugin->priv;
	char const * p;

	if((p = plugin->helper->config_get(plugin->helper->phone, "panel",
					"battery")) == NULL
			|| strtoul(p, NULL, 10) == 0)
		gtk_toggle_button_set_active(GTK_TOGGLE_BUTTON(panel->battery),
				FALSE);
	else
		gtk_toggle_button_set_active(GTK_TOGGLE_BUTTON(panel->battery),
				TRUE);
	gtk_widget_hide(panel->window);
}

static gboolean _on_settings_closex(gpointer data)
{
	PhonePlugin * plugin = data;
	Panel * panel = plugin->priv;

	gtk_widget_hide(panel->window);
	return TRUE;
}

static void _on_settings_ok(gpointer data)
{
	PhonePlugin * plugin = data;
	Panel * panel = plugin->priv;
	gboolean value;

	if((value = gtk_toggle_button_get_active(GTK_TOGGLE_BUTTON(
						panel->battery))) == TRUE)
	{
		if(panel->battery_timeout == 0)
			panel->battery_timeout = g_timeout_add(5000,
					_on_battery_timeout, plugin);
		_on_battery_timeout(plugin);
		gtk_widget_show(panel->battery_image);
	}
	else
	{
		gtk_widget_hide(panel->battery_image);
		if(panel->battery_timeout != 0)
			g_source_remove(panel->battery_timeout);
		panel->battery_timeout = 0;
	}
	gtk_widget_set_no_show_all(panel->battery_image, !value);
	plugin->helper->config_set(plugin->helper->phone, "panel", "battery",
			value ? "1" : "0");
	gtk_widget_hide(panel->window);
}