/*

 * screen.c     -- UI stuff

 *

 * Copyright (C) 2005, 2006 Mikael Berthe <bmikael@lists.lilotux.net>

 * Parts of this file come from the Cabber project <cabber@ajmacias.com>

 *

 * This program is free software; you can redistribute it and/or modify

 * it under the terms of the GNU General Public License as published by

 * the Free Software Foundation; either version 2 of the License, or (at

 * your option) any later version.

 *

 * This program is distributed in the hope that it will be useful, but

 * WITHOUT ANY WARRANTY; without even the implied warranty of

 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU

 * General Public License for more details.

 *

 * You should have received a copy of the GNU General Public License

 * along with this program; if not, write to the Free Software

 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307

 * USA

 */

#include <stdio.h>

#include <stdlib.h>

#include <string.h>

#include <ncurses.h>

#include <panel.h>

#include <time.h>

#include <ctype.h>

#include <locale.h>

#include <langinfo.h>

#include "screen.h"

#include "hbuf.h"

#include "commands.h"

#include "compl.h"

#include "roster.h"

#include "histolog.h"

#include "settings.h"

#include "utils.h"

#define get_color(col)  (COLOR_PAIR(col)|COLOR_ATTRIB[col])

#define DEFAULT_LOG_WIN_HEIGHT (5+2)

#define DEFAULT_ROSTER_WIDTH    24

#define CHAT_WIN_HEIGHT (maxY-1-Log_Win_Height)

char *LocaleCharSet = "C";

static unsigned short int Log_Win_Height;

static unsigned short int Roster_Width;

static inline void check_offset(int);

static GSList *winbuflst;

typedef struct {

  WINDOW *win;

  PANEL  *panel;

  char   *name;

  GList  *hbuf;

  GList  *top;      // If top is NULL, we'll display the last lines

  char    cleared;  // For ex, user has issued a /clear command...

} winbuf;

static WINDOW *rosterWnd, *chatWnd, *inputWnd, *logWnd;

static WINDOW *mainstatusWnd, *chatstatusWnd;

static PANEL *rosterPanel, *chatPanel, *inputPanel;

static PANEL *mainstatusPanel, *chatstatusPanel;

static PANEL *logPanel;

static int maxY, maxX;

static winbuf *statusWindow;

static winbuf *currentWindow;

static int roster_hidden;

static int chatmode;

static int multimode;

static char *multiline, *multimode_subj;

int update_roster;

int utf8_mode = 0;

static bool Autoaway;

static bool Curses;

static char       inputLine[INPUTLINE_LENGTH+1];

static char      *ptr_inputline;

static short int  inputline_offset;

static int    completion_started;

static GList *cmdhisto;

static GList *cmdhisto_cur;

static char   cmdhisto_backup[INPUTLINE_LENGTH+1];

#define MAX_KEYSEQ_LENGTH 8

typedef struct {

  char *seqstr;

  guint mkeycode;

  gint  value;

} keyseq;

GSList *keyseqlist;

static void add_keyseq(char *seqstr, guint mkeycode, gint value);

void scr_WriteInWindow(const char *winId, const char *text, time_t timestamp,

                       unsigned int prefix_flags, int force_show);

/* Functions */

static int scr_WindowWidth(WINDOW * win)

{

  int x, y;

  getmaxyx(win, y, x);

  return x;

}

static int FindColor(const char *name)

{

  if (!strcmp(name, "default"))

    return -1;

  if (!strcmp(name, "black"))

    return COLOR_BLACK;

  if (!strcmp(name, "red"))

    return COLOR_RED;

  if (!strcmp(name, "green"))

    return COLOR_GREEN;

  if (!strcmp(name, "yellow"))

    return COLOR_YELLOW;

  if (!strcmp(name, "blue"))

    return COLOR_BLUE;

  if (!strcmp(name, "magenta"))

    return COLOR_MAGENTA;

  if (!strcmp(name, "cyan"))

    return COLOR_CYAN;

  if (!strcmp(name, "white"))

    return COLOR_WHITE;

  scr_LogPrint(LPRINT_LOGNORM, "ERROR: Wrong color: %s", name);

  return -1;

}

static void ParseColors(void)

{

  const char *colors[] = {

    "", "",

    "general",

    "msgout",

    "status",

    "roster",

    "rostersel",

    "rosterselmsg",

    "rosternewmsg",

    NULL

  };

  const char *color;

  const char *background   = settings_opt_get("color_background");

  const char *backselected = settings_opt_get("color_bgrostersel");

  const char *backstatus   = settings_opt_get("color_bgstatus");

  char *tmp;

  int i;

  // Initialize color attributes

  memset(COLOR_ATTRIB, 0, sizeof(COLOR_ATTRIB));

  // Default values

  if (!background)   background   = "black";

  if (!backselected) backselected = "cyan";

  if (!backstatus)   backstatus   = "blue";

  for (i=0; colors[i]; i++) {

    tmp = g_strdup_printf("color_%s", colors[i]);

    color = settings_opt_get(tmp);

    g_free(tmp);

    if (color) {

      if (!strncmp(color, "bright", 6)) {

        COLOR_ATTRIB[i+1] = A_BOLD;

        color += 6;

      }

    }

    switch (i + 1) {

      case 1:

          init_pair(1, COLOR_BLACK, COLOR_WHITE);

          break;

      case 2:

          init_pair(2, COLOR_WHITE, COLOR_BLACK);

          break;

      case COLOR_GENERAL:

          init_pair(i+1, ((color) ? FindColor(color) : COLOR_WHITE),

                    FindColor(background));

          break;

      case COLOR_MSGOUT:

          init_pair(i+1, ((color) ? FindColor(color) : COLOR_CYAN),

                    FindColor(background));

          break;

      case COLOR_STATUS:

          init_pair(i+1, ((color) ? FindColor(color) : COLOR_WHITE),

                    FindColor(backstatus));

          break;

      case COLOR_ROSTER:

          init_pair(i+1, ((color) ? FindColor(color) : COLOR_GREEN),

                    FindColor(background));

          break;

      case COLOR_ROSTERSEL:

          init_pair(i+1, ((color) ? FindColor(color) : COLOR_BLUE),

                    FindColor(backselected));

          break;

      case COLOR_ROSTERSELNMSG:

          init_pair(i+1, ((color) ? FindColor(color) : COLOR_RED),

                    FindColor(backselected));

          break;

      case COLOR_ROSTERNMSG:

          init_pair(i+1, ((color) ? FindColor(color) : COLOR_RED),

                    FindColor(background));

          break;

    }

  }

}

static void init_keycodes(void)

{

  add_keyseq("O5A", MKEY_EQUIV, 521); // Ctrl-Up

  add_keyseq("O5B", MKEY_EQUIV, 514); // Ctrl-Down

  add_keyseq("O5C", MKEY_EQUIV, 518); // Ctrl-Right

  add_keyseq("O5D", MKEY_EQUIV, 516); // Ctrl-Left

  add_keyseq("O6A", MKEY_EQUIV, 520); // Shift-Up

  add_keyseq("O6B", MKEY_EQUIV, 513); // Shift-Down

  add_keyseq("O6C", MKEY_EQUIV, 402); // Shift-Right

  add_keyseq("O6D", MKEY_EQUIV, 393); // Shift-Left

  add_keyseq("O2A", MKEY_EQUIV, 520); // Shift-Up

  add_keyseq("O2B", MKEY_EQUIV, 513); // Shift-Down

  add_keyseq("O2C", MKEY_EQUIV, 402); // Shift-Right

  add_keyseq("O2D", MKEY_EQUIV, 393); // Shift-Left

  add_keyseq("[5^", MKEY_CTRL_PGUP, 0);   // Ctrl-PageUp

  add_keyseq("[6^", MKEY_CTRL_PGDOWN, 0); // Ctrl-PageDown

  add_keyseq("[5@", MKEY_CTRL_SHIFT_PGUP, 0);   // Ctrl-Shift-PageUp

  add_keyseq("[6@", MKEY_CTRL_SHIFT_PGDOWN, 0); // Ctrl-Shift-PageDown

  add_keyseq("[7@", MKEY_CTRL_SHIFT_HOME, 0); // Ctrl-Shift-Home

  add_keyseq("[8@", MKEY_CTRL_SHIFT_END, 0);  // Ctrl-Shift-End

  add_keyseq("[8^", MKEY_CTRL_END, 0);  // Ctrl-End

  add_keyseq("[7^", MKEY_CTRL_HOME, 0); // Ctrl-Home

  add_keyseq("[2^", MKEY_CTRL_INS, 0);  // Ctrl-Insert

  add_keyseq("[3^", MKEY_CTRL_DEL, 0);  // Ctrl-Delete

  // Xterm

  add_keyseq("[1;5A", MKEY_EQUIV, 521); // Ctrl-Up

  add_keyseq("[1;5B", MKEY_EQUIV, 514); // Ctrl-Down

  add_keyseq("[1;5C", MKEY_EQUIV, 518); // Ctrl-Right

  add_keyseq("[1;5D", MKEY_EQUIV, 516); // Ctrl-Left

  add_keyseq("[1;6A", MKEY_EQUIV, 520); // Ctrl-Shift-Up

  add_keyseq("[1;6B", MKEY_EQUIV, 513); // Ctrl-Shift-Down

  add_keyseq("[1;6C", MKEY_EQUIV, 402); // Ctrl-Shift-Right

  add_keyseq("[1;6D", MKEY_EQUIV, 393); // Ctrl-Shift-Left

  add_keyseq("[1;6H", MKEY_CTRL_SHIFT_HOME, 0); // Ctrl-Shift-Home

  add_keyseq("[1;6F", MKEY_CTRL_SHIFT_END, 0);  // Ctrl-Shift-End

  add_keyseq("[1;2A", MKEY_EQUIV, 521); // Shift-Up

  add_keyseq("[1;2B", MKEY_EQUIV, 514); // Shift-Down

  add_keyseq("[5;5~", MKEY_CTRL_PGUP, 0);   // Ctrl-PageUp

  add_keyseq("[6;5~", MKEY_CTRL_PGDOWN, 0); // Ctrl-PageDown

  add_keyseq("[1;5F", MKEY_CTRL_END, 0);  // Ctrl-End

  add_keyseq("[1;5H", MKEY_CTRL_HOME, 0); // Ctrl-Home

  add_keyseq("[2;5~", MKEY_CTRL_INS, 0);  // Ctrl-Insert

  add_keyseq("[3;5~", MKEY_CTRL_DEL, 0);  // Ctrl-Delete

  // PuTTY

  add_keyseq("[A", MKEY_EQUIV, 521); // Ctrl-Up

  add_keyseq("[B", MKEY_EQUIV, 514); // Ctrl-Down

  add_keyseq("[C", MKEY_EQUIV, 518); // Ctrl-Right

  add_keyseq("[D", MKEY_EQUIV, 516); // Ctrl-Left

  // screen

  add_keyseq("Oa", MKEY_EQUIV, 521); // Ctrl-Up

  add_keyseq("Ob", MKEY_EQUIV, 514); // Ctrl-Down

  add_keyseq("Oc", MKEY_EQUIV, 518); // Ctrl-Right

  add_keyseq("Od", MKEY_EQUIV, 516); // Ctrl-Left

  add_keyseq("[a", MKEY_EQUIV, 520); // Shift-Up

  add_keyseq("[b", MKEY_EQUIV, 513); // Shift-Down

  add_keyseq("[c", MKEY_EQUIV, 402); // Shift-Right

  add_keyseq("[d", MKEY_EQUIV, 393); // Shift-Left

  add_keyseq("[5$", MKEY_SHIFT_PGUP, 0);   // Shift-PageUp

  add_keyseq("[6$", MKEY_SHIFT_PGDOWN, 0); // Shift-PageDown

}

void scr_InitLocaleCharSet(void)

{

  setlocale(LC_CTYPE, "");

  LocaleCharSet = nl_langinfo(CODESET);

  utf8_mode = (strcmp(LocaleCharSet, "UTF-8") == 0);

}

void scr_InitCurses(void)

{

  /* Key sequences initialization */

  init_keycodes();

  initscr();

  raw();

  noecho();

  nonl();

  intrflush(stdscr, FALSE);

  start_color();

  use_default_colors();

  Curses = TRUE;

  ParseColors();

  getmaxyx(stdscr, maxY, maxX);

  Log_Win_Height = DEFAULT_LOG_WIN_HEIGHT;

  // Note scr_DrawMainWindow() should be called early after scr_InitCurses()

  // to update Log_Win_Height and set max{X,Y}

  inputLine[0] = 0;

  ptr_inputline = inputLine;

  return;

}

void scr_TerminateCurses(void)

{

  if (!Curses) return;

  clear();

  refresh();

  endwin();

  Curses = FALSE;

  return;

}

inline void scr_Beep(void)

{

  beep();

}

//  scr_LogPrint(...)

// Display a message in the log window.

// This function will convert from UTF-8 unless the LPRINT_NOTUTF8 flag is set.

void scr_LogPrint(unsigned int flag, const char *fmt, ...)

{

  time_t timestamp;

  char *buffer, *b2;

  va_list ap;

  if (!(flag & ~LPRINT_NOTUTF8)) return; // Shouldn't happen

  buffer = g_new(char, 5184);

  timestamp = time(NULL);

  strftime(buffer, 48, "[%H:%M:%S] ", localtime(&timestamp));

  for (b2 = buffer ; *b2 ; b2++)

    ;

  va_start(ap, fmt);

  vsnprintf(b2, 5120, fmt, ap);

  va_end(ap);

  if (flag & LPRINT_NORMAL) {

    char *buffer_locale;

    if (!(flag & LPRINT_NOTUTF8))

      buffer_locale = from_utf8(buffer);

    else

      buffer_locale = buffer;

    if (Curses) {

      wprintw(logWnd, "\n%s", buffer_locale);

      update_panels();

      doupdate();

      scr_WriteInWindow(NULL, buf_specialwindow, timestamp,

                        HBB_PREFIX_SPECIAL, FALSE);

    } else {

      printf("%s\n", buffer_locale);