User:Jnc/wiki.e

/* A personal favourite - convert paragraphs to very long lines, and copies the
 * result to the clipboard - very useful for doing text on Wikipedia.
 * It knows about Wikipedia syntax, so it supresses the line collection
 * wherever i) the preceding line ended with a '=' (i.e. it was a section
 * header line), or the next line starts with a '*' or '#' (i.e.* it's a list
 * element), a ':' (i.e. it's an indented section), or a '<' (i.e. it's a
 * comment).
 */

command wikify_region() on reg_tab[ALT('W')]

{ int obuf, wbuf;
 char c, oc, nc;

 save_spot point;
 fix_region();

 obuf = bufnum;
 wbuf = zap("-wiki-");
 oc = '\n';

 while (point < mark) {
  c = curchar();
  point++;

  if (c != '\n') {
   binsert(wbuf, c);
   if (c == '=')
    oc = '=';
     else
    oc = '+';
   continue;
   }

  nc = curchar();
  if ((oc != '=') && (oc != '\n') &&
      (nc != ':') && (nc != '*') && (nc != '#') && (nc != '<') &&
      (nc != '\n')) {
   binsert(wbuf, ' ');
   oc = '-';
   continue;
   }

  binsert(wbuf, '\n');
  oc = '\n';
  }

 bufnum = wbuf;
 point = 0;
 mark = size();
 copy_to_clipboard();
 bufnum = obuf;

 say("Region Wikified.");
}