/*
This file is part of Telegram Desktop,
the official desktop application for the Telegram messaging service.

For license and copyright information please follow this link:
https://github.com/telegramdesktop/tdesktop/blob/master/LEGAL
*/
#include "boxes/send_credits_box.h"

#include "api/api_credits.h"
#include "apiwrap.h"
#include "core/ui_integration.h" // Core::MarkedTextContext.
#include "data/components/credits.h"
#include "data/data_credits.h"
#include "data/data_photo.h"
#include "data/data_session.h"
#include "data/data_user.h"
#include "data/stickers/data_custom_emoji.h"
#include "history/history.h"
#include "history/history_item.h"
#include "info/channel_statistics/boosts/giveaway/boost_badge.h" // InfiniteRadialAnimationWidget.
#include "lang/lang_keys.h"
#include "main/main_session.h"
#include "payments/payments_checkout_process.h"
#include "payments/payments_form.h"
#include "settings/settings_credits_graphics.h"
#include "ui/boxes/confirm_box.h"
#include "ui/controls/userpic_button.h"
#include "ui/effects/credits_graphics.h"
#include "ui/effects/premium_graphics.h"
#include "ui/effects/premium_top_bar.h" // Ui::Premium::ColorizedSvg.
#include "ui/image/image_prepare.h"
#include "ui/layers/generic_box.h"
#include "ui/painter.h"
#include "ui/rect.h"
#include "ui/text/text_utilities.h"
#include "ui/vertical_list.h"
#include "ui/widgets/buttons.h"
#include "ui/widgets/peer_bubble.h"
#include "styles/style_boxes.h"
#include "styles/style_chat.h"
#include "styles/style_credits.h"
#include "styles/style_giveaway.h"
#include "styles/style_info.h" // inviteLinkSubscribeBoxTerms
#include "styles/style_layers.h"
#include "styles/style_premium.h"
#include "styles/style_settings.h"

namespace Ui {
namespace {

struct PaidMediaData {
	const Data::Invoice *invoice = nullptr;
	HistoryItem *item = nullptr;
	PeerData *peer = nullptr;
	int photos = 0;
	int videos = 0;

	explicit operator bool() const {
		return invoice && item && peer && (photos || videos);
	}
};

[[nodiscard]] PaidMediaData LookupPaidMediaData(
		not_null<Main::Session*> session,
		not_null<Payments::CreditsFormData*> form) {
	using namespace Payments;
	const auto message = std::get_if<InvoiceMessage>(&form->id.value);
	const auto item = message
		? session->data().message(message->peer, message->itemId)
		: nullptr;
	const auto media = item ? item->media() : nullptr;
	const auto invoice = media ? media->invoice() : nullptr;
	if (!invoice || !invoice->isPaidMedia) {
		return {};
	}

	auto photos = 0;
	auto videos = 0;
	for (const auto &media : invoice->extendedMedia) {
		const auto photo = media->photo();
		if (photo && !photo->extendedMediaVideoDuration().has_value()) {
			++photos;
		} else {
			++videos;
		}
	}

	const auto bot = item->viaBot();
	const auto sender = item->originalSender();
	return {
		.invoice = invoice,
		.item = item,
		.peer = (bot ? bot : sender ? sender : message->peer.get()),
		.photos = photos,
		.videos = videos,
	};
}

void AddTerms(
		not_null<Ui::BoxContent*> box,
		not_null<Ui::RpWidget*> button,
		const style::Box &stBox) {
	const auto terms = Ui::CreateChild<Ui::FlatLabel>(
		button->parentWidget(),
		tr::lng_channel_invite_subscription_terms(
			lt_link,
			rpl::combine(
				tr::lng_paid_react_agree_link(),
				tr::lng_group_invite_subscription_about_url()
			) | rpl::map([](const QString &text, const QString &url) {
				return Ui::Text::Link(text, url);
			}),
			Ui::Text::RichLangValue),
		st::inviteLinkSubscribeBoxTerms);
	const auto &buttonPadding = stBox.buttonPadding;
	const auto style = box->lifetime().make_state<style::Box>(style::Box{
		.buttonPadding = buttonPadding + QMargins(0, 0, 0, terms->height()),
		.buttonHeight = stBox.buttonHeight,
		.button = stBox.button,
		.margin = stBox.margin,
		.title = stBox.title,
		.bg = stBox.bg,
		.titleAdditionalFg = stBox.titleAdditionalFg,
		.shadowIgnoreTopSkip = stBox.shadowIgnoreTopSkip,
		.shadowIgnoreBottomSkip = stBox.shadowIgnoreBottomSkip,
	});
	button->geometryValue() | rpl::start_with_next([=](const QRect &rect) {
		terms->resizeToWidth(box->width()
			- rect::m::sum::h(st::boxRowPadding));
		terms->moveToLeft(
			rect.x() + (rect.width() - terms->width()) / 2,
			rect::bottom(rect) + buttonPadding.bottom() / 2);
	}, terms->lifetime());
	box->setStyle(*style);
}

[[nodiscard]] rpl::producer<TextWithEntities> SendCreditsConfirmText(
		not_null<Main::Session*> session,
		not_null<Payments::CreditsFormData*> form) {
	if (const auto data = LookupPaidMediaData(session, form)) {
		auto photos = 0;
		auto videos = 0;
		for (const auto &media : data.invoice->extendedMedia) {
			const auto photo = media->photo();
			if (photo && !photo->extendedMediaVideoDuration().has_value()) {
				++photos;
			} else {
				++videos;
			}
		}

		auto photosBold = tr::lng_credits_box_out_photos(
			lt_count,
			rpl::single(photos) | tr::to_count(),
			Ui::Text::Bold);
		auto videosBold = tr::lng_credits_box_out_videos(
			lt_count,
			rpl::single(videos) | tr::to_count(),
			Ui::Text::Bold);
		auto media = (!videos)
				? ((photos > 1)
					? std::move(photosBold)
					: tr::lng_credits_box_out_photo(Ui::Text::WithEntities))
				: (!photos)
				? ((videos > 1)
					? std::move(videosBold)
					: tr::lng_credits_box_out_video(Ui::Text::WithEntities))
				: tr::lng_credits_box_out_both(
					lt_photo,
					std::move(photosBold),
					lt_video,
					std::move(videosBold),
					Ui::Text::WithEntities);
		if (const auto user = data.peer->asUser()) {
			return tr::lng_credits_box_out_media_user(
				lt_count,
				rpl::single(form->invoice.amount) | tr::to_count(),
				lt_media,
				std::move(media),
				lt_user,
				rpl::single(Ui::Text::Bold(user->shortName())),
				Ui::Text::RichLangValue);
		}
		return tr::lng_credits_box_out_media(
			lt_count,
			rpl::single(form->invoice.amount) | tr::to_count(),
			lt_media,
			std::move(media),
			lt_chat,
			rpl::single(Ui::Text::Bold(data.peer->name())),
			Ui::Text::RichLangValue);
	}

	const auto bot = session->data().user(form->botId);
	if (form->invoice.subscriptionPeriod) {
		return (bot->botInfo
				? tr::lng_credits_box_out_subscription_bot
				: tr::lng_credits_box_out_subscription_business)(
			lt_count,
			rpl::single(form->invoice.amount) | tr::to_count(),
			lt_title,
			rpl::single(TextWithEntities{ form->title }),
			lt_recipient,
			rpl::single(TextWithEntities{ bot->name() }),
			Ui::Text::RichLangValue);
	}
	return tr::lng_credits_box_out_sure(
		lt_count,
		rpl::single(form->invoice.amount) | tr::to_count(),
		lt_text,
		rpl::single(TextWithEntities{ form->title }),
		lt_bot,
		rpl::single(TextWithEntities{ bot->name() }),
		Ui::Text::RichLangValue);
}

[[nodiscard]] object_ptr<Ui::RpWidget> SendCreditsThumbnail(
		not_null<Ui::RpWidget*> parent,
		not_null<Main::Session*> session,
		not_null<Payments::CreditsFormData*> form,
		int photoSize) {
	if (const auto data = LookupPaidMediaData(session, form)) {
		const auto first = data.invoice->extendedMedia[0]->photo();
		const auto second = (data.photos > 1)
			? data.invoice->extendedMedia[1]->photo()
			: nullptr;
		const auto totalCount = int(data.invoice->extendedMedia.size());
		if (first && first->extendedMediaPreview()) {
			return Settings::PaidMediaThumbnail(
				parent,
				first,
				second,
				totalCount,
				photoSize);
		}
	}
	if (form->photo) {
		return Settings::HistoryEntryPhoto(parent, form->photo, photoSize);
	}
	const auto bot = session->data().user(form->botId);
	return object_ptr<Ui::UserpicButton>(
		parent,
		bot,
		st::defaultUserpicButton);
}

[[nodiscard]] not_null<Ui::RpWidget*> SendCreditsBadge(
		not_null<Ui::RpWidget*> parent,
		int credits) {
	const auto widget = Ui::CreateChild<Ui::RpWidget>(parent);
	const auto &font = st::chatGiveawayBadgeFont;
	const auto text = QString::number(credits);
	const auto iconHeight = font->ascent - font->descent;
	const auto iconWidth = iconHeight + st::lineWidth;
	const auto width = font->width(text) + iconWidth + st::lineWidth;
	const auto inner = QRect(0, 0, width, font->height);
	const auto rect = inner + st::subscriptionCreditsBadgePadding;
	const auto size = rect.size();
	const auto svg = widget->lifetime().make_state<QSvgRenderer>(
		Ui::Premium::Svg());
	const auto half = st::chatGiveawayBadgeStroke / 2.;
	const auto left = st::subscriptionCreditsBadgePadding.left();
	const auto smaller = QRectF(rect.translated(-rect.topLeft()))
		- Margins(half);
	const auto radius = smaller.height() / 2.;
	widget->resize(size);

	widget->paintRequest() | rpl::start_with_next([=] {
		auto p = QPainter(widget);
		auto hq = PainterHighQualityEnabler(p);
		p.setPen(QPen(st::premiumButtonFg, st::chatGiveawayBadgeStroke * 1.));
		p.setBrush(st::creditsBg3);
		p.drawRoundedRect(smaller, radius, radius);

		p.translate(0, font->descent / 2);

		p.setPen(st::premiumButtonFg);
		p.setBrush(st::premiumButtonFg);
		svg->render(
			&p,
			QRect(
				left,
				half + (inner.height() - iconHeight) / 2,
				iconHeight,
				iconHeight));

		p.setFont(font);
		p.drawText(
			left + iconWidth,
			st::subscriptionCreditsBadgePadding.top() + font->ascent,
			text);

	}, widget->lifetime());

	return widget;
}

} // namespace

void SendCreditsBox(
		not_null<Ui::GenericBox*> box,
		std::shared_ptr<Payments::CreditsFormData> form,
		Fn<void()> sent) {
	if (!form) {
		return;
	}
	struct State {
		rpl::variable<bool> confirmButtonBusy = false;
	};
	const auto state = box->lifetime().make_state<State>();
	const auto &stBox = st::giveawayGiftCodeBox;
	box->setStyle(stBox);
	box->setNoContentMargin(true);

	const auto session = form->invoice.session;

	const auto photoSize = st::defaultUserpicButton.photoSize;

	const auto content = box->verticalLayout();
	Ui::AddSkip(content, photoSize / 2);

	{
		const auto ministarsContainer = Ui::CreateChild<Ui::RpWidget>(box);
		const auto fullHeight = photoSize * 2;
		using MiniStars = Ui::Premium::ColoredMiniStars;
		const auto ministars = box->lifetime().make_state<MiniStars>(
			ministarsContainer,
			false,
			Ui::Premium::MiniStars::Type::BiStars);
		ministars->setColorOverride(Ui::Premium::CreditsIconGradientStops());

		ministarsContainer->paintRequest(
		) | rpl::start_with_next([=] {
			auto p = QPainter(ministarsContainer);
			ministars->paint(p);
		}, ministarsContainer->lifetime());

		box->widthValue(
		) | rpl::start_with_next([=](int width) {
			ministarsContainer->resize(width, fullHeight);
			const auto w = fullHeight / 3 * 2;
			ministars->setCenter(QRect(
				(width - w) / 2,
				(fullHeight - w) / 2,
				w,
				w));
		}, ministarsContainer->lifetime());
	}

	const auto thumb = box->addRow(object_ptr<Ui::CenterWrap<>>(
		content,
		SendCreditsThumbnail(content, session, form.get(), photoSize)));
	thumb->setAttribute(Qt::WA_TransparentForMouseEvents);
	if (form->invoice.subscriptionPeriod) {
		const auto badge = SendCreditsBadge(content, form->invoice.amount);
		thumb->geometryValue() | rpl::start_with_next([=](const QRect &r) {
			badge->moveToLeft(
				r.x() + (r.width() - badge->width()) / 2,
				rect::bottom(r) - badge->height() / 2);
		}, badge->lifetime());
		Ui::AddSkip(content);
		Ui::AddSkip(content);
	}

	Ui::AddSkip(content);
	box->addRow(object_ptr<Ui::CenterWrap<>>(
		box,
		object_ptr<Ui::FlatLabel>(
			box,
			form->invoice.subscriptionPeriod
				? rpl::single(form->title)
				: tr::lng_credits_box_out_title(),
			st::settingsPremiumUserTitle)));
	if (form->invoice.subscriptionPeriod && form->botId && form->photo) {
		Ui::AddSkip(content);
		Ui::AddSkip(content);
		const auto bot = session->data().user(form->botId);
		box->addRow(
			object_ptr<Ui::CenterWrap<>>(
				box,
				Ui::CreatePeerBubble(box, bot)));
		Ui::AddSkip(content);
	}
	Ui::AddSkip(content);
	box->addRow(object_ptr<Ui::CenterWrap<>>(
		box,
		object_ptr<Ui::FlatLabel>(
			box,
			SendCreditsConfirmText(session, form.get()),
			st::creditsBoxAbout)));
	Ui::AddSkip(content);
	Ui::AddSkip(content);

	const auto button = box->addButton(rpl::single(QString()), [=] {
		if (state->confirmButtonBusy.current()) {
			return;
		}
		const auto show = box->uiShow();
		const auto weak = MakeWeak(box.get());
		state->confirmButtonBusy = true;
		session->api().request(
			MTPpayments_SendStarsForm(
				MTP_long(form->formId),
				form->inputInvoice)
		).done([=](const MTPpayments_PaymentResult &result) {
			result.match([&](const MTPDpayments_paymentResult &data) {
				session->api().applyUpdates(data.vupdates());
			}, [](const MTPDpayments_paymentVerificationNeeded &data) {
			});
			if (weak) {
				state->confirmButtonBusy = false;
				box->closeBox();
			}
			sent();
		}).fail([=](const MTP::Error &error) {
			if (weak) {
				state->confirmButtonBusy = false;
			}
			const auto id = error.type();
			if (id == u"BOT_PRECHECKOUT_FAILED"_q) {
				auto error = ::Ui::MakeInformBox(
					tr::lng_payments_precheckout_stars_failed(tr::now));
				error->boxClosing() | rpl::start_with_next([=] {
					if (const auto paybox = weak.data()) {
						paybox->closeBox();
					}
				}, error->lifetime());
				show->showBox(std::move(error));
			} else if (id == u"BOT_PRECHECKOUT_TIMEOUT"_q) {
				show->showToast(
					tr::lng_payments_precheckout_stars_timeout(tr::now));
			} else {
				show->showToast(id);
			}
		}).send();
	});
	if (form->invoice.subscriptionPeriod) {
		AddTerms(box, button, stBox);
	}
	{
		using namespace Info::Statistics;
		const auto loadingAnimation = InfiniteRadialAnimationWidget(
			button,
			st::giveawayGiftCodeStartButton.height / 2);
		AddChildToWidgetCenter(button.data(), loadingAnimation);
		loadingAnimation->showOn(state->confirmButtonBusy.value());
	}
	SetButtonMarkedLabel(
		button,
		rpl::combine(
			(form->invoice.subscriptionPeriod
				? tr::lng_credits_box_out_subscription_confirm
				: tr::lng_credits_box_out_confirm)(
					lt_count,
					rpl::single(form->invoice.amount) | tr::to_count(),
					lt_emoji,
					rpl::single(CreditsEmojiSmall(session)),
					Ui::Text::RichLangValue),
			state->confirmButtonBusy.value()
		) | rpl::map([](TextWithEntities &&text, bool busy) {
			return busy ? TextWithEntities() : std::move(text);
		}),
		session,
		st::creditsBoxButtonLabel,
		&box->getDelegate()->style().button.textFg);

	const auto buttonWidth = st::boxWidth
		- rect::m::sum::h(stBox.buttonPadding);
	button->widthValue() | rpl::filter([=] {
		return (button->widthNoMargins() != buttonWidth);
	}) | rpl::start_with_next([=] {
		button->resizeToWidth(buttonWidth);
	}, button->lifetime());

	{
		const auto close = Ui::CreateChild<Ui::IconButton>(
			content,
			st::boxTitleClose);
		close->setClickedCallback([=] { box->closeBox(); });
		content->widthValue() | rpl::start_with_next([=](int) {
			close->moveToRight(0, 0);
		}, close->lifetime());
	}

	{
		session->credits().load(true);
		const auto balance = Settings::AddBalanceWidget(
			content,
			session->credits().balanceValue(),
			false);
		rpl::combine(
			balance->sizeValue(),
			content->sizeValue()
		) | rpl::start_with_next([=](const QSize &, const QSize &) {
			balance->moveToLeft(
				st::creditsHistoryRightSkip * 2,
				st::creditsHistoryRightSkip);
			balance->update();
		}, balance->lifetime());
	}
}

TextWithEntities CreditsEmoji(not_null<Main::Session*> session) {
	return Ui::Text::SingleCustomEmoji(
		session->data().customEmojiManager().registerInternalEmoji(
			st::settingsPremiumIconStar,
			QMargins{ 0, -st::moderateBoxExpandInnerSkip, 0, 0 },
			true),
		QString(QChar(0x2B50)));
}

TextWithEntities CreditsEmojiSmall(not_null<Main::Session*> session) {
	return Ui::Text::IconEmoji(
		&st::starIconEmoji,
		QString(QChar(0x2B50)));
}

not_null<FlatLabel*> SetButtonMarkedLabel(
		not_null<RpWidget*> button,
		rpl::producer<TextWithEntities> text,
		Fn<std::any(Fn<void()> update)> context,
		const style::FlatLabel &st,
		const style::color *textFg) {
	const auto buttonLabel = Ui::CreateChild<Ui::FlatLabel>(
		button,
		rpl::single(QString()),
		st);
	rpl::duplicate(
		text
	) | rpl::filter([=](const TextWithEntities &text) {
		return !text.text.isEmpty();
	}) | rpl::start_with_next([=](const TextWithEntities &text) {
		buttonLabel->setMarkedText(
			text,
			context([=] { buttonLabel->update(); }));
	}, buttonLabel->lifetime());
	if (textFg) {
		buttonLabel->setTextColorOverride((*textFg)->c);
		style::PaletteChanged() | rpl::start_with_next([=] {
			buttonLabel->setTextColorOverride((*textFg)->c);
		}, buttonLabel->lifetime());
	}
	button->sizeValue(
	) | rpl::start_with_next([=](const QSize &size) {
		buttonLabel->moveToLeft(
			(size.width() - buttonLabel->width()) / 2,
			(size.height() - buttonLabel->height()) / 2);
	}, buttonLabel->lifetime());
	buttonLabel->setAttribute(Qt::WA_TransparentForMouseEvents);
	buttonLabel->showOn(std::move(
		text
	) | rpl::map([=](const TextWithEntities &text) {
		return !text.text.isEmpty();
	}));
	return buttonLabel;
}

not_null<FlatLabel*> SetButtonMarkedLabel(
		not_null<RpWidget*> button,
		rpl::producer<TextWithEntities> text,
		not_null<Main::Session*> session,
		const style::FlatLabel &st,
		const style::color *textFg) {
	return SetButtonMarkedLabel(button, text, [=](Fn<void()> update) {
		return Core::MarkedTextContext{
			.session = session,
			.customEmojiRepaint = update,
		};
	}, st, textFg);
}

void SendStarsForm(
		not_null<Main::Session*> session,
		std::shared_ptr<Payments::CreditsFormData> data,
		Fn<void(std::optional<QString>)> done) {
	session->api().request(MTPpayments_SendStarsForm(
		MTP_long(data->formId),
		data->inputInvoice
	)).done([=](const MTPpayments_PaymentResult &result) {
		result.match([&](const MTPDpayments_paymentResult &data) {
			session->api().applyUpdates(data.vupdates());
		}, [](const MTPDpayments_paymentVerificationNeeded &data) {
		});
		done(std::nullopt);
	}).fail([=](const MTP::Error &error) {
		done(error.type());
	}).send();
}

} // namespace Ui