#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 "screen.h"

#include "hbuf.h"

#include "commands.h"

#include "compl.h"

#include "roster.h"

#include "parsecfg.h"

#include "lang.h"

#include "utf8.h"

#include "utils.h"

#include "list.h"

#define window_entry(n) list_entry(n, window_entry_t, list)

LIST_HEAD(window_list);

typedef struct _window_entry_t {

  WINDOW *win;

  PANEL *panel;

  char *name;

  GList *hbuf;

  struct list_head list;

} window_entry_t;

static WINDOW *rosterWnd, *chatWnd, *inputWnd;

static WINDOW *logWnd, *logWnd_border;

static PANEL *rosterPanel, *chatPanel, *inputPanel;

static PANEL *logPanel, *logPanel_border;

static int maxY, maxX;

static window_entry_t *currentWindow;

static int chatmode;

int update_roster;

static char inputLine[INPUTLINE_LENGTH+1];

static char *ptr_inputline;

static short int inputline_offset;

static int  completion_started;

/* Functions */

int scr_WindowWidth(WINDOW * win)

{

  int x, y;

  getmaxyx(win, y, x);

  return x;

}

void scr_clear_box(WINDOW *win, int y, int x, int height, int width, int Color)

{

  int i, j;

  wattrset(win, COLOR_PAIR(Color));

  for (i = 0; i < height; i++) {

    wmove(win, y + i, x);

    for (j = 0; j < width; j++)

      wprintw(win, " ");

  }

}

void scr_draw_box(WINDOW * win, int y, int x, int height, int width,

                  int Color, chtype box, chtype border)

{

  int i, j;

  wattrset(win, COLOR_PAIR(Color));

  for (i = 0; i < height; i++) {

    wmove(win, y + i, x);

    for (j = 0; j < width; j++)

      if (!i && !j)

	waddch(win, border | ACS_ULCORNER);

      else if (i == height - 1 && !j)

	waddch(win, border | ACS_LLCORNER);

      else if (!i && j == width - 1)

	waddch(win, box | ACS_URCORNER);

      else if (i == height - 1 && j == width - 1)

	waddch(win, box | ACS_LRCORNER);

      else if (!i)

	waddch(win, border | ACS_HLINE);

      else if (i == height - 1)

	waddch(win, box | ACS_HLINE);

      else if (!j)

	waddch(win, border | ACS_VLINE);

      else if (j == width - 1)

	waddch(win, box | ACS_VLINE);

      else

	waddch(win, box | ' ');

  }

}

int FindColor(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;

  return -1;

}

void ParseColors(void)

{

  char *colors[11] = {

    "", "",

    "borderlines",

    "jidonlineselected",

    "jidonline",

    "jidofflineselected",

    "jidoffline",

    "text",

    NULL

  };

  char *tmp = malloc(1024);

  char *color1;

  char *background = cfg_read("color_background");

  char *backselected = cfg_read("color_backselected");

  int i = 0;

  while (colors[i]) {

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

    color1 = cfg_read(tmp);

    switch (i + 1) {

    case 1:

      init_pair(1, COLOR_BLACK, COLOR_WHITE);

      break;

    case 2:

      init_pair(2, COLOR_WHITE, COLOR_BLACK);

      break;

    case 3:

      init_pair(3, FindColor(color1), FindColor(background));

      break;

    case 4:

      init_pair(4, FindColor(color1), FindColor(backselected));

      break;

    case 5:

      init_pair(5, FindColor(color1), FindColor(background));

      break;

    case 6:

      init_pair(6, FindColor(color1), FindColor(backselected));

      break;

    case 7:

      init_pair(7, FindColor(color1), FindColor(background));

      break;

    case 8:

      init_pair(8, FindColor(color1), FindColor(background));

      break;

    }

    i++;

  }

}

window_entry_t *scr_CreatePanel(const char *title, int x, int y,

                                int lines, int cols, int dont_show)

{

  window_entry_t *tmp = calloc(1, sizeof(window_entry_t));

  tmp->win = newwin(lines, cols, y, x);

  tmp->panel = new_panel(tmp->win);

  tmp->name = (char *) calloc(1, 1024);

  strncpy(tmp->name, title, 1024);

  scr_clear_box(tmp->win, 0, 0, lines, cols, COLOR_GENERAL);

  if ((!dont_show)) {

    currentWindow = tmp;

  } else {

    if (currentWindow)

      top_panel(currentWindow->panel);

    else

      top_panel(chatPanel);

  }

  list_add_tail(&tmp->list, &window_list);

  update_panels();

  return tmp;

}

window_entry_t *scr_SearchWindow(const char *winId)

{

  struct list_head *pos, *n;

  window_entry_t *search_entry = NULL;

  list_for_each_safe(pos, n, &window_list) {

    search_entry = window_entry(pos);

    if (search_entry->name) {

      if (!strcasecmp(search_entry->name, winId)) {

	return search_entry;

      }

    }

  }

  return NULL;

}

void scr_UpdateWindow(window_entry_t *win_entry)

{

  int n;

  int width;

  char **lines;

  GList *hbuf_head;

  // We will show the last CHAT_WIN_HEIGHT lines.

  // Let's find out where it begins.

  win_entry->hbuf = g_list_last(win_entry->hbuf);

  hbuf_head = win_entry->hbuf;

  for (n=0; hbuf_head && n<(CHAT_WIN_HEIGHT-1) && g_list_previous(hbuf_head); n++)

    hbuf_head = g_list_previous(hbuf_head);

  // Get the last CHAT_WIN_HEIGHT lines.

  lines = hbuf_get_lines(hbuf_head, CHAT_WIN_HEIGHT);

  // Display these lines

  width = scr_WindowWidth(win_entry->win);

  wmove(win_entry->win, 0, 0);

  for (n = 0; n < CHAT_WIN_HEIGHT; n++) {

    int r = width;

    if (*(lines+2*n)) {

      if (**(lines+2*n))

        wprintw(win_entry->win, "%s", *(lines+2*n));      // prefix

      else {

        wprintw(win_entry->win, "            ");

        r -= 12;

      }

      wprintw(win_entry->win, "%s", *(lines+2*n+1));      // line

      // Calculate the number of blank characters to empty the line

      r -= strlen(*(lines+2*n)) + strlen(*(lines+2*n+1));

    }

    for ( ; r>0 ; r--) {

      wprintw(win_entry->win, " ");

    }

    //// wclrtoeol(win_entry->win);  does not work :(

  }

  g_free(lines);

}

void scr_ShowWindow(const char *winId)

{

  window_entry_t *win_entry = scr_SearchWindow(winId);

  if (win_entry != NULL) {

    top_panel(win_entry->panel);

    currentWindow = win_entry;

    chatmode = TRUE;

    roster_setflags(winId, ROSTER_FLAG_MSG, FALSE);

    update_roster = TRUE;

    // Refresh the window entry

    scr_UpdateWindow(win_entry);

    // Finished :)

    update_panels();

    doupdate();

  } else {

    top_panel(chatPanel);

    currentWindow = win_entry;  // == NULL  (current window empty)

  }

}

void scr_ShowBuddyWindow(void)

{

  const gchar *jid = CURRENT_JID;

  if (jid != NULL)

    scr_ShowWindow(jid);

  top_panel(inputPanel);

}

void scr_WriteInWindow(const char *winId, const char *text, int TimeStamp,

        const char *prefix, int force_show)

{

  char *fullprefix = NULL;

  window_entry_t *win_entry;

  int dont_show = FALSE;

  // Prepare the prefix

  if (prefix || TimeStamp) {

    if (!prefix)  prefix = "";

    fullprefix = calloc(1, strlen(prefix)+16);

    if (TimeStamp) {

      time_t now = time(NULL);

      strftime(fullprefix, 12, "[%H:%M] ", localtime(&now));

    } else {

      strcpy(fullprefix, "            ");

    }

    strcat(fullprefix, prefix);

  }

  // Look for the window entry.

  win_entry = scr_SearchWindow(winId);

  // Do we have to really show the window?

  if (!chatmode)

    dont_show = TRUE;

  else if ((!force_show) && ((!currentWindow || (currentWindow != win_entry))))

    dont_show = TRUE;

  // If the window entry doesn't exist yet, let's create it.

  if (win_entry == NULL) {

    win_entry = scr_CreatePanel(winId, ROSTER_WIDTH, 0, CHAT_WIN_HEIGHT,

                          maxX - ROSTER_WIDTH, dont_show);

  }

  hbuf_add_line(&win_entry->hbuf, text, fullprefix,

                maxX - scr_WindowWidth(rosterWnd) - 14);

  free(fullprefix);

  if (!dont_show) {

    // Show and refresh the window

    top_panel(win_entry->panel);

    scr_UpdateWindow(win_entry);

    update_panels();

    doupdate();

  } else {

    roster_setflags(winId, ROSTER_FLAG_MSG, TRUE);

    update_roster = TRUE;

  }

}

void scr_InitCurses(void)

{

  initscr();

  noecho();

  raw();

  halfdelay(5);

  start_color();

  use_default_colors();

  ParseColors();

  getmaxyx(stdscr, maxY, maxX);

  inputLine[0] = 0;

  ptr_inputline = inputLine;

  setlocale(LC_CTYPE, "");

  return;

}

void scr_TerminateCurses(void)

{

  clear();

  refresh();

  endwin();

  return;

}

void scr_DrawMainWindow(void)

{

  int l;

  /* Draw main panels */

  rosterWnd = newwin(CHAT_WIN_HEIGHT, ROSTER_WIDTH, 0, 0);

  rosterPanel = new_panel(rosterWnd);

  scr_clear_box(rosterWnd, 0, 0, CHAT_WIN_HEIGHT, ROSTER_WIDTH,

                COLOR_GENERAL);

  for (l=0 ; l < CHAT_WIN_HEIGHT ; l++)

    mvwaddch(rosterWnd, l, ROSTER_WIDTH-1, ACS_VLINE);

  chatWnd = newwin(CHAT_WIN_HEIGHT, maxX - ROSTER_WIDTH, 0, ROSTER_WIDTH);

  chatPanel = new_panel(chatWnd);

  scr_clear_box(chatWnd, 0, 0, CHAT_WIN_HEIGHT, maxX - ROSTER_WIDTH,

                COLOR_GENERAL);

  scrollok(chatWnd, TRUE);

  mvwprintw(chatWnd, 0, 0, "This is the status window");

  logWnd_border = newwin(LOG_WIN_HEIGHT, maxX, CHAT_WIN_HEIGHT, 0);