/*
    Copyright (C) 2020 Sebastian J. Wolf and other contributors

    This file is part of Fernschreiber.

    Fernschreiber 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.

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

#include "chatmodel.h"

#include <QListIterator>
#include <QByteArray>
#include <QBitArray>

ChatModel::ChatModel(TDLibWrapper *tdLibWrapper)
{
    this->tdLibWrapper = tdLibWrapper;
    this->inReload = false;
    this->inIncrementalUpdate = false;
    connect(this->tdLibWrapper, SIGNAL(messagesReceived(QVariantList, int)), this, SLOT(handleMessagesReceived(QVariantList, int)));
    connect(this->tdLibWrapper, SIGNAL(newMessageReceived(QString, QVariantMap)), this, SLOT(handleNewMessageReceived(QString, QVariantMap)));
    connect(this->tdLibWrapper, SIGNAL(chatReadInboxUpdated(QString, QString, int)), this, SLOT(handleChatReadInboxUpdated(QString, QString, int)));
    connect(this->tdLibWrapper, SIGNAL(chatReadOutboxUpdated(QString, QString)), this, SLOT(handleChatReadOutboxUpdated(QString, QString)));
    connect(this->tdLibWrapper, SIGNAL(messageSendSucceeded(QString, QString, QVariantMap)), this, SLOT(handleMessageSendSucceeded(QString, QString, QVariantMap)));
    connect(this->tdLibWrapper, SIGNAL(chatNotificationSettingsUpdated(QString, QVariantMap)), this, SLOT(handleChatNotificationSettingsUpdated(QString, QVariantMap)));
    connect(this->tdLibWrapper, SIGNAL(messageContentUpdated(QString, QString, QVariantMap)), this, SLOT(handleMessageContentUpdated(QString, QString, QVariantMap)));
    connect(this->tdLibWrapper, SIGNAL(messagesDeleted(QString, QVariantList)), this, SLOT(handleMessagesDeleted(QString, QVariantList)));
}

ChatModel::~ChatModel()
{
    qDebug() << "[ChatModel] Destroying myself...";
}

int ChatModel::rowCount(const QModelIndex &) const
{
    return messages.size();
}

QVariant ChatModel::data(const QModelIndex &index, int role) const
{
    if(index.isValid() && role == Qt::DisplayRole) {
        return QVariant(messages.value(index.row()));
    }
    return QVariant();
}

bool ChatModel::insertRows(int row, int count, const QModelIndex &parent)
{
    qDebug() << "[ChatModel] Inserting at " << row << ", row count: " << count;
    beginInsertRows(parent, row, row + count - 1);
    for (int i = 0; i < count; i++) {
        this->messages.insert(row + i, this->messagesToBeAdded.at(i));
    }
    this->calculateMessageIndexMap();
    endInsertRows();
    return true;
}

void ChatModel::initialize(const QVariantMap &chatInformation)
{
    qDebug() << "[ChatModel] Initializing chat model...";
    this->chatInformation = chatInformation;
    beginResetModel();
    this->messages.clear();
    this->messageIndexMap.clear();
    this->messagesToBeAdded.clear();
    endResetModel();
    this->chatId = chatInformation.value("id").toString();
    tdLibWrapper->getChatHistory(this->chatId);
}

void ChatModel::triggerLoadMoreHistory()
{
    if (!this->inIncrementalUpdate && !messages.isEmpty()) {
        qDebug() << "[ChatModel] Trigger loading older history...";
        this->inIncrementalUpdate = true;
        this->tdLibWrapper->getChatHistory(this->chatId, this->messages.first().toMap().value("id").toLongLong());
    }
}

QVariantMap ChatModel::getChatInformation()
{
    return this->chatInformation;
}

QVariantMap ChatModel::getMessage(const int &index)
{
    if (index < this->messages.size()) {
        return this->messages.at(index).toMap();
    } else {
        return QVariantMap();
    }
}

bool compareMessages(const QVariant &message1, const QVariant &message2)
{
    QVariantMap messageMap1 = message1.toMap();
    QVariantMap messageMap2 = message2.toMap();
    if (messageMap1.value("id").toLongLong() < messageMap2.value("id").toLongLong()) {
        return true;
    } else {
        return false;
    }
}

void ChatModel::handleMessagesReceived(const QVariantList &messages, const int &totalCount)
{
    qDebug() << "[ChatModel] Receiving new messages :)" << messages.size();

    if (messages.size() == 0) {
        qDebug() << "[ChatModel] No additional messages loaded, notifying chat UI...";
        this->inReload = false;
        int listInboxPosition = this->calculateLastKnownMessageId();
        int listOutboxPosition = this->calculateLastReadSentMessageId();
        if (this->inIncrementalUpdate) {
            this->inIncrementalUpdate = false;
            emit messagesIncrementalUpdate(listInboxPosition, listOutboxPosition);
        } else {
            emit messagesReceived(listInboxPosition, listOutboxPosition, totalCount);
        }
    } else {
        this->messagesMutex.lock();
        this->messagesToBeAdded.clear();
        QListIterator<QVariant> messagesIterator(messages);
        while (messagesIterator.hasNext()) {
            QVariantMap currentMessage = messagesIterator.next().toMap();
            if (currentMessage.value("chat_id").toString() == this->chatId) {
                this->messagesToBeAdded.append(currentMessage);
            }
        }
        std::sort(this->messagesToBeAdded.begin(), this->messagesToBeAdded.end(), compareMessages);

        this->insertMessages();
        this->messagesMutex.unlock();

        // First call only returns a few messages, we need to get a little more than that...
        if (this->messagesToBeAdded.size() < 10 && !this->inReload) {
            qDebug() << "[ChatModel] Only a few messages received in first call, loading more...";
            this->inReload = true;
            this->tdLibWrapper->getChatHistory(this->chatId, this->messagesToBeAdded.first().toMap().value("id").toLongLong());
        } else {
            qDebug() << "[ChatModel] Messages loaded, notifying chat UI...";
            this->inReload = false;
            int listInboxPosition = this->calculateLastKnownMessageId();
            int listOutboxPosition = this->calculateLastReadSentMessageId();
            if (this->inIncrementalUpdate) {
                this->inIncrementalUpdate = false;
                emit messagesIncrementalUpdate(listInboxPosition, listOutboxPosition);
            } else {
                emit messagesReceived(listInboxPosition, listOutboxPosition, totalCount);
            }
        }
    }

}

void ChatModel::handleNewMessageReceived(const QString &chatId, const QVariantMap &message)
{
    if (chatId == this->chatId) {
        qDebug() << "[ChatModel] New message received for this chat";
        this->messagesMutex.lock();

        this->messagesToBeAdded.clear();
        this->messagesToBeAdded.append(message);

        this->insertMessages();
        this->messagesMutex.unlock();
        emit newMessageReceived(message);
    }
}

void ChatModel::handleChatReadInboxUpdated(const QString &chatId, const QString &lastReadInboxMessageId, const int &unreadCount)
{
    if (chatId == this->chatId) {
        qDebug() << "[ChatModel] Updating chat unread count, unread messages " << unreadCount << ", last read message ID: " << lastReadInboxMessageId;
        this->chatInformation.insert("unread_count", unreadCount);
        this->chatInformation.insert("last_read_inbox_message_id", lastReadInboxMessageId);
        emit unreadCountUpdated(unreadCount, lastReadInboxMessageId);
    }
}

void ChatModel::handleChatReadOutboxUpdated(const QString &chatId, const QString &lastReadOutboxMessageId)
{
    if (chatId == this->chatId) {
        this->chatInformation.insert("last_read_outbox_message_id", lastReadOutboxMessageId);
        int sentIndex = calculateLastReadSentMessageId();
        qDebug() << "[ChatModel] Updating sent message ID, new index " << sentIndex;
        emit lastReadSentMessageUpdated(sentIndex);
    }
}

void ChatModel::handleMessageSendSucceeded(const QString &messageId, const QString &oldMessageId, const QVariantMap &message)
{
    qDebug() << "[ChatModel] Message send succeeded, new message ID " << messageId << "old message ID " << oldMessageId << ", chat ID" << message.value("chat_id").toString();
    qDebug() << "[ChatModel] index map: " << this->messageIndexMap.contains(oldMessageId) << ", index count: " << this->messageIndexMap.size() << ", message count: " << this->messages.size();
    if (this->messageIndexMap.contains(oldMessageId)) {
        this->messagesMutex.lock();
        qDebug() << "[ChatModel] Message was successfully sent " << oldMessageId;
        int messageIndex = this->messageIndexMap.value(oldMessageId).toInt();
        this->messages.replace(messageIndex, message);
        this->calculateMessageIndexMap();
        qDebug() << "[ChatModel] Message was replaced at index " << messageIndex;
        this->messagesMutex.unlock();
        emit lastReadSentMessageUpdated(calculateLastReadSentMessageId());
        emit dataChanged(index(messageIndex), index(messageIndex));
    }
}

void ChatModel::handleChatNotificationSettingsUpdated(const QString &chatId, const QVariantMap &chatNotificationSettings)
{
    if (chatId == this->chatId) {
        this->chatInformation.insert("notification_settings", chatNotificationSettings);
        qDebug() << "[ChatModel] Notification settings updated";
        emit notificationSettingsUpdated();
    }
}

void ChatModel::handleMessageContentUpdated(const QString &chatId, const QString &messageId, const QVariantMap &newContent)
{
    qDebug() << "[ChatModel] Message content updated" << chatId << messageId;
    if (chatId == this->chatId && this->messageIndexMap.contains(messageId)) {
        this->messagesMutex.lock();
        qDebug() << "[ChatModel] We know the message that was updated " << messageId;
        int messageIndex = this->messageIndexMap.value(messageId).toInt();
        QVariantMap messageToBeUpdated = this->messages.at(messageIndex).toMap();
        messageToBeUpdated.insert("content", newContent);
        this->messages.replace(messageIndex, messageToBeUpdated);
        this->calculateMessageIndexMap();
        qDebug() << "[ChatModel] Message was replaced at index " << messageIndex;
        this->messagesMutex.unlock();
        emit messageUpdated(messageIndex);
        emit dataChanged(index(messageIndex), index(messageIndex));
    }
}

void ChatModel::handleMessagesDeleted(const QString &chatId, const QVariantList &messageIds)
{
    qDebug() << "[ChatModel] Messages were deleted in a chat" << chatId;
    if (chatId == this->chatId) {
        this->messagesMutex.lock();
        qDebug() << "[ChatModel] Messages in this chat were deleted...";
        QListIterator<QVariant> messageIdIterator(messageIds);
        while (messageIdIterator.hasNext()) {
            QString messageId = messageIdIterator.next().toString();
            if (this->messageIndexMap.contains(messageId)) {
                int messageIndex = this->messageIndexMap.value(messageId).toInt();
                beginRemoveRows(QModelIndex(), messageIndex, messageIndex);
                qDebug() << "[ChatModel] ...and we even know this message!" << messageId << messageIndex;
                this->messages.removeAt(messageIndex);
                this->calculateMessageIndexMap();
                endRemoveRows();
            }
        }
        this->messagesMutex.unlock();
        emit messagesDeleted();
    }
}

void ChatModel::insertMessages()
{
    if (this->messages.isEmpty()) {
        beginResetModel();
        this->messages.append(this->messagesToBeAdded);
        this->calculateMessageIndexMap();
        endResetModel();
    } else {
        // There is only an append or a prepend, tertium non datur! (probably ;))
        if (this->messages.last().toMap().value("id").toLongLong() < this->messagesToBeAdded.first().toMap().value("id").toLongLong()) {
            // Append
            this->insertRows(rowCount(QModelIndex()), this->messagesToBeAdded.size());
        } else {
            // Prepend
            this->insertRows(0, this->messagesToBeAdded.size());
        }
    }
}

QVariantMap ChatModel::enhanceMessage(const QVariantMap &message)
{
    QVariantMap enhancedMessage = message;
    if (enhancedMessage.value("content").toMap().value("@type").toString() == "messageVoiceNote" ) {
        QVariantMap contentMap = enhancedMessage.value("content").toMap();
        QVariantMap voiceNoteMap = contentMap.value("voice_note").toMap();
        QByteArray waveBytes = QByteArray::fromBase64(voiceNoteMap.value("waveform").toByteArray());
        QBitArray waveBits(waveBytes.count() * 8);

        for (int i = 0; i < waveBytes.count(); i++) {
            for (int b = 0; b < 8; b++) {
                waveBits.setBit( i * 8 + b, waveBytes.at(i) & (1 << (7 - b)) );
            }
        }
        int waveSize = 10;
        int waveformSets = waveBits.size() / waveSize;
        QVariantList decodedWaveform;
        for (int i = 0; i < waveformSets; i++) {
            int waveformHeight = 0;
            for (int j = 0; j < waveSize; j++) {
                waveformHeight = waveformHeight + ( waveBits.at(i * waveSize + j) * (2 ^ (j)) );
            }
            decodedWaveform.append(waveformHeight);
        }
        voiceNoteMap.insert("decoded_voice_note", decodedWaveform);
        contentMap.insert("voice_note", voiceNoteMap);
        enhancedMessage.insert("content", contentMap);
    }
    return enhancedMessage;
}

int ChatModel::calculateLastKnownMessageId()
{
    qDebug() << "[ChatModel] calculateLastKnownMessageId";
    QString lastKnownMessageId = this->chatInformation.value("last_read_inbox_message_id").toString();
    qDebug() << "[ChatModel] lastKnownMessageId" << lastKnownMessageId;
    qDebug() << "[ChatModel] size messageIndexMap" << this->messageIndexMap.size();
    qDebug() << "[ChatModel] contains ID?" << this->messageIndexMap.contains(lastKnownMessageId);
    int listInboxPosition = this->messageIndexMap.value(lastKnownMessageId, this->messages.size() - 1).toInt();
    if (listInboxPosition > this->messages.size() - 1 ) {
        listInboxPosition = this->messages.size() - 1;
    }
    qDebug() << "[ChatModel] Last known message is at position" << listInboxPosition;
    return listInboxPosition;
}

int ChatModel::calculateLastReadSentMessageId()
{
    qDebug() << "[ChatModel] calculateLastReadSentMessageId";
    QString lastReadSentMessageId = this->chatInformation.value("last_read_outbox_message_id").toString();
    qDebug() << "[ChatModel] lastReadSentMessageId" << lastReadSentMessageId;
    qDebug() << "[ChatModel] size messageIndexMap" << this->messageIndexMap.size();
    qDebug() << "[ChatModel] contains ID?" << this->messageIndexMap.contains(lastReadSentMessageId);
    int listOutboxPosition = this->messageIndexMap.value(lastReadSentMessageId, this->messages.size() - 1).toInt();
    qDebug() << "[ChatModel] Last read sent message is at position" << listOutboxPosition;
    return listOutboxPosition;
}

void ChatModel::calculateMessageIndexMap()
{
    qDebug() << "[ChatModel] calculateMessageIndexMap";
    this->messageIndexMap.clear();
    for (int i = 0; i < this->messages.size(); i++) {
        this->messageIndexMap.insert(this->messages.at(i).toMap().value("id").toString(), i);
    }
}