/*
    Copyright (C) 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 "check_box.h"
#include "dcpomatic_button.h"
#include "dcpomatic_choice.h"
#include "editable_list.h"
#include "full_language_tag_dialog.h"
#include "language_tag_widget.h"
#include "metadata_dialog.h"
#include "rating_dialog.h"
#include "region_subtag_widget.h"
#include "wx_util.h"
#include "lib/film.h"
#include "lib/film_property.h"
#include <dcp/warnings.h>
LIBDCP_DISABLE_WARNINGS
#include <wx/notebook.h>
#include <wx/spinctrl.h>
#include <wx/wx.h>
LIBDCP_ENABLE_WARNINGS
#include <boost/bind/bind.hpp>
#include <boost/weak_ptr.hpp>


using std::weak_ptr;
using std::vector;
using boost::optional;
#if BOOST_VERSION >= 106100
using namespace boost::placeholders;
#endif


MetadataDialog::MetadataDialog (wxWindow* parent, weak_ptr<Film> weak_film)
	: wxDialog (parent, wxID_ANY, _("Metadata"))
	, WeakFilm (weak_film)
{
	for (auto system: dcp::rating_systems()) {
		_rating_system_agency_to_name[system.agency] = system.name;
	}
}


void
MetadataDialog::setup ()
{
	auto notebook = new wxNotebook (this, wxID_ANY);

	auto prepare = [notebook](std::function<void (wxPanel*, wxSizer*)> setup, wxString name) {
		auto panel = new wxPanel (notebook, wxID_ANY);
		auto sizer = new wxFlexGridSizer (2, DCPOMATIC_SIZER_X_GAP, DCPOMATIC_SIZER_Y_GAP);
		sizer->AddGrowableCol (1, 1);
		setup (panel, sizer);
		auto overall_sizer = new wxBoxSizer (wxVERTICAL);
		overall_sizer->Add (sizer, 1, wxEXPAND | wxALL, DCPOMATIC_DIALOG_BORDER);
		panel->SetSizer (overall_sizer);
		notebook->AddPage (panel, name);
	};

	prepare (boost::bind(&MetadataDialog::setup_standard, this, _1, _2), _("Standard"));
	prepare (boost::bind(&MetadataDialog::setup_advanced, this, _1, _2), _("Advanced"));

	auto overall_sizer = new wxBoxSizer (wxVERTICAL);
	overall_sizer->Add (notebook, 1, wxEXPAND | wxALL, DCPOMATIC_DIALOG_BORDER);

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

	SetSizer (overall_sizer);
	overall_sizer->Layout ();
	overall_sizer->SetSizeHints (this);

	_sign_language_video_language->Changed.connect (boost::bind(&MetadataDialog::sign_language_video_language_changed, this));
	_enable_release_territory->bind(&MetadataDialog::enable_release_territory_changed, this);
	_release_territory->Changed.connect(boost::bind(&MetadataDialog::release_territory_changed, this, _1));
	_enable_facility->bind(&MetadataDialog::enable_facility_changed, this);
	_facility->Bind (wxEVT_TEXT, boost::bind(&MetadataDialog::facility_changed, this));
	_enable_studio->bind(&MetadataDialog::enable_studio_changed, this);
	_studio->Bind (wxEVT_TEXT, boost::bind(&MetadataDialog::studio_changed, this));
	_enable_chain->bind(&MetadataDialog::enable_chain_changed, this);
	_chain->Bind (wxEVT_TEXT, boost::bind(&MetadataDialog::chain_changed, this));
	_temp_version->bind(&MetadataDialog::temp_version_changed, this);
	_pre_release->bind(&MetadataDialog::pre_release_changed, this);
	_red_band->bind(&MetadataDialog::red_band_changed, this);
	_two_d_version_of_three_d->bind(&MetadataDialog::two_d_version_of_three_d_changed, this);
	_enable_luminance->bind(&MetadataDialog::enable_luminance_changed, this);
	_luminance_value->Bind (wxEVT_SPINCTRLDOUBLE, boost::bind(&MetadataDialog::luminance_changed, this));
	_luminance_unit->Bind (wxEVT_CHOICE, boost::bind(&MetadataDialog::luminance_changed, this));
	_territory_type->bind(&MetadataDialog::territory_type_changed, this);

	_film_changed_connection = film()->Change.connect(boost::bind(&MetadataDialog::film_changed, this, _1, _2));

	film_changed(ChangeType::DONE, FilmProperty::RELEASE_TERRITORY);
	film_changed(ChangeType::DONE, FilmProperty::SIGN_LANGUAGE_VIDEO_LANGUAGE);
	film_changed(ChangeType::DONE, FilmProperty::FACILITY);
	film_changed(ChangeType::DONE, FilmProperty::STUDIO);
	film_changed(ChangeType::DONE, FilmProperty::TEMP_VERSION);
	film_changed(ChangeType::DONE, FilmProperty::PRE_RELEASE);
	film_changed(ChangeType::DONE, FilmProperty::RED_BAND);
	film_changed(ChangeType::DONE, FilmProperty::TWO_D_VERSION_OF_THREE_D);
	film_changed(ChangeType::DONE, FilmProperty::CHAIN);
	film_changed(ChangeType::DONE, FilmProperty::LUMINANCE);
	film_changed(ChangeType::DONE, FilmProperty::TERRITORY_TYPE);

	setup_sensitivity ();
}


void
MetadataDialog::territory_type_changed()
{
	if (auto data = _territory_type->get_data()) {
		film()->set_territory_type(string_to_territory_type(*data));
	}
}


void
MetadataDialog::film_changed(ChangeType type, FilmProperty property)
{
	if (type != ChangeType::DONE) {
		return;
	}

	if (property == FilmProperty::SIGN_LANGUAGE_VIDEO_LANGUAGE) {
		_sign_language_video_language->set (film()->sign_language_video_language());
	} else if (property == FilmProperty::RELEASE_TERRITORY) {
		auto rt = film()->release_territory();
		checked_set (_enable_release_territory, static_cast<bool>(rt));
		if (rt) {
			_release_territory_copy = *rt;
			checked_set(_release_territory, *_release_territory_copy);
		}
	} else if (property == FilmProperty::FACILITY) {
		checked_set (_enable_facility, static_cast<bool>(film()->facility()));
		if (film()->facility()) {
			checked_set (_facility, *film()->facility());
		}
	} else if (property == FilmProperty::STUDIO) {
		checked_set (_enable_studio, static_cast<bool>(film()->studio()));
		if (film()->studio()) {
			checked_set (_studio, *film()->studio());
		}
	} else if (property == FilmProperty::CHAIN) {
		checked_set (_enable_chain, static_cast<bool>(film()->chain()));
		if (film()->chain()) {
			checked_set (_chain, *film()->chain());
		}
	} else if (property == FilmProperty::TEMP_VERSION) {
		checked_set (_temp_version, film()->temp_version());
	} else if (property == FilmProperty::PRE_RELEASE) {
		checked_set (_pre_release, film()->pre_release());
	} else if (property == FilmProperty::RED_BAND) {
		checked_set (_red_band, film()->red_band());
	} else if (property == FilmProperty::TWO_D_VERSION_OF_THREE_D) {
		checked_set (_two_d_version_of_three_d, film()->two_d_version_of_three_d());
	} else if (property == FilmProperty::LUMINANCE) {
		auto lum = film()->luminance();
		checked_set (_enable_luminance, static_cast<bool>(lum));
		if (lum) {
			checked_set (_luminance_value, lum->value());
			switch (lum->unit()) {
			case dcp::Luminance::Unit::CANDELA_PER_SQUARE_METRE:
				checked_set (_luminance_unit, 0);
				break;
			case dcp::Luminance::Unit::FOOT_LAMBERT:
				checked_set (_luminance_unit, 1);
				break;
			}
		} else {
			checked_set(_luminance_value, 14);
			checked_set (_luminance_unit, 1);
		}
	} else if (property == FilmProperty::TERRITORY_TYPE) {
		_territory_type->set_by_data(territory_type_to_string(film()->territory_type()));
		setup_sensitivity();
	}
}


void
MetadataDialog::setup_standard (wxPanel* panel, wxSizer* sizer)
{
	add_label_to_sizer(sizer, panel, _("Territory type"), true, 0, wxALIGN_CENTER_VERTICAL);
	_territory_type = new Choice(panel);
	_territory_type->add_entry(_("Specific"), std_to_wx(territory_type_to_string(TerritoryType::SPECIFIC)));
	_territory_type->add_entry(_("International texted"), std_to_wx(territory_type_to_string(TerritoryType::INTERNATIONAL_TEXTED)));
	_territory_type->add_entry(_("International textless"), std_to_wx(territory_type_to_string(TerritoryType::INTERNATIONAL_TEXTLESS)));
	sizer->Add(_territory_type);

	_enable_release_territory = new CheckBox(panel, _("Release territory"));
	sizer->Add (_enable_release_territory, 0, wxRIGHT | wxALIGN_CENTER_VERTICAL, DCPOMATIC_SIZER_GAP);
	_release_territory = new RegionSubtagWidget(panel, _("Release territory for this DCP"), film()->release_territory());
	sizer->Add(_release_territory->sizer(), 0, wxEXPAND);

	vector<EditableListColumn> columns;
	columns.push_back(EditableListColumn(_("Agency"), 200, true));
	columns.push_back(EditableListColumn(_("Label"), 400, true));
	_ratings = new EditableList<dcp::Rating> (
		panel,
		columns,
		boost::bind(&MetadataDialog::ratings, this),
		boost::bind(&MetadataDialog::set_ratings, this, _1),
		EditableList<dcp::Rating>::add_with_dialog<RatingDialog>,
		EditableList<dcp::Rating>::edit_with_dialog<RatingDialog>,
		[this](dcp::Rating r, int c) {
			if (c == 0) {
				auto iter = _rating_system_agency_to_name.find(r.agency);
				if (iter != _rating_system_agency_to_name.end()) {
					return iter->second;
				}
				return r.agency;
			}
			return r.label;
		},
		EditableListTitle::VISIBLE,
		EditableListButton::NEW | EditableListButton::EDIT | EditableListButton::REMOVE
		);
	_ratings->SetMinSize(wxSize(600, -1));
}


void
MetadataDialog::release_territory_changed(optional<dcp::LanguageTag::RegionSubtag> tag)
{
	if (tag) {
		_release_territory_copy = *tag;
		film()->set_release_territory(*tag);
	}
}


void
MetadataDialog::setup_sensitivity ()
{
	auto const territory_type = film()->territory_type();
	_enable_release_territory->Enable(territory_type == TerritoryType::SPECIFIC);
	_sign_language_video_language->enable (film()->has_sign_language_video_channel());
	auto const enabled = _enable_release_territory->GetValue();
	_release_territory->enable(enabled && territory_type == TerritoryType::SPECIFIC);
	_ratings->Enable(territory_type == TerritoryType::SPECIFIC);
	_facility->Enable (_enable_facility->GetValue());
	_chain->Enable (_enable_chain->GetValue());
	_studio->Enable (_enable_studio->GetValue());
	_luminance_value->Enable (_enable_luminance->GetValue());
	_luminance_unit->Enable (_enable_luminance->GetValue());
}


void
MetadataDialog::enable_release_territory_changed ()
{
	setup_sensitivity ();
	if (_enable_release_territory->GetValue()) {
		film()->set_release_territory (_release_territory->get().get_value_or(dcp::LanguageTag::RegionSubtag("US")));
	} else {
		film()->set_release_territory ();
	}
}


void
MetadataDialog::setup_advanced (wxPanel* panel, wxSizer* sizer)
{
	add_label_to_sizer (sizer, panel, _("Sign language video language"), true, 0, wxALIGN_CENTER_VERTICAL | wxLEFT | wxRIGHT);
	_sign_language_video_language = new LanguageTagWidget (panel, _("Language used for any sign language video track"), {}, {});
	sizer->Add (_sign_language_video_language->sizer(), 1, wxEXPAND);

	_enable_facility = new CheckBox(panel, _("Facility"));
	sizer->Add (_enable_facility, 0, wxRIGHT | wxALIGN_CENTER_VERTICAL);
	_facility = new wxTextCtrl (panel, wxID_ANY);
	sizer->Add (_facility, 1, wxEXPAND);

	_enable_studio = new CheckBox(panel, _("Studio"));
	sizer->Add (_enable_studio, 0, wxRIGHT | wxALIGN_CENTER_VERTICAL);
	_studio = new wxTextCtrl (panel, wxID_ANY);
	sizer->Add (_studio, 1, wxEXPAND);

	_enable_chain = new CheckBox(panel, _("Chain"));
	sizer->Add (_enable_chain, 0, wxRIGHT | wxALIGN_CENTER_VERTICAL);
	_chain = new wxTextCtrl (panel, wxID_ANY);
	sizer->Add (_chain, 1, wxEXPAND);

	_temp_version = new CheckBox(panel, _("Temporary version"));
	sizer->Add (_temp_version, 0, wxALIGN_CENTER_VERTICAL);
	sizer->AddSpacer (0);

	_pre_release = new CheckBox(panel, _("Pre-release"));
	sizer->Add (_pre_release, 0, wxALIGN_CENTER_VERTICAL);
	sizer->AddSpacer (0);

	_red_band = new CheckBox(panel, _("Red band"));
	sizer->Add (_red_band, 0, wxALIGN_CENTER_VERTICAL);
	sizer->AddSpacer (0);

	_two_d_version_of_three_d = new CheckBox(panel, _("2D version of 3D DCP"));
	sizer->Add (_two_d_version_of_three_d, 0, wxALIGN_CENTER_VERTICAL);
	sizer->AddSpacer (0);

	_enable_luminance = new CheckBox(panel, _("Luminance"));
	sizer->Add (_enable_luminance, 0, wxALIGN_CENTER_VERTICAL);
	{
		auto s = new wxBoxSizer (wxHORIZONTAL);
		_luminance_value = new wxSpinCtrlDouble (panel, wxID_ANY);
		_luminance_value->SetRange (0.1, 32.0);
		_luminance_value->SetDigits (1);
		_luminance_value->SetIncrement (0.1);
		s->Add (_luminance_value, 0);
		_luminance_unit = new Choice(panel);
		s->Add (_luminance_unit, 0, wxLEFT, DCPOMATIC_SIZER_X_GAP);
		sizer->Add (s, 1, wxEXPAND);
	}

	_luminance_unit->add_entry(wxGetTranslation(wxString::FromUTF8("candela per m²")));
	_luminance_unit->add_entry(_("foot lambert"));
}


void
MetadataDialog::facility_changed ()
{
	film()->set_facility (wx_to_std(_facility->GetValue()));
}


void
MetadataDialog::enable_facility_changed ()
{
	setup_sensitivity ();
	if (_enable_facility->GetValue()) {
		film()->set_facility (wx_to_std(_facility->GetValue()));
	} else {
		film()->set_facility ();
	}
}


void
MetadataDialog::studio_changed ()
{
	film()->set_studio (wx_to_std(_studio->GetValue()));
}


void
MetadataDialog::enable_studio_changed ()
{
	setup_sensitivity ();
	if (_enable_studio->GetValue()) {
		film()->set_studio (wx_to_std(_studio->GetValue()));
	} else {
		film()->set_studio ();
	}
}


void
MetadataDialog::temp_version_changed ()
{
	film()->set_temp_version(_temp_version->GetValue());
}


void
MetadataDialog::pre_release_changed ()
{
	film()->set_pre_release(_pre_release->GetValue());
}


void
MetadataDialog::red_band_changed ()
{
	film()->set_red_band(_red_band->GetValue());
}


void
MetadataDialog::two_d_version_of_three_d_changed ()
{
	film()->set_two_d_version_of_three_d(_two_d_version_of_three_d->GetValue());
}


void
MetadataDialog::chain_changed ()
{
	film()->set_chain (wx_to_std(_chain->GetValue()));
}


void
MetadataDialog::enable_chain_changed ()
{
	setup_sensitivity ();
	if (_enable_chain->GetValue()) {
		chain_changed ();
	} else {
		film()->set_chain ();
	}
}


void
MetadataDialog::enable_luminance_changed ()
{
	setup_sensitivity ();
	if (_enable_luminance->GetValue()) {
		luminance_changed ();
	} else {
		film()->set_luminance ();
	}
}


void
MetadataDialog::luminance_changed ()
{
	dcp::Luminance::Unit unit;
	DCPOMATIC_ASSERT(_luminance_unit->get());
	switch (*_luminance_unit->get()) {
	case 0:
		unit = dcp::Luminance::Unit::CANDELA_PER_SQUARE_METRE;
		break;
	case 1:
		unit = dcp::Luminance::Unit::FOOT_LAMBERT;
		break;
	default:
		DCPOMATIC_ASSERT (false);
	}

	film()->set_luminance (dcp::Luminance(_luminance_value->GetValue(), unit));
}


void
MetadataDialog::sign_language_video_language_changed ()
{
	film()->set_sign_language_video_language(_sign_language_video_language->get());
}


vector<dcp::Rating>
MetadataDialog::ratings() const
{
	return film()->ratings();
}


void
MetadataDialog::set_ratings(vector<dcp::Rating> r)
{
	film()->set_ratings(r);
}