/*
    Copyright (C) 2018-2021 Carl Hetherington <cth@carlh.net>

    This file is part of DCP-o-matic.

    DCP-o-matic 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.

    DCP-o-matic 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 DCP-o-matic.  If not, see <http://www.gnu.org/licenses/>.

*/


#include "wx/about_dialog.h"
#include "wx/content_view.h"
#include "wx/dcpomatic_button.h"
#include "wx/playlist_editor_config_dialog.h"
#include "wx/wx_signal_manager.h"
#include "wx/wx_util.h"
#include "wx/wx_variant.h"
#include "lib/config.h"
#include "lib/constants.h"
#include "lib/cross.h"
#include "lib/dcp_content.h"
#include "lib/film.h"
#include "lib/show_playlist.h"
#include "lib/show_playlist_entry.h"
#include "lib/show_playlist_list.h"
#include <dcp/filesystem.h>
#include <dcp/warnings.h>
LIBDCP_DISABLE_WARNINGS
#include <wx/imaglist.h>
#include <wx/listctrl.h>
#include <wx/preferences.h>
#include <wx/spinctrl.h>
#include <wx/wx.h>
LIBDCP_ENABLE_WARNINGS


using std::cout;
using std::exception;
using std::make_pair;
using std::make_shared;
using std::map;
using std::pair;
using std::shared_ptr;
using std::string;
using std::vector;
using std::weak_ptr;
using boost::bind;
using boost::optional;
using std::dynamic_pointer_cast;
#if BOOST_VERSION >= 106100
using namespace boost::placeholders;
#endif


// XXX
// static
// void
// save_playlist(shared_ptr<const SPL> playlist)
// {
// 	if (auto dir = Config::instance()->player_playlist_directory()) {
// 		playlist->write(*dir / (playlist->id() + ".xml"));
// 	}
// }


class ContentDialog : public wxDialog
{
public:
	ContentDialog (wxWindow* parent)
		: wxDialog (parent, wxID_ANY, _("Add content"), wxDefaultPosition, wxSize(800, 640))
		, _content_view (new ContentView(this))
	{
		_content_view->update ();

		auto overall_sizer = new wxBoxSizer (wxVERTICAL);
		SetSizer (overall_sizer);

		overall_sizer->Add (_content_view, 1, wxEXPAND | wxALL, DCPOMATIC_DIALOG_BORDER);

		auto buttons = CreateSeparatedButtonSizer (wxOK | wxCANCEL);
		if (buttons) {
			overall_sizer->Add (buttons, wxSizerFlags().Expand().DoubleBorder());
		}

		overall_sizer->Layout ();

		_content_view->Bind(wxEVT_LIST_ITEM_ACTIVATED, boost::bind(&ContentDialog::EndModal, this, wxID_OK));
		_config_changed_connection = Config::instance()->Changed.connect(boost::bind(&ContentView::update, _content_view));
	}

	optional<ShowPlaylistEntry> selected() const
	{
		return _content_view->selected();
	}

private:
	ContentView* _content_view;
	boost::signals2::scoped_connection _config_changed_connection;
};



class PlaylistList
{
public:
	PlaylistList(wxPanel* parent)
		: _sizer (new wxBoxSizer(wxVERTICAL))
		, _parent(parent)
	{
		auto label = new wxStaticText (parent, wxID_ANY, wxEmptyString);
		label->SetLabelMarkup (_("<b>Playlists</b>"));
		_sizer->Add (label, 0, wxTOP | wxLEFT, DCPOMATIC_SIZER_GAP * 2);

		_list = new wxListCtrl (
			parent, wxID_ANY, wxDefaultPosition, wxDefaultSize, wxLC_REPORT | wxLC_SINGLE_SEL
			);

		_list->AppendColumn (_("Name"), wxLIST_FORMAT_LEFT, 840);
		_list->AppendColumn (_("Length"), wxLIST_FORMAT_LEFT, 100);

		auto button_sizer = new wxBoxSizer (wxVERTICAL);
		_new = new Button (parent, _("New"));
		button_sizer->Add (_new, 0, wxEXPAND | wxBOTTOM, DCPOMATIC_BUTTON_STACK_GAP);
		_delete = new Button (parent, _("Delete"));
		button_sizer->Add (_delete, 0, wxEXPAND | wxBOTTOM, DCPOMATIC_BUTTON_STACK_GAP);

		auto list = new wxBoxSizer (wxHORIZONTAL);
		list->Add (_list, 1, wxEXPAND | wxALL, DCPOMATIC_SIZER_GAP);
		list->Add (button_sizer, 0, wxALL, DCPOMATIC_SIZER_GAP);

		_sizer->Add (list);

		add_playlists_to_model_and_view();

		_list->Bind (wxEVT_COMMAND_LIST_ITEM_SELECTED, bind(&PlaylistList::selection_changed, this));
		_list->Bind (wxEVT_COMMAND_LIST_ITEM_DESELECTED, bind(&PlaylistList::selection_changed, this));
		_new->Bind (wxEVT_BUTTON, bind(&PlaylistList::new_playlist, this));
		_delete->Bind (wxEVT_BUTTON, bind(&PlaylistList::delete_playlist, this));

		setup_sensitivity();
	}

	wxSizer* sizer ()
	{
		return _sizer;
	}

	ShowPlaylist first_playlist() const
	{
		if (_playlists.empty()) {
			return {};
		}

		return _playlists.front().second;
	}

	boost::signals2::signal<void (boost::optional<std::pair<ShowPlaylistID, ShowPlaylist>>)> Edit;

private:
	void setup_sensitivity()
	{
		_delete->Enable(static_cast<bool>(selected()));
	}

	void add_playlist_to_view(ShowPlaylist playlist)
	{
		wxListItem item;
		item.SetId(_list->GetItemCount());
		long const N = _list->InsertItem(item);
		_list->SetItem(N, 0, std_to_wx(playlist.name()));
	}

	void add_playlist_to_model(ShowPlaylistID id, ShowPlaylist playlist)
	{
		_playlists.push_back(make_pair(id, playlist));
	}

#if 0
	XXX
	void changed(weak_ptr<SignalSPL> wp, SignalSPL::Change change)
	{
		auto playlist = wp.lock ();
		if (!playlist) {
			return;
		}

		switch (change) {
		case SignalSPL::Change::NAME:
		{
			int N = 0;
			for (auto i: _playlists) {
				if (i == playlist) {
					_list->SetItem (N, 0, std_to_wx(i->name()));
				}
				++N;
			}
			break;
		}
		case SignalSPL::Change::CONTENT:
			save_playlist(playlist);
			break;
		}
	}
#endif

	void add_playlists_to_model_and_view()
	{
		ShowPlaylistList spl_list;

		_list->DeleteAllItems();
		_playlists.clear();

		for (auto const& spl: spl_list.show_playlists()) {
			add_playlist_to_model(spl.first, spl.second);
		}

		for (auto const& i: _playlists) {
			add_playlist_to_view(i.second);
		}
	}

	void new_playlist ()
	{
		ShowPlaylistList spl_list;
		auto playlist = ShowPlaylist(wx_to_std(_("New Playlist")));
		auto id = spl_list.add_show_playlist(playlist);

		add_playlist_to_model(id, playlist);
		add_playlist_to_view(playlist);
		_list->SetItemState(_list->GetItemCount() - 1, wxLIST_STATE_SELECTED, wxLIST_STATE_SELECTED);
	}

	boost::optional<int> selected() const
	{
		long int selected = _list->GetNextItem(-1, wxLIST_NEXT_ALL, wxLIST_STATE_SELECTED);
		if (selected < 0 || selected >= int(_playlists.size())) {
			return {};
		}

		return selected;
	}

	void delete_playlist ()
	{
		auto index = selected();
		if (!index) {
			return;
		}

		// ShowPlaylistList spl_list;
		// spl_list.remove_show_playlist(_playlists[*index].first);

		// _list->DeleteItem(*index);
		// _playlists.erase(_playlists.begin() + *index);

		// XXX
		// Edit(shared_ptr<SignalSPL>());
	}

	void selection_changed ()
	{
		long int selected = _list->GetNextItem (-1, wxLIST_NEXT_ALL, wxLIST_STATE_SELECTED);
		if (selected < 0 || selected >= int(_playlists.size())) {
			Edit({});
		} else {
			Edit(_playlists[selected]);
		}

		setup_sensitivity();
	}

	wxBoxSizer* _sizer;
	wxListCtrl* _list;
	wxButton* _new;
	wxButton* _delete;
	vector<pair<ShowPlaylistID, ShowPlaylist>> _playlists;
	wxWindow* _parent;
};


/** @class PlaylistContent
 *
 *  @brief List showing the contents of a playlist
 *
 *  This includes a heading, and buttons to re-order, add and remove items.
 */
class PlaylistContent
{
public:
	PlaylistContent(wxPanel* parent, ContentDialog* content_dialog)
		: _content_dialog(content_dialog)
		, _sizer(new wxBoxSizer(wxVERTICAL))
	{
		auto title = new wxBoxSizer(wxHORIZONTAL);
		auto label = new wxStaticText(parent, wxID_ANY, wxEmptyString);
		label->SetLabelMarkup(_("<b>Playlist:</b>"));
		title->Add(label, 0, wxALIGN_CENTER_VERTICAL | wxRIGHT, DCPOMATIC_SIZER_GAP);
		_name = new wxTextCtrl(parent, wxID_ANY, wxEmptyString, wxDefaultPosition, wxSize(400, -1));
		title->Add(_name, 0, wxRIGHT | wxALIGN_CENTER_VERTICAL, DCPOMATIC_SIZER_GAP);
		_save_name = new Button(parent, _("Save"));
		title->Add(_save_name);
		_sizer->Add(title, 0, wxTOP | wxLEFT, DCPOMATIC_SIZER_GAP * 2);

		auto list = new wxBoxSizer(wxHORIZONTAL);

		_list = new wxListCtrl(
			parent, wxID_ANY, wxDefaultPosition, wxDefaultSize, wxLC_REPORT | wxLC_SINGLE_SEL
			);

		_list->AppendColumn(_("Name"), wxLIST_FORMAT_LEFT, 400);
		_list->AppendColumn(_("CPL"), wxLIST_FORMAT_LEFT, 350);
		_list->AppendColumn(_("Type"), wxLIST_FORMAT_LEFT, 100);
		_list->AppendColumn(_("Encrypted"), wxLIST_FORMAT_CENTRE, 90);

		list->Add (_list, 1, wxEXPAND | wxALL, DCPOMATIC_SIZER_GAP);

		auto button_sizer = new wxBoxSizer (wxVERTICAL);
		_up = new Button (parent, _("Up"));
		_down = new Button (parent, _("Down"));
		_add = new Button (parent, _("Add"));
		_remove = new Button (parent, _("Remove"));
		button_sizer->Add (_up, 0, wxEXPAND | wxBOTTOM, DCPOMATIC_BUTTON_STACK_GAP);
		button_sizer->Add (_down, 0, wxEXPAND | wxBOTTOM, DCPOMATIC_BUTTON_STACK_GAP);
		button_sizer->Add (_add, 0, wxEXPAND | wxBOTTOM, DCPOMATIC_BUTTON_STACK_GAP);
		button_sizer->Add (_remove, 0, wxEXPAND | wxBOTTOM, DCPOMATIC_BUTTON_STACK_GAP);

		list->Add (button_sizer, 0, wxALL, DCPOMATIC_SIZER_GAP);

		_sizer->Add (list);

		_list->Bind (wxEVT_COMMAND_LIST_ITEM_SELECTED, bind(&PlaylistContent::setup_sensitivity, this));
		_list->Bind (wxEVT_COMMAND_LIST_ITEM_DESELECTED, bind(&PlaylistContent::setup_sensitivity, this));
		_name->Bind (wxEVT_TEXT, bind(&PlaylistContent::name_changed, this));
		_save_name->bind(&PlaylistContent::save_name_clicked, this);
		_up->Bind (wxEVT_BUTTON, bind(&PlaylistContent::up_clicked, this));
		_down->Bind (wxEVT_BUTTON, bind(&PlaylistContent::down_clicked, this));
		_add->Bind (wxEVT_BUTTON, bind(&PlaylistContent::add_clicked, this));
		_remove->Bind (wxEVT_BUTTON, bind(&PlaylistContent::remove_clicked, this));

		setup_sensitivity();
	}

	wxSizer* sizer ()
	{
		return _sizer;
	}

	void set(pair<ShowPlaylistID, ShowPlaylist> playlist)
	{
		_playlist = playlist;
		_list->DeleteAllItems();

		ShowPlaylistList spl_list;
		ShowPlaylistContentStore content;
		if (_playlist) {
			for (auto uuid: spl_list.entries(_playlist->second.uuid())) {
				if (auto entry = content.get(uuid)) {
					add(*entry);
				}
			}
			_name->SetValue(std_to_wx(_playlist->second.name()));
		} else {
			_name->SetValue(wxT(""));
		}
		setup_sensitivity();
	}

	optional<pair<ShowPlaylistID, ShowPlaylist>> playlist() const
	{
		return _playlist;
	}


private:
	void save_name_clicked()
	{
		// XXX
		// if (_playlist) {
		// 	_playlist->set_name(wx_to_std(_name->GetValue()));
		// 	save_playlist(_playlist);
		// }
		// setup_sensitivity();
	}

	void name_changed ()
	{
		setup_sensitivity();
	}

	void add(ShowPlaylistEntry e)
	{
		wxListItem item;
		item.SetId(_list->GetItemCount());
		long const N = _list->InsertItem(item);
		set_item(N, e);
	}

	void set_item(long N, ShowPlaylistEntry e)
	{
		_list->SetItem(N, 0, std_to_wx(e.name()));
		_list->SetItem(N, 1, std_to_wx(e.uuid()));
		_list->SetItem(N, 2, std_to_wx(e.kind().name()));
		_list->SetItem(N, 3, e.encrypted() ? S_("Question|Y") : S_("Question|N"));
	}

	void setup_sensitivity ()
	{
		bool const have_list = static_cast<bool>(_playlist);
		int const num_selected = _list->GetSelectedItemCount ();
		long int selected = _list->GetNextItem (-1, wxLIST_NEXT_ALL, wxLIST_STATE_SELECTED);
		_name->Enable (have_list);
		// _save_name->Enable(_playlist && _playlist->name() != wx_to_std(_name->GetValue()));
		_list->Enable (have_list);
		_up->Enable (have_list && selected > 0);
		_down->Enable (have_list && selected != -1 && selected < (_list->GetItemCount() - 1));
		_add->Enable (have_list);
		_remove->Enable (have_list && num_selected > 0);
	}

	void add_clicked ()
	{
		auto const r = _content_dialog->ShowModal();
		if (r == wxID_OK) {
			if (auto entry = _content_dialog->selected()) {
				add(*entry);
				DCPOMATIC_ASSERT(_playlist);
				ShowPlaylistList spl_list;
				spl_list.add_entry(_playlist->first, *entry);
			}
		}
	}

	void up_clicked ()
	{
		auto s = _list->GetNextItem(-1, wxLIST_NEXT_ALL, wxLIST_STATE_SELECTED);
		if (s < 1) {
			return;
		}

		DCPOMATIC_ASSERT(_playlist);

		auto content = ShowPlaylistContentStore::instance();

		ShowPlaylistList spl_list;
		spl_list.move_entry_up(_playlist->first, s);
		auto entries = spl_list.entries(_playlist->first);
		std::cout << "UP!!!!!\n";
		for (auto i: entries) {
			std::cout << "E:"  << i << " " << content->get(i)->name() << "\n";
		}

		std::cout << "let's get it the fucker " << entries[s-1] << " " << content->get(entries[s])->name() << "\n";
		set_item(s - 1, *content->get(entries[s]));
		set_item(s, *content->get(entries[s - 1]));
	}

	void down_clicked ()
	{
		// XXX
		// long int s = _list->GetNextItem (-1, wxLIST_NEXT_ALL, wxLIST_STATE_SELECTED);
		// if (s > (_list->GetItemCount() - 1)) {
		// 	return;
		// }

		// DCPOMATIC_ASSERT (_playlist);

		// _playlist->swap(s, s + 1);

		// set_item (s + 1, (*_playlist)[s+1]);
		// set_item (s, (*_playlist)[s]);
	}

	void remove_clicked ()
	{
		// XXX
		// long int s = _list->GetNextItem (-1, wxLIST_NEXT_ALL, wxLIST_STATE_SELECTED);
		// if (s == -1) {
		// 	return;
		// }

		// DCPOMATIC_ASSERT (_playlist);
		// _playlist->remove (s);
		// _list->DeleteItem (s);
	}

	ContentDialog* _content_dialog;
	wxBoxSizer* _sizer;
	wxTextCtrl* _name;
	Button* _save_name;
	wxListCtrl* _list;
	wxButton* _up;
	wxButton* _down;
	wxButton* _add;
	wxButton* _remove;
	optional<pair<ShowPlaylistID, ShowPlaylist>> _playlist;
};


class DOMFrame : public wxFrame
{
public:
	explicit DOMFrame (wxString const & title)
		: wxFrame (nullptr, wxID_ANY, title)
		, _content_dialog (new ContentDialog(this))
		, _config_dialog (nullptr)
	{
		auto bar = new wxMenuBar;
		setup_menu (bar);
		SetMenuBar (bar);

		/* Use a panel as the only child of the Frame so that we avoid
		   the dark-grey background on Windows.
		*/
		auto overall_panel = new wxPanel (this, wxID_ANY);
		auto sizer = new wxBoxSizer (wxVERTICAL);

		_playlist_list = new PlaylistList(overall_panel);
		_playlist_content = new PlaylistContent (overall_panel, _content_dialog);

		sizer->Add (_playlist_list->sizer());
		sizer->Add (_playlist_content->sizer());

		overall_panel->SetSizer (sizer);

		_playlist_list->Edit.connect(bind(&DOMFrame::change_playlist, this, _1));

		Bind (wxEVT_MENU, boost::bind (&DOMFrame::file_exit, this), wxID_EXIT);
		Bind (wxEVT_MENU, boost::bind (&DOMFrame::help_about, this), wxID_ABOUT);
		Bind (wxEVT_MENU, boost::bind (&DOMFrame::edit_preferences, this), wxID_PREFERENCES);

		_config_changed_connection = Config::instance()->Changed.connect(boost::bind(&DOMFrame::config_changed, this));
	}

private:

	void file_exit ()
	{
		/* false here allows the close handler to veto the close request */
		Close (false);
	}

	void help_about ()
	{
		auto d = make_wx<AboutDialog>(this);
		d->ShowModal ();
	}

	void edit_preferences ()
	{
		if (!_config_dialog) {
			_config_dialog = create_playlist_editor_config_dialog ();
		}
		_config_dialog->Show (this);
	}

	void change_playlist(optional<pair<ShowPlaylistID, ShowPlaylist>> playlist)
	{
		if (playlist) {
			_playlist_content->set(*playlist);
		}
	}

	void setup_menu (wxMenuBar* m)
	{
#ifdef DCPOMATIC_OSX
		auto help = new wxMenu;
		/* These just need to be appended somewhere, it seems - they magically
		 * get moved to the right place.
		 */
		if (!Config::instance()->playlist_editor_restricted_menus()) {
			help->Append(wxID_PREFERENCES, _("&Preferences...\tCtrl-,"));
		}
		help->Append(wxID_EXIT, _("&Exit"));
		help->Append(wxID_ABOUT, variant::wx::insert_dcpomatic_playlist_editor(_("About %s")));

		m->Append(help, _("&Help"));
#else
		auto file = new wxMenu;
		file->Append(wxID_EXIT, _("&Quit"));

		auto edit = new wxMenu;
		edit->Append(wxID_PREFERENCES, _("&Preferences...\tCtrl-P"));

		auto help = new wxMenu;
		help->Append(wxID_ABOUT, _("About"));

		m->Append(file, _("&File"));
		if (!Config::instance()->playlist_editor_restricted_menus()) {
			m->Append(edit, _("&Edit"));
			m->Append(help, _("&Help"));
		}
#endif
	}

	void config_changed ()
	{
		try {
			Config::instance()->write_config();
		} catch (exception& e) {
			error_dialog (
				this,
				wxString::Format (
					_("Could not write to config file at %s.  Your changes have not been saved."),
					std_to_wx (Config::instance()->cinemas_file().string()).data()
					)
				);
		}
	}

	ContentDialog* _content_dialog;
	PlaylistList* _playlist_list;
	PlaylistContent* _playlist_content;
	wxPreferencesEditor* _config_dialog;
	boost::signals2::scoped_connection _config_changed_connection;
};


/** @class App
 *  @brief The magic App class for wxWidgets.
 */
class App : public wxApp
{
public:
	App ()
		: wxApp ()
		, _frame (nullptr)
	{}

private:

	bool OnInit () override
	try
	{
		wxInitAllImageHandlers ();
		SetAppName(variant::wx::dcpomatic_playlist_editor());

		if (!wxApp::OnInit()) {
			return false;
		}

#ifdef DCPOMATIC_LINUX
		unsetenv ("UBUNTU_MENUPROXY");
#endif

#ifdef DCPOMATIC_OSX
		make_foreground_application ();
#endif

		dcpomatic_setup_path_encoding ();

		/* Enable i18n; this will create a Config object
		   to look for a force-configured language.  This Config
		   object will be wrong, however, because dcpomatic_setup
		   hasn't yet been called and there aren't any filters etc.
		   set up yet.
		*/
		dcpomatic_setup_i18n ();

		/* Set things up, including filters etc.
		   which will now be internationalised correctly.
		*/
		dcpomatic_setup ();

		/* Force the configuration to be re-loaded correctly next
		   time it is needed.
		*/
		Config::drop ();

		update_show_playlist_content_store();

		_frame = new DOMFrame(variant::wx::dcpomatic_playlist_editor());
		SetTopWindow (_frame);
		_frame->Maximize ();
		_frame->Show ();

		signal_manager = new wxSignalManager (this);
		Bind (wxEVT_IDLE, boost::bind (&App::idle, this));

		return true;
	}
	catch (exception& e)
	{
		error_dialog(
			nullptr,
			wxString::Format(
				wxT("%s: %s"),
				variant::wx::insert_dcpomatic_playlist_editor(_("%s could not start")),
				std_to_wx(e.what())
				)
		);
		return true;
	}

	/* An unhandled exception has occurred inside the main event loop */
	bool OnExceptionInMainLoop () override
	{
		try {
			throw;
		} catch (FileError& e) {
			error_dialog (
				0,
				wxString::Format (
					_("An exception occurred: %s (%s)\n\n%s") + wx::report_problem(),
					std_to_wx(e.what()),
					std_to_wx(e.file().string().c_str()),
					wx::report_problem()
					)
				);
		} catch (exception& e) {
			error_dialog (
				nullptr,
				wxString::Format(
					_("An exception occurred: %s\n\n%s"),
					std_to_wx(e.what()),
					wx::report_problem()
					)
				);
		} catch (...) {
			error_dialog(nullptr, wxString::Format(_("An unknown exception occurred. %s"), wx::report_problem()));
		}

		/* This will terminate the program */
		return false;
	}

	void OnUnhandledException () override
	{
		error_dialog(nullptr, wxString::Format(_("An unknown exception occurred. %s"), wx::report_problem()));
	}

	void idle ()
	{
		signal_manager->ui_idle ();
	}

	DOMFrame* _frame;
};

IMPLEMENT_APP (App)