/* Go to date dialog for gnomecal
 *
 * Copyright (C) 1998 Red Hat Software, Inc.
 *
 * Author: Federico Mena <federico@nuclecu.unam.mx>
 */

#include <config.h>
#include <gnome.h>
#include "gnome-cal.h"
#include "gnome-month-item.h"
#include "main.h"
#include "mark.h"
#include "timeutil.h"


static GtkWidget *goto_win;		/* The goto dialog window */
static GnomeCanvasItem *month_item;	/* The month item in the dialog */
static GnomeCalendar *gnome_calendar;	/* The gnome calendar the dialog refers to */
static gulong day_pixels[42];		/* Colors of the day backgrounds */


/* Updates the specified month item by marking it appropriately from the calendar the dialog refers
 * to. */
static void
update (void)
{
	int i;
	GnomeCanvasItem *item;
	GtkArg arg;
	GdkColor *c;

	/* First, mark the days */

	unmark_month_item (GNOME_MONTH_ITEM (month_item));
	mark_month_item (GNOME_MONTH_ITEM (month_item), gnome_calendar->cal);

	/* Now save the colors of the day backgrounds */

	for (i = 0; i < 42; i++) {
		arg.name = "fill_color_gdk";

		item = gnome_month_item_num2child (GNOME_MONTH_ITEM (month_item),
						   GNOME_MONTH_ITEM_DAY_BOX + i);
		gtk_object_getv (GTK_OBJECT (item), 1, &arg);

		c = GTK_VALUE_BOXED (arg);
		day_pixels[i] = c->pixel;
		g_free (c);
	}
}

/* Callback used when the year adjustment is changed */
static void
year_changed (GtkAdjustment *adj, gpointer data)
{
	gnome_canvas_item_set (month_item,
			       "year", (int) adj->value,
			       NULL);
	update ();
}

/* Creates the year control with its adjustment */
static GtkWidget *
create_year (int year)
{
	GtkWidget *hbox;
	GtkAdjustment *adj;
	GtkWidget *w;

	hbox = gtk_hbox_new (FALSE, GNOME_PAD_SMALL);

	w = gtk_label_new (_("Year:"));
	gtk_box_pack_start (GTK_BOX (hbox), w, FALSE, FALSE, 0);
	gtk_widget_show (w);

	adj = GTK_ADJUSTMENT (gtk_adjustment_new (year, 1900, 9999, 1, 10, 10));
	gtk_signal_connect (GTK_OBJECT (adj), "value_changed",
			    (GtkSignalFunc) year_changed,
			    NULL);

	w = gtk_spin_button_new (adj, 1.0, 0);
	gtk_widget_set_usize (w, 60, 0);
	gtk_box_pack_start (GTK_BOX (hbox), w, FALSE, FALSE, 0);
	gtk_widget_show (w);

	return hbox;
}

/* Callback used when a month button is toggled */
static void
month_toggled (GtkToggleButton *toggle, gpointer data)
{
	if (!toggle->active)
		return;

	gnome_canvas_item_set (month_item,
			       "month", GPOINTER_TO_INT (data),
			       NULL);
	update ();
}

/* Creates the months control */
static GtkWidget *
create_months (int month)
{
	GtkWidget *table;
	GtkWidget *w;
	GSList *group;
	int i, row, col;
	struct tm tm;
	char buf[100];

	tm = *localtime (&gnome_calendar->current_display);

	table = gtk_table_new (2, 6, TRUE);

	group = NULL;

	for (i = 0; i < 12; i++) {
		row = i / 6;
		col = i % 6;

		tm.tm_mon = i;
		strftime (buf, 100, "%b", &tm);

		w = gtk_radio_button_new (group);
		group = gtk_radio_button_group (GTK_RADIO_BUTTON (w));
		gtk_toggle_button_set_mode (GTK_TOGGLE_BUTTON (w), FALSE);

		gtk_container_add (GTK_CONTAINER (w), gtk_label_new (buf));

		if (i == month)
			gtk_toggle_button_set_state (GTK_TOGGLE_BUTTON (w), TRUE);

		gtk_signal_connect (GTK_OBJECT (w), "toggled",
				    (GtkSignalFunc) month_toggled,
				    GINT_TO_POINTER (i));
		gtk_table_attach (GTK_TABLE (table), w,
				  col, col + 1,
				  row, row + 1,
				  GTK_EXPAND | GTK_FILL,
				  GTK_EXPAND | GTK_FILL,
				  0, 0);
		gtk_widget_show_all (w);
	}

	return table;
}

/* Sets the scrolling region of the canvas to the allocation size */
static void
set_scroll_region (GtkWidget *widget, GtkAllocation *allocation)
{
	gnome_canvas_item_set (month_item,
			       "width", (double) (allocation->width - 1),
			       "height", (double) (allocation->height - 1),
			       NULL);

	gnome_canvas_set_scroll_region (GNOME_CANVAS (widget),
					0, 0,
					allocation->width, allocation->height);
}

/* Event handler for day groups in the month item.  A button press makes the calendar jump to the
 * selected day and destroys the Go-to dialog box.  Days are prelighted as appropriate on
 * enter_notify and leave_notify events.
 */
static gint
day_event (GnomeCanvasItem *item, GdkEvent *event, gpointer data)
{
	GnomeCanvasItem *box;
	int child_num, day;
	GdkColor color;

	child_num = gnome_month_item_child2num (GNOME_MONTH_ITEM (month_item), item);
	day = gnome_month_item_num2day (GNOME_MONTH_ITEM (month_item), child_num);

	child_num -= GNOME_MONTH_ITEM_DAY_GROUP;

	if (day == 0)
		return FALSE;

	switch (event->type) {
	case GDK_BUTTON_PRESS:
		if ((event->button.button == 1) && (day != 0)) {
			gnome_calendar_goto (gnome_calendar,
					     time_from_day (GNOME_MONTH_ITEM (month_item)->year,
							    GNOME_MONTH_ITEM (month_item)->month, day));
			gtk_widget_destroy (goto_win);
		}
		break;

	case GDK_ENTER_NOTIFY:
		box = gnome_month_item_num2child (GNOME_MONTH_ITEM (month_item),
						  child_num + GNOME_MONTH_ITEM_DAY_BOX);
		gnome_canvas_item_set (box,
				       "fill_color", color_spec_from_prop (COLOR_PROP_PRELIGHT_DAY_BG),
				       NULL);
		break;

	case GDK_LEAVE_NOTIFY:
		box = gnome_month_item_num2child (GNOME_MONTH_ITEM (month_item),
						  child_num + GNOME_MONTH_ITEM_DAY_BOX);
		color.pixel = day_pixels[child_num];
		gnome_canvas_item_set (box,
				       "fill_color_gdk", &color,
				       NULL);
		break;

	default:
		break;
	}

	return FALSE;
}

/* Creates the canvas with the month item for selecting days */
static GtkWidget *
create_days (int day, int month, int year)
{
	GtkWidget *canvas;
	int i;
	GnomeCanvasItem *day_group;

	canvas = gnome_canvas_new ();
	gnome_canvas_set_size (GNOME_CANVAS (canvas), 150, 120);

	month_item = gnome_month_item_new (gnome_canvas_root (GNOME_CANVAS (canvas)));
	gnome_canvas_item_set (month_item,
			       "month", month,
			       "year", year,
			       "start_on_monday", week_starts_on_monday,
			       NULL);
	update ();

	/* Connect to size_allocate so that we can change the size of the month item and the
	 * scrolling region appropriately.
	 */

	gtk_signal_connect (GTK_OBJECT (canvas), "size_allocate",
			    (GtkSignalFunc) set_scroll_region,
			    NULL);

	/* Bind the day groups to our event handler */

	for (i = 0; i < 42; i++) {
		day_group = gnome_month_item_num2child (GNOME_MONTH_ITEM (month_item), i + GNOME_MONTH_ITEM_DAY_GROUP);
		gtk_signal_connect (GTK_OBJECT (day_group), "event",
				    (GtkSignalFunc) day_event,
				    NULL);
	}

	return canvas;
}

static void
goto_today (GtkWidget *widget, gpointer data)
{
	gnome_calendar_goto_today (gnome_calendar);
	gtk_widget_destroy (goto_win);
}

/* Creates a "goto date" dialog and runs it */
void
goto_dialog (GnomeCalendar *gcal)
{
	GtkWidget *vbox;
	GtkWidget *hbox;
	GtkWidget *w;
	struct tm *tm;

	gnome_calendar = gcal;

	tm = localtime (&gnome_calendar->current_display);

	goto_win = gnome_dialog_new (_("Go to date"),
				     GNOME_STOCK_BUTTON_CANCEL,
				     NULL);

	vbox = GNOME_DIALOG (goto_win)->vbox;

	/* Instructions */

	w = gtk_label_new (_("Please select the date you want to go to.\n"
			     "When you click on a day, you will be taken\n"
			     "to that date."));
	gtk_label_set_justify (GTK_LABEL (w), GTK_JUSTIFY_LEFT);
	gtk_misc_set_alignment (GTK_MISC (w), 0.0, 0.0);
	gtk_box_pack_start (GTK_BOX (vbox), w, FALSE, FALSE, 0);
	gtk_widget_show (w);

	/* Year */

	w = create_year (tm->tm_year + 1900);
	gtk_box_pack_start (GTK_BOX (vbox), w, FALSE, FALSE, 0);
	gtk_widget_show (w);

	/* Month */

	w = create_months (tm->tm_mon);
	gtk_box_pack_start (GTK_BOX (vbox), w, FALSE, FALSE, 0);
	gtk_widget_show (w);

	/* Days (canvas with month item) */

	w = create_days (tm->tm_mday, tm->tm_mon, tm->tm_year + 1900);
	gtk_box_pack_start (GTK_BOX (vbox), w, TRUE, TRUE, 0);
	gtk_widget_show (w);

	/* Today button */

	hbox = gtk_hbox_new (FALSE, 0);
	gtk_box_pack_start (GTK_BOX (vbox), hbox, FALSE, FALSE, 0);
	gtk_widget_show (hbox);

	w = gtk_button_new_with_label (_("Go to today"));
	gtk_signal_connect (GTK_OBJECT (w), "clicked",
			    (GtkSignalFunc) goto_today,
			    NULL);
	gtk_box_pack_start (GTK_BOX (hbox), w, FALSE, FALSE, 0);
	gtk_widget_show (w);

	/* Run! */

	gnome_dialog_set_modal (GNOME_DIALOG (goto_win));
	gnome_dialog_set_close (GNOME_DIALOG (goto_win), TRUE);
	gnome_dialog_set_parent (GNOME_DIALOG (goto_win), GTK_WINDOW (gnome_calendar));
	gtk_widget_show (goto_win);
}