apps/irssi/src/fe-common/core/formats.c

   1 /*
   2  formats.c : irssi
   3
   4     Copyright (C) 1999-2000 Timo Sirainen
   5
   6     This program is free software; you can redistribute it and/or modify
   7     it under the terms of the GNU General Public License as published by
   8     the Free Software Foundation; either version 2 of the License, or
   9     (at your option) any later version.
  10
  11     This program is distributed in the hope that it will be useful,
  12     but WITHOUT ANY WARRANTY; without even the implied warranty of
  13     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14     GNU General Public License for more details.
  15
  16     You should have received a copy of the GNU General Public License
  17     along with this program; if not, write to the Free Software
  18     Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  19 */
  20
  21 #include "module.h"
  22 #include "module-formats.h"
  23 #include "signals.h"
  24 #include "special-vars.h"
  25 #include "settings.h"
  26
  27 #include "levels.h"
  28
  29 #include "fe-windows.h"
  30 #include "formats.h"
  31 #include "themes.h"
  32 #include "translation.h"
  33
  34 static const char *format_backs = "04261537";
  35 static const char *format_fores = "kbgcrmyw";
  36 static const char *format_boldfores = "KBGCRMYW";
  37
  38 static int signal_gui_print_text;
  39 static int hide_text_style, hide_server_tags;
  40
  41 static int timestamps, msgs_timestamps;
  42 static int timestamp_timeout;
  43
  44 int format_find_tag(const char *module, const char *tag)
  45 {
  46         FORMAT_REC *formats;
  47         int n;
  48
  49         formats = g_hash_table_lookup(default_formats, module);
  50         if (formats == NULL)
  51                 return -1;
  52
  53         for (n = 0; formats[n].def != NULL; n++) {
  54                 if (formats[n].tag != NULL &&
  55                     g_strcasecmp(formats[n].tag, tag) == 0)
  56                         return n;
  57         }
  58
  59         return -1;
  60 }
  61
  62 int format_expand_styles(GString *out, char format)
  63 {
  64         char *p;
  65
  66         switch (format) {
  67         case 'U':
  68                 /* Underline on/off */
  69                 g_string_append_c(out, 4);
  70                 g_string_append_c(out, FORMAT_STYLE_UNDERLINE);
  71                 break;
  72         case '9':
  73         case '_':
  74                 /* bold on/off */
  75                 g_string_append_c(out, 4);
  76                 g_string_append_c(out, FORMAT_STYLE_BOLD);
  77                 break;
  78         case '8':
  79                 /* reverse */
  80                 g_string_append_c(out, 4);
  81                 g_string_append_c(out, FORMAT_STYLE_REVERSE);
  82                 break;
  83         case '%':
  84                 g_string_append_c(out, '%');
  85                 break;
  86         case ':':
  87                 /* Newline */
  88                 g_string_append_c(out, '\n');
  89                 break;
  90         case '|':
  91                 /* Indent here */
  92                 g_string_append_c(out, 4);
  93                 g_string_append_c(out, FORMAT_STYLE_INDENT);
  94                 break;
  95         case 'F':
  96                 /* blink */
  97                 g_string_append_c(out, 4);
  98                 g_string_append_c(out, FORMAT_STYLE_BLINK);
  99                 break;
 100         case 'n':
 101         case 'N':
 102                 /* default color */
 103                 g_string_append_c(out, 4);
 104                 g_string_append_c(out, FORMAT_STYLE_DEFAULTS);
 105                 break;
 106         default:
 107                 /* check if it's a background color */
 108                 p = strchr(format_backs, format);
 109                 if (p != NULL) {
 110                         g_string_append_c(out, 4);
 111                         g_string_append_c(out, FORMAT_COLOR_NOCHANGE);
 112                         g_string_append_c(out, (char) ((int) (p-format_backs)+'0'));
 113                         break;
 114                 }
 115
 116                 /* check if it's a foreground color */
 117                 if (format == 'p') format = 'm';
 118                 p = strchr(format_fores, format);
 119                 if (p != NULL) {
 120                         g_string_append_c(out, 4);
 121                         g_string_append_c(out, (char) ((int) (p-format_fores)+'0'));
 122                         g_string_append_c(out, FORMAT_COLOR_NOCHANGE);
 123                         break;
 124                 }
 125
 126                 /* check if it's a bold foreground color */
 127                 if (format == 'P') format = 'M';
 128                 p = strchr(format_boldfores, format);
 129                 if (p != NULL) {
 130                         g_string_append_c(out, 4);
 131                         g_string_append_c(out, (char) (8+(int) (p-format_boldfores)+'0'));
 132                         g_string_append_c(out, FORMAT_COLOR_NOCHANGE);
 133                         break;
 134                 }
 135
 136                 return FALSE;
 137         }
 138
 139         return TRUE;
 140 }
 141
 142 void format_read_arglist(va_list va, FORMAT_REC *format,
 143                          char **arglist, int arglist_size,
 144                          char *buffer, int buffer_size)
 145 {
 146         int num, len, bufpos;
 147
 148         g_return_if_fail(format->params < arglist_size);
 149
 150         bufpos = 0;
 151         arglist[format->params] = NULL;
 152         for (num = 0; num < format->params; num++) {
 153                 switch (format->paramtypes[num]) {
 154                 case FORMAT_STRING:
 155                         arglist[num] = (char *) va_arg(va, char *);
 156                         if (arglist[num] == NULL) {
 157                                 g_warning("format_read_arglist() : parameter %d is NULL", num);
 158                                 arglist[num] = "";
 159                         }
 160                         break;
 161                 case FORMAT_INT: {
 162                         int d = (int) va_arg(va, int);
 163
 164                         if (bufpos >= buffer_size) {
 165                                 arglist[num] = "";
 166                                 break;
 167                         }
 168
 169                         arglist[num] = buffer+bufpos;
 170                         len = g_snprintf(buffer+bufpos, buffer_size-bufpos,
 171                                          "%d", d);
 172                         bufpos += len+1;
 173                         break;
 174                 }
 175                 case FORMAT_LONG: {
 176                         long l = (long) va_arg(va, long);
 177
 178                         if (bufpos >= buffer_size) {
 179                                 arglist[num] = "";
 180                                 break;
 181                         }
 182
 183                         arglist[num] = buffer+bufpos;
 184                         len = g_snprintf(buffer+bufpos, buffer_size-bufpos,
 185                                          "%ld", l);
 186                         bufpos += len+1;
 187                         break;
 188                 }
 189                 case FORMAT_FLOAT: {
 190                         double f = (double) va_arg(va, double);
 191
 192                         if (bufpos >= buffer_size) {
 193                                 arglist[num] = "";
 194                                 break;
 195                         }
 196
 197                         arglist[num] = buffer+bufpos;
 198                         len = g_snprintf(buffer+bufpos, buffer_size-bufpos,
 199                                          "%0.2f", f);
 200                         bufpos += len+1;
 201                         break;
 202                 }
 203                 }
 204         }
 205 }
 206
 207 void format_create_dest(TEXT_DEST_REC *dest,
 208                         void *server, const char *target,
 209                         int level, WINDOW_REC *window)
 210 {
 211         dest->server = server;
 212         dest->target = target;
 213         dest->level = level;
 214         dest->window = window != NULL ? window :
 215                 window_find_closest(server, target, level);
 216
 217         dest->hilight_priority = 0;
 218         dest->hilight_color = NULL;
 219 }
 220
 221 /* Return length of text part in string (ie. without % codes) */
 222 int format_get_length(const char *str)
 223 {
 224         GString *tmp;
 225         int len;
 226
 227         g_return_val_if_fail(str != NULL, 0);
 228
 229         tmp = g_string_new(NULL);
 230         len = 0;
 231         while (*str != '\0') {
 232                 if (*str == '%' && str[1] != '\0') {
 233                         str++;
 234                         if (*str != '%' && format_expand_styles(tmp, *str)) {
 235                                 str++;
 236                                 continue;
 237                         }
 238
 239                         /* %% or unknown %code, written as-is */
 240                         if (*str != '%')
 241                                 len++;
 242                 }
 243
 244                 len++;
 245                 str++;
 246         }
 247
 248         g_string_free(tmp, TRUE);
 249         return len;
 250 }
 251
 252 /* Return how many characters in `str' must be skipped before `len'
 253    characters of text is skipped. Like strip_real_length(), except this
 254    handles %codes. */
 255 int format_real_length(const char *str, int len)
 256 {
 257         GString *tmp;
 258         const char *start;
 259
 260         g_return_val_if_fail(str != NULL, 0);
 261         g_return_val_if_fail(len >= 0, 0);
 262
 263         start = str;
 264         tmp = g_string_new(NULL);
 265         while (*str != '\0' && len > 0) {
 266                 if (*str == '%' && str[1] != '\0') {
 267                         str++;
 268                         if (*str != '%' && format_expand_styles(tmp, *str)) {
 269                                 str++;
 270                                 continue;
 271                         }
 272
 273                         /* %% or unknown %code, written as-is */
 274                         if (*str != '%') {
 275                                 if (--len == 0)
 276                                         break;
 277                         }
 278                 }
 279
 280                 len--;
 281                 str++;
 282         }
 283
 284         g_string_free(tmp, TRUE);
 285         return (int) (str-start);
 286 }
 287
 288 char *format_string_expand(const char *text)
 289 {
 290         GString *out;
 291         char code, *ret;
 292
 293         g_return_val_if_fail(text != NULL, NULL);
 294
 295         out = g_string_new(NULL);
 296
 297         code = 0;
 298         while (*text != '\0') {
 299                 if (code == '%') {
 300                         /* color code */
 301                         if (!format_expand_styles(out, *text)) {
 302                                 g_string_append_c(out, '%');
 303                                 g_string_append_c(out, '%');
 304                                 g_string_append_c(out, *text);
 305                         }
 306                         code = 0;
 307                 } else {
 308                         if (*text == '%')
 309                                 code = *text;
 310                         else
 311                                 g_string_append_c(out, *text);
 312                 }
 313
 314                 text++;
 315         }
 316
 317         ret = out->str;
 318         g_string_free(out, FALSE);
 319         return ret;
 320 }
 321
 322 static char *format_get_text_args(TEXT_DEST_REC *dest,
 323                                   const char *text, char **arglist)
 324 {
 325         GString *out;
 326         char code, *ret;
 327         int need_free;
 328
 329         out = g_string_new(NULL);
 330
 331         code = 0;
 332         while (*text != '\0') {
 333                 if (code == '%') {
 334                         /* color code */
 335                         if (!format_expand_styles(out, *text)) {
 336                                 g_string_append_c(out, '%');
 337                                 g_string_append_c(out, '%');
 338                                 g_string_append_c(out, *text);
 339                         }
 340                         code = 0;
 341                 } else if (code == '$') {
 342                         /* argument */
 343                         char *ret;
 344
 345                         ret = parse_special((char **) &text,
 346                                             active_win == NULL ? NULL :
 347                                             active_win->active_server,
 348                                             active_win == NULL ? NULL :
 349                                             active_win->active, arglist,
 350                                             &need_free, NULL, 0);
 351
 352                         if (ret != NULL) {
 353                                 /* string shouldn't end with \003 or it could
 354                                    mess up the next one or two characters */
 355                                 int diff;
 356                                 int len = strlen(ret);
 357                                 while (len > 0 && ret[len-1] == 3) len--;
 358                                 diff = strlen(ret)-len;
 359
 360                                 g_string_append(out, ret);
 361                                 if (diff > 0)
 362                                         g_string_truncate(out, out->len-diff);
 363                                 if (need_free) g_free(ret);
 364                         }
 365                         code = 0;
 366                 } else {
 367                         if (*text == '%' || *text == '$')
 368                                 code = *text;
 369                         else
 370                                 g_string_append_c(out, *text);
 371                 }
 372
 373                 text++;
 374         }
 375
 376         ret = out->str;
 377         g_string_free(out, FALSE);
 378         return ret;
 379 }
 380
 381 char *format_get_text_theme(THEME_REC *theme, const char *module,
 382                             TEXT_DEST_REC *dest, int formatnum, ...)
 383 {
 384         va_list va;
 385         char *str;
 386
 387         if (theme == NULL) {
 388                 theme = dest->window->theme == NULL ? current_theme :
 389                         dest->window->theme;
 390         }
 391
 392         va_start(va, formatnum);
 393         str = format_get_text_theme_args(theme, module, dest, formatnum, va);
 394         va_end(va);
 395
 396         return str;
 397 }
 398
 399 char *format_get_text_theme_args(THEME_REC *theme, const char *module,
 400                                  TEXT_DEST_REC *dest, int formatnum,
 401                                  va_list va)
 402 {
 403         char *arglist[MAX_FORMAT_PARAMS];
 404         char buffer[DEFAULT_FORMAT_ARGLIST_SIZE];
 405         FORMAT_REC *formats;
 406
 407         formats = g_hash_table_lookup(default_formats, module);
 408         format_read_arglist(va, &formats[formatnum],
 409                             arglist, sizeof(arglist)/sizeof(char *),
 410                             buffer, sizeof(buffer));
 411
 412         return format_get_text_theme_charargs(theme, module, dest,
 413                                               formatnum, arglist);
 414 }
 415
 416 char *format_get_text_theme_charargs(THEME_REC *theme, const char *module,
 417                                      TEXT_DEST_REC *dest, int formatnum,
 418                                      char **args)
 419 {
 420         MODULE_THEME_REC *module_theme;
 421         char *text;
 422
 423         module_theme = g_hash_table_lookup(theme->modules, module);
 424         if (module_theme == NULL)
 425                 return NULL;
 426
 427         text = module_theme->expanded_formats[formatnum];
 428         return format_get_text_args(dest, text, args);
 429 }
 430
 431 char *format_get_text(const char *module, WINDOW_REC *window,
 432                       void *server, const char *target,
 433                       int formatnum, ...)
 434 {
 435         TEXT_DEST_REC dest;
 436         THEME_REC *theme;
 437         va_list va;
 438         char *str;
 439
 440         format_create_dest(&dest, server, target, 0, window);
 441         theme = dest.window->theme == NULL ? current_theme :
 442                 dest.window->theme;
 443
 444         va_start(va, formatnum);
 445         str = format_get_text_theme_args(theme, module, &dest, formatnum, va);
 446         va_end(va);
 447
 448         return str;
 449 }
 450
 451 /* add `linestart' to start of each line in `text'. `text' may contain
 452    multiple lines separated with \n. */
 453 char *format_add_linestart(const char *text, const char *linestart)
 454 {
 455         GString *str;
 456         char *ret;
 457
 458         if (linestart == NULL)
 459                 return g_strdup(text);
 460
 461         if (strchr(text, '\n') == NULL)
 462                 return g_strconcat(linestart, text, NULL);
 463
 464         str = g_string_new(linestart);
 465         while (*text != '\0') {
 466                 g_string_append_c(str, *text);
 467                 if (*text == '\n')
 468                         g_string_append(str, linestart);
 469                 text++;
 470         }
 471
 472         ret = str->str;
 473         g_string_free(str, FALSE);
 474         return ret;
 475 }
 476
 477 #define LINE_START_IRSSI_LEVEL \
 478         (MSGLEVEL_CLIENTERROR | MSGLEVEL_CLIENTNOTICE)
 479
 480 #define NOT_LINE_START_LEVEL \
 481         (MSGLEVEL_NEVER | MSGLEVEL_LASTLOG | MSGLEVEL_CLIENTCRAP | \
 482         MSGLEVEL_MSGS | MSGLEVEL_PUBLIC | MSGLEVEL_DCC | MSGLEVEL_DCCMSGS | \
 483         MSGLEVEL_ACTIONS | MSGLEVEL_NOTICES | MSGLEVEL_SNOTES | MSGLEVEL_CTCPS)
 484
 485 /* return the "-!- " text at the start of the line */
 486 char *format_get_level_tag(THEME_REC *theme, TEXT_DEST_REC *dest)
 487 {
 488         int format;
 489
 490         if (dest->level & LINE_START_IRSSI_LEVEL)
 491                 format = TXT_LINE_START_IRSSI;
 492         else if ((dest->level & NOT_LINE_START_LEVEL) == 0)
 493                 format = TXT_LINE_START;
 494         else
 495                 return NULL;
 496
 497         return format_get_text_theme(theme, MODULE_NAME, dest, format);
 498 }
 499
 500 #define show_timestamp(level) \
 501         ((level & (MSGLEVEL_NEVER|MSGLEVEL_LASTLOG)) == 0 && \
 502         (timestamps || (msgs_timestamps && ((level) & MSGLEVEL_MSGS))))
 503
 504 static char *get_timestamp(THEME_REC *theme, TEXT_DEST_REC *dest, time_t t)
 505 {
 506         struct tm *tm;
 507         int diff;
 508
 509         if (!show_timestamp(dest->level))
 510                 return NULL;
 511
 512         if (timestamp_timeout > 0) {
 513                 diff = t - dest->window->last_timestamp;
 514                 dest->window->last_timestamp = t;
 515                 if (diff < timestamp_timeout)
 516                         return NULL;
 517         }
 518
 519         tm = localtime(&t);
 520         return format_get_text_theme(theme, MODULE_NAME, dest, TXT_TIMESTAMP,
 521                                      tm->tm_year+1900,
 522                                      tm->tm_mon+1, tm->tm_mday,
 523                                      tm->tm_hour, tm->tm_min, tm->tm_sec);
 524 }
 525
 526 static char *get_server_tag(THEME_REC *theme, TEXT_DEST_REC *dest)
 527 {
 528         SERVER_REC *server;
 529         int count = 0;
 530
 531         server = dest->server;
 532
 533         if (server == NULL || hide_server_tags ||
 534             (dest->window->active != NULL &&
 535              dest->window->active->server == server))
 536                 return NULL;
 537
 538         if (servers != NULL) {
 539                 count++;
 540                 if (servers->next != NULL)
 541                         count++;
 542         }
 543         if (count < 2 && lookup_servers != NULL) {
 544                 count++;
 545                 if (lookup_servers->next != NULL)
 546                         count++;
 547         }
 548
 549         return count < 2 ? NULL :
 550                 format_get_text_theme(theme, MODULE_NAME, dest,
 551                                       TXT_SERVERTAG, server->tag);
 552 }
 553
 554 char *format_get_line_start(THEME_REC *theme, TEXT_DEST_REC *dest, time_t t)
 555 {
 556         char *timestamp, *servertag;
 557         char *linestart;
 558
 559         timestamp = get_timestamp(theme, dest, t);
 560         servertag = get_server_tag(theme, dest);
 561
 562         if (timestamp == NULL && servertag == NULL)
 563                 return NULL;
 564
 565         linestart = g_strconcat(timestamp != NULL ? timestamp : "",
 566                                 servertag, NULL);
 567
 568         g_free_not_null(timestamp);
 569         g_free_not_null(servertag);
 570         return linestart;
 571 }
 572
 573 void format_newline(WINDOW_REC *window)
 574 {
 575         g_return_if_fail(window != NULL);
 576
 577         signal_emit_id(signal_gui_print_text, 6, window,
 578                        GINT_TO_POINTER(-1), GINT_TO_POINTER(-1),
 579                        GINT_TO_POINTER(PRINTFLAG_NEWLINE),
 580                        "", GINT_TO_POINTER(-1));
 581 }
 582
 583 /* parse ANSI color string */
 584 static char *get_ansi_color(THEME_REC *theme, char *str,
 585                             int *fg_ret, int *bg_ret, int *flags_ret)
 586 {
 587         static char ansitab[8] = { 0, 4, 2, 6, 1, 5, 3, 7 };
 588         char *start;
 589         int fg, bg, flags, num;
 590
 591         if (*str != '[')
 592                 return str;
 593         start = str++;
 594
 595         fg = fg_ret == NULL || *fg_ret < 0 ? theme->default_color : *fg_ret;
 596         bg = bg_ret == NULL || *bg_ret < 0 ? -1 : *bg_ret;
 597         flags = flags_ret == NULL ? 0 : *flags_ret;
 598
 599         num = 0;
 600         for (;; str++) {
 601                 if (*str == '\0') return start;
 602
 603                 if (isdigit((int) *str)) {
 604                         num = num*10 + (*str-'0');
 605                         continue;
 606                 }
 607
 608                 if (*str != ';' && *str != 'm')
 609                         return start;
 610
 611                 switch (num) {
 612                 case 0:
 613                         /* reset colors back to default */
 614                         fg = theme->default_color;
 615                         bg = -1;
 616                         flags &= ~PRINTFLAG_INDENT;
 617                         break;
 618                 case 1:
 619                         /* hilight */
 620                         flags |= PRINTFLAG_BOLD;
 621                         break;
 622                 case 5:
 623                         /* blink */
 624                         flags |= PRINTFLAG_BLINK;
 625                         break;
 626                 case 7:
 627                         /* reverse */
 628                         flags |= PRINTFLAG_REVERSE;
 629                         break;
 630                 default:
 631                         if (num >= 30 && num <= 37)
 632                                 fg = (fg & 0xf8) | ansitab[num-30];
 633                         if (num >= 40 && num <= 47) {
 634                                 if (bg == -1) bg = 0;
 635                                 bg = (bg & 0xf8) | ansitab[num-40];
 636                         }
 637                         break;
 638                 }
 639                 num = 0;
 640
 641                 if (*str == 'm') {
 642                         if (fg_ret != NULL) *fg_ret = fg;
 643                         if (bg_ret != NULL) *bg_ret = bg;
 644                         if (flags_ret != NULL) *flags_ret = flags;
 645
 646                         str++;
 647                         break;
 648                 }
 649         }
 650
 651         return str;
 652 }
 653
 654 /* parse MIRC color string */
 655 static void get_mirc_color(const char **str, int *fg_ret, int *bg_ret)
 656 {
 657         int fg, bg;
 658
 659         fg = fg_ret == NULL ? -1 : *fg_ret;
 660         bg = bg_ret == NULL ? -1 : *bg_ret;
 661
 662         if (!isdigit((int) **str) && **str != ',') {
 663                 fg = -1;
 664                 bg = -1;
 665         } else {
 666                 /* foreground color */
 667                 if (**str != ',') {
 668                         fg = **str-'0';
 669                         (*str)++;
 670                         if (isdigit((int) **str)) {
 671                                 fg = fg*10 + (**str-'0');
 672                                 (*str)++;
 673                         }
 674                 }
 675                 if (**str == ',') {
 676                         /* background color */
 677                         (*str)++;
 678                         if (!isdigit((int) **str))
 679                                 bg = -1;
 680                         else {
 681                                 bg = **str-'0';
 682                                 (*str)++;
 683                                 if (isdigit((int) **str)) {
 684                                         bg = bg*10 + (**str-'0');
 685                                         (*str)++;
 686                                 }
 687                         }
 688                 }
 689         }
 690
 691         if (fg_ret) *fg_ret = fg;
 692         if (bg_ret) *bg_ret = bg;
 693 }
 694
 695 #define IS_COLOR_CODE(c) \
 696         ((c) == 2 || (c) == 3 || (c) == 4 || (c) == 6 || (c) == 7 || \
 697         (c) == 15 || (c) == 22 || (c) == 27 || (c) == 31)
 698
 699 /* Return how many characters in `str' must be skipped before `len'
 700    characters of text is skipped. */
 701 int strip_real_length(const char *str, int len,
 702                       int *last_color_pos, int *last_color_len)
 703 {
 704         const char *start = str;
 705
 706         if (last_color_pos != NULL)
 707                 *last_color_pos = -1;
 708         if (last_color_len != NULL)
 709                 *last_color_len = -1;
 710
 711         while (*str != '\0') {
 712                 if (*str == 3) {
 713                         const char *mircstart = str;
 714
 715                         if (last_color_pos != NULL)
 716                                 *last_color_pos = (int) (str-start);
 717                         str++;
 718                         get_mirc_color(&str, NULL, NULL);
 719                         if (last_color_len != NULL)
 720                                 *last_color_len = (int) (str-mircstart);
 721
 722                 } else if (*str == 4 && str[1] != '\0') {
 723                         if (str[1] < FORMAT_STYLE_SPECIAL && str[2] != '\0') {
 724                                 if (last_color_pos != NULL)
 725                                         *last_color_pos = (int) (str-start);
 726                                 if (last_color_len != NULL)
 727                                         *last_color_len = 3;
 728                                 str++;
 729                         } else if (str[1] == FORMAT_STYLE_DEFAULTS) {
 730                                 if (last_color_pos != NULL)
 731                                         *last_color_pos = (int) (str-start);
 732                                 if (last_color_len != NULL)
 733                                         *last_color_len = 2;
 734                         }
 735                         str += 2;
 736                 } else {
 737                         if (!IS_COLOR_CODE(*str)) {
 738                                 if (len-- == 0)
 739                                         break;
 740                         }
 741                         str++;
 742                 }
 743         }
 744
 745         return (int) (str-start);
 746 }
 747
 748 char *strip_codes(const char *input)
 749 {
 750         const char *p;
 751         char *str, *out;
 752
 753         out = str = g_strdup(input);
 754         for (p = input; *p != '\0'; p++) {
 755                 if (*p == 3) {
 756                         p++;
 757
 758                         /* mirc color */
 759                         get_mirc_color(&p, NULL, NULL);
 760                         p--;
 761                         continue;
 762                 }
 763
 764                 if (*p == 4 && p[1] != '\0') {
 765                         if (p[1] >= FORMAT_STYLE_SPECIAL) {
 766                                 p++;
 767                                 continue;
 768                         }
 769
 770                         /* irssi color */
 771                         if (p[2] != '\0') {
 772                                 p += 2;
 773                                 continue;
 774                         }
 775                 }
 776
 777                 if (!IS_COLOR_CODE(*p))
 778                         *out++ = *p;
 779         }
 780
 781         *out = '\0';
 782         return str;
 783 }
 784
 785 /* send a fully parsed text string for GUI to print */
 786 void format_send_to_gui(TEXT_DEST_REC *dest, const char *text)
 787 {
 788         char *dup, *str, *ptr, type;
 789         int fgcolor, bgcolor;
 790         int flags;
 791
 792         dup = str = g_strdup(text);
 793
 794         flags = 0; fgcolor = -1; bgcolor = -1;
 795         while (*str != '\0') {
 796                 type = '\0';
 797                 for (ptr = str; *ptr != '\0'; ptr++) {
 798                         if (IS_COLOR_CODE(*ptr) || *ptr == '\n') {
 799                                 type = *ptr;
 800                                 *ptr++ = '\0';
 801                                 break;
 802                         }
 803
 804                         *ptr = (char) translation_in[(int) (unsigned char) *ptr];
 805                 }
 806
 807                 if (type == 7) {
 808                         /* bell */
 809                         if (settings_get_bool("bell_beeps"))
 810                                 signal_emit("beep", 0);
 811                 }
 812
 813                 if (*str != '\0') {
 814                         /* send the text to gui handler */
 815                         signal_emit_id(signal_gui_print_text, 6, dest->window,
 816                                        GINT_TO_POINTER(fgcolor),
 817                                        GINT_TO_POINTER(bgcolor),
 818                                        GINT_TO_POINTER(flags), str,
 819                                        dest->level);
 820                         flags &= ~PRINTFLAG_INDENT;
 821                 }
 822
 823                 if (type == '\n')
 824                         format_newline(dest->window);
 825
 826                 if (*ptr == '\0')
 827                         break;
 828
 829                 switch (type)
 830                 {
 831                 case 2:
 832                         /* bold */
 833                         if (!hide_text_style)
 834                                 flags ^= PRINTFLAG_BOLD;
 835                         break;
 836                 case 3:
 837                         /* MIRC color */
 838                         get_mirc_color((const char **) &ptr,
 839                                        hide_text_style ? NULL : &fgcolor,
 840                                        hide_text_style ? NULL : &bgcolor);
 841                         if (!hide_text_style)
 842                                 flags |= PRINTFLAG_MIRC_COLOR;
 843                         break;
 844                 case 4:
 845                         /* user specific colors */
 846                         flags &= ~PRINTFLAG_MIRC_COLOR;
 847                         switch (*ptr) {
 848                         case FORMAT_STYLE_BLINK:
 849                                 flags ^= PRINTFLAG_BLINK;
 850                                 break;
 851                         case FORMAT_STYLE_UNDERLINE:
 852                                 flags ^= PRINTFLAG_UNDERLINE;
 853                                 break;
 854                         case FORMAT_STYLE_BOLD:
 855                                 flags ^= PRINTFLAG_BOLD;
 856                                 break;
 857                         case FORMAT_STYLE_REVERSE:
 858                                 flags ^= PRINTFLAG_REVERSE;
 859                                 break;
 860                         case FORMAT_STYLE_INDENT:
 861                                 flags |= PRINTFLAG_INDENT;
 862                                 break;
 863                         case FORMAT_STYLE_DEFAULTS:
 864                                 fgcolor = bgcolor = -1;
 865                                 flags &= PRINTFLAG_INDENT;
 866                                 break;
 867                         default:
 868                                 if (*ptr != FORMAT_COLOR_NOCHANGE) {
 869                                         fgcolor = (unsigned char) *ptr-'0';
 870                                         if (fgcolor <= 7)
 871                                                 flags &= ~PRINTFLAG_BOLD;
 872                                         else {
 873                                                 /* bold */
 874                                                 if (fgcolor != 8) fgcolor -= 8;
 875                                                 flags |= PRINTFLAG_BOLD;
 876                                         }
 877                                 }
 878                                 ptr++;
 879                                 if (*ptr != FORMAT_COLOR_NOCHANGE)
 880                                         bgcolor = *ptr-'0';
 881                         }
 882                         ptr++;
 883                         break;
 884                 case 6:
 885                         /* blink */
 886                         if (!hide_text_style)
 887                                 flags ^= PRINTFLAG_BLINK;
 888                         break;
 889                 case 15:
 890                         /* remove all styling */
 891                         fgcolor = bgcolor = -1;
 892                         flags &= PRINTFLAG_INDENT;
 893                         break;
 894                 case 22:
 895                         /* reverse */
 896                         if (!hide_text_style)
 897                                 flags ^= PRINTFLAG_REVERSE;
 898                         break;
 899                 case 31:
 900                         /* underline */
 901                         if (!hide_text_style)
 902                                 flags ^= PRINTFLAG_UNDERLINE;
 903                         break;
 904                 case 27:
 905                         /* ansi color code */
 906                         ptr = get_ansi_color(dest->window == NULL || dest->window->theme == NULL ?
 907                                              current_theme : dest->window->theme,
 908                                              ptr,
 909                                              hide_text_style ? NULL : &fgcolor,
 910                                              hide_text_style ? NULL : &bgcolor,
 911                                              hide_text_style ? NULL : &flags);
 912                         break;
 913                 }
 914
 915                 str = ptr;
 916         }
 917
 918         g_free(dup);
 919 }
 920
 921 static void read_settings(void)
 922 {
 923         hide_server_tags = settings_get_bool("hide_server_tags");
 924         hide_text_style = settings_get_bool("hide_text_style");
 925         timestamps = settings_get_bool("timestamps");
 926         timestamp_timeout = settings_get_int("timestamp_timeout");
 927         msgs_timestamps = settings_get_bool("msgs_timestamps");
 928 }
 929
 930 void formats_init(void)
 931 {
 932         signal_gui_print_text = signal_get_uniq_id("gui print text");
 933
 934         read_settings();
 935         signal_add("setup changed", (SIGNAL_FUNC) read_settings);
 936 }
 937
 938 void formats_deinit(void)
 939 {
 940         signal_remove("setup changed", (SIGNAL_FUNC) read_settings);
 941 }