#include "../include/MessageBoard.hpp"
#include "../include/Settings.hpp"
#include "../include/ResourceCache.hpp"
#include "../include/Gif.hpp"
#include "../include/ChannelSidePanel.hpp"
#include "../include/UsersSidePanel.hpp"
#include "../include/ChannelTopPanel.hpp"
#include "../include/Chatbar.hpp"
#include "../include/ColorScheme.hpp"
#include "../include/Theme.hpp"
#include <SFML/Graphics/CircleShape.hpp>
#include <SFML/Graphics/RectangleShape.hpp>
#include <SFML/Graphics/Sprite.hpp>
#include <SFML/Window/Mouse.hpp>
#include <SFML/Graphics/Rect.hpp>
#include <SFML/Graphics/Text.hpp>
#include <cmath>

using namespace std;

namespace dchat
{
    struct LineColor
    {
        sf::Color sideColor, centerColor;
    };
    
    const float USERNAME_PADDING_BOTTOM = 5.0f;
    
    const float PADDING_SIDE = 40.0f;
    const float PADDING_TOP = 0.0f;
    const float LINE_SIDE_PADDING = 20.0f;
    const float LINE_HEIGHT = 1.0f;
    const float USERNAME_TIMESTAMP_SIDE_PADDING = 15.0f;
    const float AVATAR_DIAMETER = 70.0f;
    const float AVATAR_PADDING_SIDE = 30.0f;
    const double SCROLL_MAX_SPEED = 20.0;
    
    // Merge messages from same user that are sent within one minute
    const int MERGE_TEXT_TIMESTAMP_DIFF_SEC = 60;
    
    MessageBoard::MessageBoard(const sf::Vector2u &size) : 
        selectingText(false),
        leftMouseButtonPressed(false),
        scroll(0.0),
        scrollSpeed(0.0),
        totalHeight(0.0),
        scrollToBottom(false)
    {
        updateStaticContentTexture(size);
    }
    
    MessageBoard::~MessageBoard()
    {
        for(Message *message : messages)
        {
            delete message;
        }
    }
    
    void MessageBoard::updateStaticContentTexture(const sf::Vector2u &newSize)
    {
        //if(!staticContentTexture.create(newSize.x, newSize.y))
        //    throw std::runtime_error("Failed to create render target for message board!");
        dirty = true;
    }
    
    void MessageBoard::addMessage(Message *message)
    {
        messages.push_back(message);
        dirty = true;
        scrollToBottom = true;
    }
    
    void MessageBoard::drawDefault(sf::RenderWindow &window, Cache &cache)
    {
        const float LINE_SPACING = 5.0f * Settings::getScaling();
        const float MESSAGE_PADDING_TOP = 25.0f;
        const float MESSAGE_PADDING_BOTTOM = 30.0f;
        
        const sf::Font *usernameFont = ResourceCache::getFont("fonts/Roboto-Regular.ttf");
        const int usernameTextCharacterSize = 20 * Settings::getScaling();
        const float usernameTextHeight = usernameFont->getLineSpacing(usernameTextCharacterSize);
        
        const sf::Font *timestampFont = ResourceCache::getFont("fonts/Roboto-Regular.ttf");
        const int timestampTextCharacterSize = (float)usernameTextCharacterSize * 0.75f;
        const float timestampTextHeight = timestampFont->getLineSpacing(timestampTextCharacterSize);
        
        sf::RectangleShape lineRect(sf::Vector2f(backgroundSizeWithoutPadding.x - LINE_SIDE_PADDING  * Settings::getScaling() * 2.0f, LINE_HEIGHT));
        lineRect.setFillColor(ColorScheme::getBackgroundColor() + sf::Color(10, 10, 10));
        
        sf::Vector2<double> position(ChannelSidePanel::getWidth() + PADDING_SIDE * Settings::getScaling(), ChannelTopPanel::getHeight() + PADDING_TOP);
        double startHeight = position.y;
        position.y += scroll;
        usize numMessages = messages.size();
        for(usize i = 0; i < numMessages; ++i)
        {
            Message *message = messages[i];
            
            bool mergeTextWithPrev = false;
            if(i > 0)
            {
                Message *prevMessage = messages[i - 1];
                mergeTextWithPrev = prevMessage->user == message->user && (message->timestampSeconds == 0 || message->timestampSeconds - prevMessage->timestampSeconds <= MERGE_TEXT_TIMESTAMP_DIFF_SEC);
            }
            
            bool mergeTextWithNext = false;
            if(i < numMessages - 1)
            {
                Message *nextMessage = messages[i + 1];
                mergeTextWithNext = nextMessage->user == message->user && (nextMessage->timestampSeconds == 0 || nextMessage->timestampSeconds - message->timestampSeconds <= MERGE_TEXT_TIMESTAMP_DIFF_SEC);
            }
            
            if(!mergeTextWithPrev)
            {
                position.y += (MESSAGE_PADDING_TOP * Settings::getScaling());
                if(position.y + usernameTextHeight > 0.0f && position.y < backgroundPos.y + backgroundSize.y)
                {
                    sf::Text usernameText(sf::String::fromUtf8(message->user->getName().begin(), message->user->getName().end()), *usernameFont, usernameTextCharacterSize);
                    usernameText.setFillColor(sf::Color(15, 192, 252));
                    usernameText.setPosition(sf::Vector2f(floor(position.x + (AVATAR_DIAMETER + AVATAR_PADDING_SIDE) * Settings::getScaling()), floor(position.y)));
                    window.draw(usernameText);
                    
                    if(message->timestampSeconds)
                    {
                        time_t time = (time_t)message->timestampSeconds;
                        struct tm *localTimePtr = localtime(&time);
                        char date[30];
                        strftime(date, sizeof(date), "%Y-%m-%d at %T", localTimePtr);
                        
                        sf::Text timestamp(date, *timestampFont, timestampTextCharacterSize);
                        timestamp.setFillColor(ColorScheme::getTextRegularColor() * sf::Color(255, 255, 255, 50));
                        timestamp.setPosition(sf::Vector2f(floor(position.x + (AVATAR_DIAMETER + AVATAR_PADDING_SIDE) * Settings::getScaling() + usernameText.getLocalBounds().width + USERNAME_TIMESTAMP_SIDE_PADDING * Settings::getScaling()), floor(position.y + 2.0f * Settings::getScaling() + usernameTextHeight * 0.5f - timestampTextHeight * 0.5f)));
                        window.draw(timestamp);
                    }
                    
                    // Max avatar size = 1mb
                    const ContentByUrlResult avatarResult = cache.getContentByUrl(message->user->avatarUrl, 1024 * 1024);
                    if(avatarResult.type == ContentByUrlResult::Type::CACHED)
                    {
                        sf::Shader *circleShader = ResourceCache::getShader("shaders/circleMask.glsl", sf::Shader::Fragment);
                        circleShader->setUniform("texture", sf::Shader::CurrentTexture);
                        
                        if(avatarResult.cachedType == ContentByUrlResult::CachedType::TEXTURE)
                        {
                            // TODO: Store this sprite somewhere, might not be efficient to create a new sprite object every frame
                            sf::Sprite sprite(*avatarResult.texture);
                            auto textureSize = avatarResult.texture->getSize();
                            sprite.setPosition(sf::Vector2f(floor(position.x), floor(position.y)));
                            sprite.setScale(sf::Vector2f(AVATAR_DIAMETER * Settings::getScaling() / (float)textureSize.x, AVATAR_DIAMETER * Settings::getScaling() / (float)textureSize.y));
                            window.draw(sprite, circleShader);
                        }
                        else if(avatarResult.cachedType == ContentByUrlResult::CachedType::GIF)
                        {
                            auto gifSize = avatarResult.gif->getSize();
                            avatarResult.gif->setPosition(sf::Vector2f(floor(position.x), floor(position.y)));
                            avatarResult.gif->setScale(sf::Vector2f(AVATAR_DIAMETER * Settings::getScaling() / (float)gifSize.x, AVATAR_DIAMETER * Settings::getScaling() / (float)gifSize.y));
                            avatarResult.gif->draw(window, circleShader);
                        }
                    }
                    else
                    {
                        sf::CircleShape avatarCircle(AVATAR_DIAMETER * 0.5f * Settings::getScaling(), 60 * Settings::getScaling());
                        avatarCircle.setPosition(sf::Vector2f(floor(position.x), floor(position.y)));
                        avatarCircle.setFillColor(ColorScheme::getBackgroundColor() + sf::Color(30, 30, 30));
                        window.draw(avatarCircle);
                    }
                }
                
                position.y += usernameTextHeight + USERNAME_PADDING_BOTTOM * Settings::getScaling();
            }
            
            // No need to perform culling here, that is done in @Text draw function
            message->text.setCharacterSize(18 * Settings::getScaling());
            message->text.setMaxWidth(backgroundSize.x - (AVATAR_DIAMETER + AVATAR_PADDING_SIDE) * Settings::getScaling());
            message->text.setPosition(sf::Vector2f(floor(position.x + (AVATAR_DIAMETER + AVATAR_PADDING_SIDE) * Settings::getScaling()), floor(position.y)));
            message->text.setLineSpacing(LINE_SPACING);
            message->text.draw(window, cache);
            position.y += message->text.getHeight();
            if(!mergeTextWithNext)
            {
                position.y += (MESSAGE_PADDING_BOTTOM  * Settings::getScaling());
            
                if(position.y + LINE_HEIGHT > 0.0f && position.y < backgroundPos.y + backgroundSize.y && i + 1 != numMessages)
                {
                    lineRect.setPosition(sf::Vector2f(position.x + LINE_SIDE_PADDING * Settings::getScaling() - PADDING_SIDE * Settings::getScaling(), floor(position.y)));
                    window.draw(lineRect);
                    //drawGradientLine(sf::Vector2f(position.x + LINE_SIDE_PADDING, floor(position.y)), sf::Vector2f(backgroundSizeWithoutPadding.x - LINE_SIDE_PADDING * 2.0f, LINE_HEIGHT), LINE_COLOR, window);
                }
                
                position.y += LINE_HEIGHT;
            }
        }
        totalHeight = (position.y - scroll) - startHeight;
    }
    
    void MessageBoard::drawSimple(sf::RenderWindow &window, Cache &cache)
    {
        const float LINE_SPACING = 20.0f * Settings::getScaling();
        const float MESSAGE_PADDING_TOP = 0.0f;
        const float MESSAGE_PADDING_BOTTOM = 0.0f;
        
        const sf::Font *usernameFont = ResourceCache::getFont("fonts/Roboto-Regular.ttf");
        const int usernameTextCharacterSize = 20 * Settings::getScaling();
        const float usernameTextHeight = usernameFont->getLineSpacing(usernameTextCharacterSize);
        const float usernameMaxWidth = usernameTextHeight * 5.0f;
        
        const sf::Font *timestampFont = ResourceCache::getFont("fonts/Roboto-Regular.ttf");
        const int timestampTextCharacterSize = 15 * Settings::getScaling();
        const float timestampTextHeight = timestampFont->getLineSpacing(timestampTextCharacterSize);
        
        sf::Vector2<double> position(ChannelSidePanel::getWidth() + PADDING_SIDE * Settings::getScaling() + usernameMaxWidth, ChannelTopPanel::getHeight() + PADDING_TOP);
        double startHeight = position.y;
        position.y += scroll;
        usize numMessages = messages.size();
        for(usize i = 0; i < numMessages; ++i)
        {
            Message *message = messages[i];
            position.y += (MESSAGE_PADDING_TOP * Settings::getScaling());
            if(position.y + usernameTextHeight > 0.0f && position.y < backgroundPos.y + backgroundSize.y)
            {
                sf::String usernameTextStr = sf::String::fromUtf8(message->user->getName().begin(), message->user->getName().end());
                usernameTextStr += "  -  ";
                sf::Text usernameText(usernameTextStr, *usernameFont, usernameTextCharacterSize);
                usernameText.setFillColor(sf::Color(15, 192, 252));
                usernameText.setPosition(sf::Vector2f(floor(position.x - usernameText.getLocalBounds().width), floor(position.y)));
                window.draw(usernameText);
                
                if(message->timestampSeconds)
                {
                    time_t time = (time_t)message->timestampSeconds;
                    struct tm *localTimePtr = localtime(&time);
                    char date[30];
                    strftime(date, sizeof(date), "%Y-%m-%d at %T", localTimePtr);
                    
                    //sf::Text timestamp(date, *timestampFont, timestampTextCharacterSize);
                    //timestamp.setFillColor(ColorScheme::getTextRegularColor() * sf::Color(255, 255, 255, 30));
                    //timestamp.setPosition(sf::Vector2f(floor(position.x  - usernameText.getLocalBounds().width + usernameText.getLocalBounds().width + USERNAME_TIMESTAMP_SIDE_PADDING * Settings::getScaling()), floor(position.y + 2.0f * Settings::getScaling() + usernameTextHeight * 0.5f - timestampTextHeight * 0.5f)));
                    //window.draw(timestamp);
                }
            }
            
            // No need to perform culling here, that is done in @Text draw function
            message->text.setCharacterSize(18 * Settings::getScaling());
            message->text.setMaxWidth(backgroundSize.x - usernameMaxWidth * 2.0f);
            message->text.setPosition(sf::Vector2f(floor(position.x), floor(position.y)));
            message->text.setLineSpacing(LINE_SPACING);
            message->text.draw(window, cache);
            position.y += (message->text.getHeight() + MESSAGE_PADDING_BOTTOM  * Settings::getScaling());
        }
        totalHeight = (position.y - scroll) - startHeight;
    }
    
    void MessageBoard::processEvent(const sf::Event &event)
    {
        if(event.type == sf::Event::MouseButtonPressed)
        {
            if(event.mouseButton.button == sf::Mouse::Button::Left)
            {
                leftMouseButtonPressed = true;
                mousePos.x = event.mouseButton.x;
                mousePos.y = event.mouseButton.y;
            }
        }
        else if(event.type == sf::Event::MouseButtonReleased)
        {
            if(event.mouseButton.button == sf::Mouse::Button::Left)
            {
                leftMouseButtonPressed = false;
                mousePos.x = event.mouseButton.x;
                mousePos.y = event.mouseButton.y;
            }
        }
        else if(event.type == sf::Event::LostFocus)
        {
            leftMouseButtonPressed = false;
        }
        else if(event.type == sf::Event::MouseMoved)
        {
            mousePos.x = event.mouseMove.x;
            mousePos.y = event.mouseMove.y;
        }
        else if(event.type == sf::Event::MouseWheelScrolled && event.mouseWheelScroll.wheel == sf::Mouse::Wheel::VerticalWheel)
        {
            scrollSpeed += (event.mouseWheelScroll.delta * 5.0);
            if(scrollSpeed > SCROLL_MAX_SPEED)
                scrollSpeed = SCROLL_MAX_SPEED;
            else if(scrollSpeed < -SCROLL_MAX_SPEED)
                scrollSpeed = -SCROLL_MAX_SPEED;
        }
        
        if(selectingText && !leftMouseButtonPressed)
        {
            selectingText = false;
        }
        else if(!selectingText && leftMouseButtonPressed)
        {
            selectingText = true;
            selectingTextStart.x = mousePos.x;
            selectingTextStart.y = mousePos.y;
        }
        
        for(Message *message : messages)
        {
            message->text.processEvent(event);
        }
    }
    
    void MessageBoard::draw(sf::RenderWindow &window, Cache &cache)
    {
        auto windowSize = window.getSize();
        backgroundSizeWithoutPadding = sf::Vector2f(floor(windowSize.x - ChannelSidePanel::getWidth() - UsersSidePanel::getWidth()), floor(windowSize.y - ChannelTopPanel::getHeight() - Chatbar::getHeight()));
        backgroundSize = sf::Vector2f(floor(windowSize.x - ChannelSidePanel::getWidth() - UsersSidePanel::getWidth() - PADDING_SIDE * Settings::getScaling() * 2.0f), floor(windowSize.y - ChannelTopPanel::getHeight() - Chatbar::getHeight() - PADDING_TOP));
        backgroundPos = sf::Vector2f(ChannelSidePanel::getWidth(), ChannelTopPanel::getHeight());
        
        //if(backgroundSize != staticContentTexture.getSize())
        //    updateStaticContentTexture(backgroundSize);
        
        // TODO: Remove this when dchat::Text can render to static and dynamic render target
        dirty = true;
        //if(dirty)
        //    staticContentTexture.clear(BACKGROUND_COLOR);
        
        sf::RectangleShape backgroundRect(backgroundSizeWithoutPadding);
        backgroundRect.setFillColor(ColorScheme::getBackgroundColor());
        backgroundRect.setPosition(ChannelSidePanel::getWidth(), ChannelTopPanel::getHeight());
        window.draw(backgroundRect);
        
        double deltaTimeMicro = (double)frameTimer.getElapsedTime().asMicroseconds();
        frameTimer.restart();
        
        if(dirty)
        {
            switch(Theme::getType())
            {
                case Theme::Type::DEFAULT:
                    drawDefault(window, cache);
                    break;
                case Theme::Type::SIMPLE:
                    drawSimple(window, cache);
                    break;
            }
        }
        
        scroll += scrollSpeed;
        
        double deltaTimeScrollMultiplier = deltaTimeMicro * 0.00004;
        if(scrollSpeed > 0.0)
        {
            scrollSpeed -= deltaTimeScrollMultiplier;
        }
        else
        {
            scrollSpeed += deltaTimeScrollMultiplier;
        }
        
        if(abs(scrollSpeed - deltaTimeScrollMultiplier) <= deltaTimeScrollMultiplier)
            scrollSpeed = 0.0;
        
        double textOverflow = (double)backgroundSize.y - totalHeight;
        if(scroll > 0.0 || textOverflow > 0.0)
        {
            scroll = 0.0;
            scrollSpeed = 0.0;
        }
        else if(textOverflow < 0.0 && scroll < textOverflow)
        {
            scroll = textOverflow;
            scrollSpeed = 0.0;
        }
        
        if(scrollToBottom)
        {
            scrollToBottom = false;
            if(textOverflow < 0.0)
                scroll = textOverflow;
            else
                scroll = 0.0;
        }
        
        //staticContentTexture.display();
        dirty = false;
        
        // TODO: Save this, expensive to create on fly?
        //sf::Sprite textureSprite(staticContentTexture.getTexture());
        //textureSprite.setPosition(backgroundPos);
        //window.draw(textureSprite);
        
        if(!selectingText) return;
        
        sf::Vector2f selectionRectStart(min((float)mousePos.x, selectingTextStart.x), min((float)mousePos.y, selectingTextStart.y));
        sf::Vector2f selectionRectEnd(max((float)mousePos.x, selectingTextStart.x), max((float)mousePos.y, selectingTextStart.y));
        sf::FloatRect selectionRect(selectionRectStart, selectionRectEnd - selectionRectStart);
    }
}