/*
 *      htmlchars.c - this file is part of Geany, a fast and lightweight IDE
 *
 *      Copyright 2009 Frank Lanitz 
 *      Copyright 2006-2009 Enrico Tröger 
 *      Copyright 2007-2009 Nick Treleaven 
 *
 *      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., 51 Franklin Street, Fifth Floor, Boston,
 *      MA 02110-1301, USA.
 *
 * $Id$
 */
/* HTML Characters plugin (Inserts HTML character entities like '&') */
#include "geany.h"
#include "support.h"
#include "plugindata.h"
#include "document.h"
#include "editor.h"
#include "keybindings.h"
#include "ui_utils.h"
#include "utils.h"
#include "geanyfunctions.h"
GeanyData		*geany_data;
GeanyFunctions	*geany_functions;
PLUGIN_VERSION_CHECK(GEANY_API_VERSION)
PLUGIN_SET_INFO(_("HTML Characters"), _("Inserts HTML character entities like '&'."), VERSION,
	_("The Geany developer team"))
/* Keybinding(s) */
enum
{
	KB_INSERT_HTML_CHARS,
	KB_REPLACE_HTML_ENTITIES,
	KB_HTMLTOGGLE_ACTIVE,
	KB_COUNT
};
PLUGIN_KEY_GROUP(html_chars, KB_COUNT)
enum
{
	COLUMN_CHARACTER,
	COLUMN_HTML_NAME,
	N_COLUMNS
};
static GtkWidget *main_menu_item = NULL;
static GtkWidget *main_menu = NULL;
static GtkWidget *main_menu_submenu = NULL;
static GtkWidget *menu_bulk_replace = NULL;
static GtkWidget *sc_dialog = NULL;
static GtkTreeStore *sc_store = NULL;
static GtkTreeView *sc_tree = NULL;
static GtkWidget *menu_htmltoggle = NULL;
static gboolean plugin_active = FALSE;
const gchar *chars[][2] ={
	{ N_("HTML characters"), NULL },
	{ "\"", """ },
	{ "&", "&" },
	{ "<", "<" },
	{ ">", ">" },
	{ N_("ISO 8859-1 characters"), NULL },
	{ " ", " " },
	{ "¡", "¡" },
	{ "¢", "¢" },
	{ "£", "£" },
	{ "¤", "¤" },
	{ "¥", "¥" },
	{ "¦", "¦" },
	{ "§", "§" },
	{ "¨", "¨" },
	{ "©", "©" },
	{ "®", "®" },
	{ "«", "«" },
	{ "»", "»" },
	{ "¬", "¬" },
	{ " ", "" },
	{ "¯", "¯" },
	{ "°", "°" },
	{ "±", "±" },
	{ "¹", "¹" },
	{ "²", "²" },
	{ "³", "³" },
	{ "¼", "¼" },
	{ "½", "½" },
	{ "¾", "¾" },
	{ "×", "×" },
	{ "÷", "÷" },
	{ "´", "´" },
	{ "µ", "µ" },
	{ "¶", "¶" },
	{ "·", "·" },
	{ "¸", "¸" },
	{ "ª", "ª" },
	{ "º", "º" },
	{ "¿", "¿" },
	{ "À", "À" },
	{ "Á", "Á" },
	{ "Â", "Â" },
	{ "Ã", "Ã" },
	{ "Ä", "Ä" },
	{ "Å", "Å" },
	{ "Æ", "Æ" },
	{ "Ç", "Ç" },
	{ "È", "È" },
	{ "É", "É" },
	{ "Ê", "Ê" },
	{ "Ë", "Ë" },
	{ "Ì", "Ì" },
	{ "Í", "Í" },
	{ "Î", "Î" },
	{ "Ï", "Ï" },
	{ "Ð", "Ð" },
	{ "Ñ", "Ñ" },
	{ "Ò", "Ò" },
	{ "Ó", "Ó" },
	{ "Ô", "Ô" },
	{ "Õ", "Õ" },
	{ "Ö", "Ö" },
	{ "Ø", "Ø" },
	{ "Ù", "Ù" },
	{ "Ú", "Ú" },
	{ "Û", "Û" },
	{ "Ü", "Ü" },
	{ "Ý", "Ý" },
	{ "Þ", "Þ" },
	{ "ß", "ß" },
	{ "à", "à" },
	{ "á", "á" },
	{ "â", "â" },
	{ "ã", "ã" },
	{ "ä", "ä" },
	{ "å", "å" },
	{ "æ", "æ" },
	{ "ç", "ç" },
	{ "è", "è" },
	{ "é", "é" },
	{ "ê", "ê" },
	{ "ë", "ë" },
	{ "ì", "ì" },
	{ "í", "í" },
	{ "î", "î" },
	{ "ï", "ï" },
	{ "ð", "ð" },
	{ "ñ", "ñ" },
	{ "ò", "ò" },
	{ "ó", "ó" },
	{ "ô", "ô" },
	{ "õ", "õ" },
	{ "ö", "ö" },
	{ "ø", "ø" },
	{ "ù", "ù" },
	{ "ú", "ú" },
	{ "û", "û" },
	{ "ü", "ü" },
	{ "ý", "ý" },
	{ "þ", "þ" },
	{ "ÿ", "ÿ" },
	{ N_("Greek characters"), NULL },
	{ "Α", "Α" },
	{ "α", "α" },
	{ "Β", "Β" },
	{ "β", "β" },
	{ "Γ", "Γ" },
	{ "γ", "γ" },
	{ "Δ", "Δ" },
	{ "δ", "Δ" },
	{ "δ", "δ" },
	{ "Ε", "Ε" },
	{ "ε", "ε" },
	{ "Ζ", "Ζ" },
	{ "ζ", "ζ" },
	{ "Η", "Η" },
	{ "η", "η" },
	{ "Θ", "Θ" },
	{ "θ", "θ" },
	{ "Ι", "Ι" },
	{ "ι", "ι" },
	{ "Κ", "Κ" },
	{ "κ", "κ" },
	{ "Λ", "Λ" },
	{ "λ", "λ" },
	{ "Μ", "Μ" },
	{ "μ", "μ" },
	{ "Ν", "Ν" },
	{ "ν", "ν" },
	{ "Ξ", "Ξ" },
	{ "ξ", "ξ" },
	{ "Ο", "Ο" },
	{ "ο", "ο" },
	{ "Π", "Π" },
	{ "π", "π" },
	{ "Ρ", "Ρ" },
	{ "ρ", "ρ" },
	{ "Σ", "Σ" },
	{ "ς", "ς" },
	{ "σ", "σ" },
	{ "Τ", "Τ" },
	{ "τ", "τ" },
	{ "Υ", "Υ" },
	{ "υ", "υ" },
	{ "Φ", "Φ" },
	{ "φ", "φ" },
	{ "Χ", "Χ" },
	{ "χ", "χ" },
	{ "Ψ", "Ψ" },
	{ "ψ", "ψ" },
	{ "Ω", "Ω" },
	{ "ω", "ω" },
	{ "ϑ", "ϑ" },
	{ "ϒ", "ϒ" },
	{ "ϖ", "ϖ" },
	{ N_("Mathematical characters"), NULL },
	{ "∀", "∀" },
	{ "∂", "∂" },
	{ "∃", "∃" },
	{ "∅", "∅" },
	{ "∇", "∇" },
	{ "∈", "∈" },
	{ "∉", "∉" },
	{ "∋", "∋" },
	{ "∏", "∏" },
	{ "∑", "∑" },
	{ "−", "−" },
	{ "∗", "∗" },
	{ "√", "√" },
	{ "∝", "∝" },
	{ "∞", "∞" },
	{ "∠", "∠" },
	{ "∧", "∧" },
	{ "∨", "∨" },
	{ "∩", "∩" },
	{ "∪", "∪" },
	{ "∫", "∫" },
	{ "∴", "∴" },
	{ "∼", "∼" },
	{ "≅", "≅" },
	{ "≈", "≈" },
	{ "≠", "≠" },
	{ "≡", "≡" },
	{ "≤", "≤" },
	{ "≥", "≥" },
	{ "⊂", "⊂" },
	{ "⊃", "⊃" },
	{ "⊄", "⊄" },
	{ "⊆", "⊆" },
	{ "⊇", "⊇" },
	{ "⊕", "⊕" },
	{ "⊗", "⊗" },
	{ "⊥", "⊥" },
	{ "⋅", "⋅" },
	{ "◊", "◊" },
	{ N_("Technical characters"), NULL },
	{ "⌈", "⌈" },
	{ "⌉", "⌉" },
	{ "⌊", "⌊" },
	{ "⌋", "⌋" },
	{ "〈", "〈" },
	{ "〉", "〉" },
	{ N_("Arrow characters"), NULL },
	{ "←", "←" },
	{ "↑", "↑" },
	{ "→", "→" },
	{ "↓", "↓" },
	{ "↔", "↔" },
	{ "↵", "↵" },
	{ "⇐", "⇐" },
	{ "⇑", "⇑" },
	{ "⇒", "⇒" },
	{ "⇓", "⇓" },
	{ "⇔", "⇔" },
	{ N_("Punctuation characters"), NULL },
	{ "–", "–" },
	{ "—", "—" },
	{ "‘", "‘" },
	{ "’", "’" },
	{ "‚", "‚" },
	{ "“", "“" },
	{ "”", "”" },
	{ "„", "„" },
	{ "†", "†" },
	{ "‡", "‡" },
	{ "…", "…" },
	{ "‰", "‰" },
	{ "‹", "‹" },
	{ "›", "›" },
	{ N_("Miscellaneous characters"), NULL },
	{ "•", "•" },
	{ "′", "′" },
	{ "″", "″" },
	{ "‾", "‾" },
	{ "⁄", "⁄" },
	{ "℘", "℘" },
	{ "ℑ", "ℑ" },
	{ "ℜ", "ℜ" },
	{ "™", "™" },
	{ "€", "€" },
	{ "ℵ", "ℵ" },
	{ "♠", "♠" },
	{ "♣", "♣" },
	{ "♥", "♥" },
	{ "♦", "♦" },
	{ "Œ", "Œ" },
	{ "œ", "œ" },
	{ "Š", "Š" },
	{ "š", "š" },
	{ "Ÿ", "Ÿ" },
	{ "ƒ", "ƒ" },
};
static gboolean ht_editor_notify_cb(GObject *object, GeanyEditor *editor,
									SCNotification *nt, gpointer data);
PluginCallback plugin_callbacks[] =
{
	{ "editor-notify", (GCallback) &ht_editor_notify_cb, FALSE, NULL },
	{ NULL, NULL, FALSE, NULL }
};
/* Functions to toggle the status of plugin */
void set_status(gboolean new_status)
{
	/* No more function at the moment.*/
	if (plugin_active != new_status)
		plugin_active = new_status;
}
static void toggle_status(G_GNUC_UNUSED GtkMenuItem * menuitem)
{
	if (plugin_active == TRUE)
		set_status(FALSE);
	else
		set_status(TRUE);
}
static void sc_on_tools_show_dialog_insert_special_chars_response
		(GtkDialog *dialog, gint response, gpointer user_data);
static void sc_on_tree_row_activated
		(GtkTreeView *treeview, GtkTreePath *path, GtkTreeViewColumn *col, gpointer user_data);
static void sc_fill_store(GtkTreeStore *store);
static gboolean sc_insert(GtkTreeModel *model, GtkTreeIter *iter);
/* Function takes over value of key which was pressed and returns
 * HTML/SGML entity if any */
const gchar *get_entity(gchar *letter)
{
	guint i, len;
	len = G_N_ELEMENTS(chars);
	/* Ignore tags marking caracters as well as spaces*/
	for (i = 7; i < len; i++)
	{
		if (utils_str_equal(chars[i][0], letter) &&
			!utils_str_equal(" ", letter))
		{
			return chars[i][1];
		}
	}
	/* if the char is not in the list */
	return NULL;
}
static gboolean ht_editor_notify_cb(GObject *object, GeanyEditor *editor,
									SCNotification *nt, gpointer data)
{
	g_return_val_if_fail(editor != NULL, FALSE);
	if (plugin_active != TRUE)
		return FALSE;
	if (nt->nmhdr.code == SCN_CHARADDED)
	{
		gchar buf[7];
		gint len;
		len = g_unichar_to_utf8(nt->ch, buf);
		if (len > 0)
		{
			const gchar *entity;
			buf[len] = '\0';
			entity = get_entity(buf);
			if (entity != NULL)
			{
				gint pos = sci_get_current_position(editor->sci);
				sci_set_selection_start(editor->sci, pos - len);
				sci_set_selection_end(editor->sci, pos);
				sci_replace_sel(editor->sci, entity);
			}
		}
	}
	return FALSE;
}
/* Called when keys were pressed */
static void kbhtmltoggle_toggle(G_GNUC_UNUSED guint key_id)
{
	if (plugin_active == TRUE)
		set_status(FALSE);
	else
		set_status(TRUE);
}
static void tools_show_dialog_insert_special_chars(void)
{
	if (sc_dialog == NULL)
	{
		gint height;
		GtkCellRenderer *renderer;
		GtkTreeViewColumn *column;
		GtkWidget *swin, *vbox, *label;
		sc_dialog = gtk_dialog_new_with_buttons(
					_("Special Characters"), GTK_WINDOW(geany->main_widgets->window),
					GTK_DIALOG_DESTROY_WITH_PARENT, GTK_STOCK_CANCEL, GTK_RESPONSE_CANCEL,
					_("_Insert"), GTK_RESPONSE_OK, NULL);
		vbox = ui_dialog_vbox_new(GTK_DIALOG(sc_dialog));
		gtk_box_set_spacing(GTK_BOX(vbox), 6);
		gtk_widget_set_name(sc_dialog, "GeanyDialog");
		height = GEANY_WINDOW_MINIMAL_HEIGHT;
		gtk_window_set_default_size(GTK_WINDOW(sc_dialog), height * 8 / 10, height);
		gtk_dialog_set_default_response(GTK_DIALOG(sc_dialog), GTK_RESPONSE_CANCEL);
		label = gtk_label_new(_("Choose a special character from the list below and double click on it or use the button to insert it at the current cursor position."));
		gtk_label_set_line_wrap(GTK_LABEL(label), TRUE);
		gtk_misc_set_alignment(GTK_MISC(label), 0, 0.5);
		gtk_box_pack_start(GTK_BOX(vbox), label, FALSE, FALSE, 0);
		sc_tree = GTK_TREE_VIEW(gtk_tree_view_new());
		sc_store = gtk_tree_store_new(N_COLUMNS, G_TYPE_STRING, G_TYPE_STRING);
		gtk_tree_view_set_model(GTK_TREE_VIEW(sc_tree),
								GTK_TREE_MODEL(sc_store));
		g_object_unref(sc_store);
		renderer = gtk_cell_renderer_text_new();
		column = gtk_tree_view_column_new_with_attributes(
								_("Character"), renderer, "text", COLUMN_CHARACTER, NULL);
		gtk_tree_view_column_set_resizable(column, TRUE);
		gtk_tree_view_append_column(GTK_TREE_VIEW(sc_tree), column);
		renderer = gtk_cell_renderer_text_new();
		column = gtk_tree_view_column_new_with_attributes(
								_("HTML (name)"), renderer, "text", COLUMN_HTML_NAME, NULL);
		gtk_tree_view_column_set_resizable(column, TRUE);
		gtk_tree_view_append_column(GTK_TREE_VIEW(sc_tree), column);
		swin = gtk_scrolled_window_new(NULL, NULL);
		gtk_scrolled_window_set_policy(GTK_SCROLLED_WINDOW(swin), GTK_POLICY_AUTOMATIC,
			GTK_POLICY_AUTOMATIC);
		gtk_scrolled_window_add_with_viewport(
					GTK_SCROLLED_WINDOW(swin), GTK_WIDGET(sc_tree));
		gtk_box_pack_start(GTK_BOX(vbox), swin, TRUE, TRUE, 0);
		g_signal_connect(sc_tree, "row-activated", G_CALLBACK(sc_on_tree_row_activated), NULL);
		g_signal_connect(sc_dialog, "response",
					G_CALLBACK(sc_on_tools_show_dialog_insert_special_chars_response), NULL);
		g_signal_connect(sc_dialog, "delete-event", G_CALLBACK(gtk_widget_hide_on_delete), NULL);
		sc_fill_store(sc_store);
		/*gtk_tree_view_expand_all(special_characters_tree);*/
		gtk_tree_view_set_search_column(sc_tree, COLUMN_HTML_NAME);
	}
	gtk_widget_show_all(sc_dialog);
}
/* fill the tree model with data
 ** TODO move this in a file and make it extendable for more data types */
static void sc_fill_store(GtkTreeStore *store)
{
	GtkTreeIter iter;
	GtkTreeIter *parent_iter = NULL;
	guint i, len;
	len = G_N_ELEMENTS(chars);
	for (i = 0; i < len; i++)
	{
		if (chars[i][1] == NULL)
		{	/* add a category */
			gtk_tree_store_append(store, &iter, NULL);
			gtk_tree_store_set(store, &iter, COLUMN_CHARACTER, chars[i][0], -1);
			if (parent_iter != NULL) gtk_tree_iter_free(parent_iter);
			parent_iter = gtk_tree_iter_copy(&iter);
		}
		else
		{	/* add child to parent_iter */
			gtk_tree_store_append(store, &iter, parent_iter);
			gtk_tree_store_set(store, &iter, COLUMN_CHARACTER, chars[i][0],
											 COLUMN_HTML_NAME, chars[i][1], -1);
		}
	}
}
/* just inserts the HTML_NAME coloumn of the selected row at current position
 * returns only TRUE if a valid selection(i.e. no category) could be found */
static gboolean sc_insert(GtkTreeModel *model, GtkTreeIter *iter)
{
	GeanyDocument *doc = document_get_current();
	gboolean result = FALSE;
	if (doc != NULL)
	{
		gchar *str;
		gint pos = sci_get_current_position(doc->editor->sci);
		gtk_tree_model_get(model, iter, COLUMN_HTML_NAME, &str, -1);
		if (NZV(str))
		{
			sci_insert_text(doc->editor->sci, pos, str);
			g_free(str);
			result = TRUE;
		}
	}
	return result;
}
static void sc_on_tools_show_dialog_insert_special_chars_response(GtkDialog *dialog, gint response,
														gpointer user_data)
{
	if (response == GTK_RESPONSE_OK)
	{
		GtkTreeSelection *selection;
		GtkTreeModel *model;
		GtkTreeIter iter;
		selection = gtk_tree_view_get_selection(sc_tree);
		if (gtk_tree_selection_get_selected(selection, &model, &iter))
		{
			/* only hide dialog if selection was not a category */
			if (sc_insert(model, &iter))
				gtk_widget_hide(GTK_WIDGET(dialog));
		}
	}
	else
		gtk_widget_hide(GTK_WIDGET(dialog));
}
static void sc_on_tree_row_activated(GtkTreeView *treeview, GtkTreePath *path,
											  GtkTreeViewColumn *col, gpointer user_data)
{
	GtkTreeIter iter;
	GtkTreeModel *model = GTK_TREE_MODEL(sc_store);
	if (gtk_tree_model_get_iter(model, &iter, path))
	{
		/* only hide dialog if selection was not a category */
		if (sc_insert(model, &iter))
			gtk_widget_hide(sc_dialog);
		else
		{	/* double click on a category to toggle the expand or collapse it */
			if (gtk_tree_view_row_expanded(sc_tree, path))
				gtk_tree_view_collapse_row(sc_tree, path);
			else
				gtk_tree_view_expand_row(sc_tree, path, FALSE);
		}
	}
}
static void replace_special_character()
{
	GeanyDocument *doc = NULL;
	doc = document_get_current();
	if (doc != NULL && sci_has_selection(doc->editor->sci))
	{
		gint selection_len;
		gchar *selection = NULL;
		GString *replacement = g_string_new(NULL);
		gint i;
		gchar *new = NULL;
		const gchar *entity = NULL;
		gchar buf[7];
		gint len;
		selection = sci_get_selection_contents(doc->editor->sci);
		selection_len = sci_get_selected_text_length(doc->editor->sci) - 1;
		for (i = 0; i < selection_len; i++)
		{
			len = g_unichar_to_utf8(g_utf8_get_char(selection + i), buf);
			i = len - 1 + i;
			buf[len] = '\0';
			entity = get_entity(buf);
			if (entity != NULL)
			{
				replacement = g_string_append(replacement, entity);
			}
			else
			{
				replacement = g_string_append(replacement, buf);
			}
		}
		new = g_string_free(replacement, FALSE);
		sci_replace_sel(doc->editor->sci, new);
		g_free(selection);
		g_free(new);
	}
}
/* Callback for special chars menu */
static void
item_activate(GtkMenuItem *menuitem, gpointer gdata)
{
	tools_show_dialog_insert_special_chars();
}
static void kb_activate(G_GNUC_UNUSED guint key_id)
{
	item_activate(NULL, NULL);
}
/* Callback for bulk replacement of selected text */
static void
replace_special_character_activated(GtkMenuItem *menuitem, gpointer gdata)
{
	replace_special_character();
}
static void kb_special_chars_replacement(G_GNUC_UNUSED guint key_id)
{
	replace_special_character();
}
/* Called by Geany to initialize the plugin */
void plugin_init(GeanyData *data)
{
	GtkWidget *menu_item;
	const gchar *menu_text = _("_Insert Special HTML Characters");
	/* Add an item to the Tools menu for html chars dialog*/
	menu_item = gtk_menu_item_new_with_mnemonic(menu_text);
	gtk_widget_show(menu_item);
	gtk_container_add(GTK_CONTAINER(geany->main_widgets->tools_menu), menu_item);
	g_signal_connect(menu_item, "activate", G_CALLBACK(item_activate), NULL);
	/* disable menu_item when there are no documents open */
	ui_add_document_sensitive(menu_item);
	/* Add menuitem for html replacement functions*/
	main_menu = gtk_menu_item_new_with_mnemonic(_("HTML Replacement"));
	gtk_widget_show_all(main_menu);
	gtk_container_add(GTK_CONTAINER(geany->main_widgets->tools_menu), main_menu);
	main_menu_submenu = gtk_menu_new();
	gtk_menu_item_set_submenu(GTK_MENU_ITEM(main_menu), main_menu_submenu);
	menu_htmltoggle = gtk_check_menu_item_new_with_mnemonic(_("_HTMLToggle"));
	gtk_check_menu_item_set_active (GTK_CHECK_MENU_ITEM(menu_htmltoggle),
		plugin_active);
	gtk_container_add(GTK_CONTAINER(main_menu_submenu), menu_htmltoggle);
	g_signal_connect((gpointer) menu_htmltoggle, "activate",
			 G_CALLBACK(toggle_status), NULL);
	menu_bulk_replace = gtk_menu_item_new_with_mnemonic(
						_("Bulk replacement of special chars"));
	g_signal_connect((gpointer) menu_bulk_replace, "activate",
			 G_CALLBACK(replace_special_character_activated), NULL);
	gtk_container_add(GTK_CONTAINER(main_menu_submenu), menu_bulk_replace);
	ui_add_document_sensitive(main_menu);
	gtk_widget_show(menu_bulk_replace);
	gtk_widget_show(menu_htmltoggle);
	main_menu_item = menu_item;
	/* setup keybindings */
	keybindings_set_item(plugin_key_group, KB_INSERT_HTML_CHARS,
		kb_activate, 0, 0, "insert_html_chars",
		_("Insert Special HTML Characters"), menu_item);
	keybindings_set_item(plugin_key_group, KB_REPLACE_HTML_ENTITIES,
		kb_special_chars_replacement, 0, 0, "replace_special_characters",
		_("Replace special characters"), NULL);
	keybindings_set_item(plugin_key_group, KB_HTMLTOGGLE_ACTIVE,
		kbhtmltoggle_toggle, 0, 0, "htmltoogle_toggle_plugin_status",
		_("Toggle plugin status"), menu_htmltoggle);
}
/* Destroy widgets */
void plugin_cleanup(void)
{
	gtk_widget_destroy(main_menu_item);
	gtk_widget_destroy(main_menu);
	if (sc_dialog != NULL)
		gtk_widget_destroy(sc_dialog);
}