/*
 *  Module "lastmsg"    -- adds a /lastmsg command
 *                         Displays last personal messages
 *
 *  This modules stores messages received in a MUC room while
 *  you are away (or not available) if they contain your nickname.
 *  When you're back, you can display them in the status window with
 *  the /lastmsg command.
 *
 * Copyright (C) 2010 Mikael Berthe <mikael@lilotux.net>
 *
 * This module 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 <mcabber/modules.h>
#include <mcabber/commands.h>
#include <mcabber/hooks.h>
#include <mcabber/screen.h>

static void lastmsg_init(void);
static void lastmsg_uninit(void);

/* Module description */
module_info_t info_lastmsg = {
        .branch         = MCABBER_BRANCH,
        .api            = MCABBER_API_VERSION,
        .version        = "0.02",
        .description    = "Add a command /lastmsg",
        .requires       = NULL,
        .init           = lastmsg_init,
        .uninit         = lastmsg_uninit,
        .next           = NULL,
};

#ifdef MCABBER_API_HAVE_CMD_ID
static gpointer lastmsg_cmdid;
#endif

static GSList *lastmsg_list;

static guint last_message_hid, last_status_hid;

struct lastm_T {
    gchar *mucname;
    gchar *nickname;
    gchar *msg;
};

static void do_lastmsg(char *args)
{
  GSList *li;
  guint count = 0;

  if (!lastmsg_list) {
    scr_log_print(LPRINT_NORMAL, "You have no new message.");
    return;
  }

  for (li = lastmsg_list; li ; li = g_slist_next(li)) {
    struct lastm_T *lastm_item = li->data;
    scr_LogPrint(LPRINT_NORMAL, "In <#%s>, \"%s\" said:\n%s",
                 lastm_item->mucname, lastm_item->nickname,
                 lastm_item->msg);
    g_free(lastm_item->mucname);
    g_free(lastm_item->nickname);
    g_free(lastm_item->msg);
    count++;
  }
  g_slist_free(lastmsg_list);
  lastmsg_list = NULL;
  if (count*2 > scr_getlogwinheight()) {
    scr_setmsgflag_if_needed(SPECIAL_BUFFER_STATUS_ID, TRUE);
    scr_setattentionflag_if_needed(SPECIAL_BUFFER_STATUS_ID, TRUE,
                                   ROSTER_UI_PRIO_STATUS_WIN_MESSAGE, prio_max);
  }
}

static guint last_message_hh(const gchar *hookname, hk_arg_t *args,
                             gpointer userdata)
{
  enum imstatus status;
  const gchar *bjid, *res, *msg;
  gboolean muc = FALSE, urgent = FALSE;

  status = xmpp_getstatus();

  if (status != notavail && status != away)
    return HOOK_HANDLER_RESULT_ALLOW_MORE_HANDLERS;

  bjid = res = NULL;
  msg = NULL;

  for ( ; args->name; args++) {
    if (!g_strcmp0(args->name, "jid"))
      bjid = args->value;
    else if (!g_strcmp0(args->name, "resource"))
      res = args->value;
    else if (!g_strcmp0(args->name, "message"))
      msg = args->value;
    else if (!g_strcmp0(args->name, "groupchat")) {
      if (!g_strcmp0(args->value, "true"))
        muc = TRUE;
    } else if (!g_strcmp0(args->name, "attention")) {
      if (!g_strcmp0(args->value, "true"))
        urgent = TRUE;
    }
  }

  if (muc && urgent && bjid && res && msg) {
    struct lastm_T *lastm_item;

    lastm_item = g_new(struct lastm_T, 1);
    lastm_item->mucname  = g_strdup(bjid);
    lastm_item->nickname = g_strdup(res);
    lastm_item->msg      = g_strdup(msg);
    lastmsg_list = g_slist_append(lastmsg_list, lastm_item);
  }
  return HOOK_HANDLER_RESULT_ALLOW_MORE_HANDLERS;
}

static guint last_status_hh(const gchar *hookname, hk_arg_t *args,
                            gpointer userdata)
{
  gboolean not_away = FALSE;

  for ( ; args->name; args++) {
    if (!g_strcmp0(args->name, "new_status")) {
      if (args->value &&
          (args->value[0] != imstatus2char[away]) &&
          (args->value[0] != imstatus2char[notavail])) {
        not_away = TRUE;
        break;
      }
    }
  }
  if (!not_away || !lastmsg_list)
    return HOOK_HANDLER_RESULT_ALLOW_MORE_HANDLERS;

  scr_log_print(LPRINT_NORMAL, "Looks like you're back...");
  scr_log_print(LPRINT_NORMAL, "I've got news for you, use /lastmsg to "
                "read your messages!");
  return HOOK_HANDLER_RESULT_ALLOW_MORE_HANDLERS;
}

/* Initialization */
static void lastmsg_init(void)
{
  /* Add command */
#ifdef MCABBER_API_HAVE_CMD_ID
  lastmsg_cmdid = cmd_add("lastmsg", "Display last missed messages", 0, 0,
                          do_lastmsg, NULL);
#else
  cmd_add("lastmsg", "Display last missed messages", 0, 0, do_lastmsg, NULL);
#endif

  /* Add hook handlers */
  last_message_hid = hk_add_handler(last_message_hh, HOOK_POST_MESSAGE_IN,
                                    G_PRIORITY_DEFAULT_IDLE, NULL);
  last_status_hid  = hk_add_handler(last_status_hh, HOOK_MY_STATUS_CHANGE,
                                    G_PRIORITY_DEFAULT_IDLE, NULL);
}

/* Uninitialization */
static void lastmsg_uninit(void)
{
  GSList *li;

  /* Unregister command */
#ifdef MCABBER_API_HAVE_CMD_ID
  cmd_del(lastmsg_cmdid);
#else
  cmd_del("lastmsg");
#endif
  /* Unregister handlers */
  hk_del_handler(HOOK_POST_MESSAGE_IN, last_message_hid);
  hk_del_handler(HOOK_MY_STATUS_CHANGE, last_status_hid);

  /* Clean up data */
  for (li = lastmsg_list; li ; li = g_slist_next(li)) {
    struct lastm_T *lastm_item = li->data;
    g_free(lastm_item->mucname);
    g_free(lastm_item->nickname);
    g_free(lastm_item->msg);
  }
  g_slist_free(lastmsg_list);
  lastmsg_list = NULL;
}

/* vim: set expandtab cindent cinoptions=>2\:2(0:  For Vim users... */