#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,
	EImage,
	EIndicatorcolor,
	EMax,
	EOrient,
	ERect,
	EShow,
	EValue,
	EVis,
};

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

static void	sliderctl(Control*, char*);
static void	slidershow(Slider*);
static void	slidermouse(Slider*);
static void	sliderfree(Slider*);

static void
sliderthread(void *v)
{
	char buf[32];
	Slider *s;

	s = v;

	snprint(buf, sizeof buf, "slider-%s-0x%p", s->name, s);
	threadsetname(buf);

	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;

	for(;;){
		switch(alt(s->alts)){
		default:
			ctlerror("%q: unknown message", s->name);
		case AKey:
			break;
		case AMouse:
			slidermouse(s);
			break;
		case ACtl:
			_ctlcontrol(s, s->str, sliderctl);
			free(s->str);
			break;
		case AWire:
			_ctlrewire(s);
			break;
		case AExit:
			sliderfree(s);
			sendul(s->exit, 0);
			return;
		}
	}
}

Control*
createslider(Controlset *cs, char *name)
{
	return _createctl(cs, "slider", sizeof(Slider), name, sliderthread, 0);
}

static void
sliderfree(Slider *s)
{
	_putctlimage(s->image);
	_putctlimage(s->textcolor);
	_putctlimage(s->bordercolor);
	_putctlimage(s->indicatorcolor);
}

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

	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, char *str)
{
	int cmd, prev;
	CParse cp;
	Rectangle r;
	Slider *s;

	s = (Slider*)c;
	cmd = _ctlparse(&cp, str, 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 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 EShow:
		_ctlargcount(s, &cp, 1);
		slidershow(s);
		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(Slider *s)
{
	Rectangle r;
	int v, l, d, b;

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

	r = insetrect(s->rect, s->border);
	if(s->horizontal){
		v = s->m.xy.x - r.min.x;
		d = Dx(r);
	}else{
		v = s->m.xy.y - r.min.y;
		d = Dy(r);
	}
	if(s->absolute)
		b = 2;
	else
		b = s->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;
		printctl(s->event, s->format, s->name, s->value);
		slidershow(s);
	}
}