/*
 * Configuration/browsing profiles
 *
 * 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/>.
 */

#ifdef HAVE_CONFIG_H
#include <config.h>
#endif

#include "profiles.h"

#include <gio/gio.h>
#include <glib.h>
#include <glib/gstdio.h>

#include "config.h"

struct _MqProfiles {
	gchar    *config_dir;
	gchar    *file_name;
	GKeyFile *key_file;
	gchar    *current;
};

static gboolean
create(MqProfiles *profiles)
{
	GFile             *file;
	GFileOutputStream *stream;
	gchar             *default_profile;
	gchar             *private_profile;
	MqConfig          *config;

	file = g_file_new_for_path(profiles->file_name);

	stream = g_file_create(file, G_FILE_CREATE_PRIVATE, NULL, NULL);
	if (!stream) {
		return FALSE;
	}
	g_object_unref(stream);

	default_profile = mq_profiles_insert(profiles, "Default", "#0000ff");
	private_profile = mq_profiles_insert(profiles, "Private", "#6060a0");

	if (default_profile) {
		config = mq_config_new(default_profile,
				MQ_CONFIG_PROFILE_DEFAULT);
		mq_config_save(config);
		mq_config_deref(config);
		mq_profiles_set_default(profiles, default_profile);
		g_free(default_profile);
	}

	if (private_profile) {
		config = mq_config_new(private_profile,
				MQ_CONFIG_PROFILE_PRIVATE);
		mq_config_save(config);
		mq_config_deref(config);
		g_free(private_profile);
	}

	mq_profiles_save(profiles);

	return TRUE;
}

static void
load(MqProfiles *profiles)
{
	/* TODO: Handle parsing and ENOENT errors differently? */
	g_key_file_load_from_file(profiles->key_file, profiles->file_name,
		G_KEY_FILE_KEEP_COMMENTS | G_KEY_FILE_KEEP_TRANSLATIONS, NULL);
}

MqProfiles *
mq_profiles_new(void)
{
	MqProfiles *profiles;

	profiles = g_new0(MqProfiles, 1);

	profiles->config_dir = g_build_filename(g_get_user_config_dir(),
		PACKAGE, NULL);
	g_mkdir_with_parents(profiles->config_dir, 0700);

	profiles->file_name = g_build_filename(g_get_user_config_dir(), PACKAGE,
		"profiles", NULL);
	profiles->key_file = g_key_file_new();

	if (!create(profiles)) {
		load(profiles);
	}

	/* TODO: Set up GFileMonitor. */

	return profiles;
}

gchar **
mq_profiles_get_profiles(MqProfiles *profiles, gsize *length)
{
	return g_key_file_get_groups(profiles->key_file, length);
}

gchar *
mq_profiles_get_name(MqProfiles *profiles, const gchar *profile)
{
	return g_key_file_get_string(profiles->key_file, profile, "name", NULL);
}

gchar *
mq_profiles_get_color(MqProfiles *profiles, const gchar *profile)
{
	return g_key_file_get_string(profiles->key_file, profile, "color",
		NULL);
}

gboolean
mq_profiles_is_default(MqProfiles *profiles, const gchar *profile)
{
	return g_key_file_get_boolean(profiles->key_file, profile, "default",
		NULL);
}

gchar *
mq_profiles_get_default(MqProfiles *profiles)
{
	gchar  *def;
	gchar **ids;
	gsize   length;
	gsize   i;

	def = NULL;

	ids = g_key_file_get_groups(profiles->key_file, &length);
	for (i = 0; i < length; ++i) {
		if (g_key_file_get_boolean(profiles->key_file, ids[i],
				"default", NULL)) {
			def = g_strdup(ids[i]);
			break;
		}
	}
	g_strfreev(ids);

	return def;
}

gchar *
mq_profiles_get_current(MqProfiles *profiles)
{
	return g_strdup(profiles->current);
}

void
mq_profiles_set_name(MqProfiles *profiles, const gchar *profile,
	const gchar *name)
{
	g_key_file_set_string(profiles->key_file, profile, "name", name);
}

void
mq_profiles_set_color(MqProfiles *profiles, const gchar *profile,
	const gchar *color)
{
	g_key_file_set_string(profiles->key_file, profile, "color", color);
}

void
mq_profiles_set_default(MqProfiles *profiles, const gchar *profile)
{
	gchar **ids;
	gsize   length;
	gsize   i;

	ids = g_key_file_get_groups(profiles->key_file, &length);
	for (i = 0; i < length; ++i) {
		g_key_file_set_boolean(profiles->key_file, ids[i], "default",
			FALSE);
	}
	g_strfreev(ids);

	g_key_file_set_boolean(profiles->key_file, profile, "default", TRUE);
}

void
mq_profiles_set_current(MqProfiles *profiles, const gchar *profile)
{
	g_free(profiles->current);

	if (profile && profile[0]) {
		profiles->current = g_strdup(profile);
	} else {
		profiles->current = mq_profiles_get_default(profiles);
	}
}

gchar *
mq_profiles_insert(MqProfiles *profiles, const gchar *name, const gchar *color)
{
	gchar *id;
	gchar *dir;

	/* The ID must be safe for both the file system and HTML5 "name" and
	 * "id" attributes.  To make profile directories portable to other file
	 * systems, use the lowest common denominator of allowed characters. */
	id = g_strdelimit(g_strdup(name),
		"/\\:*\"?<>|"  /* Lowest common denominator of modern FSes */
		" \t\n\f\r",   /* HTML5 "space characters" */
		'_');

	/* Make sure the profile directory can be created and doesn't already
	 * exist (or, on a case-insensitive file system, a directory by the same
	 * name but in a different case doesn't exist). */
	dir = g_build_filename(profiles->config_dir, id, NULL);
	if (g_mkdir(dir, 0700) != 0) {
		g_free(id);
		g_free(dir);
		return NULL;
	}
	g_free(dir);

	mq_profiles_set_name(profiles, id, name);
	mq_profiles_set_color(profiles, id, color);

	return id;
}

gboolean
mq_profiles_remove(MqProfiles *profiles, const gchar *profile)
{
	return g_key_file_remove_group(profiles->key_file, profile, NULL);
}

gboolean
mq_profiles_save(MqProfiles *profiles)
{
	/* TODO: Handle GFileError? */
	return g_key_file_save_to_file(profiles->key_file, profiles->file_name,
		NULL);
}

gboolean
mq_profile_launch(gchar *profile)
{
	static gchar *program_path = NULL;
	gchar        *argv[4];
	gboolean      success;
	GPid          child_pid;

	if (!program_path) {
#if defined(RUN_IN_PLACE) && RUN_IN_PLACE
		program_path = g_build_filename(ABS_TOP_BUILDDIR, PROGRAM_NAME,
			NULL);
#else
		program_path = g_build_filename(BINDIR, PROGRAM_NAME, NULL);
#endif
	}

	argv[0] = g_strdup(program_path);
	argv[1] = g_strdup("-P");
	argv[2] = profile;
	argv[3] = NULL;

	success = g_spawn_async(NULL, argv, NULL, G_SPAWN_DEFAULT, NULL, NULL,
		&child_pid, NULL);
	g_spawn_close_pid(child_pid);

	g_free(argv[0]);
	g_free(argv[1]);

	return success;
}