/* Copyright 2009 Myhailo Danylenko

This file is part of @PROJECT@

@PROJECT@ 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, see <http://www.gnu.org/licenses/>. */

#include <glib.h>
#include <gmodule.h>
#include <string.h>

#include "hbuf.h"
#include "screen.h"
#include "commands.h"
#include "compl.h"
#include "utils.h"
#include "logprint.h"

static GSList *marked_jids = NULL;

// mark set jid
// mark clear jid
// mark toggle jid
// marked clear
// marked do cmd
static void do_mark (char *arg)
{
	char     **args   = split_arg (arg, 2, 1);
	char      *cmd    = NULL;
	char      *jid    = NULL;
	gboolean   jfree  = FALSE;
	int        marked = -1;

	if (args[0]) {
		cmd = args[0];

		if (args[1])
			jid = jidtodisp (args[1]);
	} else
		cmd = "set";
	
	if (!strcmp (cmd, "set")) {

		if (!g_slist_find_custom (marked_jids, jid ? jid : CURRENT_JID, (GCompareFunc) g_strcmp0)) {
			marked_jids = g_slist_append (marked_jids, jid ? jid : g_strdup (CURRENT_JID));
			marked = 1;
		} else
			jfree = TRUE;

	} else if (!strcmp (cmd, "clear")) {

		GSList *mel = g_slist_find_custom (marked_jids, jid ? jid : CURRENT_JID, (GCompareFunc) g_strcmp0);

		if (mel) {
			g_free (mel->data);
			marked_jids = g_slist_delete_link (marked_jids, mel);
			marked = 0;
		}

		jfree = TRUE;

	} else if (!strcmp (cmd, "toggle")) {

		GSList *mel = g_slist_find_custom (marked_jids, jid ? jid : CURRENT_JID, (GCompareFunc) g_strcmp0);

		if (mel) {
			g_free (mel->data);
			marked_jids = g_slist_delete_link (marked_jids, mel);
			marked = 0;
			jfree  = TRUE;
		} else {
			marked_jids = g_slist_append (marked_jids, jid ? jid : g_strdup (CURRENT_JID));
			marked = 1;
		}
	}

	if (marked == 1)
		scr_WriteIncomingMessage (jid ? jid : CURRENT_JID, "Marked", 0, HBB_PREFIX_INFO|HBB_PREFIX_NOFLAG, 0);
	else if (marked == 0)
		scr_WriteIncomingMessage (jid ? jid : CURRENT_JID, "Mark cleared", 0, HBB_PREFIX_INFO|HBB_PREFIX_NOFLAG, 0);

	if (jfree && jid)
		g_free (jid);

	free_arg_lst (args);
}

void do_marked (char *arg)
{
	char **args = split_arg (arg, 2, 1);
	char  *cmd = args[0];

	if (!cmd)
		cmd = "list";

	if (!strcmp (cmd, "list")) {

		GSList *mel;

		scr_LogPrint (LPRINT_NORMAL, "Marked jids:");
		for (mel = marked_jids; mel; mel = mel->next) {
			char *jid = (char *) mel->data;
			scr_LogPrint (LPRINT_NORMAL, " * %s", jid);
		}

	} else if (!strcmp (cmd, "clear")) {

		GSList *mel;

		for (mel = marked_jids; mel; mel = mel->next)
			g_free (mel->data);

		g_slist_free (marked_jids);
		marked_jids = NULL;

	} else if (!strcmp (cmd, "do")) {
		char *format = args[1];

		if (!format)
			scr_LogPrint (LPRINT_NORMAL, "You must specify action to do with marked jids");
		else {
			char     *pos   = format;
			gboolean  found = FALSE;
			gboolean  error = FALSE;

			for (pos = strchr (pos, '%'); pos; pos = strchr (pos, '%')) {
				if (*(pos + 1) == 's')
					found = TRUE;
				else if (*(pos + 1) == '%')
					++pos;
				else {
					scr_LogPrint (LPRINT_NORMAL, "Action string must not contain any other %%-sequesnces!");
					error = TRUE;
					break;
				}

				++pos;
			}

			if (!found)
				scr_LogPrint (LPRINT_NORMAL, "Action string must contain one %%s!");
			else if (!error) {
				GSList *mel;

				for (mel = marked_jids; mel; mel = mel->next) {
					char *jid     = (char *) mel->data;
					char *command = g_strdup_printf (format, jid);
					process_command (command, TRUE);
					g_free (command);
				}
			}
		}
	}

	free_arg_lst (args);
}

gchar *g_module_check_init (GModule *module)
{
	cmd_add ("mark", "", 0, COMPL_JID, do_mark, NULL);
	cmd_add ("marked", "", 0, COMPL_CMD, do_marked, NULL);

	return NULL;
}

void g_module_unload (GModule *module)
{
	cmd_del ("mark");
	cmd_del ("marked");

	{
		GSList *mel;

		for (mel = marked_jids; mel; mel = mel->next)
			g_free (mel->data);

		g_slist_free (marked_jids);
		marked_jids = NULL;
	}
}

/* The End */