/*
 * colloquium.c
 *
 * Copyright © 2013-2018 Thomas White <taw@bitwiz.org.uk>
 *
 * This file is part of Colloquium.
 *
 * Colloquium 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.
 *
 * 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/>.
 *
 */


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

#include <gtk/gtk.h>
#include <getopt.h>
#include <string.h>
#include <stdlib.h>
#include <sys/stat.h>
#include <glib.h>
#include <glib/gstdio.h>

#include "colloquium.h"
#include "presentation.h"
#include "narrative_window.h"
#include "utils.h"


struct _colloquium
{
	GtkApplication parent_instance;
	char *mydir;
	int first_run;
	char *imagestore;
	int hidepointer;
};


typedef GtkApplicationClass ColloquiumClass;


G_DEFINE_TYPE(Colloquium, colloquium, GTK_TYPE_APPLICATION)


static void colloquium_activate(GApplication *papp)
{
	Colloquium *app = COLLOQUIUM(papp);
	if ( !app->first_run ) {
		struct presentation *p;
		p = new_presentation(app->imagestore);
		narrative_window_new(p, papp);
	}
}


static void new_sig(GSimpleAction *action, GVariant *parameter, gpointer vp)
{
	GApplication *app = vp;
	g_application_activate(app);
}


static void about_sig(GSimpleAction *action, GVariant *parameter, gpointer vp)
{
	GtkWidget *window;

	const gchar *authors[] = {
		"Thomas White <taw@bitwiz.org.uk>",
		NULL
	};

	window = gtk_about_dialog_new();

	gtk_about_dialog_set_program_name(GTK_ABOUT_DIALOG(window),
	    "Colloquium");
	gtk_about_dialog_set_logo_icon_name(GTK_ABOUT_DIALOG(window),
	    "colloquium");
	gtk_about_dialog_set_version(GTK_ABOUT_DIALOG(window),
	    PACKAGE_VERSION);
	gtk_about_dialog_set_copyright(GTK_ABOUT_DIALOG(window),
	    "© 2017-2018 Thomas White <taw@bitwiz.me.uk>");
	gtk_about_dialog_set_comments(GTK_ABOUT_DIALOG(window),
	    "Narrative-based presentation system");
	gtk_about_dialog_set_license(GTK_ABOUT_DIALOG(window),
	    "© 2017-2018 Thomas White <taw@bitwiz.me.uk>\n"
	    "\n"
	    "Colloquium 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.\n"
	    "\n"
	    "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.\n"
	    "\n"
	    "You should have received a copy of the GNU General Public License "
	    "along with this program.  If not, see <http://www.gnu.org/licenses/>.\n");
	gtk_about_dialog_set_wrap_license(GTK_ABOUT_DIALOG(window), TRUE);
	gtk_about_dialog_set_website(GTK_ABOUT_DIALOG(window),
	    "https://www.bitwiz.me.uk/");
	gtk_about_dialog_set_website_label(GTK_ABOUT_DIALOG(window),
	    "https://www.bitwiz.me.uk/");
	gtk_about_dialog_set_authors(GTK_ABOUT_DIALOG(window), authors);

	g_signal_connect(window, "response", G_CALLBACK(gtk_widget_destroy),
	    NULL);

	gtk_widget_show_all(window);
}


static void quit_sig(GSimpleAction *action, GVariant *parameter, gpointer vp)
{
	GApplication *app = vp;
	g_application_quit(app);
}


static GFile **gslist_to_array(GSList *item, int *n)
{
	int i = 0;
	int len = g_slist_length(item);
	GFile **files = malloc(len * sizeof(GFile *));

	if ( files == NULL ) return NULL;

	while ( item != NULL ) {
		if ( i == len ) {
			fprintf(stderr, "WTF? Too many files\n");
			break;
		}
		files[i++] = item->data;
		item = item->next;
	}

	*n = len;
	return files;
}


static gint open_response_sig(GtkWidget *d, gint response, GApplication *papp)
{
	if ( response == GTK_RESPONSE_ACCEPT ) {

		GSList *files;
		int n_files = 0;
		GFile **files_array;
		int i;

		files = gtk_file_chooser_get_files(GTK_FILE_CHOOSER(d));
		files_array = gslist_to_array(files, &n_files);
		if ( files_array == NULL ) {
			fprintf(stderr, "Failed to convert file list\n");
			return 0;
		}
		g_slist_free(files);
		g_application_open(papp, files_array, n_files, "");

		for ( i=0; i<n_files; i++ ) {
			g_object_unref(files_array[i]);
		}

	}

	gtk_widget_destroy(d);

	return 0;
}


static void open_sig(GSimpleAction *action, GVariant *parameter, gpointer vp)
{
	GtkWidget *d;
	GApplication *app = vp;

	d = gtk_file_chooser_dialog_new("Open Presentation",
	                                gtk_application_get_active_window(GTK_APPLICATION(app)),
	                                GTK_FILE_CHOOSER_ACTION_OPEN,
	                                "_Cancel", GTK_RESPONSE_CANCEL,
	                                "_Open", GTK_RESPONSE_ACCEPT,
	                                NULL);

	gtk_file_chooser_set_select_multiple(GTK_FILE_CHOOSER(d), TRUE);

	g_signal_connect(G_OBJECT(d), "response",
	                 G_CALLBACK(open_response_sig), app);

	gtk_widget_show_all(d);
}


GActionEntry app_entries[] = {

	{ "new", new_sig, NULL, NULL, NULL  },
	{ "open", open_sig, NULL, NULL, NULL  },
	{ "about", about_sig, NULL, NULL, NULL  },
	{ "quit", quit_sig, NULL, NULL, NULL  },
};


static void colloquium_open(GApplication  *papp, GFile **files, gint n_files,
                            const gchar *hint)
{
	int i;
	Colloquium *app = COLLOQUIUM(papp);

	for ( i = 0; i<n_files; i++ ) {
		struct presentation *p;
		char *uri = g_file_get_path(files[i]);
		/* FIXME: Use GFile properly, hence support weird URIs etc */
		p = new_presentation(app->imagestore);
		if ( load_presentation(p, uri) == 0 ) {
			narrative_window_new(p, papp);
		} else {
			fprintf(stderr, "Failed to load '%s'\n", uri);
		}
		g_free(uri);
	}
}


static void colloquium_finalize(GObject *object)
{
	G_OBJECT_CLASS(colloquium_parent_class)->finalize(object);
}


static void create_config(const char *filename)
{

	FILE *fh;
	fh = fopen(filename, "w");
	if ( fh == NULL ) {
		fprintf(stderr, "Failed to create config\n");
		return;
	}

	fprintf(fh, "imagestore: %s\n",
	        g_get_user_special_dir(G_USER_DIRECTORY_PICTURES));
	fprintf(fh, "hidepointer: no\n");

	fclose(fh);
}


static int yesno(const char *a)
{
	if ( a == NULL ) return 0;

	if ( strcmp(a, "1") == 0 ) return 1;
	if ( strcasecmp(a, "yes") == 0 ) return 1;
	if ( strcasecmp(a, "true") == 0 ) return 1;

	if ( strcasecmp(a, "0") == 0 ) return 0;
	if ( strcasecmp(a, "no") == 0 ) return 0;
	if ( strcasecmp(a, "false") == 0 ) return 0;

	fprintf(stderr, "Don't understand '%s', assuming false\n", a);
	return 0;
}


static void read_config(const char *filename, Colloquium *app)
{
	FILE *fh;
	char line[1024];

	fh = fopen(filename, "r");
	if ( fh == NULL ) {
		fprintf(stderr, "Failed to open %s\n", filename);
		return;
	}

	do {

		if ( fgets(line, 1024, fh) == NULL ) break;
		chomp(line);

		if ( strncmp(line, "imagestore: ", 11) == 0 ) {
			app->imagestore = strdup(line+12);
		}

		if ( strncmp(line, "hidepointer: ", 12) == 0 ) {
			app->hidepointer = yesno(line+13);
		}
	} while ( !feof(fh) );

	fclose(fh);
}


const char *colloquium_get_imagestore(Colloquium *app)
{
	return app->imagestore;
}


int colloquium_get_hidepointer(Colloquium *app)
{
	return app->hidepointer;
}


static void colloquium_startup(GApplication *papp)
{
	Colloquium *app = COLLOQUIUM(papp);
	GtkBuilder *builder;
	GtkSettings *settings;
	gboolean app_menu_shown;
	const char *configdir;
	char *tmp;

	G_APPLICATION_CLASS(colloquium_parent_class)->startup(papp);

	g_action_map_add_action_entries(G_ACTION_MAP(app), app_entries,
	                                 G_N_ELEMENTS(app_entries), app);

	builder = gtk_builder_new();
	gtk_builder_add_from_string(builder,
	    "<interface>"

	    "  <menu id='app-menu'>"
	    "    <section>"
	    "      <item>"
	    "        <attribute name='label'>_New</attribute>"
	    "        <attribute name='action'>app.new</attribute>"
	    "        <attribute name='accel'>&lt;Primary&gt;n</attribute>"
	    "      </item>"
	    "      <item>"
	    "        <attribute name='label'>_Open...</attribute>"
	    "        <attribute name='action'>app.open</attribute>"
	    "        <attribute name='accel'>&lt;Primary&gt;o</attribute>"
	    "      </item>"
	    "      <item>"
	    "        <attribute name='label'>Preferences</attribute>"
	    "        <attribute name='action'>app.prefs</attribute>"
	    "      </item>"
	    "    </section>"
	    "    <section>"
	    "      <item>"
	    "        <attribute name='label'>_About</attribute>"
	    "        <attribute name='action'>app.about</attribute>"
	    "      </item>"
	    "      <item>"
	    "        <attribute name='label'>_Quit</attribute>"
	    "        <attribute name='action'>app.quit</attribute>"
	    "        <attribute name='accel'>&lt;Primary&gt;q</attribute>"
	    "      </item>"
	    "    </section>"
	    "  </menu>"

	    "  <menu id='menubar'>"
	    "    <submenu>"
	    "      <attribute name='label' translatable='yes'>File</attribute>"

	    "      <section>"
	    "        <item>"
	    "          <attribute name='label'>_New</attribute>"
	    "          <attribute name='action'>app.new</attribute>"
	    "          <attribute name='accel'>&lt;Primary&gt;n</attribute>"
	    "        </item>"
	    "        <item>"
	    "          <attribute name='label'>_Open...</attribute>"
	    "          <attribute name='action'>app.open</attribute>"
	    "          <attribute name='accel'>&lt;Primary&gt;o</attribute>"
	    "        </item>"
	    "      </section>"
	    "      <section>"
	    "        <item>"
	    "          <attribute name='label'>_Save</attribute>"
	    "          <attribute name='action'>win.save</attribute>"
	    "          <attribute name='accel'>&lt;Primary&gt;s</attribute>"
	    "        </item>"
	    "        <item>"
	    "          <attribute name='label'>Save As...</attribute>"
	    "          <attribute name='action'>win.saveas</attribute>"
	    "        </item>"
	    "      </section>"
	    "      <section>"
	    "        <item>"
	    "          <attribute name='label'>Print...</attribute>"
	    "          <attribute name='action'>win.print</attribute>"
	    "        </item>"
	    "        <item>"
	    "          <attribute name='label'>Export slides as PDF...</attribute>"
	    "          <attribute name='action'>win.exportpdf</attribute>"
	    "        </item>"
	    "      </section>"
	    "      <section>"
	    "        <item>"
	    "          <attribute name='label'>Load stylesheet...</attribute>"
	    "          <attribute name='action'>win.loadstyle</attribute>"
	    "        </item>"
	    "        <item>"
	    "          <attribute name='label'>Save stylesheet...</attribute>"
	    "          <attribute name='action'>win.savestyle</attribute>"
	    "        </item>"
	    "      </section>"
	    "      <section>"
	    "        <item>"
	    "          <attribute name='label'>_Quit</attribute>"
	    "          <attribute name='action'>app.quit</attribute>"
	    "          <attribute name='accel'>&lt;Primary&gt;q</attribute>"
	    "        </item>"
	    "      </section>"
	    "    </submenu>"

	    "    <submenu>"
	    "      <attribute name='label' translatable='yes'>Edit</attribute>"
	    "      <section>"
	    "        <item>"
	    "          <attribute name='label'>Undo</attribute>"
	    "          <attribute name='action'>win.undo</attribute>"
	    "        </item>"
	    "        <item>"
	    "          <attribute name='label'>Redo</attribute>"
	    "          <attribute name='action'>win.redo</attribute>"
	    "        </item>"
	    "      </section>"
	    "      <section>"
	    "        <item>"
	    "          <attribute name='label'>Cut</attribute>"
	    "          <attribute name='action'>win.cut</attribute>"
	    "        </item>"
	    "        <item>"
	    "          <attribute name='label'>Copy</attribute>"
	    "          <attribute name='action'>win.copy</attribute>"
	    "        </item>"
	    "        <item>"
	    "          <attribute name='label'>Paste</attribute>"
	    "          <attribute name='action'>win.paste</attribute>"
	    "        </item>"
	    "      </section>"
	    "      <section>"
	    "        <item>"
	    "          <attribute name='label'>Delete frame</attribute>"
	    "          <attribute name='action'>win.deleteframe</attribute>"
	    "        </item>"
	    "        <item>"
	    "          <attribute name='label'>Copy Frame</attribute>"
	    "          <attribute name='action'>win.copyframe</attribute>"
	    "        </item>"
	    "        <item>"
	    "          <attribute name='label'>Delete slide</attribute>"
	    "          <attribute name='action'>win.deleteslide</attribute>"
	    "        </item>"
	    "      </section>"
	    "      <section>"
	    "        <item>"
	    "          <attribute name='label'>Edit stylesheet...</attribute>"
	    "          <attribute name='action'>win.stylesheet</attribute>"
	    "        </item>"
	    "      </section>"
	    "      <section>"
	    "        <item>"
	    "          <attribute name='label'>Preferences</attribute>"
	    "          <attribute name='action'>app.prefs</attribute>"
	    "        </item>"
	    "      </section>"
	    "    </submenu>"

	    "    <submenu>"
	    "      <attribute name='label' translatable='yes'>Insert</attribute>"
	    "      <section>"
	    "        <item>"
	    "          <attribute name='label'>Slide</attribute>"
	    "          <attribute name='action'>win.slide</attribute>"
	    "        </item>"
	    "        <item>"
	    "          <attribute name='label'>Slide title</attribute>"
	    "          <attribute name='action'>win.slidetitle</attribute>"
	    "        </item>"
	    "      </section>"
	    "    </submenu>"

	    "    <submenu>"
	    "      <attribute name='label' translatable='yes'>Tools</attribute>"
	    "      <section>"
	    "        <item>"
	    "          <attribute name='label'>Start slideshow</attribute>"
	    "          <attribute name='action'>win.startslideshow</attribute>"
	    "        </item>"
	    "        <item>"
	    "          <attribute name='label'>Start slideshow here</attribute>"
	    "          <attribute name='action'>win.startslideshowhere</attribute>"
	    "        </item>"
	    "        <item>"
	    "          <attribute name='label'>Start slideshow without slides</attribute>"
	    "          <attribute name='action'>win.startslideshownoslides</attribute>"
	    "        </item>"
	    "        <item>"
	    "          <attribute name='label'>Presentation clock</attribute>"
	    "          <attribute name='action'>win.clock</attribute>"
	    "        </item>"
	    "        <item>"
	    "          <attribute name='label'>Test card</attribute>"
	    "          <attribute name='action'>win.testcard</attribute>"
	    "        </item>"
	    "      </section>"
	    "    </submenu>"

	    "    <submenu>"
	    "      <attribute name='label' translatable='yes'>Help</attribute>"
	    "      <section>"
	    "        <item>"
	    "          <attribute name='label'>About</attribute>"
	    "          <attribute name='action'>app.about</attribute>"
	    "        </item>"
	    "      </section>"
	    "    </submenu>"
	    "  </menu>"

	    "</interface>", -1, NULL);

	gtk_application_set_menubar(GTK_APPLICATION(app),
	    G_MENU_MODEL(gtk_builder_get_object(builder, "menubar")));
	g_object_unref(builder);

	settings = gtk_settings_get_for_screen(gdk_screen_get_default());
	g_object_get(G_OBJECT(settings), "gtk-shell-shows-app-menu", &app_menu_shown, NULL);
	if ( app_menu_shown ) {
		/* Set the application menu only if it will be shown by the
		 * desktop environment.  All the entries are already in the
		 * normal menus, so don't let GTK create a fallback menu in the
		 * menu bar. */
		GMenuModel *mmodel = G_MENU_MODEL(gtk_builder_get_object(builder, "app-menu"));
		gtk_application_set_app_menu(GTK_APPLICATION(app), mmodel);
	}

	configdir = g_get_user_config_dir();
	app->mydir = malloc(strlen(configdir)+14);
	strcpy(app->mydir, configdir);
	strcat(app->mydir, "/colloquium");

	if ( !g_file_test(app->mydir, G_FILE_TEST_IS_DIR) ) {

		/* Folder not created yet */
		GFile *file = g_file_new_for_path(DATADIR"/demo.sc");
		g_application_open(G_APPLICATION(app), &file, 1, "");
		app->first_run = 1;
		g_object_unref(file);

		if ( g_mkdir(app->mydir, S_IRUSR | S_IWUSR | S_IXUSR) ) {
			fprintf(stderr, "Failed to create folder\n");
		}
	}

	/* Read config file */
	tmp = malloc(strlen(app->mydir)+32);
	if ( tmp != NULL ) {

		tmp[0] = '\0';
		strcat(tmp, app->mydir);
		strcat(tmp, "/config");

		/* Create default config file if it doesn't exist */
		if ( !g_file_test(tmp, G_FILE_TEST_EXISTS) ) {
			create_config(tmp);
		}

		read_config(tmp, app);
		free(tmp);
	}
}


static void colloquium_shutdown(GApplication *app)
{
	G_APPLICATION_CLASS(colloquium_parent_class)->shutdown(app);
}


static void colloquium_class_init(ColloquiumClass *class)
{
	GApplicationClass *app_class = G_APPLICATION_CLASS(class);
	GObjectClass *object_class = G_OBJECT_CLASS(class);

	app_class->startup = colloquium_startup;
	app_class->shutdown = colloquium_shutdown;
	app_class->activate = colloquium_activate;
	app_class->open = colloquium_open;

	object_class->finalize = colloquium_finalize;
}


static void colloquium_init(Colloquium *app)
{
	app->imagestore = NULL;
	app->hidepointer = 0;
}


static Colloquium *colloquium_new()
{
	Colloquium *app;

	g_set_application_name("Colloquium");
	app = g_object_new(colloquium_get_type(),
	                   "application-id", "uk.org.bitwiz.Colloquium",
	                   "flags", G_APPLICATION_HANDLES_OPEN,
	                   "register-session", TRUE,
	                   NULL);

	app->first_run = 0;  /* Will be updated at "startup" if appropriate */

	return app;
}


static void show_help(const char *s)
{
	printf("Syntax: %s [options] [<file.sc>]\n\n", s);
	printf(
"A tiny presentation program.\n"
"\n"
"  -h, --help                       Display this help message.\n"
"\n");
}


int main(int argc, char *argv[])
{
	int c;
	int status;
	Colloquium *app;

	/* Long options */
	const struct option longopts[] = {
		{"help",               0, NULL,               'h'},
		{0, 0, NULL, 0}
	};

	/* Short options */
	while ((c = getopt_long(argc, argv, "h", longopts, NULL)) != -1) {

		switch (c)
		{
			case 'h' :
			show_help(argv[0]);
			return 0;

			case 0 :
			break;

			default :
			return 1;
		}

	}

#if !GLIB_CHECK_VERSION(2,36,0)
	g_type_init();
#endif

	app = colloquium_new();
	status = g_application_run(G_APPLICATION(app), argc, argv);
	g_object_unref(app);
	return status;
}