/* -*- Mode: C; tab-width: 8; indent-tabs-mode: t; c-basic-offset: 8 -*-
 *
 * Copyright (C) 2012 Red Hat, Inc.
 *
 * Written by: Ondrej Holy <oholy@redhat.com>,
 *
 * 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; either version 2, or (at your option)
 * any later version.
 *
 * 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 <config.h>

#include <glib/gi18n.h>
#include <string.h>
#include <gdk/gdk.h>
#include <gdk/x11/gdkx.h>
#include <math.h>

#include "cc-mouse-test.h"

#include <sys/types.h>
#include <sys/stat.h>

/* Click test button sizes. */
#define SHADOW_SIZE (10.0 / 180 * size)
#define SHADOW_SHIFT_Y (-1.0 / 180 * size)
#define SHADOW_OPACITY (0.15 / 180 * size)
#define OUTER_CIRCLE_SIZE (22.0 / 180 * size)
#define ANNULUS_SIZE (6.0 / 180 * size)
#define INNER_CIRCLE_SIZE (52.0 / 180 * size)

static void setup_information_label (CcMouseTest *self);
static void setup_scroll_image (CcMouseTest *self);

enum
{
	DOUBLE_CLICK_TEST_OFF,
	DOUBLE_CLICK_TEST_MAYBE,
	DOUBLE_CLICK_TEST_ON,
	DOUBLE_CLICK_TEST_STILL_ON,
	DOUBLE_CLICK_TEST_ALMOST_THERE,
	DOUBLE_CLICK_TEST_GEGL
};

struct _CcMouseTest
{
	AdwBin parent_instance;

	GtkWidget *button_drawing_area;
	GtkWidget *information_label;
	GtkWidget *image;
	GtkWidget *scrolled_window_adjustment;
	GtkWidget *viewport;

	guint32 double_click_timestamp;
	gint double_click_state;
	gint button_state;

	GSettings *mouse_settings;

	gint information_label_timeout_id;
	gint button_drawing_area_timeout_id;
	gint scroll_image_timeout_id;
};

G_DEFINE_TYPE (CcMouseTest, cc_mouse_test, ADW_TYPE_BIN);

/* Timeout for the double click test */

static gboolean
test_maybe_timeout (CcMouseTest *self)
{
	self->double_click_state = DOUBLE_CLICK_TEST_OFF;

	gtk_widget_queue_draw (self->button_drawing_area);

	self->button_drawing_area_timeout_id = 0;

	return FALSE;
}

/* Timeout for the information label */

static gboolean
information_label_timeout (CcMouseTest *self)
{
	setup_information_label (self);

	self->information_label_timeout_id = 0;

	return FALSE;
}

/* Timeout for the scroll image */

static gboolean
scroll_image_timeout (CcMouseTest *self)
{
	setup_scroll_image (self);

	self->scroll_image_timeout_id = 0;

	return FALSE;
}

/* Set information label */

static void
setup_information_label (CcMouseTest *self)
{
	const gchar *message = NULL;
	g_autofree gchar *label_text = NULL;
	gboolean double_click;

	if (self->information_label_timeout_id != 0) {
		g_source_remove (self->information_label_timeout_id);
		self->information_label_timeout_id = 0;
	}

	if (self->double_click_state == DOUBLE_CLICK_TEST_OFF) {
		gtk_label_set_label (GTK_LABEL (self->information_label), _("Try clicking, double clicking, scrolling"));
		return;
	}

	if (self->double_click_state == DOUBLE_CLICK_TEST_GEGL) {
		message = _("Five clicks, GEGL time!");
	} else {
		double_click = (self->double_click_state >= DOUBLE_CLICK_TEST_ON);
		switch (self->button_state) {
		case 1:
			message = (double_click) ? _("Double click, primary button") : _("Single click, primary button");
			break;
		case 2:
			message = (double_click) ? _("Double click, middle button") : _("Single click, middle button");
			break;
		case 3:
			message = (double_click) ? _("Double click, secondary button") : _("Single click, secondary button");
			break;
		}
	}

	label_text = g_strconcat ("<b>", message, "</b>", NULL);
	gtk_label_set_markup (GTK_LABEL (self->information_label), label_text);

	self->information_label_timeout_id = g_timeout_add (2500, (GSourceFunc) information_label_timeout, self);
}

/* Update scroll image */

static void
setup_scroll_image (CcMouseTest *self)
{
	const char *resource;

	if (self->scroll_image_timeout_id != 0) {
		g_source_remove (self->scroll_image_timeout_id);
		self->scroll_image_timeout_id = 0;
	}

	if (self->double_click_state == DOUBLE_CLICK_TEST_GEGL)
		resource = "/org/gnome/control-center/mouse/scroll-test-gegl.svg";
	else
		resource = "/org/gnome/control-center/mouse/scroll-test.svg";
	gtk_picture_set_resource (GTK_PICTURE (self->image), resource);

	if (self->double_click_state != DOUBLE_CLICK_TEST_GEGL)
		return;

	self->scroll_image_timeout_id = g_timeout_add (5000, (GSourceFunc) scroll_image_timeout, self);
}

/* Callback issued when the user clicks the double click testing area. */

static void
button_drawing_area_button_pressed_cb (GtkGestureClick *click_gesture,
                                       gint             n_press,
                                       gdouble          x,
                                       gdouble          y,
                                       CcMouseTest     *self)
{
	guint32 event_time;
	guint current_button;
	gint double_click_time;

	current_button = gtk_gesture_single_get_current_button (GTK_GESTURE_SINGLE (click_gesture));

	if (current_button > 3)
		return;

	double_click_time = g_settings_get_int (self->mouse_settings, "double-click");

	if (self->button_drawing_area_timeout_id != 0) {
		g_source_remove (self->button_drawing_area_timeout_id);
		self->button_drawing_area_timeout_id = 0;
	}

	/* Ignore fake double click using different buttons. */
	if (self->double_click_state != DOUBLE_CLICK_TEST_OFF && self->button_state != current_button)
		self->double_click_state = DOUBLE_CLICK_TEST_OFF;

	event_time = gtk_event_controller_get_current_event_time (GTK_EVENT_CONTROLLER (click_gesture));
	switch (self->double_click_state) {
	case DOUBLE_CLICK_TEST_OFF:
		self->double_click_state = DOUBLE_CLICK_TEST_MAYBE;
		self->button_drawing_area_timeout_id = g_timeout_add (double_click_time, (GSourceFunc) test_maybe_timeout, self);
		break;
	case DOUBLE_CLICK_TEST_MAYBE:
	case DOUBLE_CLICK_TEST_ON:
	case DOUBLE_CLICK_TEST_STILL_ON:
	case DOUBLE_CLICK_TEST_ALMOST_THERE:
		if (event_time - self->double_click_timestamp < double_click_time) {
			self->double_click_state++;
			self->button_drawing_area_timeout_id = g_timeout_add (2500, (GSourceFunc) test_maybe_timeout, self);
		} else {
			test_maybe_timeout (self);
		}
		break;
	case DOUBLE_CLICK_TEST_GEGL:
		self->double_click_state = DOUBLE_CLICK_TEST_OFF;
		break;
	}

	self->double_click_timestamp = event_time;

	gtk_widget_queue_draw (self->button_drawing_area);

	self->button_state = current_button;
	setup_information_label (self);
	setup_scroll_image (self);
}

static void
button_drawing_area_draw_func (GtkDrawingArea *drawing_area,
                               cairo_t        *cr,
                               int             width,
                               int             height,
                               gpointer        user_data)
{
	CcMouseTest *self = CC_MOUSE_TEST (user_data);
	gdouble center_x, center_y, size;
	GdkRGBA inner_color, outer_color;
	cairo_pattern_t *pattern;

	size = MAX (MIN (width, height), 1);
	center_x = width / 2.0;
	center_y = height / 2.0;

	switch (self->double_click_state) {
	case DOUBLE_CLICK_TEST_ON:
	case DOUBLE_CLICK_TEST_STILL_ON:
	case DOUBLE_CLICK_TEST_ALMOST_THERE:
	case DOUBLE_CLICK_TEST_GEGL:
		gdk_rgba_parse (&outer_color, "#729fcf");
		gdk_rgba_parse (&inner_color, "#729fcf");
		break;
	case DOUBLE_CLICK_TEST_MAYBE:
		gdk_rgba_parse (&outer_color, "#729fcf");
		gdk_rgba_parse (&inner_color, "#ffffff");
		break;
	case DOUBLE_CLICK_TEST_OFF:
		gdk_rgba_parse (&outer_color, "#ffffff");
		gdk_rgba_parse (&inner_color, "#ffffff");
		break;
	}

	/* Draw shadow. */
	cairo_rectangle (cr, center_x - size / 2,  center_y - size / 2, size, size);
	pattern = cairo_pattern_create_radial (center_x, center_y, 0, center_x, center_y, size);
	cairo_pattern_add_color_stop_rgba (pattern, 0.5 - SHADOW_SIZE / size, 0, 0, 0, SHADOW_OPACITY);
	cairo_pattern_add_color_stop_rgba (pattern, 0.5, 0, 0, 0, 0);
	cairo_set_source (cr, pattern);
	cairo_fill (cr);

	/* Draw outer circle. */
	cairo_set_line_width (cr, OUTER_CIRCLE_SIZE);
	cairo_arc (cr, center_x, center_y + SHADOW_SHIFT_Y,
		   INNER_CIRCLE_SIZE + ANNULUS_SIZE + OUTER_CIRCLE_SIZE / 2,
		   0, 2 * G_PI);
	gdk_cairo_set_source_rgba (cr, &outer_color);
	cairo_stroke (cr);

	/* Draw inner circle. */
	cairo_set_line_width (cr, 0);
	cairo_arc (cr, center_x, center_y + SHADOW_SHIFT_Y,
		   INNER_CIRCLE_SIZE,
		   0, 2 * G_PI);
	gdk_cairo_set_source_rgba (cr, &inner_color);
	cairo_fill (cr);
}

static void
setup_dialog (CcMouseTest *self)
{
	GtkAdjustment *adjustment;
	GtkStyleProvider *provider;

	adjustment = GTK_ADJUSTMENT (self->scrolled_window_adjustment);
	gtk_adjustment_set_value (adjustment,
				  gtk_adjustment_get_upper (adjustment));

	provider = GTK_STYLE_PROVIDER (gtk_css_provider_new ());
	gtk_css_provider_load_from_data (GTK_CSS_PROVIDER (provider), "* {background: #26a269;}", -1);
	gtk_style_context_add_provider (gtk_widget_get_style_context (self->viewport),
					provider,
					GTK_STYLE_PROVIDER_PRIORITY_APPLICATION);
	g_object_unref (provider);
}

static void
cc_mouse_test_finalize (GObject *object)
{
	CcMouseTest *self = CC_MOUSE_TEST (object);

	g_clear_object (&self->mouse_settings);

	if (self->information_label_timeout_id != 0) {
		g_source_remove (self->information_label_timeout_id);
		self->information_label_timeout_id = 0;
	}

	if (self->scroll_image_timeout_id != 0) {
		g_source_remove (self->scroll_image_timeout_id);
		self->scroll_image_timeout_id = 0;
	}

	if (self->button_drawing_area_timeout_id != 0) {
		g_source_remove (self->button_drawing_area_timeout_id);
		self->button_drawing_area_timeout_id = 0;
	}

	G_OBJECT_CLASS (cc_mouse_test_parent_class)->finalize (object);
}

static void
cc_mouse_test_class_init (CcMouseTestClass *klass)
{
	GtkWidgetClass *widget_class = GTK_WIDGET_CLASS (klass);
	GObjectClass *object_class = G_OBJECT_CLASS (klass);

	object_class->finalize = cc_mouse_test_finalize;

	gtk_widget_class_set_template_from_resource (widget_class, "/org/gnome/control-center/mouse/cc-mouse-test.ui");

	gtk_widget_class_bind_template_child (widget_class, CcMouseTest, button_drawing_area);
	gtk_widget_class_bind_template_child (widget_class, CcMouseTest, information_label);
	gtk_widget_class_bind_template_child (widget_class, CcMouseTest, image);
	gtk_widget_class_bind_template_child (widget_class, CcMouseTest, scrolled_window_adjustment);
	gtk_widget_class_bind_template_child (widget_class, CcMouseTest, viewport);

	gtk_widget_class_bind_template_callback (widget_class, button_drawing_area_button_pressed_cb);
}

static void
cc_mouse_test_init (CcMouseTest *self)
{
	gtk_widget_init_template (GTK_WIDGET (self));

	gtk_drawing_area_set_draw_func (GTK_DRAWING_AREA (self->button_drawing_area),
					button_drawing_area_draw_func,
					self, NULL);

	self->double_click_timestamp = 0;
	self->double_click_state = DOUBLE_CLICK_TEST_OFF;
	self->button_state = 0;

	self->mouse_settings = g_settings_new ("org.gnome.desktop.peripherals.mouse");

	self->information_label_timeout_id = 0;
	self->button_drawing_area_timeout_id = 0;
	self->scroll_image_timeout_id = 0;

	setup_dialog (self);
}

GtkWidget *
cc_mouse_test_new (void)
{
	return (GtkWidget *) g_object_new (CC_TYPE_MOUSE_TEST, NULL);
}