/*
 * Copyright (C) 2012 Andy Spencer <andy753421@gmail.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 3 of the License, 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/>.
 */

#define _XOPEN_SOURCE_EXTENDED

#include <ncurses.h>

#include "util.h"
#include "date.h"
#include "cal.h"
#include "view.h"

/* Static data */
static int     line;
static WINDOW *win;
static WINDOW *head;
static WINDOW *times;
static WINDOW *body;

/* Week init */
void week_init(WINDOW *_win)
{
	win   = _win; //  lines  cols  y  x
	head  = derwin(win,         2, COLS,   0, 0);
	times = derwin(win, LINES-2-3,      5, 3, 0);
	body  = derwin(win, LINES-2-3, COLS-6, 3, 6);
	line  = 10*4; // 10:00
}

/* Week size */
void week_size(int rows, int cols)
{
	int hdr = 3-COMPACT;
	wresize(head,  2,        cols  );
	wresize(times, rows-hdr,      5);
	wresize(body,  rows-hdr, cols-6);
	mvderwin(times, hdr, 0);
	mvderwin(body,  hdr, 6);
}

/* Week draw */
void week_draw(void)
{
	int x = 6;
	int y = 3 - COMPACT;
	const float hstep = (float)(COLS-x)/7.0;

	/* Get start of week */
	year_t  year  = YEAR;
	month_t month = MONTH;
	day_t   day   = DAY;
	int shift = day_of_week(year, month, day);
	add_days(&year, &month, &day, -shift);

	/* For today */
	int l = x+ROUND((shift+0)*hstep)-1;
	int r = x+ROUND((shift+1)*hstep)-1;

	/* Print Header */
	int rev = COMPACT ? A_REVERSE | A_BOLD : 0;
	wattron(head, rev);
	mvwprintw(head, 0, 0, "%-*s",   COLS, month_to_str(MONTH));
	mvwprintw(head, 1, 0, "%-0*d", COLS, YEAR);
	wattroff(head, rev);
	mvwhline(head,  0, l+1, ' ', r-l-1);
	mvwhline(head,  1, l+1, ' ', r-l-1);
	wattron(head, rev);
	for (int d = 0; d < 7; d++) {
		const char *str = hstep >= 10 ? day_to_string(d) : day_to_str(d);
		if (d == shift) wattrset(head, A_BOLD);
		mvwprintw(head, 0, x+ROUND(d*hstep), "%s", str);
		mvwprintw(head, 1, x+ROUND(d*hstep), "%02d/%02d", month+1, day+1);
		if (d == shift) wattrset(head, rev);
		add_days(&year, &month, &day, 1);
	}
	wattroff(head, rev);

	/* Print times */
	mvwprintw(times, 0, 0, "%02d:%02d", ((line/4)-1)%12+1, (line*15)%60);
	for (int h = 0; h < 24; h++)
		mvwprintw(times, h*4-line, 0, "%02d:%02d", (h-1)%12+1, 0);

	/* Print events */
	event_t *event = EVENTS;
	add_days(&year, &month, &day, -7);
	for (int d = 0; d <  7; d++, add_days(&year,&month,&day,1))
	for (int h = 0; h < 24; h++)
	for (int m = 0; m < 60; m+=15)
	while (event && before(&event->start,
			year, month, day, h+(m+15)/60, (m+15)%60)) {
		if (!before(&event->start, year, month, day, h, m)) {
			int y = h*4 + m/15 - line;
			int x = ROUND(d*hstep);
			int h = (get_mins(&event->start, &event->end)-1)/15+1;
			int w = ROUND((d+1)*hstep) - 1 - x;
			event_box(body, event, y, x, h, w);
		}
		event = event->next;
	}

	/* Print lines */
	if (!COMPACT)
		mvwhline(win, y-1, 0, ACS_HLINE, COLS);
	for (int d = 0; d < 7; d++)
		mvwvline(win, y, x+ROUND(d*hstep)-1, ACS_VLINE, LINES-y-2+COMPACT);

	/* Draw today */
	if (!COMPACT)
		mvwhline(win, y-1, l, ACS_BLOCK, r-l+1);
	mvwvline_set(win, y,   l, WACS_T_VLINE, LINES-y-2);
	mvwvline_set(win, y,   r, WACS_T_VLINE, LINES-y-2);
	for (int h = (line+3)/4; h < 24; h++) {
		mvwadd_wch(win, y+h*4-line, l, WACS_T_LTEE);
		mvwadd_wch(win, y+h*4-line, r, WACS_T_RTEE);
	}
}

/* Week run */
int week_run(int key, mmask_t btn, int row, int col)
{
	int days = 0, ref = 0;
	switch (key)
	{
		case 'h': ref = 1; days = -1; break;
		case 'l': ref = 1; days =  1; break;
		case 'i': ref = 1; days = -7; break;
		case 'o': ref = 1; days =  7; break;
		case 'k': ref = 1; line--;    break;
		case 'j': ref = 1; line++;    break;
	}
	line = CLAMP(line, 0, 24*4);
	if (days)
		add_days(&YEAR, &MONTH, &DAY, days);
	if (ref) {
		werase(win);
		week_draw();
		wrefresh(win);
	}
	return ref;
}