// termclip.c (part of mintty)
// Copyright 2008-10 Andy Koppe, 2018 Thomas Wolff
// Adapted from code from PuTTY-0.60 by Simon Tatham and team.
// Licensed under the terms of the GNU General Public License v3 or later.

#include "termpriv.h"

#include "win.h"
#include "child.h"
#include "charset.h"

typedef struct {
  size_t capacity; // number of items allocated for text/cattrs
  size_t len;      // number of actual items at text/cattrs (incl. NUL)
  // the text buffer is needed to fill the Unicode clipboard in one chunk
  wchar * text;    // text to copy (eventually null terminated)
  // the attributes part of the buffer is only filled as requested
  bool with_attrs;
  cattr * cattrs;  // matching cattr for each wchar of text
} clip_workbuf;

static void
destroy_clip_workbuf(clip_workbuf * b)
{
  assert(b && b->capacity); // we're only called after get_selection, which always allocates
  free(b->text);
  if (b->with_attrs)
    // the attributes part of the buffer was only filled as requested
    free(b->cattrs);
  free(b);
}

// All b members must be 0 initially, ca may be null if the caller doesn't care
static void
clip_addchar(clip_workbuf * b, wchar chr, cattr * ca, bool tabs, ulong sizehint)
{
  // ensure sizehint > 0
  sizehint = max(sizehint, 8);

  if (tabs && chr == ' ' && ca && ca->attr & TATTR_CLEAR && ca->attr & ATTR_BOLD) {
    // collapse TAB
    int l0 = b->len;
    while (l0) {
      l0--;
      if (b->text[l0] == ' ' && b->cattrs[l0].attr & TATTR_CLEAR && b->cattrs[l0].attr & ATTR_DIM)
        b->len--;
      else
        break;
    }
    chr = '\t';
  }

  if (b->len >= b->capacity) {
    //b->capacity = b->len ? b->len * 2 : 1024;  // x2 strategy, 1K chars initially
    //b->capacity += sizehint;
    //b->capacity = b->capacity ? b->capacity * 3 / 2 : sizehint;
    b->capacity = b->capacity ? b->capacity * 5 / 4 : sizehint;

    b->text = renewn(b->text, b->capacity);
    if (b->with_attrs)
      // the attributes part of the buffer is only filled as requested
      b->cattrs = renewn(b->cattrs, b->capacity);
  }

  cattr copattr = ca ? *ca : CATTR_DEFAULT;
  if (copattr.attr & TATTR_CLEAR) {
    copattr.attr &= ~(ATTR_BOLD | ATTR_DIM | TATTR_CLEAR);
  }

  b->text[b->len] = chr;
  if (b->with_attrs)
    // the attributes part of the buffer is only filled as requested
    b->cattrs[b->len] = copattr;

  b->len++;
}

// except OOM, guaranteed at least emtpy null terminated wstring and one cattr
static clip_workbuf *
get_selection(bool attrs, pos start, pos end, bool rect, bool allinline, bool with_tabs)
{
  // estimate buffer size needed, to give memory allocation a hint
  int lines = end.y - start.y;
  long hint = (long)lines * term.cols / 8;
  //printf("get_selection %d...%d (%d)\n", start.y, end.y, lines);

  int old_top_x = start.x;    /* needed for rect==1 */
  clip_workbuf *buf = newn(clip_workbuf, 1);
  *buf = (clip_workbuf){.with_attrs = attrs,
                        .capacity = 0, .len = 0, .text = 0, .cattrs = 0};

  while (poslt(start, end)) {
    bool nl = false;
    termline *line = fetch_line(start.y);

    if (start.y == term.curs.y) {
      line->chars[term.curs.x].attr.attr |= TATTR_ACTCURS;
    }

    pos nlpos;
    wchar * sixel_clipp = (wchar *)cfg.sixel_clip_char;

   /*
    * nlpos will point at the maximum position on this line we
    * should copy up to. So we start it at the end of the line...
    */
    nlpos.y = start.y;
    nlpos.x = term.cols;
    nlpos.r = false;

   /*
    * ... move it backwards if there's unused space at the end
    * of the line (and also set `nl' if this is the case,
    * because in normal selection mode this means we need a
    * newline at the end)...
    */
    if (allinline) {
      if (poslt(nlpos, end))
        nl = true;
    }
    else if (!(line->lattr & LATTR_WRAPPED)) {
      //printf("pos %d\n", nlpos.x);
      while (nlpos.x && line->chars[nlpos.x - 1].chr == ' ' &&
             (cfg.trim_selection ||
              (line->chars[nlpos.x - 1].attr.attr & TATTR_CLEAR)) &&
             !line->chars[nlpos.x - 1].cc_next && poslt(start, nlpos))
        decpos(nlpos);
      if (poslt(nlpos, end))
        nl = true;
      //printf("pos %d nl %d\n", nlpos.x, nl);
    }
    else {
     /* Strip added space in wrapped line after window resizing */
      //printf("wr x %d w %d\n", nlpos.x, line->wrappos);
      while (nlpos.x > line->wrappos + !(line->lattr & LATTR_WRAPPED2) &&
             line->chars[nlpos.x - 1].chr == ' ' &&
             (cfg.trim_selection ||
              (line->chars[nlpos.x - 1].attr.attr & TATTR_CLEAR)) &&
             !line->chars[nlpos.x - 1].cc_next && poslt(start, nlpos))
        decpos(nlpos);
      //printf("-> x %d w %d\n", nlpos.x, line->wrappos);
    }

   /*
    * ... and then clip it to the terminal x coordinate if
    * we're doing rectangular selection. (In this case we
    * still did the above, so that copying e.g. the right-hand
    * column from a table doesn't fill with spaces on the right.)
    */
    if (rect) {
      if (nlpos.x > end.x)
        nlpos.x = end.x;
      nl = (start.y < end.y);
    }

    while (poslt(start, end) && poslt(start, nlpos)) {
      wchar cbuf[16], *p;
      int x = start.x;

      if (line->chars[x].chr == UCSWIDE) {
        start.x++;
        continue;
      }

      while (1) {
        wchar c = line->chars[x].chr;
        cattr *pca = &line->chars[x].attr;
        if (c == SIXELCH && *cfg.sixel_clip_char) {
          // copy replacement into clipboard
          if (!*sixel_clipp)
            sixel_clipp = (wchar *)cfg.sixel_clip_char;
          c = *sixel_clipp++;
        }
        else
          sixel_clipp = (wchar *)cfg.sixel_clip_char;
        cbuf[0] = c;
        cbuf[1] = 0;

        for (p = cbuf; *p; p++)
          clip_addchar(buf, *p, pca, with_tabs, hint);

        if (line->chars[x].cc_next)
          x += line->chars[x].cc_next;
        else
          break;
      }
      start.x++;
    }
    if (nl) {
      clip_addchar(buf, '\r', 0, false, hint);
      clip_addchar(buf, '\n', 0, false, hint);
    }
    start.y++;
    start.x = rect ? old_top_x : 0;

    release_line(line);
  }
  clip_addchar(buf, 0, 0, false, hint);
  //printf("get_selection done\n");
  return buf;
}

static wchar *
get_sel_str(pos start, pos end, bool rect, bool allinline, bool with_tabs)
{
  clip_workbuf * buf = get_selection(false, start, end, rect, allinline, with_tabs);
  wchar * selstr = buf->text;
  free(buf);
  return selstr;
}

void
term_copy_as(char what)
{
  if (!term.selected)
    return;

  bool with_tabs = what == 'T' || ((!what || what == 't') && cfg.copy_tabs);
  if (what == 'T' || what == 'p') // map "text with TABs" and "plain" to text
    what = 't';
  clip_workbuf *buf = get_selection(true, term.sel_start, term.sel_end, term.sel_rect,
                                    false, with_tabs);
  // for CopyAsHTML, get_selection will be called another time
  // but with different parameters
  win_copy_as(buf->text, buf->cattrs, buf->len, what);
  destroy_clip_workbuf(buf);
}

void
term_copy(void)
{
  term_copy_as(0);
}

void
term_open(void)
{
  if (!term.selected)
    return;

  wchar * selstr = get_sel_str(term.sel_start, term.sel_end, term.sel_rect, false, false);

  // Don't bother opening if it's all whitespace.
  wchar * p = selstr;
  while (iswspace(*p))
    p++;
  if (*p) {
    wchar * url = p;
    while (*p && !iswspace(*p))
      p++;
    *p = 0;
    win_open(wcsdup(url), true);  // win_open frees its argument
  }

  free(selstr);
}

static bool
contains(string s, wchar c)
{
  string tag;
  switch (c) {
    when '\b': tag = "BS";
    when '\t': tag = "HT";
    when '\n': tag = "NL";
    when '\r': tag = "CR";
    when '\f': tag = "FF";
    when '\e': tag = "ESC";
    when '\177': tag = "DEL";
    otherwise:
      if (c < ' ')
        tag = "C0";
      else if (c >= 0x80 && c < 0xA0)
        tag = "C1";
      else
        return false;
  }
  return strstr(s, tag);
  // a bit simplistic, we should probably properly parse...
}

void
term_paste(wchar *data, uint len, bool all)
{
  term_cancel_paste();

  uint size = len;
  term.paste_buffer = newn(wchar, len);
  term.paste_len = term.paste_pos = 0;

  bool bracketed_paste_split_by_line = term.bracketed_paste 
       && cfg.bracketed_paste_split
       && (cfg.bracketed_paste_split > 1 || !term.on_alt_screen);

  // Copy data to the paste buffer, converting both Windows-style \r\n and
  // Unix-style \n line endings to \r, because that's what the Enter key sends.
  for (uint i = 0; i < len; i++) {
    // swallow closing paste bracket if included in clipboard contents,
    // in order to prevent (malicious) premature end of bracketing
    if (term.bracketed_paste) {
      if (i + 6 <= len && wcsncmp(W("\e[201~"), &data[i], 6) == 0) {
        i += 6 - 1;
        continue;
      }
    }

    wchar wc = data[i];
    if (wc == '\n')
      wc = '\r';
    if (!all && *cfg.filter_paste && contains(cfg.filter_paste, wc))
      wc = ' ';

    if (data[i] != '\n')
      term.paste_buffer[term.paste_len++] = wc;
    else if (i == 0 || data[i - 1] != '\r')
      term.paste_buffer[term.paste_len++] = wc;
    else
      continue;

    // split bracket embedding by line
    if (bracketed_paste_split_by_line && wc == '\r' && i + 1 < len
     && (i + 2 != len || 0 != wcsncmp(&data[i], W("\r\n"), 2))
       )
    {
      size += 12;
      term.paste_buffer = renewn(term.paste_buffer, size);
      wcsncpy(&term.paste_buffer[term.paste_len], W("\e[201~\e[200~"), 12);
      term.paste_len += 12;
    }
  }

  if (term.bracketed_paste)
    child_write("\e[200~", 6);
  term_send_paste();
}

void
term_cancel_paste(void)
{
  if (term.paste_buffer) {
    free(term.paste_buffer);
    term.paste_buffer = 0;
    if (term.bracketed_paste)
      child_write("\e[201~", 6);
  }
}

void
term_send_paste(void)
{
  int i = term.paste_pos;
  /* We must not feed more than MAXPASTEMAX bytes into the pty in one chunk 
     or it will block on the receiving side (write() does not return).
   */
#define MAXPASTEMAX 7819
#define PASTEMAX 2222
  while (i < term.paste_len && i - term.paste_pos < PASTEMAX
         && term.paste_buffer[i++] != '\r'
        )
    ;
  if (i < term.paste_len && is_high_surrogate(term.paste_buffer[i]))
    i++;
  //printf("term_send_paste pos %d @ %d (len %d)\n", term.paste_pos, i, term.paste_len);
  child_sendw(term.paste_buffer + term.paste_pos, i - term.paste_pos);
  if (i < term.paste_len) {
    term.paste_pos = i;
    // if only part of the paste buffer has been written to the child,
    // the current strategy is to leave the rest pending for on-demand 
    // invocation of term_send_paste from child_proc within the main loop,
    // however, that causes partial loss of large paste contents;
    // worse, without the PASTEMAX limitation, if long contents without 
    // lineends is pasted, the terminal stalls (#810);
    // attempts to replace the pending strategy with looping here (to 
    // paste the whole contents) were not successful to solve the stalling
  }
  else
    term_cancel_paste();
}

void
term_select_all(void)
{
  term.sel_start = (pos){-sblines(), 0, 0, 0, false};
  term.sel_end = (pos){term_last_nonempty_line(), term.cols, 0, 0, true};
  term.selected = true;
  if (cfg.copy_on_select)
    term_copy();
}

#define dont_debug_user_cmd_clip

static wchar *
term_get_text(bool all, bool screen, bool command)
{
  pos start;
  pos end;
  bool rect = false;

  if (command) {
    int sbtop = -sblines();
    int y = term_last_nonempty_line();
    bool skipprompt = true;  // skip upper lines of multi-line prompt

    if (y < sbtop) {
      y = sbtop;
      end = (pos){y, 0, 0, 0, false};
    }
    else {
      termline * line = fetch_line(y);
      if (line->lattr & LATTR_MARKED) {
        if (y > sbtop) {
          y--;
          end = (pos){y, term.cols, 0, 0, false};
          termline * line = fetch_line(y);
          if (line->lattr & LATTR_MARKED)
            y++;
        }
        else {
          end = (pos){y, 0, 0, 0, false};
        }
      }
      else {
        skipprompt = line->lattr & LATTR_UNMARKED;
        end = (pos){y, term.cols, 0, 0, false};
      }

      if (fetch_line(y)->lattr & LATTR_UNMARKED)
        end = (pos){y, 0, 0, 0, false};
    }

    int yok = y;
    while (y-- > sbtop) {
      termline * line = fetch_line(y);
#ifdef debug_user_cmd_clip
      printf("y %d skip %d marked %X\n", y, skipprompt, line->lattr & (LATTR_UNMARKED | LATTR_MARKED));
#endif
      if (skipprompt && (line->lattr & LATTR_UNMARKED))
        end = (pos){y, 0, 0, 0, false};
      else
        skipprompt = false;
      if (line->lattr & LATTR_MARKED) {
        break;
      }
      yok = y;
    }
    start = (pos){yok, 0, 0, 0, false};
#ifdef debug_user_cmd_clip
    printf("%d:%d...%d:%d\n", start.y, start.x, end.y, end.x);
#endif
  }
  else if (screen) {
    start = (pos){term.disptop, 0, 0, 0, false};
    end = (pos){term_last_nonempty_line(), term.cols, 0, 0, false};
  }
  else if (all) {
    start = (pos){-sblines(), 0, 0, 0, false};
    end = (pos){term_last_nonempty_line(), term.cols, 0, 0, false};
  }
  else if (!term.selected) {
    return wcsdup(W(""));
  }
  else {
    start = term.sel_start;
    end = term.sel_end;
    rect = term.sel_rect;
  }

  return get_sel_str(start, end, rect, false, cfg.copy_tabs);
}

void
term_cmd(char * cmd)
{
  // provide scrollback buffer
  wchar * wsel = term_get_text(true, false, false);
  char * sel = cs__wcstombs(wsel);
  free(wsel);
  setenv("MINTTY_BUFFER", sel, true);
  free(sel);
  // provide current selection
  wsel = term_get_text(false, false, false);
  sel = cs__wcstombs(wsel);
  free(wsel);
  setenv("MINTTY_SELECT", sel, true);
  free(sel);
  // provide current screen
  wsel = term_get_text(false, true, false);
  sel = cs__wcstombs(wsel);
  free(wsel);
  setenv("MINTTY_SCREEN", sel, true);
  free(sel);
  // provide last command output
  wsel = term_get_text(false, false, true);
  sel = cs__wcstombs(wsel);
  free(wsel);
  setenv("MINTTY_OUTPUT", sel, true);
  free(sel);
  // provide window title
  char * ttl = win_get_title();
  setenv("MINTTY_TITLE", ttl, true);
  free(ttl);

  char * path0 = 0;
  char * path1 = 0;
  if (*cfg.user_commands_path) {
    path0 = getenv("PATH");
    path1 = cs__wcstombs(cfg.user_commands_path);
    char * ph = strstr(path1, "%s");
    if (ph && !strchr(ph + 1, '%')) {
      char * path2 = asform(path1, path0);
      free(path1);
      path1 = path2;
    }
    setenv("PATH", path1, true);
  }
  FILE * cmdf = popen(cmd, "r");
  unsetenv("MINTTY_TITLE");
  unsetenv("MINTTY_OUTPUT");
  unsetenv("MINTTY_SCREEN");
  unsetenv("MINTTY_SELECT");
  unsetenv("MINTTY_BUFFER");
  if (cmdf) {
    if (term.bracketed_paste)
      child_write("\e[200~", 6);
    char line[222];
    while (fgets(line, sizeof line, cmdf)) {
      child_send(line, strlen(line));
    }
    pclose(cmdf);
    if (term.bracketed_paste)
      child_write("\e[201~", 6);
  }
  if (path0)
    setenv("PATH", path0, true);
  if (path1)
    free(path1);
}

#include <time.h>
#include <sys/time.h>
#include <fcntl.h>
#include "winpriv.h"  // PADDING

static char *
term_create_html(FILE * hf, int level)
{
  char * hbuf = hf ? 0 : strdup("");
  size_t hbuf_len = 0;
  size_t hbuf_cap = 0;
  void
  hprintf(FILE * hf, const char * fmt, ...)
  {
    char * buf;
    va_list va;
    va_start(va, fmt);
    int len = vasprintf(&buf, fmt, va);
    va_end(va);
    if (hf)
      fprintf(hf, "%s", buf);
    else {
      if (hbuf_len + len > hbuf_cap) {
        hbuf_cap = hbuf_cap ? hbuf_cap * 5 / 4 : 5555;
        hbuf = renewn(hbuf, hbuf_cap + 1);
      }

      //strcat(hbuf, buf);
      strcpy(hbuf + hbuf_len, buf);
      hbuf_len += len;
    }
    free(buf);
  }

  pos start = term.sel_start;
  pos end = term.sel_end;
  bool rect = term.sel_rect;
  if (!term.selected) {
    start = (pos){term.disptop, 0, 0, 0, false};
    end = (pos){term.disptop + term.rows - 1, term.cols, 0, 0, false};
    rect = false;
  }

  bool enhtml = true;  // compatibility enhanced HTML

  char * font_name = cs__wcstoutf(cfg.font.name);
  colour fg_colour = win_get_colour(FG_COLOUR_I);
  colour bg_colour = win_get_colour(BG_COLOUR_I);
  colour bold_colour = win_get_colour(BOLD_COLOUR_I);
  colour blink_colour = win_get_colour(BLINK_COLOUR_I);
  hprintf(hf,
    "<head>\n"
    "  <meta name='generator' content='mintty'/>\n"
    "  <meta http-equiv='Content-Type' content='text/html; charset=UTF-8'/>\n"
    "  <title>mintty screen dump</title>\n"
    "  <link rel='stylesheet' type='text/css' href='xterm.css'/>\n"
    "  <link rel='stylesheet' type='text/css' href='mintty.css'/>\n"
    //"  <script type='text/javascript' language='JavaScript' src='emoji.js'></script>\n"
    "  <style type='text/css'>\n"
    "  #vt100 pre { font-family: inherit; margin: 0; padding: 0; }\n"
    );
  if (level >= 3)
    hprintf(hf, "  body.mintty { margin: 0; padding: 0; }\n");
  hprintf(hf, "  #vt100 span {\n");
  if (level >= 2) {
    // font needed in <span> for some tools (e.g. Powerpoint)
    hprintf(hf,
      "    font-family: '%s', 'Lucida Console ', 'Consolas', monospace;\n"
                       // ? 'Lucida Sans Typewriter', 'Courier New', 'Courier'
      , font_name);
    if (cfg.underl_colour != (colour)-1)
      hprintf(hf, "    text-decoration-color: #%02X%02X%02X;\n",
              red(cfg.underl_colour), green(cfg.underl_colour), blue(cfg.underl_colour));
  }
  free(font_name);
  hprintf(hf, "  }\n");

  hprintf(hf,
    "  #vt100 {\n"
    "    border: 0px solid;\n"
    "    padding: %dpx;\n"
    , PADDING);
  if (level >= 2) {
    hprintf(hf,
      "    line-height: %d%%;\n"
      "    font-size: %dpt;\n"
      , line_scale, font_size);
  }

  if (level >= 3) {
    if (*cfg.background && !term.selected) {
      wstring wbg = cfg.background;
      bool tiled = *wbg == '*';
      if (*wbg == '*' || *wbg == '_')
        wbg++;
      char * bg = cs__wcstoutf(wbg);
      int alpha = -1;
      char * salpha = strrchr(bg, ',');
      if (salpha) {
        *salpha = 0;
        salpha++;
        sscanf(salpha, "%u%c", &alpha, &(char){0});
      }

      if (alpha >= 0) {
        hprintf(hf, "  }\n");
        hprintf(hf, "  #vt100 pre {\n");
        hprintf(hf, "    background-color: rgba(%d, %d, %d, %.3f);\n",
                red(bg_colour), green(bg_colour), blue(bg_colour),
                (255.0 - alpha) / 255);
        hprintf(hf, "  }\n");
        hprintf(hf, "  .background {\n");
      }

      hprintf(hf, "    background-image: url('%s');\n", bg);
      if (!tiled) {
        hprintf(hf, "    background-attachment: no-repeat;\n");
        hprintf(hf, "    background-size: 100%% 100%%;\n");
      }

      free(bg);

      if (alpha < 0) {
        hprintf(hf, "  }\n");
        hprintf(hf, "  #vt100 pre {\n");
      }
    }
    else
    {
      hprintf(hf, "  }\n");
      hprintf(hf, "  #vt100 pre {\n");
      hprintf(hf, "    background-color: #%02X%02X%02X;\n",
              red(bg_colour), green(bg_colour), blue(bg_colour));
    }
    // add style for <pre>
    // default color needed here for some tools (e.g. Powerpoint)
    hprintf(hf, "    color: #%02X%02X%02X;\n",
            red(fg_colour), green(fg_colour), blue(fg_colour));
  }

#ifdef float_left
  // float needed here to avoid placement left of previous text (Thunderbird)
  // this cannot be reproduced anymore; dropped (#900)
  if (level >= 3) {
    hprintf(hf, "    float: left;\n");
#endif
  hprintf(hf, "  }\n");

  // add xterm-compatible style classes for some text attributes
  hprintf(hf, "  .bd { font-weight: bold }\n");
  hprintf(hf, "  .it { font-style: italic }\n");
  hprintf(hf, "  .ul { text-decoration-line: underline }\n");
  hprintf(hf, "  .st { text-decoration-line: line-through }\n");
  hprintf(hf, "  .lu { text-decoration-line: line-through underline }\n");
  if (bold_colour != (colour)-1)
    hprintf(hf, "  .bold-color { color: #%02X%02X%02X }\n",
            red(bold_colour), green(bold_colour), blue(bold_colour));
  else if (blink_colour != (colour)-1)
    hprintf(hf, "  .blink-color { color: #%02X%02X%02X }\n",
            red(blink_colour), green(blink_colour), blue(blink_colour));
  for (int i = 0; i < 16; i++) {
    colour ansii = win_get_colour(ANSI0 + i);
    uchar r = red(ansii), g = green(ansii), b = blue(ansii);
    hprintf(hf, "  .fg-color%d { color: #%02X%02X%02X }"
                " .bg-color%d { background-color: #%02X%02X%02X }\n",
                i, r, g, b, i, r, g, b);
  }
  colour cursor_colour = win_get_colour(CURSOR_COLOUR_I);
  hprintf(hf, "  #cursor { background-color: #%02X%02X%02X }\n",
          red(cursor_colour), green(cursor_colour), blue(cursor_colour));

  if (level >= 2) {
    for (int i = 1; i <= 10; i++)
      if (*cfg.fontfams[i].name) {
        char * fn = cs__wcstoutf(cfg.fontfams[i].name);
        hprintf(hf, "  .font%d { font-family: '%s' }\n", i, fn);
        free(fn);
      }
    if (!*cfg.fontfams[10].name)
      hprintf(hf, "  .font10 { font-family: 'F25 Blackletter Typewriter' }\n");
  }

  hprintf(hf, "  </style>\n");
  hprintf(hf, "  <script>\n");
  hprintf(hf, "  var b1 = 500; var b2 = 300;\n");
  hprintf(hf, "  function visib (tag, state, timeout) {\n");
  hprintf(hf, "    var bl = document.getElementsByName(tag);\n");
  hprintf(hf, "    var vv; if (state) vv = 'visible'; else vv = 'hidden';\n");
  hprintf(hf, "    var i;\n");
  hprintf(hf, "    for (i = 0; i < bl.length; i++) {\n");
  hprintf(hf, "      bl[i].style.visibility = vv;\n");
  hprintf(hf, "    }\n");
  hprintf(hf, "    window.setTimeout ('visib (\"' + tag + '\", ' + !state + ', ' + timeout + ')', timeout);\n");
  hprintf(hf, "  }\n");
  hprintf(hf, "  function setup () {\n");
  hprintf(hf, "    window.setTimeout ('visib (\"blink\", 0, b1)', b1);\n");
  hprintf(hf, "    window.setTimeout ('visib (\"rapid\", 0, b2)', b2);\n");
  hprintf(hf, "  }\n");
  hprintf(hf, "  </script>\n");
  hprintf(hf, "</head>\n\n");
  hprintf(hf, "<body class=mintty onload='setup();'>\n");
  //hprintf(hf, "  <table border=0 cellpadding=0 cellspacing=0><tr><td>\n");
  hprintf(hf, "  <div class=background id='vt100'>\n");
  hprintf(hf, "   <pre>");

  clip_workbuf * buf = get_selection(true, start, end, rect, level >= 3, false);
  int i0 = 0;
  bool odd = true;
  for (uint i = 0; i < buf->len; i++) {
    if (!buf->text[i] || buf->text[i] == '\r' || buf->text[i] == '\n'
        // buf->cattrs[i] ~!= buf->cattrs[i0] ?
        // we need to check more than termattrs_equal_fg
        // but less than termchars_equal_override
# define IGNATTR (TATTR_WIDE | TATTR_COMBINING)
        || (buf->cattrs[i].attr & ~IGNATTR) != (buf->cattrs[i0].attr & ~IGNATTR)
        || buf->cattrs[i].truefg != buf->cattrs[i0].truefg
        || buf->cattrs[i].truebg != buf->cattrs[i0].truebg
        || buf->cattrs[i].ulcolr != buf->cattrs[i0].ulcolr
       )
    {
      // flush chunk with equal attributes
      hprintf(hf, "<span class='%s", odd ? "od" : "ev");

      cattr * ca = &buf->cattrs[i0];
      int fgi = (ca->attr & ATTR_FGMASK) >> ATTR_FGSHIFT;
      int bgi = (ca->attr & ATTR_BGMASK) >> ATTR_BGSHIFT;
      bool dim = ca->attr & ATTR_DIM;
      bool rev = ca->attr & ATTR_REVERSE;

      // colour setup preparations;
      // we could perhaps reuse apply_attr_colour here, but again 
      // the situation is specific: some terminal handling (manual bolding) 
      // is not applicable in HTML export, and we do not want to simply 
      // always retrieve a plain colour value because we want to specify 
      // colour style or class only if the respective default is overridden
      colour fg = fgi >= TRUE_COLOUR ? ca->truefg : win_get_colour(fgi);
      colour bg = bgi >= TRUE_COLOUR ? ca->truebg : win_get_colour(bgi);
      // separate ANSI values subject to BoldAsColour
      int fga = fgi >= ANSI0 ? fgi & 0xFF : 999;
      int bga = bgi >= ANSI0 ? bgi & 0xFF : 999;
      if ((ca->attr & ATTR_BOLD) && fga < 8 && term.enable_bold_colour && !rev) {
        if (bold_colour != (colour)-1)
          fg = bold_colour;
      }
      else if ((ca->attr & (ATTR_BLINK | ATTR_BLINK2)) && term.enable_blink_colour) {
        if (blink_colour != (colour)-1)
          fg = blink_colour;
      }
      if (dim) {
        fg = ((fg & 0xFEFEFEFE) >> 1)
             // dim against terminal bg (as in apply_attr_colour)
             + ((win_get_colour(BG_COLOUR_I) & 0xFEFEFEFE) >> 1);
      }
      if (rev) {
        fgi ^= bgi; fga ^= bga; fg ^= bg;
        bgi ^= fgi; bga ^= fga; bg ^= fg;
        fgi ^= bgi; fga ^= bga; fg ^= bg;
      }
      cattr ac = apply_attr_colour(*ca, ACM_TERM);
      fg = ac.truefg;
      bg = ac.truebg;

      // add marker classes
      if (ca->attr & ATTR_FRAMED)
        hprintf(hf, " emoji");  // mark emoji style

      // style adding function
      bool with_style = false;
      void add_style(char * s) {
        if (!with_style) {
          hprintf(hf, "' style='%s", s);
          with_style = true;
        }
        else
          hprintf(hf, " %s", s);
      }
      void add_color(char * pre, int col) {
        colour ansii = win_get_colour(ANSI0 + col);
        uchar r = red(ansii), g = green(ansii), b = blue(ansii);
        add_style("");
        hprintf(hf, "%scolor: #%02X%02X%02X;", pre, r, g, b);
      }

      // add style classes or resolved styles;
      // explicit style= attributes instead of xterm-compatible classes
      // are used for the sake of tools that do not take styles by class
      // (Powerpoint; Word would take id= but not class=)
      if (ca->attr & ATTR_BOLD) {
        if (enhtml)
          add_style("font-weight: bold;");
        else
          hprintf(hf, " bd");
      }
      if (ca->attr & ATTR_ITALIC) {
        if (enhtml)
          add_style("font-style: italic;");
        else
          hprintf(hf, " it");
      }
      if (!enhtml) {
        if ((ca->attr & (ATTR_UNDER | ATTR_STRIKEOUT)) == (ATTR_UNDER | ATTR_STRIKEOUT))
          hprintf(hf, " lu");
        else if (ca->attr & ATTR_STRIKEOUT)
          hprintf(hf, " st");
        else if (ca->attr & UNDER_MASK)
          hprintf(hf, " ul");
      }
      int findex = (ca->attr & FONTFAM_MASK) >> ATTR_FONTFAM_SHIFT;
      if (findex > 10)
        findex = 0;
      if (findex) {
        if (enhtml) {
          if (*cfg.fontfams[findex].name || findex == 10) {
            add_style("font-family: ");
            if (*cfg.fontfams[findex].name) {
              char * fn = cs__wcstoutf(cfg.fontfams[findex].name);
              hprintf(hf, "\"%s\";", fn);
              free(fn);
            }
            else
              hprintf(hf, "\"F25 Blackletter Typewriter\";");
          }
        }
        else
          hprintf(hf, " font%d", findex);
      }

      // catch and verify predefined colours and apply their colour classes
      if (fgi == FG_COLOUR_I) {
        if ((ca->attr & ATTR_BOLD) && term.enable_bold_colour) {
          if (fg == bold_colour) {
            if (enhtml) {
              add_style("color: ");
              hprintf(hf, "#%02X%02X%02X;",
                      red(bold_colour), green(bold_colour), blue(bold_colour));
            }
            else
              hprintf(hf, " bold-color");
            fg = (colour)-1;
          }
        }
        else if (ca->attr & (ATTR_BLINK | ATTR_BLINK2) && term.enable_blink_colour) {
          if (fg == blink_colour) {
            if (enhtml) {
              add_style("color: ");
              hprintf(hf, "#%02X%02X%02X;",
                      red(blink_colour), green(blink_colour), blue(blink_colour));
            }
            else
              hprintf(hf, " blink-color");
            fg = (colour)-1;
          }
        }
        else if (fg == fg_colour)
          fg = (colour)-1;
      }
      else if (fga < 8 && cfg.bold_as_colour && (ca->attr & ATTR_BOLD)
               && fg == win_get_colour(ANSI0 + fga + 8)
              )
      {
        if (enhtml)
          add_color("", fga + 8);
        else
          hprintf(hf, " fg-color%d", fga + 8);
        fg = (colour)-1;
      }
      else if (fga < 16 && fg == win_get_colour(ANSI0 + fga)) {
        if (enhtml)
          add_color("", fga);
        else
          hprintf(hf, " fg-color%d", fga);
        fg = (colour)-1;
      }
      if (bgi == BG_COLOUR_I && bg == bg_colour)
        bg = (colour)-1;
      else if (bga < 16 && bg == win_get_colour(ANSI0 + bga)) {
        if (enhtml)
          add_color("background-", bga);
        else
          hprintf(hf, " bg-color%d", bga);
        bg = (colour)-1;
      }

      // add individual styles

      // add individual colours, or fix unmatched colours
      if (fg != (colour)-1) {
        uchar r = red(fg), g = green(fg), b = blue(fg);
        add_style("");
        hprintf(hf, "color: #%02X%02X%02X;", r, g, b);
      }
      if (bg != (colour)-1) {
        uchar r = red(bg), g = green(bg), b = blue(bg);
        add_style("");
        hprintf(hf, "background-color: #%02X%02X%02X;", r, g, b);
      }

      if (enhtml && (ca->attr & (UNDER_MASK | ATTR_STRIKEOUT | ATTR_OVERL))) {
        // add explicit style= lining attributes for the sake of tools 
        // that do not take styles by class (Powerpoint)
        add_style("text-decoration:");
        if (ca->attr & UNDER_MASK)
          hprintf(hf, " underline");
        if (ca->attr & ATTR_STRIKEOUT)
          hprintf(hf, " line-through");
        if (ca->attr & ATTR_OVERL)
          hprintf(hf, " overline");
        hprintf(hf, ";");
      }
      else if (ca->attr & ATTR_OVERL) {
        add_style("text-decoration-line: overline");
        if (ca->attr & ATTR_STRIKEOUT)
          hprintf(hf, " line-through");
        if (ca->attr & ATTR_UNDER)
          hprintf(hf, " underline");
        hprintf(hf, ";");
      }
      if (ca->attr & ATTR_BROKENUND)
        if (ca->attr & ATTR_DOUBLYUND)
          add_style("text-decoration-style: dashed;");
        else
          add_style("text-decoration-style: dotted;");
      else if ((ca->attr & UNDER_MASK) == ATTR_CURLYUND)
        add_style("text-decoration-style: wavy;");
      else if ((ca->attr & UNDER_MASK) == ATTR_DOUBLYUND)
        add_style("text-decoration-style: double;");

      colour ul = (ca->attr & ATTR_ULCOLOUR) ? ca->ulcolr : cfg.underl_colour;
      if (ul != (colour)-1 && (ca->attr & (UNDER_MASK | ATTR_STRIKEOUT | ATTR_OVERL))) {
        uchar r = red(ul), g = green(ul), b = blue(ul);
        add_style("");
        hprintf(hf, "text-decoration-color: #%02X%02X%02X;", r, g, b);
      }

      if (ca->attr & ATTR_INVISIBLE)
        add_style("visibility: hidden;");
      else {
        // add JavaScript triggers
        if (ca->attr & ATTR_BLINK2)
          hprintf(hf, "' name='rapid");
        else if (ca->attr & ATTR_BLINK)
          hprintf(hf, "' name='blink");
      }

      // mark cursor position
      if (ca->attr & (TATTR_ACTCURS | TATTR_PASCURS)) {
        hprintf(hf, "' id='cursor");
        fg = win_get_colour(CURSOR_TEXT_COLOUR_I);
        // more precise cursor colour adjustments could be made...
      }

      // retrieve chunk of text from buffer
      wchar save = buf->text[i];
      buf->text[i] = 0;
      char * s = cs__wcstoutf(&buf->text[i0]);
      buf->text[i] = save;

      // write chunk, apply HTML escapes
      char * s1 = strpbrk(s, "<&");
      if (s1) {
        hprintf(hf, "'>");
        char * s0 = s;
        do {
          if (*s0 == '<') {
            hprintf(hf, "&lt;");
            s0 ++;
          }
          else if (*s0 == '&') {
            hprintf(hf, "&amp;");
            s0 ++;
          }
          else {
            char c = s1 ? *s1 : 0;
            if (s1)
              *s1 = 0;
            hprintf(hf, "%s", s0);
            if (s1) {
              *s1 = c;
              s0 = s1;
            }
            else
              s0 += strlen(s0);
          }
          s1 = strpbrk(s0, "<&");
        } while (*s0);
        hprintf(hf, "</span>");
      }
      else
        hprintf(hf, "'>%s</span>", s);
      free(s);

      // forward chunk pointer
      i0 = i;
    }

    // forward newlines
    if (buf->text[i] == '\r') {
      i++;
      i0 = i;
    }
    if (buf->text[i] == '\n') {
      i++;
      i0 = i;
      if (enhtml)
        // <br> needed for Powerpoint
        hprintf(hf, "<br\n>");
      else
        hprintf(hf, "\n");
      odd = !odd;
    }
  }
  destroy_clip_workbuf(buf);

  hprintf(hf, "</pre>\n");
  hprintf(hf, "  </div>\n");
  //hprintf(hf, "  </td></tr></table>\n");
  hprintf(hf, "</body>\n");

  return hbuf;
}

char *
term_get_html(int level)
{
  return term_create_html(0, level);
}

void
term_export_html(bool do_open)
{
  struct timeval now;
  gettimeofday(& now, 0);
  char * htmlf = save_filename(".html");

  int hfd = open(htmlf, O_WRONLY | O_CREAT | O_EXCL, 0600);
  if (hfd < 0) {
    win_bell(&cfg);
    return;
  }
  FILE * hf = fdopen(hfd, "w");
  if (!hf) {
    win_bell(&cfg);
    return;
  }

  term_create_html(hf, 3);

  fclose(hf);  // implies close(hfd);

  if (do_open) {
    wchar * browse = cs__mbstowcs(htmlf);
    win_open(browse, false);  // win_open frees its argument
  }
  free(htmlf);
}

#include "print.h"

void
print_screen(void)
{
  if (*cfg.printer == '*')
    printer_start_job(printer_get_default());
  else if (*cfg.printer)
    printer_start_job(cfg.printer);
  else
    return;

  pos start = (pos){term.disptop, 0, 0, 0, false};
  pos end = (pos){term.disptop + term.rows - 1, term.cols, 0, 0, false};
  bool rect = false;
  clip_workbuf * buf = get_selection(false, start, end, rect, false, false);
  printer_wwrite(buf->text, buf->len);
  printer_finish_job();
  destroy_clip_workbuf(buf);
}

