applied vimbrowse patch
[st.git] / st.c
diff --git a/st.c b/st.c
index da832ed..324c598 100644 (file)
--- a/st.c
+++ b/st.c
@@ -1,26 +1,21 @@
 /* See LICENSE for license details. */
+#include <assert.h>
 #include <ctype.h>
 #include <errno.h>
 #include <fcntl.h>
 #include <limits.h>
-#include <locale.h>
 #include <pwd.h>
 #include <stdarg.h>
 #include <stdio.h>
 #include <stdlib.h>
 #include <string.h>
 #include <signal.h>
-#include <stdint.h>
 #include <sys/ioctl.h>
 #include <sys/select.h>
-#include <sys/stat.h>
-#include <sys/time.h>
 #include <sys/types.h>
 #include <sys/wait.h>
 #include <termios.h>
-#include <time.h>
 #include <unistd.h>
-#include <libgen.h>
 #include <wchar.h>
 
 #include "st.h"
@@ -36,6 +31,7 @@
 
 /* Arbitrary sizes */
 #define UTF_INVALID   0xFFFD
+#define UTF_SIZ       4
 #define ESC_BUF_SIZ   (128*UTF_SIZ)
 #define ESC_ARG_SIZ   16
 #define STR_BUF_SIZ   ESC_BUF_SIZ
 
 /* macros */
 #define IS_SET(flag)           ((term.mode & (flag)) != 0)
-#define NUMMAXLEN(x)           ((int)(sizeof(x) * 2.56 + 0.5) + 1)
-#define ISCONTROLC0(c)         (BETWEEN(c, 0, 0x1f) || (c) == '\177')
+#define ISCONTROLC0(c)         (BETWEEN(c, 0, 0x1f) || (c) == 0x7f)
 #define ISCONTROLC1(c)         (BETWEEN(c, 0x80, 0x9f))
 #define ISCONTROL(c)           (ISCONTROLC0(c) || ISCONTROLC1(c))
-#define ISDELIM(u)             (utf8strchr(worddelimiters, u) != NULL)
-
-/* constants */
-#define ISO14755CMD            "dmenu -w \"$WINDOWID\" -p codepoint: </dev/null"
+#define ISDELIM(u)             (u && wcschr(worddelimiters, u))
+static inline int max(int a, int b) { return a > b ? a : b; }
+static inline int min(int a, int b) { return a < b ? a : b; }
 
 enum term_mode {
        MODE_WRAP        = 1 << 0,
@@ -60,7 +54,6 @@ enum term_mode {
        MODE_ECHO        = 1 << 4,
        MODE_PRINT       = 1 << 5,
        MODE_UTF8        = 1 << 6,
-       MODE_SIXEL       = 1 << 7,
 };
 
 enum cursor_movement {
@@ -87,14 +80,39 @@ enum charset {
 enum escape_state {
        ESC_START      = 1,
        ESC_CSI        = 2,
-       ESC_STR        = 4,  /* OSC, PM, APC */
+       ESC_STR        = 4,  /* DCS, OSC, PM, APC */
        ESC_ALTCHARSET = 8,
        ESC_STR_END    = 16, /* a final string was encountered */
        ESC_TEST       = 32, /* Enter in test mode */
        ESC_UTF8       = 64,
-       ESC_DCS        =128,
 };
 
+typedef struct {
+       Glyph attr; /* current char attributes */
+       int x;
+       int y;
+       char state;
+} TCursor;
+
+typedef struct {
+       int mode;
+       int type;
+       int snap;
+       int swap;
+       /*
+        * Selection variables:
+        * nb – normalized coordinates of the beginning of the selection
+        * ne – normalized coordinates of the end of the selection
+        * ob – original coordinates of the beginning of the selection
+        * oe – original coordinates of the end of the selection
+        */
+       struct {
+               int x, y;
+       } nb, ne, ob, oe;
+
+       int alt;
+} Selection;
+
 /* Internal representation of the screen */
 typedef struct {
        int row;      /* nb row */
@@ -113,13 +131,14 @@ typedef struct {
        int charset;  /* current charset */
        int icharset; /* selected charset for sequence */
        int *tabs;
+       Rune lastc;   /* last printed char outside of sequence, 0 if control */
 } Term;
 
 /* CSI Escape sequence structs */
 /* ESC '[' [[ [<priv>] <arg> [;]] <mode> [<mode>]] */
 typedef struct {
        char buf[ESC_BUF_SIZ]; /* raw string */
-       int len;               /* raw string length */
+       size_t len;            /* raw string length */
        char priv;
        int arg[ESC_ARG_SIZ];
        int narg;              /* nb of args */
@@ -130,14 +149,14 @@ typedef struct {
 /* ESC type [[ [<priv>] <arg> [;]] <mode>] ESC '\' */
 typedef struct {
        char type;             /* ESC type ... */
-       char buf[STR_BUF_SIZ]; /* raw string */
-       int len;               /* raw string length */
+       char *buf;             /* allocated raw string */
+       size_t siz;            /* allocation size */
+       size_t len;            /* raw string length */
        char *args[STR_ARG_SIZ];
        int narg;              /* nb of args */
 } STREscape;
 
-
-static void execsh(char **);
+static void execsh(char *, char **);
 static void stty(char **);
 static void sigchld(int);
 static void ttywriteraw(const char *, size_t);
@@ -189,33 +208,40 @@ static void tstrsequence(uchar);
 static void drawregion(int, int, int, int);
 
 static void selscroll(int, int);
-static void selsnap(int *, int *, int);
+static void selnormalize(void);
 
+static size_t utf8decode(const char *, Rune *, size_t);
 static Rune utf8decodebyte(char, size_t *);
 static char utf8encodebyte(Rune, size_t);
-static char *utf8strchr(char *s, Rune u);
 static size_t utf8validate(Rune *, size_t);
 
 static char *base64dec(const char *);
+static char base64dec_getc(const char **);
 
 static ssize_t xwrite(int, const char *, size_t);
 
 /* Globals */
-int cmdfd;
-pid_t pid;
-int oldbutton   = 3; /* button event on startup: 3 = release */
-
 static Term term;
 static Selection sel;
 static CSIEscape csiescseq;
 static STREscape strescseq;
 static int iofd = 1;
+static int cmdfd;
+static pid_t pid;
 
 static uchar utfbyte[UTF_SIZ + 1] = {0x80,    0, 0xC0, 0xE0, 0xF0};
 static uchar utfmask[UTF_SIZ + 1] = {0xC0, 0x80, 0xE0, 0xF0, 0xF8};
 static Rune utfmin[UTF_SIZ + 1] = {       0,    0,  0x80,  0x800,  0x10000};
 static Rune utfmax[UTF_SIZ + 1] = {0x10FFFF, 0x7F, 0x7FF, 0xFFFF, 0x10FFFF};
 
+int buffCols;
+extern int const buffSize;
+int histOp, histMode, histOff, histOffX, insertOff, altToggle, *mark;
+Line *buf = NULL;
+static TCursor c[3];
+static inline int rows() { return IS_SET(MODE_ALTSCREEN) ? term.row : buffSize;}
+static inline int rangeY(int i) { while (i < 0) i += rows(); return i % rows();}
+
 ssize_t
 xwrite(int fd, const char *s, size_t len)
 {
@@ -236,10 +262,10 @@ xwrite(int fd, const char *s, size_t len)
 void *
 xmalloc(size_t len)
 {
-       void *p = malloc(len);
+       void *p;
 
-       if (!p)
-               die("Out of memory\n");
+       if (!(p = malloc(len)))
+               die("malloc: %s\n", strerror(errno));
 
        return p;
 }
@@ -248,7 +274,7 @@ void *
 xrealloc(void *p, size_t len)
 {
        if ((p = realloc(p, len)) == NULL)
-               die("Out of memory\n");
+               die("realloc: %s\n", strerror(errno));
 
        return p;
 }
@@ -257,7 +283,7 @@ char *
 xstrdup(char *s)
 {
        if ((s = strdup(s)) == NULL)
-               die("Out of memory\n");
+               die("strdup: %s\n", strerror(errno));
 
        return s;
 }
@@ -321,23 +347,6 @@ utf8encodebyte(Rune u, size_t i)
        return utfbyte[i] | (u & ~utfmask[i]);
 }
 
-char *
-utf8strchr(char *s, Rune u)
-{
-       Rune r;
-       size_t i, j, len;
-
-       len = strlen(s);
-       for (i = 0, j = 0; i < len; i += j) {
-               if (!(j = utf8decode(&s[i], &r, len - i)))
-                       break;
-               if (r == u)
-                       return &(s[i]);
-       }
-
-       return NULL;
-}
-
 size_t
 utf8validate(Rune *u, size_t i)
 {
@@ -367,8 +376,9 @@ static const char base64_digits[] = {
 char
 base64dec_getc(const char **src)
 {
-       while (**src && !isprint(**src)) (*src)++;
-       return *((*src)++);
+       while (**src && !isprint(**src))
+               (*src)++;
+       return **src ? *((*src)++) : '=';  /* emulate padding if string ends */
 }
 
 char *
@@ -386,6 +396,10 @@ base64dec(const char *src)
                int c = base64_digits[(unsigned char) base64dec_getc(&src)];
                int d = base64_digits[(unsigned char) base64dec_getc(&src)];
 
+               /* invalid input. 'a' can be -1, e.g. if src is "\n" (c-str) */
+               if (a == -1 || b == -1)
+                       break;
+
                *dst++ = (a << 2) | ((b & 0x30) >> 4);
                if (c == -1)
                        break;
@@ -420,80 +434,145 @@ tlinelen(int y)
        return i;
 }
 
+void historyOpToggle(int start, int paint) {
+       if (!histOp == !(histOp + start)) if ((histOp += start) || 1) return;
+       if (histMode && paint && (!IS_SET(MODE_ALTSCREEN) || altToggle)) draw();
+       tcursor(CURSOR_SAVE);
+       histOp += start;
+       if (histMode && altToggle) {
+               tswapscreen();
+               memset(term.dirty,0,sizeof(*term.dirty)*term.row);
+       }
+       tcursor(CURSOR_LOAD);
+       *(!IS_SET(MODE_ALTSCREEN)?&term.line:&term.alt)=&buf[histOp?histOff:insertOff];
+}
+
+void historyModeToggle(int start) {
+       if (!(histMode = (histOp = !!start))) {
+               selnormalize();
+               tfulldirt();
+       } else {
+               tcursor(CURSOR_SAVE);
+               histOp = 0;
+               histOff = insertOff;
+       }
+}
+
+int historyBufferScroll(int n) {
+       if (IS_SET(MODE_ALTSCREEN) || !n) return histOp;
+       int p=abs(n=(n<0) ? max(n,-term.row) : min(n,term.row)), r=term.row-p,
+                 s=sizeof(*term.dirty), *ptr=histOp?&histOff:&insertOff;
+       if (!histMode || histOp) tfulldirt(); else {
+               memmove(&term.dirty[-min(n,0)], &term.dirty[max(n,0)], s*r);
+               memset(&term.dirty[n>0 ? r : 0], 0, s * p);
+       }
+       int const prevOffBuf = sel.alt ? 0 : insertOff + term.row;
+       term.line = &buf[*ptr = (buffSize+*ptr+n) % buffSize];
+       // Cut part of selection removed from buffer, and update sel.ne/b.
+       if (sel.ob.x != -1 && !histOp && n) {
+               int const offBuf = sel.alt ? 0 : insertOff + term.row,
+                         pb = rangeY(sel.ob.y - prevOffBuf),
+                         pe = rangeY(sel.oe.y - prevOffBuf);
+               int const b = rangeY(sel.ob.y - offBuf), nln = n < 0,
+                         e = rangeY(sel.oe.y - offBuf), last = offBuf - nln;
+               if (pb != b && ((pb < b) != nln)) sel.ob.y = last;
+               if (pe != e && ((pe < e) != nln)) sel.oe.y = last;
+               if (sel.oe.y == last && sel.ob.y == last) selclear();
+       }
+       selnormalize();
+  // Clear the new region exposed by the shift.
+       if (!histOp) tclearregion(0, n>0?r+1:0, buffCols-1, n>0?term.row:p-1);
+       return 1;
+}
+
+int historyMove(int x, int y, int ly) {
+       historyOpToggle(1, 1);
+       y += ((term.c.x += x) < 0 ?term.c.x-term.col :term.c.x) / term.col;//< x
+       if ((term.c.x %= term.col) < 0) term.c.x += term.col;
+       if ((term.c.y += y) >= term.row) ly += term.c.y - term.row + 1;    //< y
+       else if (term.c.y < 0) ly += term.c.y;
+       term.c.y = MIN(MAX(term.c.y, 0), term.row - 1);
+       int off=insertOff-histOff, bot=rangeY(off), top=-rangeY(-term.row-off),
+           pTop = (-ly>-top), pBot = (ly > bot), fin=histMode&&(pTop||pBot);
+       if (fin && (x||y)) term.c.x = pBot ? term.col-1 : 0;
+       historyBufferScroll(fin ? (pBot ? bot : top) : ly);
+       historyOpToggle(-1, 1);
+       return fin;
+}
+
+#include "normalMode.c"
+
+void selnormalize(void) {
+       historyOpToggle(1, 1);
+
+       int const oldb = sel.nb.y, olde = sel.ne.y;
+       if (sel.ob.x == -1) {
+               sel.ne.y = sel.nb.y = -1;
+       } else {
+               int const offsetBuffer = sel.alt ? 0 : insertOff + term.row;
+               int const off = sel.alt ? 0 : (histMode ? histOff : insertOff);
+               int const nby = rangeY(sel.ob.y - off),
+                         ney = rangeY(sel.oe.y - off);
+               sel.swap = rangeY(sel.ob.y - offsetBuffer)
+                        > rangeY(sel.oe.y - offsetBuffer);
+               sel.nb.y = sel.swap ? ney : nby;
+               sel.ne.y = !sel.swap ? ney : nby;
+               int const cnb = sel.nb.y < term.row, cne = sel.ne.y < term.row;
+               if (sel.type == SEL_REGULAR && sel.ob.y != sel.oe.y) {
+                       if (cnb) sel.nb.x = (!sel.swap) ? sel.ob.x : sel.oe.x;
+                       if (cne) sel.ne.x = (!sel.swap) ? sel.oe.x : sel.ob.x;
+               } else {
+                       if (cnb) sel.nb.x = MIN(sel.ob.x, sel.oe.x);
+                       if (cne) sel.ne.x = MAX(sel.ob.x, sel.oe.x);
+               }
+       }
+       int const nBet=sel.nb.y<=sel.ne.y, oBet=oldb<=olde;
+       for (int i = 0; i < term.row; ++i) {
+               int const n = nBet ? BETWEEN(i, sel.nb.y, sel.ne.y)
+                                  : OUT(i, sel.nb.y, sel.ne.y);
+               term.dirty[i] |= (sel.type == SEL_RECTANGULAR && n) ||
+                       (n != (oBet ? BETWEEN(i,oldb,olde) : OUT(i,oldb,olde)));
+
+       }
+       if (BETWEEN(oldb, 0, term.row - 1)) term.dirty[oldb] = 1;
+       if (BETWEEN(olde, 0, term.row - 1)) term.dirty[olde] = 1;
+       if (BETWEEN(sel.nb.y, 0, term.row - 1)) term.dirty[sel.nb.y] = 1;
+       if (BETWEEN(sel.ne.y, 0, term.row - 1)) term.dirty[sel.ne.y] = 1;
+
+       historyOpToggle(-1, 1);
+}
+
 void
 selstart(int col, int row, int snap)
 {
        selclear();
        sel.mode = SEL_EMPTY;
        sel.type = SEL_REGULAR;
+       sel.alt = IS_SET(MODE_ALTSCREEN);
        sel.snap = snap;
        sel.oe.x = sel.ob.x = col;
-       sel.oe.y = sel.ob.y = row;
+       sel.oe.y = sel.ob.y = row + !sel.alt * (histMode ? histOff : insertOff);
+       if (sel.snap != 0) sel.mode = SEL_READY;
        selnormalize();
-
-       if (sel.snap != 0)
-               sel.mode = SEL_READY;
-       tsetdirt(sel.nb.y, sel.ne.y);
 }
 
 void
 selextend(int col, int row, int type, int done)
 {
-       int oldey, oldex, oldsby, oldsey, oldtype;
-
-       if (!sel.mode)
+       if (sel.mode == SEL_IDLE)
                return;
        if (done && sel.mode == SEL_EMPTY) {
                selclear();
                return;
        }
 
-       oldey = sel.oe.y;
-       oldex = sel.oe.x;
-       oldsby = sel.nb.y;
-       oldsey = sel.ne.y;
-       oldtype = sel.type;
-
-       sel.alt = IS_SET(MODE_ALTSCREEN);
        sel.oe.x = col;
-       sel.oe.y = row;
+       sel.oe.y = row + (sel.alt ? 0 : (histMode ? histOff : insertOff));
        selnormalize();
        sel.type = type;
-
-       if (oldey != sel.oe.y || oldex != sel.oe.x || oldtype != sel.type)
-               tsetdirt(MIN(sel.nb.y, oldsby), MAX(sel.ne.y, oldsey));
-
        sel.mode = done ? SEL_IDLE : SEL_READY;
 }
 
-void
-selnormalize(void)
-{
-       int i;
-
-       if (sel.type == SEL_REGULAR && sel.ob.y != sel.oe.y) {
-               sel.nb.x = sel.ob.y < sel.oe.y ? sel.ob.x : sel.oe.x;
-               sel.ne.x = sel.ob.y < sel.oe.y ? sel.oe.x : sel.ob.x;
-       } else {
-               sel.nb.x = MIN(sel.ob.x, sel.oe.x);
-               sel.ne.x = MAX(sel.ob.x, sel.oe.x);
-       }
-       sel.nb.y = MIN(sel.ob.y, sel.oe.y);
-       sel.ne.y = MAX(sel.ob.y, sel.oe.y);
-
-       selsnap(&sel.nb.x, &sel.nb.y, -1);
-       selsnap(&sel.ne.x, &sel.ne.y, +1);
-
-       /* expand selection over line breaks */
-       if (sel.type == SEL_RECTANGULAR)
-               return;
-       i = tlinelen(sel.nb.y);
-       if (i < sel.nb.x)
-               sel.nb.x = i;
-       if (tlinelen(sel.ne.y) <= sel.ne.x)
-               sel.ne.x = term.col - 1;
-}
-
 int
 selected(int x, int y)
 {
@@ -505,119 +584,47 @@ selected(int x, int y)
                return BETWEEN(y, sel.nb.y, sel.ne.y)
                    && BETWEEN(x, sel.nb.x, sel.ne.x);
 
-       return BETWEEN(y, sel.nb.y, sel.ne.y)
-           && (y != sel.nb.y || x >= sel.nb.x)
-           && (y != sel.ne.y || x <= sel.ne.x);
-}
-
-void
-selsnap(int *x, int *y, int direction)
-{
-       int newx, newy, xt, yt;
-       int delim, prevdelim;
-       Glyph *gp, *prevgp;
-
-       switch (sel.snap) {
-       case SNAP_WORD:
-               /*
-                * Snap around if the word wraps around at the end or
-                * beginning of a line.
-                */
-               prevgp = &term.line[*y][*x];
-               prevdelim = ISDELIM(prevgp->u);
-               for (;;) {
-                       newx = *x + direction;
-                       newy = *y;
-                       if (!BETWEEN(newx, 0, term.col - 1)) {
-                               newy += direction;
-                               newx = (newx + term.col) % term.col;
-                               if (!BETWEEN(newy, 0, term.row - 1))
-                                       break;
-
-                               if (direction > 0)
-                                       yt = *y, xt = *x;
-                               else
-                                       yt = newy, xt = newx;
-                               if (!(term.line[yt][xt].mode & ATTR_WRAP))
-                                       break;
-                       }
-
-                       if (newx >= tlinelen(newy))
-                               break;
-
-                       gp = &term.line[newy][newx];
-                       delim = ISDELIM(gp->u);
-                       if (!(gp->mode & ATTR_WDUMMY) && (delim != prevdelim
-                                       || (delim && gp->u != prevgp->u)))
-                               break;
-
-                       *x = newx;
-                       *y = newy;
-                       prevgp = gp;
-                       prevdelim = delim;
-               }
-               break;
-       case SNAP_LINE:
-               /*
-                * Snap around if the the previous line or the current one
-                * has set ATTR_WRAP at its end. Then the whole next or
-                * previous line will be selected.
-                */
-               *x = (direction < 0) ? 0 : term.col - 1;
-               if (direction < 0) {
-                       for (; *y > 0; *y += direction) {
-                               if (!(term.line[*y-1][term.col-1].mode
-                                               & ATTR_WRAP)) {
-                                       break;
-                               }
-                       }
-               } else if (direction > 0) {
-                       for (; *y < term.row-1; *y += direction) {
-                               if (!(term.line[*y][term.col-1].mode
-                                               & ATTR_WRAP)) {
-                                       break;
-                               }
-                       }
-               }
-               break;
-       }
+       return ((sel.nb.y > sel.ne.y) ? OUT(y, sel.nb.y, sel.ne.y)
+                                     : BETWEEN(y, sel.nb.y, sel.ne.y)) &&
+              (y != sel.nb.y || x >= sel.nb.x) &&
+              (y != sel.ne.y || x <= sel.ne.x);
 }
 
 char *
 getsel(void)
 {
        char *str, *ptr;
-       int y, bufsize, lastx, linelen;
+       int y, yy, bufsize, lastx;
        Glyph *gp, *last;
 
        if (sel.ob.x == -1)
                return NULL;
 
-       bufsize = (term.col+1) * (sel.ne.y-sel.nb.y+1) * UTF_SIZ;
+       int const start = sel.swap ? sel.oe.y : sel.ob.y, h = rows();
+       int endy = (sel.swap ? sel.ob.y : sel.oe.y);
+       for (; endy < start; endy += h);
+       Line * const cbuf = IS_SET(MODE_ALTSCREEN) ? term.line : buf;
+       bufsize = (term.col+1) * (endy-start+1 ) * UTF_SIZ;
+       assert(bufsize > 0);
        ptr = str = xmalloc(bufsize);
 
        /* append every set & selected glyph to the selection */
-       for (y = sel.nb.y; y <= sel.ne.y; y++) {
-               if ((linelen = tlinelen(y)) == 0) {
-                       *ptr++ = '\n';
-                       continue;
-               }
+       for (y = start; y <= endy; y++) {
+               yy = y % h;
 
                if (sel.type == SEL_RECTANGULAR) {
-                       gp = &term.line[y][sel.nb.x];
+                       gp = &cbuf[yy][sel.nb.x];
                        lastx = sel.ne.x;
                } else {
-                       gp = &term.line[y][sel.nb.y == y ? sel.nb.x : 0];
-                       lastx = (sel.ne.y == y) ? sel.ne.x : term.col-1;
+                       gp = &cbuf[yy][start == y ? sel.nb.x : 0];
+                       lastx = (endy == y) ? sel.ne.x : term.col-1;
                }
-               last = &term.line[y][MIN(lastx, linelen-1)];
-               while (last >= gp && last->u == ' ')
-                       --last;
+               last = &cbuf[yy][lastx];
+               if (!(cbuf[yy][term.col - 1].mode & ATTR_WRAP))
+                       while (last > gp && last->u == ' ') --last;
 
                for ( ; gp <= last; ++gp) {
-                       if (gp->mode & ATTR_WDUMMY)
-                               continue;
-
+                       if (gp->mode & ATTR_WDUMMY) continue;
                        ptr += utf8encode(gp->u, ptr);
                }
 
@@ -630,7 +637,8 @@ getsel(void)
                 * st.
                 * FIXME: Fix the computer world.
                 */
-               if ((y < sel.ne.y || lastx >= linelen) && !(last->mode & ATTR_WRAP))
+               if ((y < endy || lastx >= term.col - 1) &&
+                   (!(last->mode & ATTR_WRAP) || sel.type == SEL_RECTANGULAR))
                        *ptr++ = '\n';
        }
        *ptr = 0;
@@ -644,7 +652,7 @@ selclear(void)
                return;
        sel.mode = SEL_IDLE;
        sel.ob.x = -1;
-       tsetdirt(sel.nb.y, sel.ne.y);
+       selnormalize();
 }
 
 void
@@ -659,29 +667,36 @@ die(const char *errstr, ...)
 }
 
 void
-execsh(char **args)
+execsh(char *cmd, char **args)
 {
-       char *sh, *prog;
+       char *sh, *prog, *arg;
        const struct passwd *pw;
 
        errno = 0;
        if ((pw = getpwuid(getuid())) == NULL) {
                if (errno)
-                       die("getpwuid:%s\n", strerror(errno));
+                       die("getpwuid: %s\n", strerror(errno));
                else
                        die("who are you?\n");
        }
 
        if ((sh = getenv("SHELL")) == NULL)
-               sh = (pw->pw_shell[0]) ? pw->pw_shell : shell;
+               sh = (pw->pw_shell[0]) ? pw->pw_shell : cmd;
 
-       if (args)
+       if (args) {
                prog = args[0];
-       else if (utmp)
+               arg = NULL;
+       } else if (scroll) {
+               prog = scroll;
+               arg = utmp ? utmp : sh;
+       } else if (utmp) {
                prog = utmp;
-       else
+               arg = NULL;
+       } else {
                prog = sh;
-       DEFAULT(args, ((char *[]) {prog, NULL}));
+               arg = NULL;
+       }
+       DEFAULT(args, ((char *[]) {prog, arg, NULL}));
 
        unsetenv("COLUMNS");
        unsetenv("LINES");
@@ -710,17 +725,18 @@ sigchld(int a)
        pid_t p;
 
        if ((p = waitpid(pid, &stat, WNOHANG)) < 0)
-               die("Waiting for pid %hd failed: %s\n", pid, strerror(errno));
+               die("waiting for pid %hd failed: %s\n", pid, strerror(errno));
 
        if (pid != p)
                return;
 
-       if (!WIFEXITED(stat) || WEXITSTATUS(stat))
-               die("child finished with error '%d'\n", stat);
-       exit(0);
+       if (WIFEXITED(stat) && WEXITSTATUS(stat))
+               die("child exited with status %d\n", WEXITSTATUS(stat));
+       else if (WIFSIGNALED(stat))
+               die("child terminated due to signal %d\n", WTERMSIG(stat));
+       _exit(0);
 }
 
-
 void
 stty(char **args)
 {
@@ -742,11 +758,11 @@ stty(char **args)
        }
        *q = '\0';
        if (system(cmd) != 0)
-           perror("Couldn't call stty");
+               perror("Couldn't call stty");
 }
 
-void
-ttynew(char *line, char *out, char **args)
+int
+ttynew(char *line, char *cmd, char *out, char **args)
 {
        int m, s;
 
@@ -762,10 +778,11 @@ ttynew(char *line, char *out, char **args)
 
        if (line) {
                if ((cmdfd = open(line, O_RDWR)) < 0)
-                       die("open line failed: %s\n", strerror(errno));
+                       die("open line '%s' failed: %s\n",
+                           line, strerror(errno));
                dup2(cmdfd, 0);
                stty(args);
-               return;
+               return cmdfd;
        }
 
        /* seems to work fine on linux, openbsd and freebsd */
@@ -774,7 +791,7 @@ ttynew(char *line, char *out, char **args)
 
        switch (pid = fork()) {
        case -1:
-               die("fork failed\n");
+               die("fork failed: %s\n", strerror(errno));
                break;
        case 0:
                close(iofd);
@@ -786,14 +803,23 @@ ttynew(char *line, char *out, char **args)
                        die("ioctl TIOCSCTTY failed: %s\n", strerror(errno));
                close(s);
                close(m);
-               execsh(args);
+#ifdef __OpenBSD__
+               if (pledge("stdio getpw proc exec", NULL) == -1)
+                       die("pledge\n");
+#endif
+               execsh(cmd, args);
                break;
        default:
+#ifdef __OpenBSD__
+               if (pledge("stdio rpath tty proc", NULL) == -1)
+                       die("pledge\n");
+#endif
                close(s);
                cmdfd = m;
                signal(SIGCHLD, sigchld);
                break;
        }
+       return cmdfd;
 }
 
 size_t
@@ -801,21 +827,25 @@ ttyread(void)
 {
        static char buf[BUFSIZ];
        static int buflen = 0;
-       int written;
-       int ret;
+       int ret, written;
 
        /* append read bytes to unprocessed bytes */
-       if ((ret = read(cmdfd, buf+buflen, LEN(buf)-buflen)) < 0)
-               die("Couldn't read from shell: %s\n", strerror(errno));
-       buflen += ret;
+       ret = read(cmdfd, buf+buflen, LEN(buf)-buflen);
 
-       written = twrite(buf, buflen, 0);
-       buflen -= written;
-       /* keep any uncomplete utf8 char for the next call */
-       if (buflen > 0)
-               memmove(buf, buf + written, buflen);
-
-       return ret;
+       switch (ret) {
+       case 0:
+               exit(0);
+       case -1:
+               die("couldn't read from shell: %s\n", strerror(errno));
+       default:
+               buflen += ret;
+               written = twrite(buf, buflen, 0);
+               buflen -= written;
+               /* keep any incomplete UTF-8 byte sequence for the next call */
+               if (buflen > 0)
+                       memmove(buf, buf + written, buflen);
+               return ret;
+       }
 }
 
 void
@@ -916,6 +946,13 @@ ttyresize(int tw, int th)
                fprintf(stderr, "Couldn't set window size: %s\n", strerror(errno));
 }
 
+void
+ttyhangup()
+{
+       /* Send SIGHUP to shell */
+       kill(pid, SIGHUP);
+}
+
 int
 tattrset(int attr)
 {
@@ -967,8 +1004,7 @@ tfulldirt(void)
 void
 tcursor(int mode)
 {
-       static TCursor c[2];
-       int alt = IS_SET(MODE_ALTSCREEN);
+       int alt = (histOp) ? 0 : (IS_SET(MODE_ALTSCREEN) + 1);
 
        if (mode == CURSOR_SAVE) {
                c[alt] = term.c;
@@ -1028,6 +1064,7 @@ tswapscreen(void)
 void
 tscrolldown(int orig, int n)
 {
+       if (historyBufferScroll(-n)) return;
        int i;
        Line temp;
 
@@ -1048,6 +1085,7 @@ tscrolldown(int orig, int n)
 void
 tscrollup(int orig, int n)
 {
+       if (historyBufferScroll(n)) return;
        int i;
        Line temp;
 
@@ -1071,27 +1109,17 @@ selscroll(int orig, int n)
        if (sel.ob.x == -1)
                return;
 
-       if (BETWEEN(sel.ob.y, orig, term.bot) || BETWEEN(sel.oe.y, orig, term.bot)) {
-               if ((sel.ob.y += n) > term.bot || (sel.oe.y += n) < term.top) {
+       if (BETWEEN(sel.nb.y, orig, term.bot) != BETWEEN(sel.ne.y, orig, term.bot)) {
+               selclear();
+       } else if (BETWEEN(sel.nb.y, orig, term.bot)) {
+               sel.ob.y += n;
+               sel.oe.y += n;
+               if (sel.ob.y < term.top || sel.ob.y > term.bot ||
+                   sel.oe.y < term.top || sel.oe.y > term.bot) {
                        selclear();
-                       return;
-               }
-               if (sel.type == SEL_RECTANGULAR) {
-                       if (sel.ob.y < term.top)
-                               sel.ob.y = term.top;
-                       if (sel.oe.y > term.bot)
-                               sel.oe.y = term.bot;
                } else {
-                       if (sel.ob.y < term.top) {
-                               sel.ob.y = term.top;
-                               sel.ob.x = 0;
-                       }
-                       if (sel.oe.y > term.bot) {
-                               sel.oe.y = term.bot;
-                               sel.oe.x = term.col;
-                       }
+                       selnormalize();
                }
-               selnormalize();
        }
 }
 
@@ -1209,8 +1237,8 @@ tclearregion(int x1, int y1, int x2, int y2)
        if (y1 > y2)
                temp = y1, y1 = y2, y2 = temp;
 
-       LIMIT(x1, 0, term.col-1);
-       LIMIT(x2, 0, term.col-1);
+       LIMIT(x1, 0, buffCols-1);
+       LIMIT(x2, 0, buffCols-1);
        LIMIT(y1, 0, term.row-1);
        LIMIT(y2, 0, term.row-1);
 
@@ -1218,8 +1246,6 @@ tclearregion(int x1, int y1, int x2, int y2)
                term.dirty[y] = 1;
                for (x = x1; x <= x2; x++) {
                        gp = &term.line[y][x];
-                       if (selected(x, y))
-                               selclear();
                        gp->fg = term.c.attr.fg;
                        gp->bg = term.c.attr.bg;
                        gp->mode = 0;
@@ -1420,7 +1446,8 @@ tsetattr(int *attr, int l)
                        } else {
                                fprintf(stderr,
                                        "erresc(default): gfx attr %d unknown\n",
-                                       attr[i]), csidump();
+                                       attr[i]);
+                               csidump();
                        }
                        break;
                }
@@ -1540,6 +1567,7 @@ tsetmode(int priv, int set, int *args, int narg)
                        case 1015: /* urxvt mangled mouse mode; incompatible
                                      and can be mistaken for other control
                                      codes. */
+                               break;
                        default:
                                fprintf(stderr,
                                        "erresc: unknown private set/reset mode %d\n",
@@ -1621,6 +1649,12 @@ csihandle(void)
                if (csiescseq.arg[0] == 0)
                        ttywrite(vtiden, strlen(vtiden), 0);
                break;
+       case 'b': /* REP -- if last char is printable print it <n> more times */
+               DEFAULT(csiescseq.arg[0], 1);
+               if (term.lastc)
+                       while (csiescseq.arg[0]-- > 0)
+                               tputc(term.lastc);
+               break;
        case 'C': /* CUF -- Cursor <n> Forward */
        case 'a': /* HPR -- Cursor <n> Forward */
                DEFAULT(csiescseq.arg[0], 1);
@@ -1666,7 +1700,6 @@ csihandle(void)
                tputtab(csiescseq.arg[0]);
                break;
        case 'J': /* ED -- Clear screen */
-               selclear();
                switch (csiescseq.arg[0]) {
                case 0: /* below */
                        tclearregion(term.c.x, term.c.y, term.col-1, term.c.y);
@@ -1745,7 +1778,7 @@ csihandle(void)
                break;
        case 'n': /* DSR – Device Status Report (cursor position) */
                if (csiescseq.arg[0] == 6) {
-                       len = snprintf(buf, sizeof(buf),"\033[%i;%iR",
+                       len = snprintf(buf, sizeof(buf), "\033[%i;%iR",
                                        term.c.y+1, term.c.x+1);
                        ttywrite(buf, len, 0);
                }
@@ -1782,7 +1815,7 @@ csihandle(void)
 void
 csidump(void)
 {
-       int i;
+       size_t i;
        uint c;
 
        fprintf(stderr, "ESC[");
@@ -1812,7 +1845,7 @@ csireset(void)
 void
 strhandle(void)
 {
-       char *p = NULL;
+       char *p = NULL, *dec;
        int j, narg, par;
 
        term.esc &= ~(ESC_STR_END|ESC_STR);
@@ -1829,9 +1862,7 @@ strhandle(void)
                                xsettitle(strescseq.args[1]);
                        return;
                case 52:
-                       if (narg > 2) {
-                               char *dec;
-
+                       if (narg > 2 && allowwindowops) {
                                dec = base64dec(strescseq.args[2]);
                                if (dec) {
                                        xsetsel(dec);
@@ -1849,7 +1880,10 @@ strhandle(void)
                case 104: /* color reset, here p = NULL */
                        j = (narg > 1) ? atoi(strescseq.args[1]) : -1;
                        if (xsetcolorname(j, p)) {
-                               fprintf(stderr, "erresc: invalid color %s\n", p);
+                               if (par == 104 && narg <= 1)
+                                       return; /* color reset without parameter */
+                               fprintf(stderr, "erresc: invalid color j=%d, p=%s\n",
+                                       j, p ? p : "(null)");
                        } else {
                                /*
                                 * TODO if defaultbg color is changed, borders
@@ -1864,7 +1898,6 @@ strhandle(void)
                xsettitle(strescseq.args[0]);
                return;
        case 'P': /* DCS -- Device Control String */
-               term.mode |= ESC_DCS;
        case '_': /* APC -- Application Program Command */
        case '^': /* PM -- Privacy Message */
                return;
@@ -1899,7 +1932,7 @@ strparse(void)
 void
 strdump(void)
 {
-       int i;
+       size_t i;
        uint c;
 
        fprintf(stderr, "ESC%c", strescseq.type);
@@ -1926,7 +1959,10 @@ strdump(void)
 void
 strreset(void)
 {
-       memset(&strescseq, 0, sizeof(strescseq));
+       strescseq = (STREscape){
+               .buf = xrealloc(strescseq.buf, STR_BUF_SIZ),
+               .siz = STR_BUF_SIZ,
+       };
 }
 
 void
@@ -1946,28 +1982,6 @@ tprinter(char *s, size_t len)
        }
 }
 
-void
-iso14755(const Arg *arg)
-{
-       FILE *p;
-       char *us, *e, codepoint[9], uc[UTF_SIZ];
-       unsigned long utf32;
-
-       if (!(p = popen(ISO14755CMD, "r")))
-               return;
-
-       us = fgets(codepoint, sizeof(codepoint), p);
-       pclose(p);
-
-       if (!us || *us == '\0' || *us == '-' || strlen(us) > 7)
-               return;
-       if ((utf32 = strtoul(us, &e, 16)) == ULONG_MAX ||
-           (*e != '\n' && *e != '\0'))
-               return;
-
-       ttywrite(uc, utf8encode(utf32, uc), 1);
-}
-
 void
 toggleprinter(const Arg *arg)
 {
@@ -2006,7 +2020,7 @@ tdumpline(int n)
        bp = &term.line[n][0];
        end = &bp[MIN(tlinelen(n), term.col) - 1];
        if (bp != end || bp->u != ' ') {
-               for ( ;bp <= end; ++bp)
+               for ( ; bp <= end; ++bp)
                        tprinter(buf, utf8encode(bp->u, buf));
        }
        tprinter("\n", 1);
@@ -2077,12 +2091,9 @@ tdectest(char c)
 void
 tstrsequence(uchar c)
 {
-       strreset();
-
        switch (c) {
        case 0x90:   /* DCS -- Device Control String */
                c = 'P';
-               term.esc |= ESC_DCS;
                break;
        case 0x9f:   /* APC -- Application Program Command */
                c = '_';
@@ -2094,6 +2105,7 @@ tstrsequence(uchar c)
                c = ']';
                break;
        }
+       strreset();
        strescseq.type = c;
        term.esc |= ESC_STR;
 }
@@ -2136,6 +2148,7 @@ tcontrolcode(uchar ascii)
                return;
        case '\032': /* SUB */
                tsetchar('?', &term.c.attr, term.c.x, term.c.y);
+               /* FALLTHROUGH */
        case '\030': /* CAN */
                csireset();
                break;
@@ -2252,7 +2265,7 @@ eschandle(uchar ascii)
        case 'Z': /* DECID -- Identify Terminal */
                ttywrite(vtiden, strlen(vtiden), 0);
                break;
-       case 'c': /* RIS -- Reset to inital state */
+       case 'c': /* RIS -- Reset to initial state */
                treset();
                resettitle();
                xloadcols();
@@ -2290,15 +2303,13 @@ tputc(Rune u)
        Glyph *gp;
 
        control = ISCONTROL(u);
-       if (!IS_SET(MODE_UTF8) && !IS_SET(MODE_SIXEL)) {
+       if (u < 127 || !IS_SET(MODE_UTF8)) {
                c[0] = u;
                width = len = 1;
        } else {
                len = utf8encode(u, c);
-               if (!control && (width = wcwidth(u)) == -1) {
-                       memcpy(c, "\357\277\275", 4); /* UTF_INVALID */
+               if (!control && (width = wcwidth(u)) == -1)
                        width = 1;
-               }
        }
 
        if (IS_SET(MODE_PRINT))
@@ -2313,25 +2324,12 @@ tputc(Rune u)
        if (term.esc & ESC_STR) {
                if (u == '\a' || u == 030 || u == 032 || u == 033 ||
                   ISCONTROLC1(u)) {
-                       term.esc &= ~(ESC_START|ESC_STR|ESC_DCS);
-                       if (IS_SET(MODE_SIXEL)) {
-                               /* TODO: render sixel */;
-                               term.mode &= ~MODE_SIXEL;
-                               return;
-                       }
+                       term.esc &= ~(ESC_START|ESC_STR);
                        term.esc |= ESC_STR_END;
                        goto check_control_code;
                }
 
-
-               if (IS_SET(MODE_SIXEL)) {
-                       /* TODO: implement sixel mode */
-                       return;
-               }
-               if (term.esc&ESC_DCS && strescseq.len == 0 && u == 'q')
-                       term.mode |= MODE_SIXEL;
-
-               if (strescseq.len+len >= sizeof(strescseq.buf)-1) {
+               if (strescseq.len+len >= strescseq.siz) {
                        /*
                         * Here is a bug in terminals. If the user never sends
                         * some code to stop the str or esc command, then st
@@ -2345,7 +2343,10 @@ tputc(Rune u)
                         * term.esc = 0;
                         * strhandle();
                         */
-                       return;
+                       if (strescseq.siz > (SIZE_MAX - UTF_SIZ) / 2)
+                               return;
+                       strescseq.siz *= 2;
+                       strescseq.buf = xrealloc(strescseq.buf, strescseq.siz);
                }
 
                memmove(&strescseq.buf[strescseq.len], c, len);
@@ -2364,6 +2365,8 @@ check_control_code:
                /*
                 * control codes are not shown ever
                 */
+               if (!term.esc)
+                       term.lastc = 0;
                return;
        } else if (term.esc & ESC_START) {
                if (term.esc & ESC_CSI) {
@@ -2394,8 +2397,8 @@ check_control_code:
                 */
                return;
        }
-       if (sel.ob.x != -1 && BETWEEN(term.c.y, sel.ob.y, sel.oe.y))
-               selclear();
+       //if (selected(term.c.x, term.c.y))
+       //      selclear();
 
        gp = &term.line[term.c.y][term.c.x];
        if (IS_SET(MODE_WRAP) && (term.c.state & CURSOR_WRAPNEXT)) {
@@ -2413,6 +2416,7 @@ check_control_code:
        }
 
        tsetchar(u, &term.c.attr, term.c.x, term.c.y);
+       term.lastc = u;
 
        if (width == 2) {
                gp->mode |= ATTR_WIDE;
@@ -2436,7 +2440,7 @@ twrite(const char *buf, int buflen, int show_ctrl)
        int n;
 
        for (n = 0; n < buflen; n += charsize) {
-               if (IS_SET(MODE_UTF8) && !IS_SET(MODE_SIXEL)) {
+               if (IS_SET(MODE_UTF8)) {
                        /* process a complete utf8 char */
                        charsize = utf8decode(buf + n, &u, buflen - n);
                        if (charsize == 0)
@@ -2464,8 +2468,10 @@ void
 tresize(int col, int row)
 {
        int i;
-       int minrow = MIN(row, term.row);
-       int mincol = MIN(col, term.col);
+       int const colSet = col, alt = IS_SET(MODE_ALTSCREEN), ini = buf == NULL;
+       col = MAX(col, buffCols);
+       row = MIN(row, buffSize);
+       int const minrow = MIN(row, term.row), mincol = MIN(col, buffCols);
        int *bp;
        TCursor c;
 
@@ -2474,6 +2480,7 @@ tresize(int col, int row)
                        "tresize: error resizing to %dx%d\n", col, row);
                return;
        }
+       if (alt) tswapscreen();
 
        /*
         * slide screen to keep cursor where we expect it -
@@ -2481,48 +2488,54 @@ tresize(int col, int row)
         * memmove because we're freeing the earlier lines
         */
        for (i = 0; i <= term.c.y - row; i++) {
-               free(term.line[i]);
                free(term.alt[i]);
        }
        /* ensure that both src and dst are not NULL */
        if (i > 0) {
-               memmove(term.line, term.line + i, row * sizeof(Line));
                memmove(term.alt, term.alt + i, row * sizeof(Line));
        }
        for (i += row; i < term.row; i++) {
-               free(term.line[i]);
                free(term.alt[i]);
        }
 
        /* resize to new height */
-       term.line = xrealloc(term.line, row * sizeof(Line));
+       buf = xrealloc(buf, (buffSize + row) * sizeof(Line));
        term.alt  = xrealloc(term.alt,  row * sizeof(Line));
        term.dirty = xrealloc(term.dirty, row * sizeof(*term.dirty));
+       mark = xrealloc(mark, col * row * sizeof(*mark));
        term.tabs = xrealloc(term.tabs, col * sizeof(*term.tabs));
 
        /* resize each row to new width, zero-pad if needed */
        for (i = 0; i < minrow; i++) {
-               term.line[i] = xrealloc(term.line[i], col * sizeof(Glyph));
                term.alt[i]  = xrealloc(term.alt[i],  col * sizeof(Glyph));
        }
 
        /* allocate any new rows */
        for (/* i = minrow */; i < row; i++) {
-               term.line[i] = xmalloc(col * sizeof(Glyph));
                term.alt[i] = xmalloc(col * sizeof(Glyph));
        }
-       if (col > term.col) {
-               bp = term.tabs + term.col;
+       if (col > buffCols) {
+               bp = term.tabs + buffCols;
 
-               memset(bp, 0, sizeof(*term.tabs) * (col - term.col));
+               memset(bp, 0, sizeof(*term.tabs) * (col - buffCols));
                while (--bp > term.tabs && !*bp)
                        /* nothing */ ;
                for (bp += tabspaces; bp < term.tabs + col; bp += tabspaces)
                        *bp = 1;
        }
+       Glyph g=(Glyph){.bg=term.c.attr.bg, .fg=term.c.attr.fg, .u=' ', .mode=0};
+       for (i = 0; i < buffSize; ++i) {
+               buf[i] = xrealloc(ini ? NULL : buf[i], col*sizeof(Glyph));
+               for (int j = ini ? 0 : buffCols; j < col; ++j) buf[i][j] = g;
+       }
+       for (i = 0; i < row; ++i) buf[buffSize + i] = buf[i];
+       term.line = &buf[*(histOp?&histOff:&insertOff) +=MAX(term.c.y-row+1,0)];
+       memset(mark, 0, col * row * sizeof(*mark));
        /* update terminal size */
-       term.col = col;
+       term.col = colSet;
+       buffCols = col;
        term.row = row;
+       if (alt) tswapscreen();
        /* reset scrolling region */
        tsetscroll(0, row-1);
        /* make use of the LIMIT in tmoveto */
@@ -2551,20 +2564,23 @@ resettitle(void)
 void
 drawregion(int x1, int y1, int x2, int y2)
 {
+       if (altToggle && histMode && !histOp)
+               memset(term.dirty, 0, sizeof(*term.dirty) * term.row);
+       int const o = !IS_SET(MODE_ALTSCREEN) && histMode && !histOp, h =rows();
        int y;
-       for (y = y1; y < y2; y++) {
-               if (!term.dirty[y])
-                       continue;
 
-               term.dirty[y] = 0;
-               xdrawline(term.line[y], x1, y, x2);
+       for (y = y1; y < y2; y++) {
+               int const oy = o ? (y + insertOff - histOff + h) % h : y;
+               if (!BETWEEN(oy, 0, term.row-1) || !term.dirty[y]) continue;
+               xdrawline(term.line[y], x1, oy, x2);
        }
+       memset(&term.dirty[y1], 0, sizeof(*term.dirty) * (y2 - y1));
 }
 
 void
 draw(void)
 {
-       int cx = term.c.x;
+       int cx = term.c.x, ocx = term.ocx, ocy = term.ocy;
 
        if (!xstartdraw())
                return;
@@ -2577,11 +2593,16 @@ draw(void)
        if (term.line[term.c.y][cx].mode & ATTR_WDUMMY)
                cx--;
 
+       if (histMode) historyPreDraw();
        drawregion(0, 0, term.col, term.row);
+       if (!histMode)
        xdrawcursor(cx, term.c.y, term.line[term.c.y][cx],
                        term.ocx, term.ocy, term.line[term.ocy][term.ocx]);
-       term.ocx = cx, term.ocy = term.c.y;
+       term.ocx = cx;
+       term.ocy = term.c.y;
        xfinishdraw();
+       if (ocx != term.ocx || ocy != term.ocy)
+               xximspot(term.ocx, term.ocy);
 }
 
 void