#include "window.hh"
#include "buffer.hh"
#include "shell_manager.hh"
#include "commands.hh"
#include "command_manager.hh"
#include "buffer_manager.hh"
#include "register_manager.hh"
#include "selectors.hh"
#include "assert.hh"
#include "debug.hh"
#include "highlighters.hh"
#include "highlighter_registry.hh"
#include "filters.hh"
#include "filter_registry.hh"
#include "hook_manager.hh"
#include "option_manager.hh"
#include "event_manager.hh"
#include "context.hh"
#include "ncurses.hh"
#include "string.hh"

#include <unordered_map>
#include <sys/types.h>
#include <sys/wait.h>

using namespace Kakoune;
using namespace std::placeholders;


namespace Kakoune
{

bool quit_requested = false;

template<IncrementalInserter::Mode mode>
void do_insert(Context& context)
{
    context.client().insert(context.editor(), mode);
}

void do_repeat_insert(Context& context)
{
    context.client().repeat_last_insert(context.editor(), context);
}

template<bool append>
void do_go(Context& context)
{
    int count = context.numeric_param();
    if (count != 0)
    {
        BufferIterator target =
            context.editor().buffer().iterator_at_line_begin(count-1);

        context.editor().select(target);
        if (context.has_window())
            context.window().center_selection();
    }
    else
        context.client().on_next_key([](const Key& key, Context& context) {
            if (key.modifiers != Key::Modifiers::None)
                return;

            Editor& editor = context.editor();
            switch (key.key)
            {
            case 'g':
            case 't':
                editor.select(editor.buffer().begin());
                break;
            case 'l':
            case 'L':
                editor.select(select_to_eol, append);
                break;
            case 'h':
            case 'H':
                editor.select(select_to_eol_reverse, append);
                break;
            case 'b':
            {
                const Buffer& buf = editor.buffer();
                editor.select(buf.iterator_at_line_begin(buf.line_count() - 1));
                break;
            }
            }
        });
}

void do_command(Context& context)
{
    context.client().prompt(
        ":", std::bind(&CommandManager::complete, &CommandManager::instance(), _1, _2, _3),
        [](const String& cmdline, Context& context) { CommandManager::instance().execute(cmdline, context); });
}

void do_pipe(Context& context)
{
    context.client().prompt("|", complete_nothing,
        [](const String& cmdline, Context& context)
        {
            Editor& editor = context.editor();
            std::vector<String> strings;
            for (auto& sel : const_cast<const Editor&>(context.editor()).selections())
                strings.push_back(ShellManager::instance().pipe(String(sel.begin(), sel.end()),
                                                                cmdline, context, {}));
            editor.replace(strings);
        });

}

template<bool append>
void do_search(Context& context)
{
    context.client().prompt("/", complete_nothing,
        [](const String& str, Context& context) {
            String ex = str;
            if (ex.empty())
                ex = RegisterManager::instance()['/'].values(context)[0];
            else
                RegisterManager::instance()['/'] = ex;

            context.editor().select(std::bind(select_next_match, _1, ex), append);
        });
}

template<bool append>
void do_search_next(Context& context)
{
    const String& ex = RegisterManager::instance()['/'].values(context)[0];
    if (not ex.empty())
        context.editor().select(std::bind(select_next_match, _1, ex), append);
    else
        context.print_status("no search pattern");
}

void do_yank(Context& context)
{
    RegisterManager::instance()['"'] = context.editor().selections_content();
}

void do_erase(Context& context)
{
    RegisterManager::instance()['"'] = context.editor().selections_content();
    context.editor().erase();
}

void do_change(Context& context)
{
    RegisterManager::instance()['"'] = context.editor().selections_content();
    do_insert<IncrementalInserter::Mode::Change>(context);
}

enum class PasteMode
{
    Before,
    After,
    Replace
};

template<PasteMode paste_mode>
void do_paste(Context& context)
{
    Editor& editor = context.editor();
    int count = context.numeric_param();
    Register& reg = RegisterManager::instance()['"'];
    if (count == 0)
    {
        if (paste_mode == PasteMode::Before)
            editor.insert(reg.values(context));
        else if (paste_mode == PasteMode::After)
            editor.append(reg.values(context));
        else if (paste_mode == PasteMode::Replace)
            editor.replace(reg.values(context));
    }
    else
    {
        if (paste_mode == PasteMode::Before)
            editor.insert(reg.values(context)[count-1]);
        else if (paste_mode == PasteMode::After)
            editor.append(reg.values(context)[count-1]);
        else if (paste_mode == PasteMode::Replace)
            editor.replace(reg.values(context)[count-1]);
    }
}

void do_select_regex(Context& context)
{
    context.client().prompt("select: ", complete_nothing,
        [](const String& ex, Context& context)
        { context.editor().multi_select(std::bind(select_all_matches, _1, ex)); });
}

void do_split_regex(Context& context)
{
    context.client().prompt("select: ", complete_nothing,
        [](const String& ex, Context& context)
        { context.editor().multi_select(std::bind(split_selection, _1, ex)); });
}

void do_join(Context& context)
{
    Editor& editor = context.editor();
    editor.select(select_whole_lines);
    editor.select(select_to_eol, true);
    editor.multi_select(std::bind(select_all_matches, _1, "\n\\h*"));
    editor.replace(" ");
    editor.clear_selections();
    editor.move_selections({0, -1});
}

template<bool inner>
void do_select_object(Context& context)
{
    context.client().on_next_key(
    [](const Key& key, Context& context) {
        typedef std::function<SelectionAndCaptures (const Selection&)> Selector;
        static const std::unordered_map<Key, Selector> key_to_selector =
        {
            { { Key::Modifiers::None, '(' }, std::bind(select_surrounding, _1, std::pair<char, char>{ '(', ')' }, inner) },
            { { Key::Modifiers::None, ')' }, std::bind(select_surrounding, _1, std::pair<char, char>{ '(', ')' }, inner) },
            { { Key::Modifiers::None, 'b' }, std::bind(select_surrounding, _1, std::pair<char, char>{ '(', ')' }, inner) },
            { { Key::Modifiers::None, '{' }, std::bind(select_surrounding, _1, std::pair<char, char>{ '{', '}' }, inner) },
            { { Key::Modifiers::None, '}' }, std::bind(select_surrounding, _1, std::pair<char, char>{ '{', '}' }, inner) },
            { { Key::Modifiers::None, 'B' }, std::bind(select_surrounding, _1, std::pair<char, char>{ '{', '}' }, inner) },
            { { Key::Modifiers::None, '[' }, std::bind(select_surrounding, _1, std::pair<char, char>{ '[', ']' }, inner) },
            { { Key::Modifiers::None, ']' }, std::bind(select_surrounding, _1, std::pair<char, char>{ '[', ']' }, inner) },
            { { Key::Modifiers::None, '<' }, std::bind(select_surrounding, _1, std::pair<char, char>{ '<', '>' }, inner) },
            { { Key::Modifiers::None, '>' }, std::bind(select_surrounding, _1, std::pair<char, char>{ '<', '>' }, inner) },
            { { Key::Modifiers::None, 'w' }, std::bind(select_whole_word<false>, _1, inner) },
            { { Key::Modifiers::None, 'W' }, std::bind(select_whole_word<true>, _1, inner) },
        };

        auto it = key_to_selector.find(key);
        if (it != key_to_selector.end())
            context.editor().select(it->second);
    });
}

template<typename T>
class Repeated
{
public:
    Repeated(T t) : m_func(t) {}

    void operator() (Context& context)
    {
        int count = context.numeric_param();
        do { m_func(context); } while(--count > 0);
    }
private:
    T m_func;
};

template<typename T>
Repeated<T> repeated(T func) { return Repeated<T>(func); }

namespace SelectMode
{
    enum Flags
    {
        None = 0,
        Reverse = 1,
        Inclusive = 2,
        Append = 4
    };
}

template<int flags>
void select_to_next_char(Context& context)
{
    int param = context.numeric_param();
    context.client().on_next_key([param](const Key& key, Context& context) {
        context.editor().select(
            std::bind(flags & SelectMode::Reverse ? select_to_reverse : select_to,
                      _1, key.key, param, flags & SelectMode::Inclusive),
            flags & SelectMode::Append);
   });
}

std::unordered_map<Key, std::function<void (Context& context)>> keymap =
{
    { { Key::Modifiers::None, 'h' }, [](Context& context) { context.editor().move_selections({  0, -std::max(context.numeric_param(),1) }); } },
    { { Key::Modifiers::None, 'j' }, [](Context& context) { context.editor().move_selections({  std::max(context.numeric_param(),1), 0  }); } },
    { { Key::Modifiers::None, 'k' }, [](Context& context) { context.editor().move_selections({ -std::max(context.numeric_param(),1), 0 }); } },
    { { Key::Modifiers::None, 'l' }, [](Context& context) { context.editor().move_selections({  0,  std::max(context.numeric_param(),1) }); } },

    { { Key::Modifiers::None, 'H' }, [](Context& context) { context.editor().move_selections({  0, -std::max(context.numeric_param(),1) }, true); } },
    { { Key::Modifiers::None, 'J' }, [](Context& context) { context.editor().move_selections({  std::max(context.numeric_param(),1), 0 }, true); } },
    { { Key::Modifiers::None, 'K' }, [](Context& context) { context.editor().move_selections({ -std::max(context.numeric_param(),1), 0 }, true); } },
    { { Key::Modifiers::None, 'L' }, [](Context& context) { context.editor().move_selections({  0,  std::max(context.numeric_param(),1) }, true); } },

    { { Key::Modifiers::None, 't' }, select_to_next_char<SelectMode::None> },
    { { Key::Modifiers::None, 'f' }, select_to_next_char<SelectMode::Inclusive> },
    { { Key::Modifiers::None, 'T' }, select_to_next_char<SelectMode::Append> },
    { { Key::Modifiers::None, 'F' }, select_to_next_char<SelectMode::Inclusive | SelectMode::Append> },
    { { Key::Modifiers::Alt,  't' }, select_to_next_char<SelectMode::Reverse> },
    { { Key::Modifiers::Alt,  'f' }, select_to_next_char<SelectMode::Inclusive | SelectMode::Reverse> },
    { { Key::Modifiers::Alt,  'T' }, select_to_next_char<SelectMode::Append | SelectMode::Reverse> },
    { { Key::Modifiers::Alt,  'F' }, select_to_next_char<SelectMode::Inclusive | SelectMode::Append | SelectMode::Reverse> },

    { { Key::Modifiers::None, 'd' }, do_erase },
    { { Key::Modifiers::None, 'c' }, do_change },
    { { Key::Modifiers::None, 'i' }, do_insert<IncrementalInserter::Mode::Insert> },
    { { Key::Modifiers::None, 'I' }, do_insert<IncrementalInserter::Mode::InsertAtLineBegin> },
    { { Key::Modifiers::None, 'a' }, do_insert<IncrementalInserter::Mode::Append> },
    { { Key::Modifiers::None, 'A' }, do_insert<IncrementalInserter::Mode::AppendAtLineEnd> },
    { { Key::Modifiers::None, 'o' }, do_insert<IncrementalInserter::Mode::OpenLineBelow> },
    { { Key::Modifiers::None, 'O' }, do_insert<IncrementalInserter::Mode::OpenLineAbove> },

    { { Key::Modifiers::None, 'g' }, do_go<false> },
    { { Key::Modifiers::None, 'G' }, do_go<true> },

    { { Key::Modifiers::None, 'y' }, do_yank },
    { { Key::Modifiers::None, 'p' }, do_paste<PasteMode::After> },
    { { Key::Modifiers::None, 'P' }, do_paste<PasteMode::Before> },
    { { Key::Modifiers::Alt,  'p' }, do_paste<PasteMode::Replace> },

    { { Key::Modifiers::None, 's' }, do_select_regex },

    { { Key::Modifiers::None, '.' }, do_repeat_insert },

    { { Key::Modifiers::None, '%' }, [](Context& context) { context.editor().clear_selections(); context.editor().select(select_whole_buffer); } },

    { { Key::Modifiers::None, ':' }, do_command },
    { { Key::Modifiers::None, '|' }, do_pipe },
    { { Key::Modifiers::None, ' ' }, [](Context& context) { int count = context.numeric_param();
                                                            if (count == 0) context.editor().clear_selections();
                                                            else context.editor().keep_selection(count-1); } },
    { { Key::Modifiers::Alt,  ' ' }, [](Context& context) { int count = context.numeric_param();
                                                            if (count == 0) context.editor().clear_selections();
                                                            else context.editor().remove_selection(count-1); } },
    { { Key::Modifiers::None, 'w' }, repeated([](Context& context) { context.editor().select(select_to_next_word<false>); }) },
    { { Key::Modifiers::None, 'e' }, repeated([](Context& context) { context.editor().select(select_to_next_word_end<false>); }) },
    { { Key::Modifiers::None, 'b' }, repeated([](Context& context) { context.editor().select(select_to_previous_word<false>); }) },
    { { Key::Modifiers::None, 'W' }, repeated([](Context& context) { context.editor().select(select_to_next_word<false>, true); }) },
    { { Key::Modifiers::None, 'E' }, repeated([](Context& context) { context.editor().select(select_to_next_word_end<false>, true); }) },
    { { Key::Modifiers::None, 'B' }, repeated([](Context& context) { context.editor().select(select_to_previous_word<false>, true); }) },
    { { Key::Modifiers::None, 'x' }, repeated([](Context& context) { context.editor().select(select_line, false); }) },
    { { Key::Modifiers::None, 'X' }, repeated([](Context& context) { context.editor().select(select_line, true); }) },
    { { Key::Modifiers::None, 'm' }, [](Context& context) { context.editor().select(select_matching); } },
    { { Key::Modifiers::None, 'M' }, [](Context& context) { context.editor().select(select_matching, true); } },

    { { Key::Modifiers::None, '/' }, do_search<false> },
    { { Key::Modifiers::None, '?' }, do_search<true> },
    { { Key::Modifiers::None, 'n' }, do_search_next<false> },
    { { Key::Modifiers::None, 'N' }, do_search_next<true> },

    { { Key::Modifiers::None, 'u' }, repeated([](Context& context) { if (not context.editor().undo()) { context.print_status("nothing left to undo"); } }) },
    { { Key::Modifiers::None, 'U' }, repeated([](Context& context) { if (not context.editor().redo()) { context.print_status("nothing left to redo"); } }) },

    { { Key::Modifiers::Alt,  'i' }, do_select_object<true> },
    { { Key::Modifiers::Alt,  'a' }, do_select_object<false> },

    { { Key::Modifiers::Alt, 'w' }, repeated([](Context& context) { context.editor().select(select_to_next_word<true>); }) },
    { { Key::Modifiers::Alt, 'e' }, repeated([](Context& context) { context.editor().select(select_to_next_word_end<true>); }) },
    { { Key::Modifiers::Alt, 'b' }, repeated([](Context& context) { context.editor().select(select_to_previous_word<true>); }) },
    { { Key::Modifiers::Alt, 'W' }, repeated([](Context& context) { context.editor().select(select_to_next_word<true>, true); }) },
    { { Key::Modifiers::Alt, 'E' }, repeated([](Context& context) { context.editor().select(select_to_next_word_end<true>, true); }) },
    { { Key::Modifiers::Alt, 'B' }, repeated([](Context& context) { context.editor().select(select_to_previous_word<true>, true); }) },

    { { Key::Modifiers::Alt, 'l' }, repeated([](Context& context) { context.editor().select(select_to_eol, false); }) },
    { { Key::Modifiers::Alt, 'L' }, repeated([](Context& context) { context.editor().select(select_to_eol, true); }) },
    { { Key::Modifiers::Alt, 'h' }, repeated([](Context& context) { context.editor().select(select_to_eol_reverse, false); }) },
    { { Key::Modifiers::Alt, 'H' }, repeated([](Context& context) { context.editor().select(select_to_eol_reverse, true); }) },

    { { Key::Modifiers::Alt, 's' }, do_split_regex },

    { { Key::Modifiers::Alt, 'j' }, do_join },

    { { Key::Modifiers::Alt, 'x' }, [](Context& context) { context.editor().select(select_whole_lines); } },

    { { Key::Modifiers::Alt, 'c' }, [](Context& context) { if (context.has_window()) context.window().center_selection(); } },
};

}

void run_unit_tests();

int main(int argc, char* argv[])
{
    EventManager        event_manager;
    GlobalOptionManager option_manager;
    GlobalHookManager   hook_manager;
    ShellManager        shell_manager;
    CommandManager      command_manager;
    BufferManager       buffer_manager;
    RegisterManager     register_manager;
    HighlighterRegistry highlighter_registry;
    FilterRegistry      filter_registry;

    run_unit_tests();

    shell_manager.register_env_var("bufname",
                                   [](const String& name, const Context& context)
                                   { return context.buffer().name(); });
    shell_manager.register_env_var("selection",
                                   [](const String& name, const Context& context)
                                   { return context.window().selections_content().back(); });
    shell_manager.register_env_var("opt_.+",
                                   [](const String& name, const Context& context)
                                   { return context.option_manager()[name.substr(4)].as_string(); });
    shell_manager.register_env_var("reg_.+",
                                   [](const String& name, const Context& context)
                                   { return RegisterManager::instance()[name[4]].values(context)[0]; });

    register_manager.register_dynamic_register('%', [&](const Context& context) { return std::vector<String>(1, context.buffer().name()); });
    register_manager.register_dynamic_register('.', [&](const Context& context) { return context.editor().selections_content(); });

    register_commands();
    register_highlighters();
    register_filters();

    try
    {
        NCursesClient client;
        Context context(client);

        try
        {
            Context initialisation_context;
            command_manager.execute("runtime kakrc", initialisation_context);
        }
        catch (Kakoune::runtime_error& error)
        {
            context.print_status(error.description());
        }


        write_debug("*** This is the debug buffer, where debug info will be written ***\n");
        write_debug("utf-8 test: é á ï");

        if (argc > 1)
        {
            String cmd = "edit ";
            for (int i = 1; i < argc; ++i)
                cmd += String(" ") + argv[i];
            command_manager.execute(cmd, context);
        }
        else
        {
            auto buffer = new Buffer("*scratch*", Buffer::Type::Scratch);
            context.change_editor(*buffer->get_or_create_window());
        }

        event_manager.watch(0, [&](int) { client.handle_next_input(context); });

        context.draw_ifn();
        while(not quit_requested)
        {
            try
            {
                event_manager.handle_next_events();
            }
            catch (Kakoune::runtime_error& error)
            {
                context.print_status(error.description());
            }
        }
    }
    catch (Kakoune::exception& error)
    {
        puts("uncaught exception:\n");
        puts(error.description().c_str());
        return -1;
    }
    return 0;
}