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

#include "buddies.h"

#include "parsecfg.h"

#include "lang.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;

  int nlines;

  char **texto;

  int hidden_msg;

  struct list_head list;

} window_entry_t;

/* Variables globales a SCREEN.C */

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;

/* Funciones */

int scr_WindowHeight(WINDOW * win)

{

  int x, y;

  getmaxyx(win, y, x);

  return x;

}

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(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_draw_box(tmp->win, 0, 0, lines, cols, COLOR_GENERAL, 0, 0);

  //mvwprintw(tmp->win, 0, (cols - (2 + strlen(title))) / 2, " %s ", title);

  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;

}

void scr_CreatePopup(char *title, char *texto, int corte, int type,

                     char *returnstring)

{

  WINDOW *popupWin;

  PANEL *popupPanel;

  int lineas = 0;

  int cols = 0;

  char **submsgs;

  int n = 0;

  int i;

  char *instr = (char *) calloc(1, 1024);

  /* fprintf(stderr, "\r\n%d", lineas); */

  submsgs = ut_SplitMessage(texto, &n, corte);

  switch (type) {

  case 1:

  case 0:

    lineas = n + 4;

    break;

  }

  cols = corte + 3;

  popupWin = newwin(lineas, cols, (maxY - lineas) / 2, (maxX - cols) / 2);

  popupPanel = new_panel(popupWin);

  /*ATENCION!!! Colorear el popup ??

     / box (popupWin, 0, 0); */

  scr_draw_box(popupWin, 0, 0, lineas, cols, COLOR_POPUP, 0, 0);

  mvwprintw(popupWin, 0, (cols - (2 + strlen(title))) / 2, " %s ", title);

  for (i = 0; i < n; i++)

    mvwprintw(popupWin, i + 1, 2, "%s", submsgs[i]);

  for (i = 0; i < n; i++)

    free(submsgs[i]);

  free(submsgs);

  switch (type) {

  case 0:

    mvwprintw(popupWin, n + 2,

	      (cols - (2 + strlen(i18n("Press any key")))) / 2,

	      i18n("Press any key"));

    update_panels();

    doupdate();

    getch();

    break;

  case 1:

    {

      char ch;

      int scroll = 0;

      int input_x = 0;

      wmove(popupWin, 3, 1);

      wrefresh(popupWin);

      keypad(popupWin, TRUE);

      while ((ch = getch()) != '\n') {

	switch (ch) {

	case 0x09:

	case KEY_UP:

	case KEY_DOWN:

	  break;

	case KEY_RIGHT:

	case KEY_LEFT:

	  break;

	case KEY_BACKSPACE:

	case 127:

	  if (input_x || scroll) {

	    /* wattrset (popupWin, 0); */

	    if (!input_x) {

	      scroll = scroll < cols - 3 ? 0 : scroll - (cols - 3);

	      wmove(popupWin, 3, 1);

	      for (i = 0; i < cols; i++)

		waddch

		    (popupWin,

		     instr

		     [scroll

		      + input_x + i] ? instr[scroll + input_x + i] : ' ');

	      input_x = strlen(instr) - scroll;

	    } else

	      input_x--;

	    instr[scroll + input_x] = '\0';

	    mvwaddch(popupWin, 3, input_x + 1, ' ');

	    wmove(popupWin, 3, input_x + 1);

	    wrefresh(popupWin);

	  }

	default:

	  if ( /*ch<0x100 && */ isprint(ch) || ch == '�'

	      || ch == '�') {

	    if (scroll + input_x < 1024) {

	      instr[scroll + input_x] = ch;

	      instr[scroll + input_x + 1] = '\0';

	      if (input_x == cols - 3) {

		scroll++;

		wmove(popupWin, 3, 1);

		for (i = 0; i < cols - 3; i++)

		  waddch(popupWin, instr[scroll + i]);

	      } else {

		wmove(popupWin, 3, 1 + input_x++);

		waddch(popupWin, ch);

	      }

	      wrefresh(popupWin);

	    } else {

	      flash();

	    }

	  }

	}

      }

    }

    if (returnstring != NULL)

      strcpy(returnstring, instr);

    break;

  }

  del_panel(popupPanel);

  delwin(popupWin);

  update_panels();

  doupdate();

  free(instr);

  keypad(inputWnd, TRUE);

}

void scr_RoolWindow(void)

{

}

window_entry_t *scr_SearchWindow(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_ShowWindow(char *winId)

{

  int n, width, i;

  window_entry_t *tmp = scr_SearchWindow(winId);

  if (tmp != NULL) {

    top_panel(tmp->panel);

    currentWindow = tmp;

    chatmode = TRUE;

    tmp->hidden_msg = FALSE;

    update_roster = TRUE;

    width = scr_WindowHeight(tmp->win);

    for (n = 0; n < tmp->nlines; n++) {

      mvwprintw(tmp->win, n + 1, 1, "");

      for (i = 0; i < width - 2; i++)

	waddch(tmp->win, ' ');

      mvwprintw(tmp->win, n + 1, 1, "%s", tmp->texto[n]);

    }

    //move(CHAT_WIN_HEIGHT - 1, maxX - 1);

    update_panels();

    doupdate();

  } else {

    top_panel(chatPanel);

    currentWindow = tmp;

  }

}

void scr_ShowBuddyWindow(void)

{

  buddy_entry_t *tmp = bud_SelectedInfo();

  if (tmp->jid != NULL)

    scr_ShowWindow(tmp->jid);

  top_panel(inputPanel);

}

void scr_WriteInWindow(char *winId, char *texto, int TimeStamp, int force_show)

{

  time_t ahora;

  int n;

  int i;

  int width;

  window_entry_t *tmp;

  int dont_show = FALSE;

  tmp = scr_SearchWindow(winId);

  if (!chatmode)

    dont_show = TRUE;

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

    dont_show = TRUE;

  // scr_LogPrint("dont_show=%d", dont_show);

  if (tmp == NULL) {

    tmp = scr_CreatePanel(winId, ROSTER_WEIGHT, 0, CHAT_WIN_HEIGHT,

                          maxX - ROSTER_WEIGHT, dont_show);

    tmp->texto = (char **) calloc((CHAT_WIN_HEIGHT+1) * 3, sizeof(char *));

    for (n = 0; n < CHAT_WIN_HEIGHT * 3; n++)

      tmp->texto[n] = (char *) calloc(1, 1024);