/*
 * presentation.c
 *
 * Colloquium - A tiny presentation program
 *
 * Copyright (c) 2011 Thomas White <taw@bitwiz.org.uk>
 *
 * This program 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 <stdlib.h>
#include <string.h>
#include <assert.h>

#include "presentation.h"
#include "slide_render.h"
#include "objects.h"
#include "stylesheet.h"


struct slide *add_slide(struct presentation *p, int pos)
{
	struct slide **try;
	struct slide *new;
	int i;

	new = malloc(sizeof(struct slide));
	if ( new == NULL ) return NULL;

	/* No objects to start with */
	new->num_objects = 0;
	new->object_seq = 0;
	new->objects = NULL;

	p->completely_empty = 0;
	new->parent = p;

	new->render_cache_seq = 0;
	new->render_cache = NULL;
	render_slide(new);  /* Render nothing, just to make the surface exist */

	try = realloc(p->slides, (1+p->num_slides)*sizeof(struct slide *));
	if ( try == NULL ) {
		free(new);
		return NULL;
	}
	p->slides = try;

	if ( (p->num_slides>1) && (pos<p->num_slides-1) ) {

		for ( i=p->num_slides; i>pos+1; i-- ) {
			p->slides[i] = p->slides[i-1];
		}
		p->slides[pos+1] = new;

	} else if ( pos == p->num_slides-1 ) {

		p->slides[pos+1] = new;

	} else {
		assert(pos == 0);
		p->slides[pos] = new;
	}

	p->num_slides++;

	return new;
}


int add_object_to_slide(struct slide *s, struct object *o)
{
	struct object **try;

	try = realloc(s->objects, (1+s->num_objects)*sizeof(struct object *));
	if ( try == NULL ) return 1;
	s->objects = try;

	s->objects[s->num_objects++] = o;
	o->parent = s;

	s->parent->completely_empty = 0;

	return 0;
}


void remove_object_from_slide(struct slide *s, struct object *o)
{
	int i;
	int found = 0;

	for ( i=0; i<s->num_objects; i++ ) {

		if ( s->objects[i] == o ) {
			assert(!found);
			found = 1;
		}

		if ( found ) {
			if ( i == s->num_objects-1 ) {
				s->objects[i] = NULL;
			} else {
				s->objects[i] = s->objects[i+1];
			}
		}

	}

	s->num_objects--;
}


struct object *find_object_at_position(struct slide *s, double x, double y)
{
	int i;
	struct object *o = NULL;

	for ( i=0; i<s->num_objects; i++ ) {

		if ( (x>s->objects[i]->x) && (y>s->objects[i]->y)
		  && (x<s->objects[i]->x+s->objects[i]->bb_width)
		  && (y<s->objects[i]->y+s->objects[i]->bb_height) )
		{
			o = s->objects[i];
		}

	}

	return o;
}


static char *safe_basename(const char *in)
{
	int i;
	char *cpy;
	char *res;

	cpy = strdup(in);

	/* Get rid of any trailing slashes */
	for ( i=strlen(cpy)-1; i>0; i-- ) {
		if ( cpy[i] == '/' ) {
			cpy[i] = '\0';
		} else {
			break;
		}
	}

	/* Find the base name */
	for ( i=strlen(cpy)-1; i>0; i-- ) {
		if ( cpy[i] == '/' ) {
			i++;
			break;
		}
	}

	res = strdup(cpy+i);
	/* If we didn't find a previous slash, i==0 so res==cpy */

	free(cpy);

	return res;
}


static void update_titlebar(struct presentation *p)
{
	free(p->titlebar);

	if ( p->filename == NULL ) {
		p->titlebar = strdup("(untitled)");
	} else {
		p->titlebar = safe_basename(p->filename);
	}
}


struct presentation *new_presentation()
{
	struct presentation *new;

	new = calloc(1, sizeof(struct presentation));

	new->filename = NULL;
	new->titlebar = NULL;
	update_titlebar(new);

	new->window = NULL;
	new->ui = NULL;
	new->action_group = NULL;
	new->slideshow = NULL;

	new->slide_width = 1024.0;
	new->slide_height = 768.0;

	/* Add one blank slide and view it */
	new->num_slides = 0;
	new->slides = NULL;
	new->view_slide = add_slide(new, 0);
	new->view_slide_number = 0;

	new->editing_object = NULL;
	new->completely_empty = 1;
	new->drag_status = DRAG_STATUS_NONE;

	new->ss = new_stylesheet();
	new->image_store = image_store_new();

	return new;
}