#include "window.hh"
#include "buffer.hh"
#include "file.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 "hooks_manager.hh"
#include "keys.hh"

#include <unordered_map>
#include <map>
#include <sstream>
#include <boost/regex.hpp>
#include <ncurses.h>
#include <sys/types.h>
#include <sys/wait.h>

using namespace Kakoune;
using namespace std::placeholders;

void set_attribute(int attribute, bool on)
{
    if (on)
        attron(attribute);
    else
        attroff(attribute);
}

int nc_color(Color color)
{
    switch (color)
    {
    case Color::Black:   return COLOR_BLACK;
    case Color::Red:     return COLOR_RED;
    case Color::Green:   return COLOR_GREEN;
    case Color::Yellow:  return COLOR_YELLOW;
    case Color::Blue:    return COLOR_BLUE;
    case Color::Magenta: return COLOR_MAGENTA;
    case Color::Cyan:    return COLOR_CYAN;
    case Color::White:   return COLOR_WHITE;

    case Color::Default:
    default:
        return COLOR_BLACK;
    }
}

void set_color(Color fg_color, Color bg_color)
{
    static std::map<std::pair<Color, Color>, int> colorpairs;
    static int current_pair = -1;
    static int next_pair = 1;

    if (current_pair != -1)
        attroff(COLOR_PAIR(current_pair));

    if (fg_color == Color::Default and bg_color == Color::Default)
        return;

    std::pair<Color, Color> colorpair(fg_color, bg_color);
    auto it = colorpairs.find(colorpair);
      if (it != colorpairs.end())
    {
        current_pair = it->second;
        attron(COLOR_PAIR(it->second));
    }
    else
    {
        init_pair(next_pair, nc_color(fg_color), nc_color(bg_color));
        colorpairs[colorpair] = next_pair;
        current_pair = next_pair;
        attron(COLOR_PAIR(next_pair));
        ++next_pair;
    }
}

void draw_window(Window& window)
{
    int max_x,max_y;
    getmaxyx(stdscr, max_y, max_x);
    max_y -= 1;

    window.set_dimensions(DisplayCoord(max_y, max_x));
    window.update_display_buffer();

    DisplayCoord position;
    for (const DisplayAtom& atom : window.display_buffer())
    {
        assert(position == atom.coord());
        const std::string content = atom.content();

        set_attribute(A_UNDERLINE, atom.attribute() & Underline);
        set_attribute(A_REVERSE, atom.attribute() & Reverse);
        set_attribute(A_BLINK, atom.attribute() & Blink);
        set_attribute(A_BOLD, atom.attribute() & Bold);

        set_color(atom.fg_color(), atom.bg_color());

        size_t pos = 0;
        size_t end;
        while (true)
        {
            move(position.line, position.column);
            clrtoeol();
            end = content.find_first_of('\n', pos);
            std::string line = content.substr(pos, end - pos);
            addstr(line.c_str());

            if (end != std::string::npos)
            {
                addch(' ');
                position.line = position.line + 1;
                position.column = 0;
                pos = end + 1;

                if (position.line >= max_y)
                    break;
            }
            else
            {
                position.column += line.length();
                break;
            }
        }
        if (position.line >= max_y)
            break;
    }

    set_attribute(A_UNDERLINE, 0);
    set_attribute(A_REVERSE, 0);
    set_attribute(A_BLINK, 0);
    set_attribute(A_BOLD, 0);
    set_color(Color::Blue, Color::Black);
    while (++position.line < max_y)
    {
        move(position.line, 0);
        clrtoeol();
        addch('~');
    }

    set_color(Color::Cyan, Color::Black);
    std::string status_line = window.status_line();
    move(max_y, max_x - status_line.length());
    clrtoeol();
    addstr(status_line.c_str());

    const DisplayCoord& cursor_position = window.cursor_position();
    move(cursor_position.line, cursor_position.column);
}

void init_ncurses()
{
    initscr();
    cbreak();
    noecho();
    nonl();
    intrflush(stdscr, false);
    keypad(stdscr, true);
    curs_set(2);
    start_color();
    ESCDELAY=25;
}

void deinit_ncurses()
{
    endwin();
}

struct prompt_aborted {};

std::string ncurses_prompt(const std::string& text, Completer completer = complete_nothing)
{
    int max_x, max_y;
    getmaxyx(stdscr, max_y, max_x);
    move(max_y-1, 0);
    addstr(text.c_str());
    clrtoeol();

    std::string result;
    size_t cursor_pos = 0;

    Completions completions;
    int current_completion = -1;
    std::string text_before_completion;

    while (true)
    {
        char c = getch();
        switch (c)
        {
        case '\r':
            return result;
        case 4:
            if (cursor_pos > 0)
                --cursor_pos;
            break;
        case 5:
            if (cursor_pos < result.length())
                ++cursor_pos;
            break;
        case 7:
            if (cursor_pos != 0)
            {
                result = result.substr(0, cursor_pos - 1)
                       + result.substr(cursor_pos, std::string::npos);

                --cursor_pos;
            }

            current_completion = -1;
            break;
        case 27:
            throw prompt_aborted();
        case '\t':
        {
            if (current_completion == -1)
            {
                completions = completer(result, cursor_pos);
                if (completions.candidates.empty())
                    break;

                text_before_completion = result.substr(completions.start,
                                                       completions.end - completions.start);
            }
            ++current_completion;

            std::string completion;
            if (current_completion >= completions.candidates.size())
            {
                if (current_completion == completions.candidates.size() and
                    std::find(completions.candidates.begin(), completions.candidates.end(), text_before_completion) == completions.candidates.end())
                    completion = text_before_completion;
                else
                {
                    current_completion = 0;
                    completion = completions.candidates[0];
                }
            }
            else
                completion = completions.candidates[current_completion];

            move(max_y-1, text.length());
            result = result.substr(0, completions.start) + completion;
            cursor_pos = completions.start + completion.length();
            break;
        }
        default:
            current_completion = -1;
            result = result.substr(0, cursor_pos) + c + result.substr(cursor_pos, std::string::npos);
            ++cursor_pos;
        }

        move(max_y - 1, text.length());
        clrtoeol();
        addstr(result.c_str());
        move(max_y - 1, text.length() + cursor_pos);
        refresh();
    }
    return result;
}

static std::function<std::string (const std::string&, Completer)> prompt_func = ncurses_prompt;

std::string prompt(const std::string& text, Completer completer = complete_nothing)
{
    return prompt_func(text, completer);
}

void print_status(const std::string& status)
{
    int x,y;
    getmaxyx(stdscr, y, x);
    move(y-1, 0);
    clrtoeol();
    addstr(status.c_str());
}

struct InsertSequence
{
    IncrementalInserter::Mode mode;
    std::string               keys;

    InsertSequence() : mode(IncrementalInserter::Mode::Insert) {}
};

InsertSequence last_insert_sequence;

bool insert_char(IncrementalInserter& inserter, char c)
{
    switch (c)
    {
    case 27:
        return false;

    case 2:
        c = getch();
        if (c >= '0' and c <= '9')
            inserter.insert_capture(c - '0');
        break;

    case 4:
        inserter.move_cursor({0, -1});
        break;
    case 5:
        inserter.move_cursor({0,  1});
        break;

    case 7:
        inserter.erase();
        break;

    case '\r':
        c = '\n';
    default:
        inserter.insert(std::string() + c);
    }
    return true;
}

void do_insert(Window& window, IncrementalInserter::Mode mode)
{
    last_insert_sequence.mode = mode;
    last_insert_sequence.keys.clear();
    IncrementalInserter inserter(window, mode);
    draw_window(window);
    while(true)
    {
        char c = getch();

        if (not insert_char(inserter, c))
            return;

        last_insert_sequence.keys += c;
        draw_window(window);
    }
}

void do_repeat_insert(Window& window, int count)
{
    IncrementalInserter inserter(window, last_insert_sequence.mode);
    for (char c : last_insert_sequence.keys)
    {
        insert_char(inserter, c);
    }
    draw_window(window);
}


template<bool append>
void do_go(Window& window, int count)
{
    if (count != 0)
    {
        BufferIterator target =
            window.buffer().iterator_at(BufferCoord(count-1, 0));

        window.move_cursor_to(target);
    }
    else
    {
        char c = getch();
        switch (c)
        {
        case 'g':
        case 't':
        {
            BufferIterator target =
                window.buffer().iterator_at(BufferCoord(0,0));
            window.move_cursor_to(target);
            break;
        }
        case 'l':
        case 'L':
            window.select(select_to_eol, append);
            break;
        case 'h':
        case 'H':
            window.select(select_to_eol_reverse, append);
            break;
        case 'b':
        {
            BufferIterator target = window.buffer().iterator_at(
                BufferCoord(window.buffer().line_count() - 1, 0));
            window.move_cursor_to(target);
            break;
        }
        }
    }
}

Context main_context;

Buffer* open_or_create(const std::string& filename)
{
    Buffer* buffer = NULL;
    try
    {
        buffer = create_buffer_from_file(filename);
    }
    catch (file_not_found& what)
    {
        print_status("new file " + filename);
        buffer = new Buffer(filename, Buffer::Type::File);
    }
    return buffer;
}

void edit(const CommandParameters& params, const Context& context)
{
    if (params.size() != 1)
        throw wrong_argument_count();

    std::string filename = params[0];
    main_context = Context(*open_or_create(filename)->get_or_create_window());
}

void write_buffer(const CommandParameters& params, const Context& context)
{
    if (params.size() > 1)
        throw wrong_argument_count();

    Buffer& buffer = context.window->buffer();
    std::string filename = params.empty() ? buffer.name() : params[0];

    write_buffer_to_file(buffer, filename);
    buffer.notify_saved();
}

bool quit_requested = false;

template<bool force>
void quit(const CommandParameters& params, const Context& context)
{
    if (params.size() != 0)
        throw wrong_argument_count();

    if (not force)
    {
        for (auto& buffer : BufferManager::instance())
        {
            if (buffer.type() == Buffer::Type::File and buffer.is_modified())
            {
                print_status("modified buffer remaining");
                return;
            }
        }
    }
    quit_requested = true;
}

template<bool force>
void write_and_quit(const CommandParameters& params, const Context& context)
{
    write_buffer(params, context);
    quit<force>(CommandParameters(), context);
}

void show_buffer(const CommandParameters& params, const Context& context)
{
    if (params.size() != 1)
        throw wrong_argument_count();

    Buffer* buffer = BufferManager::instance().get_buffer(params[0]);
    if (not buffer)
        print_status("buffer " + params[0] + " does not exists");
    else
        main_context = Context(*buffer->get_or_create_window());
}

void add_highlighter(const CommandParameters& params, const Context& context)
{
    if (params.size() < 1)
        throw wrong_argument_count();

    try
    {
        HighlighterRegistry& registry = HighlighterRegistry::instance();
        HighlighterParameters highlighter_params(params.begin()+1, params.end());
        registry.add_highlighter_to_window(*context.window, params[0],
                                           highlighter_params);
    }
    catch (runtime_error& err)
    {
        print_status("error: " + err.description());
    }
}

void rm_highlighter(const CommandParameters& params, const Context& context)
{
    if (params.size() != 1)
        throw wrong_argument_count();

    context.window->remove_highlighter(params[0]);
}

void add_filter(const CommandParameters& params, const Context& context)
{
    if (params.size() < 1)
        throw wrong_argument_count();

    try
    {
        FilterRegistry& registry = FilterRegistry::instance();
        FilterParameters filter_params(params.begin()+1, params.end());
        registry.add_filter_to_window(*context.window, params[0],
                                      filter_params);
    }
    catch (runtime_error& err)
    {
        print_status("error: " + err.description());
    }
}

void rm_filter(const CommandParameters& params, const Context& context)
{
    if (params.size() != 1)
        throw wrong_argument_count();

    context.window->remove_filter(params[0]);
}

void add_hook(const CommandParameters& params, const Context& context)
{
    if (params.size() < 3)
        throw wrong_argument_count();

    std::string command = params[2];
    CommandParameters hook_params(params.begin()+3, params.end());

    HooksManager::instance().add_hook(
       params[0],
       [=](const std::string& param, const Context& context) {
           if (boost::regex_match(param, boost::regex(params[1])))
               CommandManager::instance().execute(command, hook_params,
                                                  context);
       });
}

void exec_commands_in_file(const CommandParameters& params,
                           const Context& context)
{
    if (params.size() != 1)
        throw wrong_argument_count();

    std::string file_content = read_file(params[0]);
    CommandManager& cmd_manager = CommandManager::instance();

    size_t pos = 0;
    while (true)
    {
         size_t end_pos = file_content.find_first_of('\n', pos);
 	 cmd_manager.execute(file_content.substr(pos, end_pos - pos), context);
         if (end_pos == std::string::npos)
             break;
         pos = end_pos + 1;
    }
}

void do_command()
{
    try
    {
        auto cmdline = prompt(":", std::bind(&CommandManager::complete,
                                             &CommandManager::instance(),
                                             _1, _2));

        CommandManager::instance().execute(cmdline, main_context);
    }
    catch (prompt_aborted&) {}
}

void do_pipe(Window& window, int count)
{
    try
    {
        auto cmdline = prompt("|", complete_nothing);

        window.buffer().begin_undo_group();
        for (auto& sel : const_cast<const Window&>(window).selections())
        {
            int write_pipe[2];
            int read_pipe[2];

            pipe(write_pipe);
            pipe(read_pipe);

            if (pid_t pid = fork())
            {
                close(write_pipe[0]);
                close(read_pipe[1]);

                std::string content = window.buffer().string(sel.begin(), sel.end());
                write(write_pipe[1], content.c_str(), content.size());
                close(write_pipe[1]);

                std::string new_content;
                char buffer[1024];
                while (size_t size = read(read_pipe[0], buffer, 1024))
                {
                    new_content += std::string(buffer, buffer+size);
                }
                close(read_pipe[0]);
                waitpid(pid, NULL, 0);

                window.buffer().modify(Modification::make_erase(sel.begin(), sel.end()));
                window.buffer().modify(Modification::make_insert(sel.begin(), new_content));
            }
            else
            {
                close(write_pipe[1]);
                close(read_pipe[0]);

                dup2(read_pipe[1], 1);
                dup2(write_pipe[0], 0);

                execlp("sh", "sh", "-c", cmdline.c_str(), NULL);
            }
        }
        window.buffer().end_undo_group();
    }
    catch (prompt_aborted&) {}
}

void do_search(Window& window)
{
    try
    {
        std::string ex = prompt("/");
        if (ex.empty())
            ex = RegisterManager::instance()['/'];
        else
            RegisterManager::instance()['/'] = ex;

        window.select(std::bind(select_next_match, _1, ex));
    }
    catch (prompt_aborted&) {}
}

void do_search_next(Window& window)
{
    std::string& ex = RegisterManager::instance()['/'];
    if (not ex.empty())
        window.select(std::bind(select_next_match, _1, ex));
    else
        print_status("no search pattern");
}

void do_yank(Window& window, int count)
{
    RegisterManager::instance()['"'] = window.selection_content();
}

void do_erase(Window& window, int count)
{
    RegisterManager::instance()['"'] = window.selection_content();
    window.erase();
}

void do_change(Window& window, int count)
{
    RegisterManager::instance()['"'] = window.selection_content();
    do_insert(window, IncrementalInserter::Mode::Change);
}

template<bool append>
void do_paste(Window& window, int count)
{
    if (append)
        window.append(RegisterManager::instance()['"']);
    else
        window.insert(RegisterManager::instance()['"']);
}

void do_select_regex(Window& window, int count)
{
    try
    {
        std::string ex = prompt("select: ");
        window.multi_select(std::bind(select_all_matches, _1, ex));
    }
    catch (prompt_aborted&) {}
}

void do_split_regex(Window& window, int count)
{
    try
    {
        std::string ex = prompt("split: ");
        window.multi_select(std::bind(split_selection, _1, ex));
    }
    catch (prompt_aborted&) {}
}

void do_join(Window& window, int count)
{
    window.multi_select(select_whole_lines);
    window.select(select_to_eol, true);
    window.multi_select(std::bind(select_all_matches, _1, "\n\\h*"));
    window.replace(" ");
    window.clear_selections();
    window.move_cursor({0, -1});
}

template<bool inside>
void do_select_surrounding(Window& window, int count)
{
    char id = getch();

    static const std::unordered_map<char, std::pair<char, char>> id_to_matching =
    {
       { '(', { '(', ')' } },
       { ')', { '(', ')' } },
       { 'b', { '(', ')' } },
       { '{', { '{', '}' } },
       { '}', { '{', '}' } },
       { 'B', { '{', '}' } },
       { '[', { '[', ']' } },
       { ']', { '[', ']' } },
       { '<', { '<', '>' } },
       { '>', { '<', '>' } }
    };

    auto matching = id_to_matching.find(id);
    if (matching != id_to_matching.end())
        window.select(std::bind(select_surrounding, _1, matching->second, inside));
}

std::unordered_map<Key, std::function<void (Window& window, int count)>> keymap =
{
    { { Key::Modifiers::None, 'h' }, [](Window& window, int count) { window.move_cursor(DisplayCoord(0, -std::max(count,1))); } },
    { { Key::Modifiers::None, 'j' }, [](Window& window, int count) { window.move_cursor(DisplayCoord( std::max(count,1), 0)); } },
    { { Key::Modifiers::None, 'k' }, [](Window& window, int count) { window.move_cursor(DisplayCoord(-std::max(count,1), 0)); } },
    { { Key::Modifiers::None, 'l' }, [](Window& window, int count) { window.move_cursor(DisplayCoord(0,  std::max(count,1))); } },

    { { Key::Modifiers::None, 'H' }, [](Window& window, int count) { window.move_cursor(DisplayCoord(0, -std::max(count,1)), true); } },
    { { Key::Modifiers::None, 'J' }, [](Window& window, int count) { window.move_cursor(DisplayCoord( std::max(count,1), 0), true); } },
    { { Key::Modifiers::None, 'K' }, [](Window& window, int count) { window.move_cursor(DisplayCoord(-std::max(count,1), 0), true); } },
    { { Key::Modifiers::None, 'L' }, [](Window& window, int count) { window.move_cursor(DisplayCoord(0,  std::max(count,1)), true); } },

    { { Key::Modifiers::None, 't' }, [](Window& window, int count) { window.select(std::bind(select_to, _1, getch(), count, false)); } },
    { { Key::Modifiers::None, 'f' }, [](Window& window, int count) { window.select(std::bind(select_to, _1, getch(), count, true)); } },
    { { Key::Modifiers::None, 'T' }, [](Window& window, int count) { window.select(std::bind(select_to, _1, getch(), count, false), true); } },
    { { Key::Modifiers::None, 'F' }, [](Window& window, int count) { window.select(std::bind(select_to, _1, getch(), count, true), true); } },

    { { Key::Modifiers::None, 'd' }, do_erase },
    { { Key::Modifiers::None, 'c' }, do_change },
    { { Key::Modifiers::None, 'i' }, [](Window& window, int count) { do_insert(window, IncrementalInserter::Mode::Insert); } },
    { { Key::Modifiers::None, 'I' }, [](Window& window, int count) { do_insert(window, IncrementalInserter::Mode::InsertAtLineBegin); } },
    { { Key::Modifiers::None, 'a' }, [](Window& window, int count) { do_insert(window, IncrementalInserter::Mode::Append); } },
    { { Key::Modifiers::None, 'A' }, [](Window& window, int count) { do_insert(window, IncrementalInserter::Mode::AppendAtLineEnd); } },
    { { Key::Modifiers::None, 'o' }, [](Window& window, int count) { do_insert(window, IncrementalInserter::Mode::OpenLineBelow); } },
    { { Key::Modifiers::None, 'O' }, [](Window& window, int count) { do_insert(window, 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<true> },
    { { Key::Modifiers::None, 'P' }, do_paste<false> },

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


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

    { { Key::Modifiers::None, '%' }, [](Window& window, int count) { window.select([](const BufferIterator& cursor)
                                                         { return Selection(cursor.buffer().begin(), cursor.buffer().end()-1); }); } },

    { { Key::Modifiers::None, ':' }, [](Window& window, int count) { do_command(); } },
    { { Key::Modifiers::None, '|' }, do_pipe },
    { { Key::Modifiers::None, ' ' }, [](Window& window, int count) { if (count == 0) window.clear_selections();
                                                                     else window.keep_selection(count-1); } },
    { { Key::Modifiers::None, 'w' }, [](Window& window, int count) { do { window.select(select_to_next_word); } while(--count > 0); } },
    { { Key::Modifiers::None, 'e' }, [](Window& window, int count) { do { window.select(select_to_next_word_end); } while(--count > 0); } },
    { { Key::Modifiers::None, 'b' }, [](Window& window, int count) { do { window.select(select_to_previous_word); } while(--count > 0); } },
    { { Key::Modifiers::None, 'W' }, [](Window& window, int count) { do { window.select(select_to_next_word, true); } while(--count > 0); } },
    { { Key::Modifiers::None, 'E' }, [](Window& window, int count) { do { window.select(select_to_next_word_end, true); } while(--count > 0); } },
    { { Key::Modifiers::None, 'B' }, [](Window& window, int count) { do { window.select(select_to_previous_word, true); } while(--count > 0); } },
    { { Key::Modifiers::None, 'x' }, [](Window& window, int count) { do { window.select(select_line, false); } while(--count > 0); } },
    { { Key::Modifiers::None, 'X' }, [](Window& window, int count) { do { window.select(select_line, true); } while(--count > 0); } },
    { { Key::Modifiers::None, 'm' }, [](Window& window, int count) { window.select(select_matching); } },
    { { Key::Modifiers::None, 'M' }, [](Window& window, int count) { window.select(select_matching, true); } },
    { { Key::Modifiers::None, '/' }, [](Window& window, int count) { do_search(window); } },
    { { Key::Modifiers::None, 'n' }, [](Window& window, int count) { do_search_next(window); } },
    { { Key::Modifiers::None, 'u' }, [](Window& window, int count) { do { if (not window.undo()) { print_status("nothing left to undo"); break; } } while(--count > 0); } },
    { { Key::Modifiers::None, 'U' }, [](Window& window, int count) { do { if (not window.redo()) { print_status("nothing left to redo"); break; } } while(--count > 0); } },

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

    { { Key::Modifiers::Alt, 't' }, [](Window& window, int count) { window.select(std::bind(select_to_reverse, _1, getch(), count, false)); } },
    { { Key::Modifiers::Alt, 'f' }, [](Window& window, int count) { window.select(std::bind(select_to_reverse, _1, getch(), count, true)); } },
    { { Key::Modifiers::Alt, 'T' }, [](Window& window, int count) { window.select(std::bind(select_to_reverse, _1, getch(), count, false), true); } },
    { { Key::Modifiers::Alt, 'F' }, [](Window& window, int count) { window.select(std::bind(select_to_reverse, _1, getch(), count, true), true); } },

    { { Key::Modifiers::Alt, 'w' }, [](Window& window, int count) { do { window.select(select_to_next_WORD); } while(--count > 0); } },
    { { Key::Modifiers::Alt, 'e' }, [](Window& window, int count) { do { window.select(select_to_next_WORD_end); } while(--count > 0); } },
    { { Key::Modifiers::Alt, 'b' }, [](Window& window, int count) { do { window.select(select_to_previous_WORD); } while(--count > 0); } },
    { { Key::Modifiers::Alt, 'W' }, [](Window& window, int count) { do { window.select(select_to_next_WORD, true); } while(--count > 0); } },
    { { Key::Modifiers::Alt, 'E' }, [](Window& window, int count) { do { window.select(select_to_next_WORD_end, true); } while(--count > 0); } },
    { { Key::Modifiers::Alt, 'B' }, [](Window& window, int count) { do { window.select(select_to_previous_WORD, true); } while(--count > 0); } },

    { { Key::Modifiers::Alt, 'l' }, [](Window& window, int count) { do { window.select(select_to_eol, false); } while(--count > 0); } },
    { { Key::Modifiers::Alt, 'L' }, [](Window& window, int count) { do { window.select(select_to_eol, true); } while(--count > 0); } },
    { { Key::Modifiers::Alt, 'h' }, [](Window& window, int count) { do { window.select(select_to_eol_reverse, false); } while(--count > 0); } },
    { { Key::Modifiers::Alt, 'H' }, [](Window& window, int count) { do { window.select(select_to_eol_reverse, true); } while(--count > 0); } },

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

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

    { { Key::Modifiers::Alt, 'x' }, [](Window& window, int count) { window.multi_select(select_whole_lines); } },
};

void exec_string(const CommandParameters& params,
                 const Context& context)
{
    if (params.size() != 1)
        throw wrong_argument_count();

    size_t pos = 0;

    KeyList keys = parse_keys(params[0]);

    prompt_func = [&](const std::string&, Completer) {
        size_t begin = pos;
        while (pos < keys.size() and keys[pos].key != '\n')
            ++pos;

        std::string result;
        for (size_t i = begin; i < pos; ++i)
            result += keys[i].key;
        ++pos;

        return result;
    };

    auto restore_prompt = on_scope_end([&]() { prompt_func = ncurses_prompt; });

    int count = 0;
    while(pos < keys.size())
    {
        const Key& key = keys[pos++];

        if (key.modifiers == Key::Modifiers::None and isdigit(key.key))
            count = count * 10 + key.key - '0';
        else
        {
            auto it = keymap.find(key);
            if (it != keymap.end())
                it->second(*context.window, count);
            count = 0;
        }
    }
}

int main(int argc, char* argv[])
{
    init_ncurses();

    CommandManager      command_manager;
    BufferManager       buffer_manager;
    RegisterManager     register_manager;
    HighlighterRegistry highlighter_registry;
    FilterRegistry      filter_registry;
    HooksManager        hooks_manager;

    command_manager.register_command(std::vector<std::string>{ "e", "edit" }, edit,
                                     PerArgumentCommandCompleter{ complete_filename });
    command_manager.register_command(std::vector<std::string>{ "q", "quit" }, quit<false>);
    command_manager.register_command(std::vector<std::string>{ "q!", "quit!" }, quit<true>);
    command_manager.register_command(std::vector<std::string>{ "w", "write" }, write_buffer,
                                     PerArgumentCommandCompleter{ complete_filename });
    command_manager.register_command(std::vector<std::string>{ "wq" }, write_and_quit<false>);
    command_manager.register_command(std::vector<std::string>{ "wq!" }, write_and_quit<true>);
    command_manager.register_command(std::vector<std::string>{ "b", "buffer" }, show_buffer,
                                     PerArgumentCommandCompleter {
                                         std::bind(&BufferManager::complete_buffername, &buffer_manager, _1, _2)
                                      });
    command_manager.register_command(std::vector<std::string>{ "ah", "addhl" }, add_highlighter,
                                     PerArgumentCommandCompleter {
                                         std::bind(&HighlighterRegistry::complete_highlighter, &highlighter_registry, _1, _2)
                                     });
    command_manager.register_command(std::vector<std::string>{ "rh", "rmhl" }, rm_highlighter,
                                     PerArgumentCommandCompleter {
                                         [&](const std::string& prefix, size_t cursor_pos)
                                         { return main_context.window->complete_highlighterid(prefix, cursor_pos); }
                                     });
    command_manager.register_command(std::vector<std::string>{ "af", "addfilter" }, add_filter,
                                     PerArgumentCommandCompleter {
                                         std::bind(&FilterRegistry::complete_filter, &filter_registry, _1, _2)
                                     });
    command_manager.register_command(std::vector<std::string>{ "rf", "rmfilter" }, rm_filter,
                                     PerArgumentCommandCompleter {
                                         [&](const std::string& prefix, size_t cursor_pos)
                                         { return main_context.window->complete_filterid(prefix, cursor_pos); }
                                     });
    command_manager.register_command(std::vector<std::string>{ "hook" }, add_hook);

    command_manager.register_command(std::vector<std::string>{ "source" }, exec_commands_in_file,
                                     PerArgumentCommandCompleter{ complete_filename });

    command_manager.register_command(std::vector<std::string>{ "exec" }, exec_string);

    register_highlighters();
    register_filters();

    try
    {
        const char* kakrc = "kakrc";
        char buffer[2048];
        readlink("/proc/self/exe", buffer, 2048 - strlen(kakrc));
        char* ptr = strrchr(buffer, '/');
        if (ptr)
        {
            strcpy(ptr+1, kakrc);
            exec_commands_in_file({ buffer }, main_context);
        }
    }
     catch (Kakoune::runtime_error& error)
    {
        print_status(error.description());
    }

    try
    {
        write_debug("*** This is the debug buffer, where debug info will be written ***\n");

        auto buffer = (argc > 1) ? open_or_create(argv[1]) : new Buffer("*scratch*", Buffer::Type::Scratch);
        main_context = Context(*buffer->get_or_create_window());

        draw_window(*main_context.window);
        int count = 0;
        while(not quit_requested)
        {
            try
            {
                char c = getch();

                if (isdigit(c))
                    count = count * 10 + c - '0';
                else
                {
                    Key::Modifiers modifiers = Key::Modifiers::None;
                    if (c == 27)
                    {
                        timeout(0);
                        char new_c = getch();
                        timeout(-1);
                        if (new_c != ERR)
                        {
                            c = new_c;
                            modifiers = Key::Modifiers::Alt;
                        }
                    }
                    Key key(modifiers, c);

                    auto it = keymap.find(key);
                    if (it != keymap.end())
                    {
                        it->second(*main_context.window, count);
                        draw_window(*main_context.window);
                    }
                    count = 0;
                }
            }
            catch (Kakoune::runtime_error& error)
            {
                print_status(error.description());
            }
        }
        deinit_ncurses();
    }
    catch (Kakoune::exception& error)
    {
        deinit_ncurses();
        puts("uncaught exception:\n");
        puts(error.description().c_str());
        return -1;
    }
    catch (...)
    {
        deinit_ncurses();
        throw;
    }
    return 0;
}