/* ScummVM - Graphic Adventure Engine
 *
 * ScummVM is the legal property of its developers, whose names
 * are too numerous to list here. Please refer to the COPYRIGHT
 * file distributed with this source distribution.
 *
 * 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 2
 * 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, write to the Free Software
 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
 *
 * $URL$
 * $Id$
 */

#include "gui/themebrowser.h"
#include "gui/ListWidget.h"
#include "gui/widget.h"
#include "common/config-manager.h"

#include "common/fs.h"

#ifdef MACOSX
#include "CoreFoundation/CoreFoundation.h"
#endif

namespace GUI {

enum {
	kChooseCmd = 'Chos'
};

// TODO: this is a rip off of GUI::Browser right now
// it will get some more output like theme name,
// theme style, theme preview(?) in the future
// but for now this simple browser works,
// also it will get its own theme config values
// and not use 'browser_' anymore
ThemeBrowser::ThemeBrowser() : Dialog("Browser") {
	_fileList = 0;

	new StaticTextWidget(this, "Browser.Headline", "Select a Theme");

	// Add file list
	_fileList = new ListWidget(this, "Browser.List");
	_fileList->setNumberingMode(kListNumberingOff);
	_fileList->setEditable(false);

	_backgroundType = GUI::ThemeEngine::kDialogBackgroundPlain;

	// Buttons
	new ButtonWidget(this, "Browser.Cancel", "Cancel", kCloseCmd, 0);
	new ButtonWidget(this, "Browser.Choose", "Choose", kChooseCmd, 0);
}

void ThemeBrowser::open() {
	// Alway refresh file list
	updateListing();

	// Call super implementation
	Dialog::open();
}

void ThemeBrowser::handleCommand(CommandSender *sender, uint32 cmd, uint32 data) {
	switch (cmd) {
	case kChooseCmd:
	case kListItemActivatedCmd:
	case kListItemDoubleClickedCmd: {
		int selection = _fileList->getSelected();
		if (selection < 0)
			break;
		_select = _themes[selection].file;
		setResult(1);
		close();
		break;
	}
	default:
		Dialog::handleCommand(sender, cmd, data);
	}
}

void ThemeBrowser::updateListing() {
	_themes.clear();

	// classic is always built-in
	ThemeDescriptor th;
	th.name = "ScummVM Classic Theme (Builtin Version)";
	th.file = "builtin";
	_themes.push_back(th);

	// we are using only the paths 'themepath', 'extrapath', DATA_PATH and '.'
	// since these are the default locations for the theme files
	// files in other places are ignored in this dialog
	// TODO: let the user browse the complete FS too/only the FS?
	if (ConfMan.hasKey("themepath"))
		addDir(_themes, Common::FSNode(ConfMan.get("themepath")));

#ifdef DATA_PATH
	addDir(_themes, Common::FSNode(DATA_PATH));
#endif

#ifdef MACOSX
	CFURLRef resourceUrl = CFBundleCopyResourcesDirectoryURL(CFBundleGetMainBundle());
	if (resourceUrl) {
		char buf[256];
		if (CFURLGetFileSystemRepresentation(resourceUrl, true, (UInt8 *)buf, 256)) {
			Common::FSNode resourcePath(buf);
			addDir(_themes, resourcePath);
		}
		CFRelease(resourceUrl);
	}
#endif

	if (ConfMan.hasKey("extrapath"))
		addDir(_themes, Common::FSNode(ConfMan.get("extrapath")));

	addDir(_themes, Common::FSNode("."));

	// Populate the ListWidget
	Common::StringList list;

	for (ThemeDescList::const_iterator i = _themes.begin(); i != _themes.end(); ++i)
		list.push_back(i->name);

	_fileList->setList(list);
	_fileList->scrollTo(0);

	// Finally, redraw
	draw();
}


void ThemeBrowser::addDir(ThemeDescList &list, const Common::FSNode &node) {
	if (!node.exists() || !node.isReadable())
		return;

	// Scan this dir, all files and all subdirs in it for themes
	Common::FSList fslist;
	if (!node.getChildren(fslist, Common::FSNode::kListAll))
		return;
	fslist.push_back(node);	// Yup, also scan the dir itself

	for (Common::FSList::const_iterator i = fslist.begin(); i != fslist.end(); ++i) {

		ThemeDescriptor th;
		if (isTheme(*i, th)) {
			bool add = true;

			for (ThemeDescList::const_iterator p = list.begin(); p != list.end(); ++p) {
				if (p->name == th.name || p->file == th.file) {
					add = false;
					break;
				}
			}

			if (add)
				list.push_back(th);
		}
	}
}

bool ThemeBrowser::isTheme(const Common::FSNode &node, ThemeDescriptor &out) {
	out.file = node.getPath();

#ifdef USE_ZLIB
	if (!out.file.hasSuffix(".zip") && !node.isDirectory())
		return false;
#else
	if (!node.isDirectory())
		return false;
#endif

	if (!ThemeEngine::themeConfigUseable(node, out.name))
		return false;

	return true;
}

} // end of namespace GUI