#include <u.h>
#include <libc.h>
#include <draw.h>
#include <thread.h>
#include <mouse.h>
#include <keyboard.h>
#include <control.h>

typedef struct Slider Slider;

struct Slider
{
	Control;
	int		border;
	CImage	*image;
	CImage	*textcolor;
	CImage	*bordercolor;
	CImage	*indicatorcolor;
	int		absolute;
	int		max;
	int		vis;
	int		value;
	int		clamphigh;
	int		clamplow;
	int		horizontal;
	int		lastbut;
};

enum{
	EAbsolute,
	EBorder,
	EBordercolor,
	EClamp,
	EFocus,
	EFormat,
	EHide,
	EImage,
	EIndicatorcolor,
	EMax,
	EOrient,
	ERect,
	EReveal,
	EShow,
	ESize,
	EValue,
	EVis,
};

static char *cmds[] = {
	[EAbsolute] =		"absolute",
	[EBorder] =		"border",
	[EBordercolor] =	"bordercolor",
	[EClamp] =		"clamp",
	[EFocus] = 		"focus",
	[EFormat] = 		"format",
	[EHide] =			"hide",
	[EImage] =		"image",
	[EIndicatorcolor] =	"indicatorcolor",
	[EMax] =			"max",
	[EOrient] =		"orient",
	[ERect] =			"rect",
	[EReveal] =		"reveal",
	[EShow] =			"show",
	[ESize] =			"size",
	[EValue] =			"value",
	[EVis] =			"vis",
};

static void
sliderfree(Control *c)
{
	Slider *s;

	s = (Slider*)c;
	_putctlimage(s->image);
	_putctlimage(s->textcolor);
	_putctlimage(s->bordercolor);
	_putctlimage(s->indicatorcolor);
}

static void
slidershow(Slider *s)
{
	Rectangle r, t;
	int l, h, d;

	if (s->hidden)
		return;
	r = s->rect;
	draw(s->screen, r, s->image->image, nil, s->image->image->r.min);
	if(s->border > 0){
		border(s->screen, r, s->border, s->bordercolor->image, s->bordercolor->image->r.min);
		r = insetrect(r, s->border);
	}
	if(s->max <= 0)
		return;
	if(s->horizontal)
		d = Dx(r);
	else
		d = Dy(r);
	l = muldiv(s->value, d, s->max);
	h = muldiv(s->value+s->vis, d, s->max);
	if(s->clamplow && s->clamphigh){
		l = 0;
		h = d;
	}else if(s->clamplow){
		h = l;
		l = 0;
	}else if(s->clamphigh)
		h = d;
	t = r;
	if(s->horizontal){
		r.max.x = r.min.x+h;
		r.min.x += l;
	}else{
		r.max.y = r.min.y+h;
		r.min.y += l;
	}
	if(rectclip(&r, t))
		draw(s->screen, r, s->indicatorcolor->image, nil, s->indicatorcolor->image->r.min);
	flushimage(display, 1);
}

static void
sliderctl(Control *c, CParse *cp)
{
	int cmd, prev;
	Rectangle r;
	Slider *s;

	s = (Slider*)c;
	cmd = _ctllookup(cp->args[0], cmds, nelem(cmds));
	switch(cmd){
	default:
		ctlerror("%q: unrecognized message '%s'", s->name, cp->str);
		break;
	case EAbsolute:
		_ctlargcount(s, cp, 2);
		s->absolute = cp->iargs[1];
		break;
	case EBorder:
		_ctlargcount(s, cp, 2);
		if(cp->iargs[1] < 0)
			ctlerror("%q: bad border: %c", s->name, cp->str);
		s->border = cp->iargs[1];
		break;
	case EBordercolor:
		_ctlargcount(s, cp, 2);
		_setctlimage(s, &s->bordercolor, cp->args[1]);
		break;
	case EClamp:
		_ctlargcount(s, cp, 3);
		if(strcmp(cp->args[1], "high") == 0)
			s->clamphigh = cp->iargs[2];
		else if(strcmp(cp->args[1], "low") == 0)
			s->clamplow = cp->iargs[2];
		else
			ctlerror("%q: unrecognized clamp: %s", s->name, cp->str);
		break;
	case EFocus:
		/* ignore focus change */
		break;
	case EFormat:
		_ctlargcount(s, cp, 2);
		s->format = ctlstrdup(cp->args[1]);
		break;
	case EHide:
		_ctlargcount(s, cp, 1);
		s->hidden = 1;
		break;
	case EImage:
		_ctlargcount(s, cp, 2);
		_setctlimage(s, &s->image, cp->args[1]);
		break;
	case EIndicatorcolor:
		_ctlargcount(s, cp, 2);
		_setctlimage(s, &s->indicatorcolor, cp->args[1]);
		break;
	case EMax:
		_ctlargcount(s, cp, 2);
		if(cp->iargs[1] < 0)
			ctlerror("%q: negative max value: %s", s->name, cp->str);
		if(s->max != cp->iargs[1]){
			s->max = cp->iargs[1];
			slidershow(s);
		}
		break;
	case EOrient:
		_ctlargcount(s, cp, 2);
		prev = s->horizontal;
		if(strncmp(cp->args[1], "hor", 3) == 0)
			s->horizontal = 1;
		else if(strncmp(cp->args[1], "ver", 3) == 0)
			s->horizontal = 0;
		else
			ctlerror("%q: unrecognized orientation: %s", s->name, cp->str);
		if(s->horizontal != prev)
			slidershow(s);
		break;
	case ERect:
		_ctlargcount(s, cp, 5);
		r.min.x = cp->iargs[1];
		r.min.y = cp->iargs[2];
		r.max.x = cp->iargs[3];
		r.max.y = cp->iargs[4];
		if(Dx(r)<=0 || Dy(r)<=0)
			ctlerror("%q: bad rectangle: %s", s->name, cp->str);
		s->rect = r;
		break;
	case EReveal:
		_ctlargcount(s, cp, 1);
		s->hidden = 0;
		slidershow(s);
		break;
	case EShow:
		_ctlargcount(s, cp, 1);
		slidershow(s);
		break;
	case ESize:
		if (cp->nargs == 3)
			r.max = Pt(0x7fffffff, 0x7fffffff);
		else{
			_ctlargcount(s, cp, 5);
			r.max.x = cp->iargs[3];
			r.max.y = cp->iargs[4];
		}
		r.min.x = cp->iargs[1];
		r.min.y = cp->iargs[2];
		if(r.min.x<=0 || r.min.y<=0 || r.max.x<=0 || r.max.y<=0 || r.max.x < r.min.x || r.max.y < r.min.y)
			ctlerror("%q: bad sizes: %s", s->name, cp->str);
		s->size.min = r.min;
		s->size.max = r.max;
		break;
	case EValue:
		_ctlargcount(s, cp, 2);
		if(s->value != cp->iargs[1]){
			s->value = cp->iargs[1];
			slidershow(s);
		}
		break;
	case EVis:
		_ctlargcount(s, cp, 2);
		if(s->vis != cp->iargs[1]){
			s->vis = cp->iargs[1];
			slidershow(s);
		}
		break;
	}
}

static void
slidermouse(Control *c, Mouse *m)
{
	Rectangle r;
	int v, l, d, b;
	Slider *s;

	s =(Slider*)c;
	if(m->buttons == 0){
		/* buttons now up */
		s->lastbut = 0;
		return;
	}
	if(!s->absolute && s->lastbut==m->buttons && s->lastbut!=2){
		/* clicks only on buttons 1 & 3; continuous motion on 2 (or when absolute) */
		return;
	}
	if(s->lastbut!=0 && m->buttons!=s->lastbut){
		/* buttons down have changed; wait for button up */
		return;
	}
	s->lastbut = m->buttons;

	r = insetrect(s->rect, s->border);
	if(s->horizontal){
		v = m->xy.x - r.min.x;
		d = Dx(r);
	}else{
		v = m->xy.y - r.min.y;
		d = Dy(r);
	}
	if(s->absolute)
		b = 2;
	else
		b = m->buttons;
	switch(b){
	default:
		return;
	case 1:
		l = s->value - muldiv(v, s->vis, d);
		break;
	case 2:
		l = muldiv(v, s->max, d);
		break;
	case 4:
		l = s->value + muldiv(v, s->vis, d);
		break;
	}
	if(l < 0)
		l = 0;
	if(l > s->max)
		l = s->max;
	if(l != s->value){
		s->value = l;
		chanprint(s->event, s->format, s->name, s->value);
		slidershow(s);
	}
}

Control*
createslider(Controlset *cs, char *name)
{
	Slider *s;

	s = (Slider*)_createctl(cs, "slider", sizeof(Slider), name);
	s->image = _getctlimage("white");
	s->textcolor = _getctlimage("black");
	s->bordercolor = _getctlimage("black");
	s->indicatorcolor = _getctlimage("black");
	s->format = ctlstrdup("%q: value %d");
	s->border = 0;
	s->mouse = slidermouse;
	s->ctl = sliderctl;
	s->exit = sliderfree;
	return (Control*)s;
}