/* Copyright (C) 2018  Curtis McEnroe <june@causal.agency>
 *
 * This program is free software: you can redistribute it and/or modify
 * it under the terms of the GNU Affero General Public License as published by
 * the Free Software Foundation, either version 3 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 Affero General Public License for more details.
 *
 * You should have received a copy of the GNU Affero General Public License
 * along with this program.  If not, see <http://www.gnu.org/licenses/>.
 */

#include <err.h>
#include <stdbool.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <sysexits.h>

#include "chat.h"

static void privmsg(struct Tag tag, bool action, const char *mesg) {
	char *line;
	int send;
	asprintf(
		&line, ":%s!%s %nPRIVMSG %s :%s%s%s",
		self.nick, self.user, &send, tag.name,
		(action ? "\1ACTION " : ""), mesg, (action ? "\1" : "")
	);
	if (!line) err(EX_OSERR, "asprintf");
	ircFmt("%s\r\n", &line[send]);
	handle(line);
	free(line);
}

static char *param(const char *command, char **params, const char *name) {
	char *param = strsep(params, " ");
	if (param) return param;
	uiFmt(TAG_STATUS, UI_WARM, "%s requires a %s", command, name);
	return NULL;
}

typedef void (*Handler)(struct Tag tag, char *params);

static void inputMe(struct Tag tag, char *params) {
	privmsg(tag, true, params ? params : "");
}

static void inputNick(struct Tag tag, char *params) {
	(void)tag;
	char *nick = param("/nick", &params, "name");
	if (!nick) return;
	ircFmt("NICK %s\r\n", nick);
}

static void inputJoin(struct Tag tag, char *params) {
	(void)tag;
	char *chan = param("/join", &params, "channel");
	if (!chan) return;
	ircFmt("JOIN %s\r\n", chan);
}

static void inputPart(struct Tag tag, char *params) {
	if (params) {
		ircFmt("PART %s :%s\r\n", tag.name, params);
	} else {
		ircFmt("PART %s :Goodbye\r\n", tag.name);
	}
}

static void inputQuery(struct Tag tag, char *params) {
	(void)tag;
	char *nick = param("/query", &params, "nick");
	if (!nick) return;
	tabTouch(TAG_NONE, nick);
	uiViewTag(tagFor(nick));
}

static void inputWho(struct Tag tag, char *params) {
	(void)params;
	ircFmt("WHO %s\r\n", tag.name);
}

static void inputTopic(struct Tag tag, char *params) {
	if (params) {
		ircFmt("TOPIC %s :%s\r\n", tag.name, params);
	} else {
		ircFmt("TOPIC %s\r\n", tag.name);
	}
}

static void inputQuit(struct Tag tag, char *params) {
	(void)tag;
	if (params) {
		ircFmt("QUIT :%s\r\n", params);
	} else {
		ircFmt("QUIT :Goodbye\r\n");
	}
}

static void inputUrl(struct Tag tag, char *params) {
	(void)params;
	urlList(tag);
}
static void inputOpen(struct Tag tag, char *params) {
	size_t at = (params ? strtoul(strsep(&params, "-,"), NULL, 0) : 1);
	size_t to = (params ? strtoul(params, NULL, 0) : at);
	urlOpen(tag, at - 1, to);
}

static void inputView(struct Tag tag, char *params) {
	(void)tag;
	char *view = param("/view", &params, "name or number");
	if (!view) return;
	int num = strtol(view, &view, 0);
	if (!view[0]) {
		uiViewNum(num);
	} else {
		struct Tag tag = tagFind(view);
		if (tag.id != TAG_NONE.id) {
			uiViewTag(tag);
		} else {
			uiFmt(TAG_STATUS, UI_WARM, "No view for %s", view);
		}
	}
}

static void inputClose(struct Tag tag, char *params) {
	(void)params;
	uiCloseTag(tag);
	tabRemove(TAG_NONE, tag.name);
}

static const struct {
	const char *command;
	Handler handler;
} COMMANDS[] = {
	{ "/close", inputClose },
	{ "/join", inputJoin },
	{ "/me", inputMe },
	{ "/names", inputWho },
	{ "/nick", inputNick },
	{ "/open", inputOpen },
	{ "/part", inputPart },
	{ "/query", inputQuery },
	{ "/quit", inputQuit },
	{ "/topic", inputTopic },
	{ "/url", inputUrl },
	{ "/view", inputView },
	{ "/who", inputWho },
};
static const size_t COMMANDS_LEN = sizeof(COMMANDS) / sizeof(COMMANDS[0]);

void input(struct Tag tag, char *input) {
	bool slash = (input[0] == '/');
	if (slash) {
		char *space = strchr(&input[1], ' ');
		char *extra = strchr(&input[1], '/');
		if (extra && (!space || extra < space)) slash = false;
	}

	if (!slash) {
		if (tag.id == TAG_VERBOSE.id) {
			ircFmt("%s\r\n", input);
		} else if (tag.id != TAG_STATUS.id) {
			privmsg(tag, false, input);
		}
		return;
	}

	char *word = strsep(&input, " ");
	if (input && !input[0]) input = NULL;

	char *trail;
	strtol(&word[1], &trail, 0);
	if (!trail[0]) {
		inputView(tag, &word[1]);
		return;
	}

	const char *command = word;
	const char *uniq = tabNext(TAG_NONE, command);
	if (uniq && uniq == tabNext(TAG_NONE, command)) {
		command = uniq;
		tabAccept();
	} else {
		tabReject();
	}

	for (size_t i = 0; i < COMMANDS_LEN; ++i) {
		if (strcasecmp(command, COMMANDS[i].command)) continue;
		COMMANDS[i].handler(tag, input);
		return;
	}
	uiFmt(TAG_STATUS, UI_WARM, "%s isn't a recognized command", command);
}

void inputTab(void) {
	for (size_t i = 0; i < COMMANDS_LEN; ++i) {
		tabTouch(TAG_NONE, COMMANDS[i].command);
	}
}