/*
 * titlebar.c
 *
 * Copyright (C) 2012 - 2014 James Booth <boothj5@gmail.com>
 *
 * This file is part of Profanity.
 *
 * Profanity 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 3 of the License, or
 * (at your option) any later version.
 *
 * Profanity 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 Profanity.  If not, see <http://www.gnu.org/licenses/>.
 *
 * In addition, as a special exception, the copyright holders give permission to
 * link the code of portions of this program with the OpenSSL library under
 * certain conditions as described in each individual source file, and
 * distribute linked combinations including the two.
 *
 * You must obey the GNU General Public License in all respects for all of the
 * code used other than OpenSSL. If you modify file(s) with this exception, you
 * may extend this exception to your version of the file(s), but you are not
 * obligated to do so. If you do not wish to do so, delete this exception
 * statement from your version. If you delete this exception statement from all
 * source files in the program, then also delete it here.
 *
 */

#include <stdlib.h>
#include <string.h>

#include "config.h"

#include "common.h"
#include "config/theme.h"
#include "config/preferences.h"
#include "ui/ui.h"
#include "ui/titlebar.h"
#include "ui/inputwin.h"
#include "ui/windows.h"
#include "ui/window.h"
#include "roster_list.h"

#define CONSOLE_TITLE "Profanity. Type /help for help information."

static WINDOW *win;
static char *current_title = NULL;
static char *current_recipient = NULL;
static contact_presence_t current_presence;

static gboolean typing;
static GTimer *typing_elapsed;

static void _title_bar_draw(void);
static void _show_contact_presence(void);
static void _show_self_presence(void);
static void _show_privacy(void);

void
create_title_bar(void)
{
    int cols = getmaxx(stdscr);

    win = newwin(1, cols, 0, 0);
    wbkgd(win, theme_attrs(THEME_TITLE_TEXT));
    title_bar_console();
    title_bar_set_presence(CONTACT_OFFLINE);
    wnoutrefresh(win);
    inp_put_back();
}

void
title_bar_update_virtual(void)
{
    if (current_recipient != NULL) {

        if (typing_elapsed != NULL) {
            gdouble seconds = g_timer_elapsed(typing_elapsed, NULL);

            if (seconds >= 10) {
                typing = FALSE;

                g_timer_destroy(typing_elapsed);
                typing_elapsed = NULL;
            }
        }
    }
    _title_bar_draw();
}

void
title_bar_resize(void)
{
    int cols = getmaxx(stdscr);

    wresize(win, 1, cols);
    wbkgd(win, theme_attrs(THEME_TITLE_TEXT));

    _title_bar_draw();
}

void
title_bar_console(void)
{
    werase(win);
    if (current_recipient != NULL) {
        free(current_recipient);
    }
    current_recipient = NULL;
    typing = FALSE;
    typing_elapsed = NULL;

    free(current_title);
    current_title = strdup(CONSOLE_TITLE);

    _title_bar_draw();
}

void
title_bar_set_presence(contact_presence_t presence)
{
    current_presence = presence;
    _title_bar_draw();
}

void
title_bar_set_recipient(const char * const recipient)
{
    if (typing_elapsed != NULL) {
        g_timer_destroy(typing_elapsed);
        typing_elapsed = NULL;
        typing = FALSE;
    }

    free(current_recipient);
    current_recipient = strdup(recipient);

    free(current_title);
    current_title = strdup(recipient);

    _title_bar_draw();
}

void
title_bar_set_typing(gboolean is_typing)
{
    if (is_typing) {
        if (typing_elapsed != NULL) {
            g_timer_start(typing_elapsed);
        } else {
            typing_elapsed = g_timer_new();
        }
    }

    typing = is_typing;


    _title_bar_draw();
}

static void
_title_bar_draw(void)
{
    werase(win);

    // show title
    wmove(win, 0, 0);
    int i;
    for (i = 0; i < 45; i++)
        waddch(win, ' ');
    mvwprintw(win, 0, 0, " %s", current_title);

    _show_contact_presence();

#ifdef HAVE_LIBOTR
    _show_privacy();
#endif

    // show indicator for unsaved forms
    ProfWin *current = wins_get_current();
    if ((current != NULL ) && (current->type == WIN_MUC_CONFIG)) {
        if ((current->form != NULL) && (current->form->modified)) {
            wprintw(win, " *");
        }
    }

    // show contact typing
    if (typing) {
        wprintw(win, " (typing...)");
    }

    _show_self_presence();

    wnoutrefresh(win);
    inp_put_back();
}

static void
_show_self_presence(void)
{
    int presence_attrs = 0;
    int bracket_attrs = theme_attrs(THEME_TITLE_BRACKET);
    int cols = getmaxx(stdscr);

    wattron(win, bracket_attrs);
    mvwaddch(win, 0, cols - 14, '[');
    wattroff(win, bracket_attrs);

    switch (current_presence)
    {
        case CONTACT_ONLINE:
            presence_attrs = theme_attrs(THEME_TITLE_ONLINE);
            wattron(win, presence_attrs);
            mvwprintw(win, 0, cols - 13, " ...online ");
            wattroff(win, presence_attrs);
            break;
        case CONTACT_AWAY:
            presence_attrs = theme_attrs(THEME_TITLE_AWAY);
            wattron(win, presence_attrs);
            mvwprintw(win, 0, cols - 13, " .....away ");
            wattroff(win, presence_attrs);
            break;
        case CONTACT_DND:
            presence_attrs = theme_attrs(THEME_TITLE_DND);
            wattron(win, presence_attrs);
            mvwprintw(win, 0, cols - 13, " ......dnd ");
            wattroff(win, presence_attrs);
            break;
        case CONTACT_CHAT:
            presence_attrs = theme_attrs(THEME_TITLE_CHAT);
            wattron(win, presence_attrs);
            mvwprintw(win, 0, cols - 13, " .....chat ");
            wattroff(win, presence_attrs);
            break;
        case CONTACT_XA:
            presence_attrs = theme_attrs(THEME_TITLE_XA);
            wattron(win, presence_attrs);
            mvwprintw(win, 0, cols - 13, " .......xa ");
            wattroff(win, presence_attrs);
            break;
        case CONTACT_OFFLINE:
            presence_attrs = theme_attrs(THEME_TITLE_OFFLINE);
            wattron(win, presence_attrs);
            mvwprintw(win, 0, cols - 13, " ..offline ");
            wattroff(win, presence_attrs);
            break;
    }

    wattron(win, bracket_attrs);
    mvwaddch(win, 0, cols - 2, ']');
    wattroff(win, bracket_attrs);
}

static void
_show_privacy(void)
{
    int bracket_attrs = theme_attrs(THEME_TITLE_BRACKET);

    ProfWin *current = wins_get_current();
    if (current && current->type == WIN_CHAT) {
        if (!current->is_otr) {
            if (prefs_get_boolean(PREF_OTR_WARN)) {
                int unencrypted_attrs = theme_attrs(THEME_TITLE_UNENCRYPTED);
                wprintw(win, " ");
                wattron(win, bracket_attrs);
                wprintw(win, "[");
                wattroff(win, bracket_attrs);
                wattron(win, unencrypted_attrs);
                wprintw(win, "unencrypted");
                wattroff(win, unencrypted_attrs);
                wattron(win, bracket_attrs);
                wprintw(win, "]");
                wattroff(win, bracket_attrs);
            }
        } else {
            int encrypted_attrs = theme_attrs(THEME_TITLE_ENCRYPTED);
            wprintw(win, " ");
            wattron(win, bracket_attrs);
            wprintw(win, "[");
            wattroff(win, bracket_attrs);
            wattron(win, encrypted_attrs);
            wprintw(win, "OTR");
            wattroff(win, encrypted_attrs);
            wattron(win, bracket_attrs);
            wprintw(win, "]");
            wattroff(win, bracket_attrs);
            if (current->is_trusted) {
                int trusted_attrs = theme_attrs(THEME_TITLE_TRUSTED);
                wprintw(win, " ");
                wattron(win, bracket_attrs);
                wprintw(win, "[");
                wattroff(win, bracket_attrs);
                wattron(win, trusted_attrs);
                wprintw(win, "trusted");
                wattroff(win, trusted_attrs);
                wattron(win, bracket_attrs);
                wprintw(win, "]");
                wattroff(win, bracket_attrs);
            } else {
                int untrusted_attrs = theme_attrs(THEME_TITLE_UNTRUSTED);
                wprintw(win, " ");
                wattron(win, bracket_attrs);
                wprintw(win, "[");
                wattroff(win, bracket_attrs);
                wattron(win, untrusted_attrs);
                wprintw(win, "untrusted");
                wattroff(win, untrusted_attrs);
                wattron(win, bracket_attrs);
                wprintw(win, "]");
                wattroff(win, bracket_attrs);
            }
        }
    }
}

static void
_show_contact_presence(void)
{
    int bracket_attrs = theme_attrs(THEME_TITLE_BRACKET);

    if (prefs_get_boolean(PREF_PRESENCE) && current_recipient) {
        char *recipient_jid = NULL;
        char *found_contact = roster_contact_autocomplete(current_recipient);
        if (found_contact) {
            recipient_jid = roster_barejid_from_name(current_recipient);
            free(found_contact);
        } else {
            recipient_jid = current_recipient;
        }
        ProfWin *current = wins_get_by_recipient(recipient_jid);
        if (current) {
            if (current->type == WIN_CHAT) {
                PContact contact = roster_get_contact(recipient_jid);
                const char *presence = p_contact_presence(contact);

                theme_item_t presence_colour = THEME_TITLE_ONLINE;
                if (g_strcmp0(presence, "offline") == 0) {
                    presence_colour = THEME_TITLE_OFFLINE;
                } else if (g_strcmp0(presence, "away") == 0) {
                    presence_colour = THEME_TITLE_AWAY;
                } else if (g_strcmp0(presence, "xa") == 0) {
                    presence_colour = THEME_TITLE_XA;
                } else if (g_strcmp0(presence, "chat") == 0) {
                    presence_colour = THEME_TITLE_CHAT;
                } else if (g_strcmp0(presence, "dnd") == 0) {
                    presence_colour = THEME_TITLE_DND;
                }

                int presence_attrs = theme_attrs(presence_colour);

                wprintw(win, " ");
                wattron(win, bracket_attrs);
                wprintw(win, "[");
                wattroff(win, bracket_attrs);
                wattron(win, presence_attrs);
                wprintw(win, presence);
                wattroff(win, presence_attrs);
                wattron(win, bracket_attrs);
                wprintw(win, "]");
                wattroff(win, bracket_attrs);
            }
        }
    }
}