/* $Id$ */
/* Copyright (c) 2011-2020 Pierre Pronchery <khorben@defora.org> */
/* This file is part of DeforaOS Desktop Phone */
/* Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions are
 * met:
 *
 * 1. Redistributions of source code must retain the above copyright notice,
 *    this list of conditions and the following disclaimer.
 *
 * 2. Redistributions in binary form must reproduce the above copyright notice,
 *    this list of conditions and the following disclaimer in the documentation
 *    and/or other materials provided with the distribution.
 *
 * THIS SOFTWARE IS PROVIDED BY ITS AUTHORS AND CONTRIBUTORS "AS IS" AND ANY
 * EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
 * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
 * DISCLAIMED.  IN NO EVENT SHALL THE AUTHORS OR CONTRIBUTORS BE LIABLE FOR ANY
 * DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
 * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
 * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
 * ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. */
/* FIXME:
 * - track battery and signal status only when online */



#include <System.h>
#include <stdlib.h>
#ifdef DEBUG
# include <stdio.h>
#endif
#include <string.h>
#include <gtk/gtk.h>
#if GTK_CHECK_VERSION(3, 0, 0)
# include <gtk/gtkx.h>
#endif
#include <Desktop.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 _PhonePlugin
{
	PhonePluginHelper * helper;

	guint timeout;
	GtkWidget * plug;
	GtkWidget * hbox;
	/* battery */
	PanelBattery battery_level;
	GtkWidget * battery_image;
	guint battery_timeout;
	/* connection status */
	GtkWidget * data;
	GtkWidget * roaming;
	/* signal */
	PanelSignal signal_level;
	GtkWidget * signal_image;
	/* operator */
	GtkWidget * operator;
	/* preferences */
	GtkWidget * window;
	GtkWidget * battery;
	GtkWidget * truncate;
} Panel;


/* prototypes */
static Panel * _panel_init(PhonePluginHelper * helper);
static void _panel_destroy(Panel * panel);
static int _panel_event(Panel * panel, PhoneEvent * event);
static void _panel_settings(Panel * panel);

static void _panel_set_battery_level(Panel * panel, gdouble level,
		gboolean charging);
static void _panel_set_operator(Panel * panel, ModemRegistrationStatus status,
		char const * _operator);
static void _panel_set_signal_level(Panel * panel, gdouble level);
static void _panel_set_status(Panel * panel, gboolean data, gboolean roaming);


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


/* 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 Panel * _panel_init(PhonePluginHelper * helper)
{
	Panel * panel;
	PangoFontDescription * bold;
	char const * p;

#ifdef DEBUG
	fprintf(stderr, "DEBUG: %s()\n", __func__);
#endif
	if((panel = object_new(sizeof(*panel))) == NULL)
		return NULL;
	panel->helper = helper;
	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(panel->plug, "delete-event", G_CALLBACK(
				_on_plug_delete_event), panel);
	g_signal_connect_swapped(panel->plug, "embedded", G_CALLBACK(
				_on_plug_embedded), panel);
#if GTK_CHECK_VERSION(3, 0, 0)
	panel->hbox = gtk_box_new(GTK_ORIENTATION_HORIZONTAL, 2);
#else
	panel->hbox = gtk_hbox_new(FALSE, 2);
#endif
	/* 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 = helper->config_get(helper->phone, "panel", "battery")) == NULL
			|| strtol(p, NULL, 10) == 0)
		gtk_widget_set_no_show_all(panel->battery_image, TRUE);
	else if(_on_battery_timeout(panel) == TRUE)
		panel->battery_timeout = g_timeout_add(5000,
				_on_battery_timeout, panel);
	/* 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);
	/* operator */
	panel->operator = gtk_label_new(NULL);
	if((p = helper->config_get(helper->phone, "panel", "truncate")) != NULL
			&& strtol(p, NULL, 10) != 0)
		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);
	/* connection status */
	panel->data = gtk_image_new_from_icon_name("stock_internet",
			GTK_ICON_SIZE_SMALL_TOOLBAR);
#if GTK_CHECK_VERSION(2, 12, 0)
	gtk_widget_set_tooltip_text(panel->data, "Connected to GPRS");
#endif
	gtk_widget_set_no_show_all(panel->data, TRUE);
	gtk_box_pack_start(GTK_BOX(panel->hbox), panel->data, FALSE, TRUE, 0);
	panel->roaming = gtk_image_new_from_icon_name("phone-roaming",
			GTK_ICON_SIZE_SMALL_TOOLBAR);
#if GTK_CHECK_VERSION(2, 12, 0)
	gtk_widget_set_tooltip_text(panel->roaming, "Roaming");
#endif
	gtk_widget_set_no_show_all(panel->roaming, TRUE);
	gtk_box_pack_start(GTK_BOX(panel->hbox), panel->roaming, FALSE, TRUE,
			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(panel);
	return panel;
}

static gboolean _on_plug_delete_event(gpointer data)
{
	Panel * panel = data;

#ifdef DEBUG
	fprintf(stderr, "DEBUG: %s()\n", __func__);
#endif
	if(panel->timeout == 0)
		panel->timeout = g_timeout_add(5000, _on_plug_delete_event,
				panel);
	desktop_message_send(PHONE_EMBED_MESSAGE, gtk_plug_get_id(
				GTK_PLUG(panel->plug)), 0, 0);
	return TRUE;
}

static void _on_plug_embedded(gpointer data)
{
	Panel * panel = data;
	PhonePluginHelper * helper = panel->helper;

#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);
	helper->trigger(helper->phone, MODEM_EVENT_TYPE_REGISTRATION);
}

static gboolean _on_battery_timeout(gpointer data)
{
	Panel * panel = data;
	ModemRequest request;

	memset(&request, 0, sizeof(request));
	request.type = MODEM_REQUEST_BATTERY_LEVEL;
	panel->helper->request(panel->helper->phone, &request);
	return TRUE;
}


/* panel_destroy */
static void _panel_destroy(Panel * panel)
{
	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);
	object_delete(panel);
}


/* panel_event */
static int _event_modem_event(Panel * panel, ModemEvent * event);

static int _panel_event(Panel * panel, PhoneEvent * event)
{
	switch(event->type)
	{
		case PHONE_EVENT_TYPE_MODEM_EVENT:
			return _event_modem_event(panel,
					event->modem_event.event);
		case PHONE_EVENT_TYPE_OFFLINE:
			_panel_set_operator(panel, -1, "Offline");
			_panel_set_signal_level(panel, 0.0 / 0.0);
			_panel_set_status(panel, FALSE, FALSE);
			break;
		case PHONE_EVENT_TYPE_STARTING:
			_panel_set_operator(panel, -1, "Connecting...");
			_panel_set_signal_level(panel, 0.0 / 0.0);
			_panel_set_status(panel, FALSE, FALSE);
			break;
		case PHONE_EVENT_TYPE_STOPPED:
			_panel_set_operator(panel, -1, "Disconnected");
			_panel_set_signal_level(panel, 0.0 / 0.0);
			_panel_set_status(panel, FALSE, FALSE);
			break;
		case PHONE_EVENT_TYPE_UNAVAILABLE:
			_panel_set_operator(panel, -1, "Unavailable");
			_panel_set_signal_level(panel, 0.0 / 0.0);
			_panel_set_status(panel, FALSE, FALSE);
			break;
		default:
			break;
	}
	return 0;
}

static int _event_modem_event(Panel * panel, ModemEvent * event)
{
	char const * media = "";
	gboolean data;

	switch(event->type)
	{
		case MODEM_EVENT_TYPE_BATTERY_LEVEL:
			_panel_set_battery_level(panel,
					event->battery_level.level,
					event->battery_level.charging);
			break;
		case MODEM_EVENT_TYPE_REGISTRATION:
			media = event->registration.media;
			data = (media != NULL && strcmp("GPRS", media) == 0)
				? TRUE : FALSE;
			_panel_set_operator(panel, event->registration.status,
					event->registration._operator);
			_panel_set_signal_level(panel,
					event->registration.signal);
			_panel_set_status(panel, data,
					event->registration.roaming);
			break;
		default:
			break;
	}
	return 0;
}


/* panel_set_battery_level */
static void _set_battery_image(Panel * panel, PanelBattery battery,
		gboolean charging);

static void _panel_set_battery_level(Panel * panel, gdouble level,
		gboolean charging)
{
#ifdef DEBUG
	fprintf(stderr, "DEBUG: %s(panel, %f)\n", __func__, level);
#endif
#if GTK_CHECK_VERSION(2, 12, 0)
	char buf[32];

	snprintf(buf, sizeof(buf), "%.0f%%%s", level * 100.0, charging
			? " (charging)" : "");
#endif
	if(level < 0.0)
	{
#if GTK_CHECK_VERSION(2, 12, 0)
		snprintf(buf, sizeof(buf), "%s", "Unknown status");
#endif
		_set_battery_image(panel, PANEL_BATTERY_UNKNOWN, charging);
	}
	else if(level <= 0.01)
		_set_battery_image(panel, PANEL_BATTERY_EMPTY, charging);
	else if(level <= 0.1)
		_set_battery_image(panel, PANEL_BATTERY_CAUTION, charging);
	else if(level <= 0.2)
		_set_battery_image(panel, PANEL_BATTERY_LOW, charging);
	else if(level <= 0.75)
		_set_battery_image(panel, PANEL_BATTERY_GOOD, charging);
	else if(level <= 1.0)
		_set_battery_image(panel, PANEL_BATTERY_FULL, charging);
	else
	{
#if GTK_CHECK_VERSION(2, 12, 0)
		snprintf(buf, sizeof(buf), "%s", "Error");
#endif
		_set_battery_image(panel, PANEL_BATTERY_ERROR, FALSE);
	}
#if GTK_CHECK_VERSION(2, 12, 0)
	gtk_widget_set_tooltip_text(panel->battery_image, buf);
#endif
}

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

	if(panel->battery_level == battery)
		return;
	if((panel->battery_level = battery) == PANEL_BATTERY_ERROR)
		gtk_widget_hide(panel->battery_image);
	else
	{
		/* XXX may not be the correct size */
		gtk_image_set_from_icon_name(GTK_IMAGE(panel->battery_image),
				charging ? icons[battery].charging
				: icons[battery].icon,
				GTK_ICON_SIZE_SMALL_TOOLBAR);
		gtk_widget_show(panel->battery_image);
	}
}


/* panel_set_operator */
static void _panel_set_operator(Panel * panel, ModemRegistrationStatus status,
		char const * _operator)
{
	switch(status)
	{
		case MODEM_REGISTRATION_STATUS_DENIED:
			_operator = "Denied";
			break;
		case MODEM_REGISTRATION_STATUS_NOT_SEARCHING:
			_operator = "Not searching";
			break;
		case MODEM_REGISTRATION_STATUS_SEARCHING:
			_operator = "Searching...";
			break;
		case MODEM_REGISTRATION_STATUS_UNKNOWN:
			_operator = "Unknown";
			break;
		case MODEM_REGISTRATION_STATUS_REGISTERED:
			if(_operator == NULL)
				_operator = "Registered";
		default:
			break;
	}
	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)
		_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_set_status */
static void _panel_set_status(Panel * panel, gboolean data, gboolean roaming)
{
	if(data)
		gtk_widget_show(panel->data);
	else
		gtk_widget_hide(panel->data);
	if(roaming)
		gtk_widget_show(panel->roaming);
	else
		gtk_widget_hide(panel->roaming);
}


/* 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(Panel * panel)
{
	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(panel->window, "delete-event", G_CALLBACK(
				_on_settings_closex), panel);
#if GTK_CHECK_VERSION(3, 0, 0)
	vbox = gtk_box_new(GTK_ORIENTATION_VERTICAL, 0);
#else
	vbox = gtk_vbox_new(FALSE, 0);
#endif
	/* 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);
	panel->truncate = gtk_check_button_new_with_label(
			"Shorten the operator name");
	gtk_box_pack_start(GTK_BOX(vbox), panel->truncate, FALSE, TRUE, 0);
	/* button box */
#if GTK_CHECK_VERSION(3, 0, 0)
	bbox = gtk_button_box_new(GTK_ORIENTATION_HORIZONTAL);
#else
	bbox = gtk_hbutton_box_new();
#endif
	gtk_button_box_set_layout(GTK_BUTTON_BOX(bbox), GTK_BUTTONBOX_END);
	gtk_box_set_spacing(GTK_BOX(bbox), 4);
	widget = gtk_button_new_from_stock(GTK_STOCK_CANCEL);
	g_signal_connect_swapped(widget, "clicked", G_CALLBACK(
				_on_settings_cancel), panel);
	gtk_container_add(GTK_CONTAINER(bbox), widget);
	widget = gtk_button_new_from_stock(GTK_STOCK_OK);
	g_signal_connect_swapped(widget, "clicked", G_CALLBACK(_on_settings_ok),
			panel);
	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(panel);
	gtk_widget_show_all(panel->window);
}

static void _on_settings_cancel(gpointer data)
{
	Panel * panel = data;
	PhonePluginHelper * helper = panel->helper;
	char const * p;
	gboolean active;

	active = ((p = helper->config_get(helper->phone, "panel", "battery"))
			!= NULL && strtoul(p, NULL, 10) != 0) ? TRUE : FALSE;
	gtk_toggle_button_set_active(GTK_TOGGLE_BUTTON(panel->battery), active);
	active = ((p = helper->config_get(helper->phone, "panel", "truncate"))
			!= NULL && strtoul(p, NULL, 10) != 0) ? TRUE : FALSE;
	gtk_toggle_button_set_active(GTK_TOGGLE_BUTTON(panel->truncate),
			active);
	gtk_widget_hide(panel->window);
}

static gboolean _on_settings_closex(gpointer data)
{
	Panel * panel = data;

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

static void _on_settings_ok(gpointer data)
{
	Panel * panel = data;
	PhonePluginHelper * helper = panel->helper;
	gboolean value;

	gtk_widget_hide(panel->window);
	/* battery */
	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, panel);
		_on_battery_timeout(panel);
		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);
	helper->config_set(helper->phone, "panel", "battery", value
			? "1" : "0");
	/* truncate */
	value = gtk_toggle_button_get_active(GTK_TOGGLE_BUTTON(
				panel->truncate));
	gtk_label_set_ellipsize(GTK_LABEL(panel->operator), value
			? PANGO_ELLIPSIZE_END : PANGO_ELLIPSIZE_NONE);
	helper->config_set(helper->phone, "panel", "truncate", value
			? "1" : "0");
}