/*
 * HTML document generation
 *
 * Copyright (C) 2017  Patrick McDermott
 *
 * This file is part of Marquee.
 *
 * Marquee 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 3 of the License, or
 * (at your option) any later version.
 *
 * Marquee 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 Marquee.  If not, see <http://www.gnu.org/licenses/>.
 */

#include <stdarg.h>
#include <string.h>

#include <glib.h>

#include "html.h"

gchar *
mq_html_container(const gchar *element, ...)
{
	gsize    len;
	va_list  ap;
	gchar   *child;
	gchar   *container;
	gchar   *ptr;

	/* Calculate length. */
	len = strlen("<");
	len += strlen(element);
	len += strlen(">\n");
	va_start(ap, element);
	while ((child = va_arg(ap, gchar *))) {
		len += strlen(child);
	}
	va_end(ap);
	len += strlen("</");
	len += strlen(element);
	len += strlen(">\n");
	++len;  /* NUL byte */

	/* Build string. */
	container = g_new(gchar, len);
	ptr = g_stpcpy(container, "<");
	ptr = g_stpcpy(ptr, element);
	ptr = g_stpcpy(ptr, ">\n");
	va_start(ap, element);
	while ((child = va_arg(ap, gchar *))) {
		ptr = g_stpcpy(ptr, child);
		g_free(child);
	}
	va_end(ap);
	ptr = g_stpcpy(ptr, "</");
	ptr = g_stpcpy(ptr, element);
	ptr = g_stpcpy(ptr, ">\n");  /* g_stpcpy() adds the NUL. */

	return container;
}

gchar *
mq_html_notebook(gboolean vertical, const gchar *name, guint current_page, ...)
{
	gsize    name_len;
	gsize    len;
	va_list  ap;
	gsize    i;
	gchar   *child;
	gchar   *tab_label;
	gchar   *i_str;
	gchar   *notebook;
	gchar   *ptr;

	/* Calculate length. */
	name_len = strlen(name);
	len = strlen("<div class=\"notebook-") + 1 + strlen("\">\n");
	va_start(ap, current_page);
	i = 0;
	while ((child = va_arg(ap, gchar *)) &&
			(tab_label = va_arg(ap, gchar *))) {
		i_str = g_strdup_printf("%zu", i);
		len += strlen("<input id=\"_tab_");
		len += name_len;
		len += strlen("_");
		len += strlen(i_str);
		/* len += (gsize) log10(i) + 1; */
		len += strlen("\" type=\"radio\"");
		if (i == current_page) {
			len += strlen(" checked=\"checked\"");
		}
		len += strlen(" name=\"_tabs\"></input>\n");
		len += strlen("<label for=\"_tab_");
		len += name_len;
		len += strlen("_");
		len += strlen(i_str);
		/* len += (gsize) log10(i) + 1; */
		len += strlen("\">");
		len += strlen(tab_label);
		len += strlen("</label>\n");
		++i;
	}
	va_end(ap);
	va_start(ap, current_page);
	while ((child = va_arg(ap, gchar *)) &&
			(tab_label = va_arg(ap, gchar *))) {
		/* TODO: Page ID and control CSS */
		len += strlen(child);
	}
	va_end(ap);
	len += strlen("</div>\n");
	++len;  /* NUL byte */

	/* Build string. */
	notebook = g_new(gchar, len);
	ptr = g_stpcpy(notebook, "<div class=\"notebook-");
	ptr = g_stpcpy(ptr, vertical ? "v" : "h");
	ptr = g_stpcpy(ptr, "\">\n");
	va_start(ap, current_page);
	i = 0;
	while ((child = va_arg(ap, gchar *)) &&
			(tab_label = va_arg(ap, gchar *))) {
		i_str = g_strdup_printf("%zu", i);
		ptr = g_stpcpy(ptr, "<input id=\"_tab_");
		ptr = g_stpcpy(ptr, name);
		ptr = g_stpcpy(ptr, "_");
		ptr = g_stpcpy(ptr, i_str);
		ptr = g_stpcpy(ptr, "\" type=\"radio\"");
		if (i == current_page) {
			ptr = g_stpcpy(ptr, " checked=\"checked\"");
		}
		ptr = g_stpcpy(ptr, " name=\"_tabs\"></input>\n");
		ptr = g_stpcpy(ptr, "<label for=\"_tab_");
		ptr = g_stpcpy(ptr, name);
		ptr = g_stpcpy(ptr, "_");
		ptr = g_stpcpy(ptr, i_str);
		ptr = g_stpcpy(ptr, "\">");
		ptr = g_stpcpy(ptr, tab_label);
		ptr = g_stpcpy(ptr, "</label>\n");
		g_free(i_str);
		++i;
	}
	va_end(ap);
	va_start(ap, current_page);
	while ((child = va_arg(ap, gchar *)) &&
			(tab_label = va_arg(ap, gchar *))) {
		/* TODO: Page ID and control CSS */
		ptr = g_stpcpy(ptr, child);
		g_free(child);
	}
	va_end(ap);
	ptr = g_stpcpy(ptr, "</div>\n");  /* g_stpcpy() adds the NUL. */

	return notebook;
}

gchar *
mq_html_form(const gchar *submit_label, const gchar *reset_label, ...)
{
	gsize    len;
	va_list  ap;
	gchar   *child;
	gchar   *form;
	gchar   *ptr;

	/* Calculate length. */
	len = strlen("<form>\n");
	va_start(ap, reset_label);
	while ((child = va_arg(ap, gchar *))) {
		len += strlen(child);
	}
	va_end(ap);
	len += strlen("<input type=\"reset\" value=\"") + strlen(reset_label) +
		strlen("\">\n<input type=\"submit\" value=\"") +
		strlen(submit_label) + strlen("\">\n</form>\n");
	++len;  /* NUL byte */

	/* Build string. */
	form = g_new(gchar, len);
	ptr = g_stpcpy(form, "<form>\n");
	va_start(ap, reset_label);
	while ((child = va_arg(ap, gchar *))) {
		ptr = g_stpcpy(ptr, child);
		g_free(child);
	}
	va_end(ap);
	ptr = g_stpcpy(ptr, "<input type=\"reset\" value=\"");
	ptr = g_stpcpy(ptr, reset_label);
	ptr = g_stpcpy(ptr, "\">\n<input type=\"submit\" value=\"");
	ptr = g_stpcpy(ptr, submit_label);
	ptr = g_stpcpy(ptr, "\">\n</form>\n");  /* g_stpcpy() adds the NUL. */

	return form;
}

gchar *
mq_html_input_text(const gchar *name, const gchar *label, const gchar *value)
{
	return g_strdup_printf("<label for=\"%s\"><span>%s</span>"
		"<input type=\"text\" name=\"%s\" id=\"%s\" value=\"%s\">\n",
		name, label, name, name, value ? value : "");
}

gchar *
mq_html_input_radio(const gchar *name, const gchar *label, gboolean checked)
{
	return g_strdup_printf("<label for=\"%s\"><span>%s</span>"
		"<input type=\"checkbox\" name=\"%s\" id=\"%s\"%s>\n",
		name, label, name, name, checked ? " checked=\"checked\"" : "");
}

gchar *
mq_html_input_checkbox(const gchar *name, const gchar *label, gboolean checked)
{
	return g_strdup_printf("<label for=\"%s\"><span>%s</span>"
		"<input type=\"radio\" name=\"%s\" id=\"%s\"%s>\n",
		name, label, name, name, checked ? " checked=\"checked\"" : "");
}