/*
 * mood.c               -- Pep mood events
 *
 * Copyright (C) 2009-2012 Myhailo Danylenko <isbear@ukrpost.net>
 *
 * 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., 59 Temple Place, Suite 330, Boston, MA 02111-1307
 * USA
 */

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

#include <mcabber/commands.h>
#include <mcabber/compl.h>
#include <mcabber/utils.h>
#include <mcabber/screen.h>
#include <mcabber/logprint.h>
#include <mcabber/roster.h>
#include <mcabber/hbuf.h>        // HBUF_PREFIX_*
#include <mcabber/hooks.h>
#include <mcabber/modules.h>

#include "pep_mood.h"

#include "config.h"

//
//  module description
//

void mood_init   (void);
void mood_uninit (void);

#define DESCRIPTION ( MOOD_DESCRIPTION )

static const gchar *deps[] = { "pep_mood", NULL };

module_info_t info_mood = {
	.branch      = MCABBER_BRANCH,
	.api         = MCABBER_API_VERSION,
	.version     = PROJECT_VERSION,
	.description = DESCRIPTION,
	.requires    = deps,
	.init        = mood_init,
	.uninit      = mood_uninit,
	.next        = NULL,
};

//
//  globals
//

#ifdef MCABBER_API_HAVE_CMD_ID
static gpointer mood_cmid     = NULL;
static gboolean mood_set_safe = FALSE;
#endif

static guint mood_cid        = 0;
static guint mood_hid_moodin = 0;

//
//  code
//

static void do_mood (char *arg)
{
	if (!*arg) { // request

		GError *error = NULL;
		
		pep_mood_request ( CURRENT_JID, &error );
		if ( error ) {
			scr_log_print ( LPRINT_NORMAL, "Error sending request: %s.", error -> message );
			g_error_free ( error );
		} else
			scr_log_print ( LPRINT_NORMAL, "Request sent." );

		return;

	} else { // publish
		
		hk_arg_t hookargs[] = {
			{ "mood", NULL },
			{ "text", NULL },
			{ NULL,   NULL },
		};

		if ( arg[0] != '-' || arg[1] != '\0' ) {
			gchar **args = split_arg ( arg, 2, 1 );

			hookargs[0].value = to_utf8 ( args[0] );

			if ( args[1] )
				hookargs[1].value = to_utf8 ( args[1] );

			free_arg_lst ( args );
		}

		hk_run_handlers ( HOOK_MOOD_OUT, hookargs );

		g_free ( (gchar *) hookargs[0].value );
		g_free ( (gchar *) hookargs[1].value );
	}
}

static guint mood_hmih (const gchar *hid, hk_arg_t *args, gpointer userdata)
{
	const gchar *from = NULL;
	const gchar *mood = NULL;
	const gchar *text = NULL;

	{
		hk_arg_t *arg;
		for ( arg = args; arg -> name; arg ++ ) {
			const gchar *value = arg -> value;
			if ( value ) {
				const gchar *name  = arg -> name;
				if ( ! strcmp ( name, "from" ) )
					from = value;
				else if ( ! strcmp ( name, "mood" ) )
					mood = value;
				else if ( ! strcmp ( name, "text" ) )
					text = value;
			}
		}
	}

	{ // print to buddy's buffer
		gchar *jid  = jidtodisp (from);
		gchar *mesg = NULL;

		if (mood && text)
			mesg = g_strdup_printf ("Mood: %s - %s.", mood, text);
		else if (mood || text)
			mesg = g_strdup_printf ("Mood: %s.", mood ? mood : text);

		scr_write_incoming_message (jid, mesg ? mesg : "No specific mood.", 0, HBB_PREFIX_INFO|HBB_PREFIX_NOFLAG, 0); // NO conversion from utf-8

		g_free (mesg);
		g_free (jid);
	}

	return HOOK_HANDLER_RESULT_ALLOW_MORE_HANDLERS;
}

static const gchar *defined_moods[] = {
	"afraid",
	"amazed",
	"amorous",
	"angry",
	"annoyed",
	"anxious",
	"aroused",
	"ashamed",
	"bored",
	"brave",
	"calm",
	"cautious",
	"cold",
	"confident",
	"confused",
	"contemplative",
	"contented",
	"cranky",
	"crazy",
	"creative",
	"curious",
	"dejected",
	"depressed",
	"disappointed",
	"disgusted",
	"dismayed",
	"distracted",
	"embarrassed",
	"envious",
	"excited",
	"flirtatious",
	"frustrated",
	"grateful",
	"grieving",
	"grumpy",
	"guilty",
	"happy",
	"hopeful",
	"hot",
	"humbled",
	"humiliated",
	"hungry",
	"hurt",
	"impressed",
	"in_awe",
	"in_love",
	"indignant",
	"interested",
	"intoxicated",
	"invincible",
	"jealous",
	"lonely",
	"lost",
	"lucky",
	"mean",
	"moody",
	"nervous",
	"neutral",
	"offended",
	"outraged",
	"playful",
	"proud",
	"relaxed",
	"relieved",
	"remorseful",
	"restless",
	"sad",
	"sarcastic",
	"satisfied",
	"serious",
	"shocked",
	"shy",
	"sick",
	"sleepy",
	"spontaneous",
	"stressed",
	"strong",
	"surprised",
	"thankful",
	"thirsty",
	"tired",
	"undefined",
	"weak",
	"worried",
	NULL,
};

void mood_init (void)
{
#ifdef HAVE_MCABBER_COMPLETION_FLAGS
	mood_cid = compl_new_category (COMPL_FLAGS_SORT);
#else
	mood_cid = compl_new_category ();
#endif

	if (mood_cid) {
		const gchar **mood;

		for (mood = defined_moods; *mood; ++mood)
			compl_add_category_word (mood_cid, *mood);
	}

#ifndef MCABBER_API_HAVE_CMD_ID
	cmd_add ( "mood", "", mood_cid, 0, do_mood, NULL );
#else
	mood_cmid     = cmd_add ( "mood", "", mood_cid, 0, do_mood, NULL );
	mood_set_safe = cmd_set_safe ( "mood", TRUE );
#endif

	mood_hid_moodin = hk_add_handler ( mood_hmih, HOOK_MOOD_IN, G_PRIORITY_DEFAULT, NULL );
}

void mood_uninit (void)
{
	hk_del_handler ( HOOK_MOOD_IN, mood_hid_moodin );

#ifndef MCABBER_API_HAVE_CMD_ID
	cmd_del ( "mood" );
#else
	if ( mood_cmid )
		cmd_del ( mood_cmid );
	if ( mood_set_safe )
		cmd_set_safe ( "mood", FALSE );
#endif

	if ( mood_cid )
		compl_del_category ( mood_cid );
}

/* vim: se ts=4 sw=4: */