/*
 * Copyright (C) 2020 The HIME team, Taiwan
 * Copyright (C) 2011 Edward Der-Hua Liu, Hsin-Chu, Taiwan
 *
 * This library is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Lesser General Public
 * License as published by the Free Software Foundation version 2.1
 * of the License.
 *
 * This library 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
 * Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with this library; if not, write to the Free Software
 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
 */

#include <signal.h>
#include <string.h>

#include "hime.h"

#include "gst.h"
#include "gtab.h"
#include "pho-kbm-name.h"
#include "pho.h"

extern void destroy_other_tray ();

gboolean tsin_pho_mode ();
extern gboolean gb_output;
GtkStatusIcon *icon_main = NULL, *icon_state = NULL;

void get_icon_path (char *iconame, char fname[]);

void cb_trad_sim_toggle ();

void cb_sim2trad (GtkCheckMenuItem *checkmenuitem, gpointer dat) {
    system (HIME_BIN_DIR "/hime-sim2trad &");
}

void cb_trad2sim (GtkCheckMenuItem *checkmenuitem, gpointer dat) {
    system (HIME_BIN_DIR "/hime-trad2sim &");
}

void cb_tog_phospeak (GtkCheckMenuItem *checkmenuitem, gpointer dat) {
    phonetic_speak = gtk_check_menu_item_get_active (checkmenuitem);
}

void show_inmd_menu ();

void cb_inmd_menu (GtkCheckMenuItem *checkmenuitem, gpointer dat) {
    show_inmd_menu ();
}

void close_all_clients ();
void do_exit ();

void quit_hime (GtkCheckMenuItem *checkmenuitem, gpointer dat) {
    do_exit ();
}

void kbm_toggle (), quit_hime (), cb_trad2sim (), cb_sim2trad ();

void cb_trad2sim (GtkCheckMenuItem *checkmenuitem, gpointer dat);

void cb_trad_sim_toggle_ (GtkCheckMenuItem *checkmenuitem, gpointer dat) {
    cb_trad_sim_toggle ();
    //  dbg("checkmenuitem %x\n", checkmenuitem);
}

void toggle_stat_win ();
void cb_stat_toggle_ (GtkCheckMenuItem *checkmenuitem, gpointer dat) {
    toggle_stat_win ();
}

void exec_hime_setup_ (GtkCheckMenuItem *checkmenuitem, gpointer dat) {
    exec_hime_setup ();
}

void kbm_open_close (GtkButton *checkmenuitem, gboolean b_show);
void kbm_toggle_ (GtkCheckMenuItem *checkmenuitem, gpointer dat) {
    kbm_open_close (NULL, gtk_check_menu_item_get_active (checkmenuitem));
}

/* src/about.c */
void create_about_window ();

static void cb_about_window (GtkCheckMenuItem *checkmenuitem, gpointer dat) {
    create_about_window ();
}

gint inmd_switch_popup_handler (GtkWidget *widget, GdkEvent *event);
extern gboolean win_kbm_inited;

#include "mitem.h"
extern gboolean win_kbm_on;

static MITEM mitems_main[] = {
    {N_ ("About hime"), GTK_STOCK_ABOUT, cb_about_window},
    {N_ ("Setup / Tools"), GTK_STOCK_PREFERENCES, exec_hime_setup_},
    {N_ ("Exit"), GTK_STOCK_QUIT, quit_hime},
    {N_ ("Text-to-speech"), NULL, cb_tog_phospeak, &phonetic_speak},
    {N_ ("Virtual keyboard"), NULL, kbm_toggle_, &hime_show_win_kbm},
    {N_ ("Select input methods"), GTK_STOCK_INDEX, cb_inmd_menu, NULL},
    {NULL}};

void load_settings (), load_tab_pho_file ();
;
void update_win_kbm ();
void update_win_kbm_inited ();
extern gboolean win_kbm_inited, stat_enabled;
static void cb_fast_phonetic_kbd_switch (GtkCheckMenuItem *checkmenuitem, gpointer dat) {
    char bak[128], cur[128];
    get_hime_conf_fstr (PHONETIC_KEYBOARD, cur, "");
    get_hime_conf_fstr (PHONETIC_KEYBOARD_BAK, bak, "");

    save_hime_conf_str (PHONETIC_KEYBOARD, bak);
    save_hime_conf_str (PHONETIC_KEYBOARD_BAK, cur);
    save_omni_config ();
    load_settings ();
    load_tab_pho_file ();
    update_win_kbm_inited ();
}

static MITEM mitems_state[] = {
    {NULL, NULL, cb_fast_phonetic_kbd_switch},
    {N_ ("Trad. to Simp. conversion tool"), NULL, cb_trad2sim},
    {N_ ("Simp. to Trad. conversion tool"), NULL, cb_sim2trad},
    {N_ ("Simplified Chinese output"), NULL, cb_trad_sim_toggle_, &gb_output},
    {N_ ("Typing Speed"), NULL, cb_stat_toggle_, &stat_enabled},
    {NULL}};

static GtkWidget *tray_menu = NULL, *tray_menu_state = NULL;

void toggle_im_enabled ();
GtkWidget *create_tray_menu (MITEM *mitems) {
    GtkWidget *menu = gtk_menu_new ();

    int i;
    for (i = 0; mitems[i].cb; i++) {
        GtkWidget *item;

        if (!mitems[i].name)
            continue;

        if (mitems[i].stock_id) {
#if GTK_CHECK_VERSION(3, 0, 0)
            // TODO(xatier): use GtkMenuItem and pack a GtkBox with a GtkImage
            // and a GtkLabel instead to display an icon in a menu item,
            item = gtk_menu_item_new_with_label (_ (mitems[i].name));
#else
            item = gtk_image_menu_item_new_with_label (_ (mitems[i].name));
            gtk_image_menu_item_set_image (GTK_IMAGE_MENU_ITEM (item), gtk_image_new_from_stock (mitems[i].stock_id, GTK_ICON_SIZE_MENU));
#endif
        } else if (mitems[i].check_dat) {
            item = gtk_check_menu_item_new_with_label (_ (mitems[i].name));
            gtk_check_menu_item_set_active (GTK_CHECK_MENU_ITEM (item), *mitems[i].check_dat);
        } else {
            item = gtk_menu_item_new_with_label (_ (mitems[i].name));
        }

        mitems[i].handler = g_signal_connect (G_OBJECT (item), "activate",
                                              G_CALLBACK (mitems[i].cb), NULL);

        gtk_widget_show (item);
        mitems[i].item = item;

        gtk_menu_shell_append (GTK_MENU_SHELL (menu), item);
    }

    return menu;
}

void update_item_active (MITEM *mitems) {
    int i;
    for (i = 0; mitems[i].name; i++)
        if (mitems[i].check_dat) {
            GtkWidget *item = mitems[i].item;
            if (!item)
                continue;

            if (mitems[i].handler)
                g_signal_handler_block (item, mitems[i].handler);
            gtk_check_menu_item_set_active (GTK_CHECK_MENU_ITEM (item), *mitems[i].check_dat);
            if (mitems[i].handler)
                g_signal_handler_unblock (item, mitems[i].handler);
        }
}

void update_item_active_single ();
void update_item_active_appindicator ();

void update_item_active_all () {
    if (hime_tray_display == HIME_TRAY_DISPLAY_DOUBLE) {
        update_item_active (mitems_main);
        update_item_active (mitems_state);
    } else if (hime_tray_display == HIME_TRAY_DISPLAY_SINGLE) {
        update_item_active_single ();
    }
#if TRAY_UNITY
    else if (hime_tray_display == HIME_TRAY_DISPLAY_APPINDICATOR) {
        update_item_active_appindicator ();
    }
#endif
}

static void cb_activate (GtkStatusIcon *status_icon, gpointer user_data) {
    //  dbg("cb_activate\n");
    toggle_im_enabled ();

    GdkRectangle rect;
    memset (&rect, 0, sizeof (rect));
    GtkOrientation ori;
    gtk_status_icon_get_geometry (status_icon, NULL, &rect, &ori);
}

static void cb_popup (GtkStatusIcon *status_icon, guint button, guint activate_time, gpointer user_data) {
    //  dbg("cb_popup\n");
    switch (button) {
    case 1:
        toggle_im_enabled ();
        break;
    case 2:
        kbm_toggle ();
        break;
    case 3:
        //      dbg("tray_menu %x\n", tray_menu);
        if (!tray_menu)
            tray_menu = create_tray_menu (mitems_main);
#if 1
        gtk_menu_popup (GTK_MENU (tray_menu), NULL, NULL, gtk_status_icon_position_menu, status_icon, button, activate_time);
#else
        gtk_menu_popup (GTK_MENU (tray_menu), NULL, NULL, NULL, NULL, button, activate_time);
#endif
        break;
    }
}

void toggle_half_full_char ();
static void cb_activate_state (GtkStatusIcon *status_icon, gpointer user_data) {
    //  dbg("cb_activate\n");
    if (hime_tray_hf_win_kbm) {
        kbm_toggle ();
        update_item_active_all ();
    } else
        toggle_half_full_char ();
}

static void cb_popup_state (GtkStatusIcon *status_icon, guint button, guint activate_time, gpointer user_data) {
    switch (button) {
    case 1:
        toggle_im_enabled ();
        break;
    case 2:
        kbm_toggle ();
        break;
    case 3: {
        char bak[512], cur[512];
        get_hime_conf_fstr (PHONETIC_KEYBOARD, cur, "");
        get_hime_conf_fstr (PHONETIC_KEYBOARD_BAK, bak, "");
        if (bak[0] && strcmp (bak, cur)) {
            char kbm[512];

            strcpy (kbm, bak);
            char *p = strchr (kbm, ' ');

            if (p) {
                *(p++) = 0;
                int i;
                for (i = 0; kbm_sel[i].name; i++)
                    if (!strcmp (kbm_sel[i].kbm, kbm)) {
                        break;
                    }

                if (kbm_sel[i].kbm) {
                    unich_t tt[128];
                    if (mitems_state[0].name)
                        free (mitems_state[0].name);
                    snprintf (tt, sizeof (tt), "注音換 %s %s", kbm_sel[i].name, p);
                    mitems_state[0].name = strdup (tt);
                }
            }

            //        dbg("hhhhhhhhhhhh %x\n", tray_menu_state);
            if (tray_menu_state) {
                gtk_widget_destroy (tray_menu_state);
                tray_menu_state = NULL;
            }
        }

        if (!tray_menu_state)
            tray_menu_state = create_tray_menu (mitems_state);

#if 1
        gtk_menu_popup (GTK_MENU (tray_menu_state), NULL, NULL, gtk_status_icon_position_menu, status_icon, button, activate_time);
#else
        gtk_menu_popup (GTK_MENU (tray_menu_state), NULL, NULL, NULL, NULL, button, activate_time);
#endif
        break;
    }
    }

    //  dbg("zzzzzzzzzzzzz\n");
}

#define HIME_TRAY_PNG "hime-tray.png"
extern int current_shape_mode ();

void load_tray_icon_double () {
    if (!hime_status_tray)
        return;

    //  dbg("load_tray_icon_double\n");
    char *tip;
    tip = "";

    char *iconame;
    if (!current_CS || current_CS->im_state == HIME_STATE_DISABLED || current_CS->im_state == HIME_STATE_ENG_FULL) {
        iconame = HIME_TRAY_PNG;
    } else {
        iconame = inmd[current_CS->in_method].icon;
    }

    //  dbg("tsin_pho_mode() %d\n", tsin_pho_mode());

    char tt[32];
    if (current_CS && current_CS->im_state == HIME_STATE_CHINESE && !tsin_pho_mode ()) {
        if ((current_method_type () == method_type_TSIN || current_method_type () == method_type_MODULE)) {
            strcpy (tt, "en-");
            strcat (tt, iconame);
        } else {
            strcpy (tt, "en-tsin.png");
        }

        iconame = tt;
    }

    //  dbg("iconame %s\n", iconame);
    char fname[128];
    fname[0] = 0;
    if (iconame)
        get_icon_path (iconame, fname);

    char *icon_st = NULL;
    char fname_state[128];

    //  dbg("%d %d\n",current_CS->im_state,current_CS->b_half_full_char);

    if (current_shape_mode ()) {
        if (gb_output) {
            icon_st = "full-simp.png";
            tip = _ ("Double-width / Simplified Chinese output");
        } else {
            icon_st = "full-trad.png";
            tip = _ ("Double-width / Traditional Chinese output");
        }
    } else {
        if (gb_output) {
            icon_st = "half-simp.png";
            tip = _ ("Half-width / Simplified Chinese output");
        } else {
            icon_st = "half-trad.png";
            tip = _ ("Half-width / Traditional Chinese output");
        }
    }

    get_icon_path (icon_st, fname_state);
    //  dbg("wwwwwwww %s\n", fname_state);

    if (icon_main) {
        //    dbg("set %s %s\n", fname, fname_state);
        gtk_status_icon_set_from_file (icon_main, fname);
        gtk_status_icon_set_from_file (icon_state, fname_state);
    } else {
        destroy_other_tray ();
        //    dbg("gtk_status_icon_new_from_file a\n");
        icon_main = gtk_status_icon_new_from_file (fname);
        g_signal_connect (G_OBJECT (icon_main), "activate", G_CALLBACK (cb_activate), NULL);
        g_signal_connect (G_OBJECT (icon_main), "popup-menu", G_CALLBACK (cb_popup), NULL);

        //	dbg("gtk_status_icon_new_from_file %s b\n", fname_state);
        icon_state = gtk_status_icon_new_from_file (fname_state);
        g_signal_connect (G_OBJECT (icon_state), "activate", G_CALLBACK (cb_activate_state), NULL);
        g_signal_connect (G_OBJECT (icon_state), "popup-menu", G_CALLBACK (cb_popup_state), NULL);

        //	dbg("icon %s %s\n", fname, fname_state);
    }

#if GTK_CHECK_VERSION(2, 16, 0)
    if (icon_state)
        gtk_status_icon_set_tooltip_text (icon_state, _ (tip));
#endif

    if (icon_main) {
        char tt[64];
        if (current_CS && inmd[current_CS->in_method].cname[0])
            strcpy (tt, inmd[current_CS->in_method].cname);

        if (!iconame || !strcmp (iconame, HIME_TRAY_PNG) || !tsin_pho_mode ())
            strcpy (tt, "English");
#if GTK_CHECK_VERSION(2, 16, 0)
        gtk_status_icon_set_tooltip_text (icon_main, tt);
#endif
    }

    return;
}

gboolean is_exist_tray_double () {
    return icon_main != NULL && icon_state != NULL;
}

gboolean create_tray_double (gpointer data) {
    load_tray_icon_double ();
    return FALSE;
}

void init_tray_double () {
    g_timeout_add (200, create_tray_double, NULL);
}

void destroy_tray_double () {
    if (icon_main == NULL || icon_state == NULL)
        return;
    // Workaround: to release the space on notification area
    gtk_status_icon_set_visible (icon_main, FALSE);
    gtk_status_icon_set_visible (icon_state, FALSE);
    g_object_unref (icon_main);
    icon_main = NULL;
    g_object_unref (icon_state);
    icon_state = NULL;
    if (tray_menu) {
        gtk_widget_destroy (tray_menu);
        tray_menu = NULL;
    }
    if (tray_menu_state) {
        gtk_widget_destroy (tray_menu_state);
        tray_menu_state = NULL;
    }
}
