ref: e89b9646cd52f1d97c84db52406636ee1bb396e9
dir: /spit.c/
#include "a.h"
#include "style.h"
Mousectl *mc;
Keyboardctl *kc;
Image *cols[Ncols];
Sfont *ftitle;
Sfont *ftext;
Sfont *ffixed;
Sdopts opts = {.prefilter = 0, .gamma = 1.0 };
int fullscreen;
Rectangle screenr;
Image *slides[Maxslides];
int nslides;
int curslide;
Image *bol;
Image *bullet;
int nodraw;
void
ladd(Lines *l, char *s)
{
if(l->nlines == Maxlines)
sysfatal("too many lines");
l->lines[l->nlines++] = strdup(s);
}
void
lclear(Lines *l)
{
int i;
for(i = 0; i < l->nlines; i++)
free(l->lines[i]);
l->nlines = 0;
}
void
error(char *f, int l, char *m)
{
fprint(2, "error: %s at %s:%d\n", m, f, l);
exits("error");
}
Image*
addslide(void)
{
++nslides;
if(nslides >= Maxslides)
sysfatal("too many slides");
slides[nslides] = allocimage(display, display->image->r, screen->chan, 0, coldefs[Cbg]);
if(slides[nslides] == nil)
sysfatal("allocimage: %r");
return slides[nslides];
}
Point
rendertitle(Image *b, Point p, char *s)
{
Rectangle r;
Image *i;
r = pt_textrect(ftitle, s);
i = pt_textdraw(ftitle, s, r, &opts);
draw(b, rectaddpt(r, p), cols[Cfg], i, ZP);
freeimage(i);
p.y += Dy(r);
line(b, Pt(p.x, p.y), Pt(b->r.max.x - margin, p.y), 0, 0, 2, cols[Cfg], ZP);
p.y += Dy(r);
return p;
}
Point
rendertext(Image *b, Point p, char *s)
{
Rectangle r;
Image *i;
r = pt_textrect(ftext, s);
if(strlen(s) > 0){
i = pt_textdraw(ftext, s, r, &opts);
draw(b, Rect(p.x, p.y, p.x+Dx(bol->r), p.y+Dy(bol->r)), bol, 0, ZP);
draw(b, rectaddpt(r, Pt(p.x + Dx(bol->r) + padding, p.y)), cols[Cfg], i, ZP);
freeimage(i);
}
p.y += Dy(r);
return p;
}
Point
renderlist(Image *b, Point p, Lines *lines)
{
Point q;
Rectangle r;
Image *t;
int i;
p.x += Dx(bol->r);
for(i = 0; i < lines->nlines; i++){
draw(b, rectaddpt(bullet->r, p), bullet, nil, ZP);
q = addpt(p, Pt(Dx(bullet->r) + padding, 0));
r = pt_textrect(ftext, lines->lines[i]);
t = pt_textdraw(ftext, lines->lines[i], r, &opts);
draw(b, rectaddpt(r, q), cols[Cfg], t, ZP);
freeimage(t);
p.y += Dy(r);
}
p.x -= Dx(bol->r);
return p;
}
Point
renderquote(Image *b, Point p, Lines *lines)
{
Rectangle r[Maxlines], br;
Image *t;
int i, maxw, maxh;
maxw = 0;
maxh = 0;
for(i = 0; i < lines->nlines; i++){
r[i] = pt_textrect(ftext, lines->lines[i]);
maxh += Dy(r[i]);
if(Dx(r[i]) > maxw)
maxw = Dx(r[i]);
}
p.x += Dx(bol->r) + margin;
br = Rect(p.x, p.y, p.x + 1.5*maxw + 2*padding, p.y + maxh + 2*padding);
draw(b, br, cols[Cqbg], nil, ZP);
line(b, br.min, Pt(br.min.x, br.max.y), 0, 0, padding/2, cols[Cqbord], ZP);
p.x += padding;
p.y += padding;
for(i = 0; i < lines->nlines; i++){
t = pt_textdraw(ftext, lines->lines[i], r[i], &opts);
draw(b, rectaddpt(r[i], Pt(p.x+padding, p.y)), cols[Cfg], t, ZP);
freeimage(t);
p.y += Dy(r[i]);
}
p.x -= padding;
p.x -= Dx(bol->r) + margin;
return p;
}
Point
rendercode(Image *b, Point p, Lines *lines)
{
Rectangle r[Maxlines], br;
Image *t;
int i, maxw, maxh;
maxw = 0;
maxh = 0;
for(i = 0; i < lines->nlines; i++){
r[i] = pt_textrect(ffixed, lines->lines[i]);
maxh += Dy(r[i]);
if(Dx(r[i]) > maxw)
maxw = Dx(r[i]);
}
p.x += Dx(bol->r) + margin;
br = Rect(p.x, p.y, p.x + 1.5*maxw + 2*padding, p.y + maxh + 2*padding);
draw(b, br, cols[Ccbg], nil, ZP);
border(b, br, 2, cols[Ccbord], ZP);
p.y += padding;
for(i = 0; i < lines->nlines; i++){
t = pt_textdraw(ffixed, lines->lines[i], r[i], &opts);
draw(b, rectaddpt(r[i], Pt(p.x+padding, p.y)), cols[Cfg], t, ZP);
freeimage(t);
p.y += Dy(r[i]);
}
p.x -= Dx(bol->r) + margin;
return p;
}
Point
renderimage(Image *b, Point p, char *f)
{
Image *i;
int fd;
fd = open(f, OREAD);
if(fd <= 0)
sysfatal("open: %r");
i = readimage(display, fd, 0);
draw(b, rectaddpt(i->r, p), i, nil, ZP);
p.y += Dy(i->r) + margin;
freeimage(i);
close(fd);
return p;
}
void
render(char *f)
{
enum { Sstart, Scomment, Scontent, Slist, Squote, Scode };
Biobuf *bp;
char *l;
int s, ln;
Image *b;
Point p;
Lines lines = {0};
s = Sstart;
b = nil;
ln = 0;
nslides = -1;
curslide = 0;
if((bp = Bopen(f, OREAD)) == nil)
sysfatal("Bopen: %r");
for(;;){
l = Brdstr(bp, '\n', 1);
++ln;
if(l == nil)
break;
Again:
switch(s){
case Sstart:
if(l[0] == ';'){
free(l);
continue;
}
if(l[0] != '#') error(f, ln, "expected title line");
Title:
p = Pt(margin, margin);
b = addslide();
p = rendertitle(b, p, l+2);
s = Scontent;
break;
case Scomment:
s = Scontent;
break;
case Scontent:
if(l[0] == '#')
goto Title;
else if(l[0] == '-'){
s = Slist;
goto Again;
}else if(l[0] == '>'){
s = Squote;
goto Again;
}else if(strncmp(l, "```", 3) == 0){
s = Scode;
break;
}else if(l[0] == '!')
p = renderimage(b, p, l+2);
else if(l[0] == ';'){
s = Scomment;
break;
}else
p = rendertext(b, p, l);
break;
case Slist:
if(l[0] != '-'){
p = renderlist(b, p, &lines);
lclear(&lines);
s = Scontent;
goto Again;
}
ladd(&lines, l+2);
break;
case Squote:
if(l[0] != '>'){
p = renderquote(b, p, &lines);
lclear(&lines);
s = Scontent;
goto Again;
}
ladd(&lines, l+2);
break;
case Scode:
if(strncmp(l, "```", 3) == 0){
p = rendercode(b, p, &lines);
lclear(&lines);
s = Scontent;
break;
}
ladd(&lines, l);
break;
}
free(l);
}
if(nslides == -1)
error(f, ln, "no slides parsed");
}
void
barf(void)
{
int fd;
char path[64];
Image **i;
for(i=slides; i<slides+nslides+1; i++){
snprint(path, sizeof path, "spit.%03zd.bit", i - slides);
if((fd = create(path, OWRITE, 0644)) < 0)
sysfatal("open: %r");
writeimage(fd, *i, 0);
close(fd);
}
}
void
redraw(void)
{
draw(screen, screen->r, slides[curslide], nil, ZP);
flushimage(display, 1);
}
void
wresize(int x, int y, int w, int h)
{
int fd, n;
char buf[255];
fd = open("/dev/wctl", OWRITE|OCEXEC);
if(fd < 0)
sysfatal("open: %r");
n = snprint(buf, sizeof buf, "resize -r %d %d %d %d", x, y, w, h);
if(write(fd, buf, n) != n)
fprint(2, "write error: %r\n");
close(fd);
}
void
resize(void)
{
if(fullscreen)
wresize(0, 0, 9999, 9999);
redraw();
}
void
togglefullscreen(void)
{
int x, y, w, h;
if(fullscreen){
fullscreen = 0;
x = screenr.min.x;
y = screenr.min.y;
w = screenr.max.x;
h = screenr.max.y;
}else{
fullscreen = 1;
x = 0;
y = 0;
w = 9999;
h = 9999;
}
wresize(x, y, w, h);
redraw();
}
void
initstyle(char *tname, char *fname)
{
int i;
for(i = 0; i < Ncols; i++)
cols[i] = ealloccol(coldefs[i]);
ftitle = loadsfont(tname, ftitlesz);
ftext = loadsfont(tname, ftextsz);
ffixed = loadsfont(fname ? fname : tname, ffixedsz);
}
void
initimages(void)
{
Point p[4];
bol = allocimage(display, Rect(0, 0, ftextsz, ftextsz), screen->chan, 0, coldefs[Cbg]);
p[0] = Pt(0.25*ftextsz, 0.25*ftextsz);
p[1] = Pt(0.25*ftextsz, 0.75*Dy(bol->r));
p[2] = Pt(0.75*ftextsz, 0.50*Dy(bol->r));
p[3] = p[0];
fillpoly(bol, p, 4, 0, cols[Cfg], ZP);
bullet = allocimage(display, Rect(0, 0, ftextsz, ftextsz), screen->chan, 0, coldefs[Cbg]);
fillellipse(bullet, Pt(0.5*ftextsz, 0.5*ftextsz), 0.15*ftextsz, 0.15*ftextsz, cols[Cfg], ZP);
}
void
usage(void)
{
fprint(2, "%s [-n] [-f font] [-F fixedfont]<filename>\n", argv0);
exits("usage");
}
void
threadmain(int argc, char **argv)
{
enum { Emouse, Eresize, Ekeyboard };
char *f, *tname, *fname;
Mouse m;
Rune k;
Alt alts[] = {
{ nil, &m, CHANRCV },
{ nil, nil, CHANRCV },
{ nil, &k, CHANRCV },
{ nil, nil, CHANEND },
};
tname = nil;
fname = nil;
ARGBEGIN{
case 'n':
nodraw = 1;
break;
case 'f':
tname = EARGF(usage());
break;
case 'F':
fname = EARGF(usage());
break;
default:
usage();
}ARGEND;
if(tname == nil){
fprint(2, "missing -f argument\n");
usage();
}
if((f = *argv) == nil){
fprint(2, "missing filename\n");
usage();
}
setfcr(getfcr() & ~(FPZDIV | FPOVFL | FPINVAL));
if(initdraw(nil, nil, argv0) < 0)
sysfatal("initdraw: %r");
if((mc = initmouse(nil, screen)) == nil)
sysfatal("initmouse: %r");
if((kc = initkeyboard(nil)) == nil)
sysfatal("initkeyboard: %r");
display->locking = 0;
alts[Emouse].c = mc->c;
alts[Eresize].c = mc->resizec;
alts[Ekeyboard].c = kc->c;
memimageinit();
fullscreen = 0;
screenr = screen->r;
initstyle(tname, fname);
initimages();
render(f);
if(nodraw){
barf();
threadexitsall(nil);
}
resize();
for(;;){
switch(alt(alts)){
case Emouse:
break;
case Eresize:
if(getwindow(display, Refnone) < 0)
sysfatal("getwindow: %r");
resize();
break;
case Ekeyboard:
switch(k){
case Kdel:
case 'q':
if(fullscreen)
togglefullscreen();
threadexitsall(nil);
break;
case 'f':
togglefullscreen();
break;
case Kbs:
case Kleft:
if(curslide > 0){
curslide--;
redraw();
}
break;
case ' ':
case Kright:
if(curslide < nslides){
curslide++;
redraw();
}
break;
case Khome:
curslide = 0;
redraw();
break;
case Kend:
curslide = nslides;
redraw();
break;
}
break;
}
}
}