#include <u.h>#include <libc.h>#include <bio.h>#include <draw.h>#include <keyboard.h>#include <mouse.h>#include <thread.h>#include <tos.h> #define MAX(a,b) ((a)>=(b)?(a):(b)) enum {	Off = 3,}; static int wctl = -1, owidth, width, twidth, bottom, bat, minheight, seplen, sepw, hlitem;static int lastpx;static char sep[16], bats[16], *aux;static char *pos = "rb", *dfmt = "YYYY/MM/DD WW hh:mm:ss", *items[64];static int itemw[64], nitems;static Image *cback, *ctext;static Tzone *local;static Font *f; #pragma varargck type "|" char*static intsepfmt(Fmt *f){	return fmtstrcpy(f, va_arg(f->args, char*)[0] ? sep : "");} static voidplace(void){	int w, h, minx, miny, maxx, maxy;	char t[64];	static int ow, oh; 	if(wctl < 0 && (wctl = open("/dev/wctl", OWRITE)) < 0)		return; 	fprint(wctl, bottom ? "bottom" : "top");	w = Dx(display->image->r);	h = Dy(display->image->r); 	if(ow != w || oh != h || owidth < width){		if(pos[0] == 't' || pos[1] == 't'){			miny = 0;			maxy = minheight;		}else{			miny = h - minheight;			maxy = h;		}		if(pos[0] == 'l' || pos[1] == 'l'){			minx = 0;			maxx = MAX(100, Borderwidth+Off+width+Off+Borderwidth);		}else if(pos[0] == 'r' || pos[1] == 'r'){			minx = MAX(100, w-(Borderwidth+Off+width+Off+Borderwidth));			maxx = w;		}else{			minx = (w-MAX(100, Borderwidth+Off+width+Off+Borderwidth))/2;			maxx = (w+MAX(100, Borderwidth+Off+width+Off+Borderwidth))/2;		}		snprint(t, sizeof(t), "resize -r %d %d %d %d", minx, miny, maxx, maxy);		write(wctl, "current", 7);		if(fprint(wctl, "%s", t) < 0)			fprint(2, "%s: %r\n", t);		ow = w;		oh = h;		owidth = width;	}} static voidsplit(char *s){	char *i; 	for(nitems = 0, i = s; nitems < nelem(items); s += seplen, i = s){		if((s = strstr(s, sep)) != nil)			*s = 0;		if(*i == 0)			continue;		items[nitems] = i;		itemw[nitems++] = stringwidth(f, i);		if(s == nil)			break;	}	} static voidredraw(void){	static char s[1024];	char tmp[1024];	Rectangle r;	Tmfmt tf;	Point p;	Tm tm;	int i; 	r = screen->r; 	tf = tmfmt(tmnow(&tm, local), dfmt);	p.x = r.min.x + Off;	p.y = (pos[0] == 't' || pos[1] == 't') ? r.max.y - (f->height + Off) : r.min.y + Off;	if(pos[0] == 'l' || pos[1] == 'l'){		snprint(s, sizeof(s), "%τ%|%s%|%s", tf, bats, bats, aux, aux);	}else{		snprint(s, sizeof(s), "%s%|%s%|%τ", aux, aux, bats, bats, tf);		if(pos[0] == 'r' || pos[1] == 'r')			p.x = r.max.x - (stringwidth(f, s) + Off);	}	lastpx = p.x;	draw(screen, r, cback, nil, ZP);	string(screen, p, ctext, ZP, f, s);	if(hlitem >= 0){		r.min.x = lastpx;		for(i = 0; i < hlitem; i++)			r.min.x += itemw[i] + sepw;		r.max.x = r.min.x + itemw[i];		replclipr(screen, 0, r);		stringbg(screen, p, cback, ZP, f, s, ctext, ZP);		replclipr(screen, 0, screen->r);	}	split(s); 	flushimage(display, 1); 	snprint(tmp, sizeof(tmp), "%τ", tf);	twidth = MAX(twidth, stringwidth(f, tmp));	snprint(tmp, sizeof(tmp), "%|%s%|%s", bats, bats[0] ? "100%" : "", aux, aux);	width = twidth + stringwidth(f, tmp);	if(owidth != width)		place();} static voidreadbattery(void){	char *s, tmp[16]; 	s = bat < 0 || pread(bat, tmp, 4, 0) < 4 ? nil : strchr(tmp, ' ');	if(s != nil){		*s = 0;		snprint(bats, sizeof(bats), "%s%%", tmp);	}else{		bats[0] = 0;	}} static voidtimerproc(void *c){	threadsetname("timer");	for(;;){		sleep(990);		sendul(c, 0);	}} static voidauxproc(void *c){	u8int buf[1024];	Biobufhdr b;	char *s; 	threadsetname("aux");	Binits(&b, 0, OREAD, buf, sizeof(buf));	for(;;){		sendp(c, s = Brdstr(&b, '\n', 1));		if(s == nil)			break;	}	Bterm(&b); 	threadexits(nil);} static voidusage(void){	fprint(2, "usage: %s [-b] [-d dateformat] [-p lt|t|rt|lb|b|rb] [-s separator]\n", argv0);	threadexitsall("usage");} static voidclicked(int x, int buttons){	int i, ix; 	x -= lastpx;	for(i = ix = 0; i < nitems; i++){		if(x >= ix && x <= ix+itemw[i]){			fprint(1, "%d\t%s\n", buttons, items[i]);			hlitem = i;			break;		}		ix += itemw[i] + sepw;	}} voidthreadmain(int argc, char **argv){	Keyboardctl *kctl;	Mousectl *mctl;	uvlong t, oldt;	int oldbuttons;	char *s, *v[3];	u32int brgb;	Biobuf *b;	Rune key;	Mouse m;	enum {		Emouse,		Eresize,		Ekeyboard,		Eaux,		Etimer,		Eend,	};	Alt a[] = {		[Emouse] = { nil, &m, CHANRCV },		[Eresize] = { nil, nil, CHANRCV },		[Ekeyboard] = { nil, &key, CHANRCV },		[Eaux] = { nil, &s, CHANRCV },		[Etimer] = { nil, nil, CHANRCV },		[Eend] = { nil, nil, CHANEND },	}; 	strcpy(sep, " │ ");	ARGBEGIN{	case 'b':		bottom = 1;		break;	case 'd':		dfmt = EARGF(usage());		break;	case 'p':		pos = EARGF(usage());		break;	case 's':		snprint(sep, sizeof(sep), "%s", EARGF(usage()));		break;	default:		usage();	}ARGEND	seplen = strlen(sep); 	fmtinstall('|', sepfmt);	tmfmtinstall();	if((local = tzload("local")) == nil)		sysfatal("zone: %r"); 	brgb = DPalegreygreen;	if((b = Bopen("/dev/theme", OREAD)) != nil){		while((s = Brdline(b, '\n')) != nil){			s[Blinelen(b)-1] = 0;			if(tokenize(s, v, nelem(v)) > 1 && strcmp(v[0], "ltitle") == 0){				brgb = strtoul(v[1], nil, 16)<<8 | 0xff;				break;			}		}		Bterm(b);	} 	if((bat = open("/mnt/pm/battery", OREAD)) < 0)		bat = open("/dev/battery", OREAD);	if(initdraw(nil, nil, "bar") < 0)		sysfatal("initdraw: %r");	f = display->defaultfont;	minheight = 2*(Borderwidth+1) + f->height;	sepw = stringwidth(f, sep);	if((mctl = initmouse(nil, screen)) == nil)		sysfatal("initmouse: %r");	if((kctl = initkeyboard(nil)) == nil)		sysfatal("initkeyboard: %r"); 	cback = allocimage(display, Rect(0,0,1,1), RGB24, 1, brgb);	if(brgb == DPalegreygreen)		brgb = DBlack;	else{ /* dunno, just invert */		brgb = ~(brgb>>8 | brgb>>16 | brgb>>24);		brgb = brgb<<8 | brgb<<16 | brgb<<24 | 0xff;	}	ctext = allocimage(display, Rect(0,0,1,1), RGB24, 1, brgb); 	a[Emouse].c = mctl->c;	a[Eresize].c = mctl->resizec;	a[Ekeyboard].c = kctl->c;	a[Eaux].c = chancreate(sizeof(s), 0);	a[Etimer].c = chancreate(sizeof(ulong), 0); 	hlitem = -1;	aux = strdup("");	readbattery();	redraw();	proccreate(timerproc, a[Etimer].c, 4096);	proccreate(auxproc, a[Eaux].c, 4096); 	m.buttons = 0;	oldt = uptime();	for(;;){		oldbuttons = m.buttons; 		switch(alt(a)){		case Ekeyboard:			if(key == Kdel){				close(wctl);				threadexitsall(nil);			}			break; 		case Emouse:			if(m.buttons == oldbuttons)				break;			if(m.buttons == 0)				hlitem = -1;			else				clicked(m.xy.x, m.buttons);			/* wet floor */ 		if(0){		case Eresize:			if(getwindow(display, Refnone) < 0)				threadexitsall(nil);			owidth = 0;			/* wet floor */		} 		if(0){		case Eaux:			free(aux);			aux = s;			if(aux == nil)				threadexitsall(nil);			/* wet floor */		} 		if(0){		case Etimer:			t = uptime();			if(t - oldt >= 30000000000ULL){				readbattery();				oldt = t;			}		}			place();			redraw();			break;		}	}}