#include <ctype.h>
#include <errno.h>
#include <fcntl.h>
#include <unistd.h>
#include <signal.h>
#include <inttypes.h>
#include "mle.h"

#define MLE_FOREACH_CURSOR_MARK_FN(pcursor, pfn, ...) do { \
    cursor_t *cursor; \
    DL_FOREACH((pcursor)->bview->cursors, cursor) { \
        if (cursor->is_asleep) continue; \
        pfn(cursor->mark, __VA_ARGS__); \
    } \
} while (0)

#define MLE_FOREACH_CURSOR_MARK_FN_NO_ARGS(pcursor, pfn) do { \
    cursor_t *cursor; \
    DL_FOREACH((pcursor)->bview->cursors, cursor) { \
        if (cursor->is_asleep) continue; \
        pfn(cursor->mark); \
    } \
} while (0)

#define MLE_FOREACH_CURSOR_EX(pcursor, pctmp) \
    DL_FOREACH((pcursor)->bview->cursors, (pctmp)) \
        if (!(pctmp)->is_asleep)

#define MLE_FOREACH_CURSOR(pcursor) \
    cursor_t *cursor; \
    MLE_FOREACH_CURSOR_EX(pcursor, cursor)

static void _cmd_apply_macro_set(cmd_context_t *ctx, kmacro_t *macro);
static int _cmd_indent(cmd_context_t *ctx, int outdent);
static void _cmd_help_inner(char *buf, kbinding_t *trie, str_t *h);
static int _cmd_indent_line(bline_t *bline, int use_tabs, int outdent);
static int _cmd_quit_inner(editor_t *editor, bview_t *bview);
static int _cmd_pre_close(editor_t *editor, bview_t *bview);
static int _cmd_save(editor_t *editor, bview_t *bview, int save_as);
static int _cmd_search_ex(cmd_context_t *ctx, int is_prev);
static int _cmd_search_next_ex(cmd_context_t *ctx, int is_prev);
static int _cmd_search_next(bview_t *bview, cursor_t *cursor, mark_t *search_mark, char *regex, int regex_len, int is_prev);
static int _cmd_find_word_ex(cmd_context_t *ctx, int is_prev);
static void _cmd_aproc_bview_passthru_cb(aproc_t *aproc, char *buf, size_t buf_len);
static void _cmd_isearch_prompt_cb(bview_t *bview_prompt, baction_t *action, void *udata);
static int _cmd_menu_grep_cb(cmd_context_t *ctx);
static int _cmd_menu_ctag_cb(cmd_context_t *ctx);
static int _cmd_menu_browse_cb(cmd_context_t *ctx);
static int _cmd_menu_blist_cb(cmd_context_t *ctx);
static void _cmd_insert_auto_indent_newline(cmd_context_t *ctx);
static void _cmd_insert_auto_indent_closing_bracket(cmd_context_t *ctx);
static void _cmd_shell_apply_cmd(cmd_context_t *ctx, char *cmd);
static void _cmd_get_input(cmd_context_t *ctx, kinput_t *ret_input);
static int _cmd_fsearch_inner(cmd_context_t *ctx, char *shell_cmd);
static int _cmd_get_char_param(cmd_context_t *ctx, char *ret_ch);
static int _cmd_move_page_y(cmd_context_t *ctx, int full_y, int is_up);
static int _cmd_pre_close_ok_to_close_bview(editor_t *editor, bview_t *bview);

// Insert data
int cmd_insert_data(cmd_context_t *ctx) {
    bint_t insertbuf_len;
    char *insertbuf_cur;
    bint_t len;
    size_t insert_size;
    kinput_t *input;
    int i;
    int (*mark_insert_func)(mark_t *, char *, bint_t);

    // Ensure space in insertbuf
    insert_size = MLE_MAX(6, ctx->bview->buffer->tab_width) * (ctx->pastebuf_len + 2);
    if (ctx->editor->insertbuf_size < insert_size) {
        ctx->editor->insertbuf = realloc(ctx->editor->insertbuf, insert_size);
        memset(ctx->editor->insertbuf, 0, insert_size);
        ctx->editor->insertbuf_size = insert_size;
    }

    // Fill insertbuf... i=-1: ctx->input, i>=0: ctx->pastebuf
    insertbuf_len = 0;
    insertbuf_cur = ctx->editor->insertbuf;
    for (i = -1; i == -1 || (size_t)i < ctx->pastebuf_len; i++) {
        input = i == -1 ? &ctx->input : &ctx->pastebuf[i];
        if (input->ch) {
            len = tb_utf8_unicode_to_char(insertbuf_cur, input->ch);
        } else if (input->key == TB_KEY_ENTER || input->key == TB_KEY_CTRL_J || input->key == TB_KEY_CTRL_M) {
            len = sprintf(insertbuf_cur, "\n");
        } else if (input->key >= 0x20 && input->key <= 0x7e) {
            len = sprintf(insertbuf_cur, "%c", input->key);
        } else if (input->key == 0x09) {
            if (ctx->bview->tab_to_space) {
                len = ctx->bview->buffer->tab_width - (ctx->cursor->mark->col % ctx->bview->buffer->tab_width);
                len = sprintf(insertbuf_cur, "%*c", (int)len, ' ');
            } else {
                len = sprintf(insertbuf_cur, "\t");
            }
        } else {
            len = 0; // TODO verbatim input
        }
        insertbuf_cur += len;
        insertbuf_len += len;
    }

    // Write insertbuf to buffer
    if (insertbuf_len < 1) {
        return MLE_ERR;
    }
    ctx->editor->insertbuf[insertbuf_len] = '\0';

    // Insert
    mark_insert_func = ctx->cursor->is_block ? mark_block_insert_before : mark_insert_before;
    if (insertbuf_len > 1
        && ctx->editor->trim_paste
        && memchr(ctx->editor->insertbuf, '\n', insertbuf_len) != NULL
    ) {
        // Insert with trim
        char *trimmed = NULL;
        int trimmed_len = 0;
        util_pcre_replace("(?m) +$", ctx->editor->insertbuf, "", &trimmed, &trimmed_len);
        MLE_FOREACH_CURSOR_MARK_FN(ctx->cursor, mark_insert_func, trimmed, trimmed_len);
        free(trimmed);
    } else if (ctx->editor->auto_indent && !ctx->cursor->next && !ctx->cursor->is_block && insertbuf_len == 1 && ctx->editor->insertbuf[0] == '\n') {
        _cmd_insert_auto_indent_newline(ctx);
    } else if (ctx->editor->auto_indent && !ctx->cursor->next && !ctx->cursor->is_block && insertbuf_len == 1 && ctx->editor->insertbuf[0] == '}') {
        _cmd_insert_auto_indent_closing_bracket(ctx);
    } else {
        // Insert without trim
        MLE_FOREACH_CURSOR_MARK_FN(ctx->cursor, mark_insert_func, ctx->editor->insertbuf, insertbuf_len);
    }

    // Remember last insert data
    str_set_len(&ctx->loop_ctx->last_insert, ctx->editor->insertbuf, insertbuf_len);

    return MLE_OK;
}

// Insert newline above current line
int cmd_insert_newline_above(cmd_context_t *ctx) {
    MLE_FOREACH_CURSOR(ctx->cursor) {
        mark_move_bol(cursor->mark);
        mark_insert_after(cursor->mark, "\n", 1);
    }
    return MLE_OK;
}

// Insert newline below current line
int cmd_insert_newline_below(cmd_context_t *ctx) {
    mark_t *mark;
    MLE_FOREACH_CURSOR(ctx->cursor) {
        mark_clone(cursor->mark, &mark);
        mark_move_eol(mark);
        cursor->mark->lefty += 1; // Prevent cursor from moving if at eol
        mark_insert_after(mark, "\n", 1);
        cursor->mark->lefty -= 1;
        mark_destroy(mark);
    }
    return MLE_OK;
}

// Delete char before cursor mark
int cmd_delete_before(cmd_context_t *ctx) {
    bint_t offset;
    mark_get_offset(ctx->cursor->mark, &offset);
    if (offset < 1) return MLE_OK;
    MLE_FOREACH_CURSOR_MARK_FN(ctx->cursor, mark_delete_before, 1);
    return MLE_OK;
}

// Delete char after cursor mark
int cmd_delete_after(cmd_context_t *ctx) {
    MLE_FOREACH_CURSOR_MARK_FN(ctx->cursor, mark_delete_after, 1);
    return MLE_OK;
}

// Move cursor to beginning of line
int cmd_move_bol(cmd_context_t *ctx) {
    uint32_t ch;
    mark_t *mark;
    MLE_FOREACH_CURSOR(ctx->cursor) {
        mark_clone(cursor->mark, &mark);
        mark_move_bol(mark);
        mark_get_char_after(mark, &ch);
        if (isspace((char)ch)) {
            mark_move_next_re(mark, "\\S", 2);
        }
        if (mark->col < cursor->mark->col) {
            mark_join(cursor->mark, mark);
        } else {
            mark_move_bol(cursor->mark);
        }
        mark_destroy(mark);
    }
    bview_rectify_viewport(ctx->bview);
    return MLE_OK;
}

// Move cursor to end of line
int cmd_move_eol(cmd_context_t *ctx) {
    MLE_FOREACH_CURSOR_MARK_FN_NO_ARGS(ctx->cursor, mark_move_eol);
    bview_rectify_viewport(ctx->bview);
    return MLE_OK;
}

// Move cursor to beginning of buffer
int cmd_move_beginning(cmd_context_t *ctx) {
    MLE_FOREACH_CURSOR_MARK_FN_NO_ARGS(ctx->cursor, mark_move_beginning);
    bview_rectify_viewport(ctx->bview);
    return MLE_OK;
}

// Move cursor to end of buffer
int cmd_move_end(cmd_context_t *ctx) {
    MLE_FOREACH_CURSOR_MARK_FN_NO_ARGS(ctx->cursor, mark_move_end);
    bview_rectify_viewport(ctx->bview);
    return MLE_OK;
}

// Move cursor left one char
int cmd_move_left(cmd_context_t *ctx) {
    MLE_FOREACH_CURSOR_MARK_FN(ctx->cursor, mark_move_by, -1);
    bview_rectify_viewport(ctx->bview);
    return MLE_OK;
}

// Move cursor right one char
int cmd_move_right(cmd_context_t *ctx) {
    MLE_FOREACH_CURSOR_MARK_FN(ctx->cursor, mark_move_by, 1);
    bview_rectify_viewport(ctx->bview);
    return MLE_OK;
}

// Move cursor up one line
int cmd_move_up(cmd_context_t *ctx) {
    MLE_FOREACH_CURSOR_MARK_FN(ctx->cursor, mark_move_vert, -1);
    bview_rectify_viewport(ctx->bview);
    return MLE_OK;
}

// Move cursor down one line
int cmd_move_down(cmd_context_t *ctx) {
    MLE_FOREACH_CURSOR_MARK_FN(ctx->cursor, mark_move_vert, 1);
    bview_rectify_viewport(ctx->bview);
    return MLE_OK;
}

// Move cursor one page up
int cmd_move_page_up(cmd_context_t *ctx) {
    return _cmd_move_page_y(ctx, ctx->bview->rect_buffer.h, 1);
}

// Move cursor one page down
int cmd_move_page_down(cmd_context_t *ctx) {
    return _cmd_move_page_y(ctx, ctx->bview->rect_buffer.h, 0);
}

// Move to specific line
int cmd_move_to_line(cmd_context_t *ctx) {
    char *linestr;
    bint_t line;
    editor_prompt(ctx->editor, "move_to_line: Line num?", NULL, &linestr);
    if (!linestr) return MLE_OK;
    line = strtoll(linestr, NULL, 10);
    free(linestr);
    if (line < 1) line = 1;
    MLE_FOREACH_CURSOR_MARK_FN(ctx->cursor, mark_move_to, line - 1, 0);
    bview_center_viewport_y(ctx->bview);
    return MLE_OK;
}

// Move to specific offset
int cmd_move_to_offset(cmd_context_t *ctx) {
    char *offsetstr;
    bint_t offset;
    editor_prompt(ctx->editor, "move_to_offset: Offset?", NULL, &offsetstr);
    if (!offsetstr) return MLE_OK;
    offset = strtoll(offsetstr, NULL, 10);
    free(offsetstr);
    if (offset < 0) offset = 0;
    MLE_FOREACH_CURSOR_MARK_FN(ctx->cursor, mark_move_offset, offset);
    bview_center_viewport_y(ctx->bview);
    return MLE_OK;
}

// Move vertically relative to current line
int cmd_move_relative(cmd_context_t *ctx) {
    int delta;
    if (ctx->numeric_params_len < 1) {
        return MLE_ERR;
    }
    if (strcmp(ctx->static_param, "up") == 0) {
        delta = -1;
    } else if (strcmp(ctx->static_param, "down") == 0) {
        delta = 1;
    } else {
        return MLE_ERR;
    }
    delta *= ctx->numeric_params[0];
    MLE_FOREACH_CURSOR_MARK_FN(ctx->cursor, mark_move_vert, delta);
    return MLE_OK;
}

// Move one word forward
int cmd_move_word_forward(cmd_context_t *ctx) {
    MLE_FOREACH_CURSOR_MARK_FN(ctx->cursor, mark_move_next_re_nudge, MLE_RE_WORD_FORWARD, sizeof(MLE_RE_WORD_FORWARD)-1);
    bview_rectify_viewport(ctx->bview);
    return MLE_OK;
}

// Move one word back
int cmd_move_word_back(cmd_context_t *ctx) {
    MLE_FOREACH_CURSOR_MARK_FN(ctx->cursor, mark_move_prev_re, MLE_RE_WORD_BACK, sizeof(MLE_RE_WORD_BACK)-1);
    bview_rectify_viewport(ctx->bview);
    return MLE_OK;
}

// Move to next open bracket
int cmd_move_bracket_forward(cmd_context_t *ctx) {
    MLE_FOREACH_CURSOR_MARK_FN(ctx->cursor, mark_move_next_str_nudge, "{", 1);
    bview_rectify_viewport(ctx->bview);
    return MLE_OK;
}

// Move to prev open bracket
int cmd_move_bracket_back(cmd_context_t *ctx) {
    MLE_FOREACH_CURSOR_MARK_FN(ctx->cursor, mark_move_prev_str, "{", 1);
    bview_rectify_viewport(ctx->bview);
    return MLE_OK;
}

// Move to matching bracket, or prev bracket if not on a bracket
int cmd_move_bracket_toggle(cmd_context_t *ctx) {
    MLE_FOREACH_CURSOR(ctx->cursor) {
        if (mark_move_bracket_pair(cursor->mark, ctx->buffer->byte_count) == MLBUF_ERR) {
            mark_move_prev_re(cursor->mark, "[\\[\\(\\{]", strlen("[\\[\\(\\{]"));
        }
    }
    bview_rectify_viewport(ctx->bview);
    return MLE_OK;
}

// Delete word back
int cmd_delete_word_before(cmd_context_t *ctx) {
    mark_t *tmark;
    MLE_FOREACH_CURSOR(ctx->cursor) {
        mark_clone(cursor->mark, &tmark);
        mark_move_prev_re(tmark, MLE_RE_WORD_BACK, sizeof(MLE_RE_WORD_BACK)-1);
        mark_delete_between(cursor->mark, tmark);
        mark_destroy(tmark);
    }
    return MLE_OK;
}

// Delete word ahead
int cmd_delete_word_after(cmd_context_t *ctx) {
    mark_t *tmark;
    MLE_FOREACH_CURSOR(ctx->cursor) {
        mark_clone(cursor->mark, &tmark);
        mark_move_next_re(tmark, MLE_RE_WORD_FORWARD, sizeof(MLE_RE_WORD_FORWARD)-1);
        mark_delete_between(cursor->mark, tmark);
        mark_destroy(tmark);
    }
    return MLE_OK;
}

// Toggle anchor on cursors
int cmd_toggle_anchor(cmd_context_t *ctx) {
    MLE_FOREACH_CURSOR(ctx->cursor) {
        cursor_toggle_anchor(cursor, 1);
    }
    return MLE_OK;
}

// Toggle block mode on cursors
int cmd_toggle_block(cmd_context_t *ctx) {
    MLE_FOREACH_CURSOR(ctx->cursor) {
        cursor->is_block = 1 - cursor->is_block;
    }
    return MLE_OK;
}

// Swap anchor with mark on cursors
int cmd_swap_anchor(cmd_context_t *ctx) {
    MLE_FOREACH_CURSOR(ctx->cursor) {
        if (cursor->is_anchored) {
            mark_swap(cursor->mark, cursor->anchor);
        }
    }
    return MLE_OK;
}

// Align cursors by padding with whitespace
int cmd_align_cursors(cmd_context_t *ctx) {
    bint_t max_col;
    max_col = 0;
    cursor_t *cursor;
    MLE_FOREACH_CURSOR_EX(ctx->cursor, cursor) {
        if (cursor->mark->col > max_col) {
            max_col = cursor->mark->col;
        }
    }
    MLE_FOREACH_CURSOR_EX(ctx->cursor, cursor) {
        while (cursor->mark->col < max_col) {
            mark_insert_before(cursor->mark, " ", 1);
        }
    }
    return MLE_OK;
}

// Drop an is_asleep=1 cursor
int cmd_drop_sleeping_cursor(cmd_context_t *ctx) {
    return bview_add_cursor_asleep(ctx->bview, ctx->cursor->mark->bline, ctx->cursor->mark->col, NULL);
}

// Awake all is_asleep=1 cursors
int cmd_wake_sleeping_cursors(cmd_context_t *ctx) {
    return bview_wake_sleeping_cursors(ctx->bview);
}

// Remove all cursors except the active one
int cmd_remove_extra_cursors(cmd_context_t *ctx) {
    return bview_remove_cursors_except(ctx->bview, ctx->cursor);
}

// Drop column of cursors in selection
int cmd_drop_cursor_column(cmd_context_t *ctx) {
    bline_t *bline;
    bint_t col;
    mark_t *lo;
    mark_t *hi;
    MLE_FOREACH_CURSOR(ctx->cursor) {
        if (!cursor->is_anchored) continue;
        col = cursor->mark->col;
        cursor_get_lo_hi(cursor, &lo, &hi);
        for (bline = lo->bline; bline != hi->bline->next; bline = bline->next) {
            MLBUF_BLINE_ENSURE_CHARS(bline);
            if ((bline == lo->bline && col < lo->col)
                || (bline == hi->bline && col > hi->col)
                || col > bline->char_count
            ) {
                continue;
            }
            if (bline != cursor->mark->bline || col != cursor->mark->col) {
                bview_add_cursor(ctx->bview, bline, col, NULL);
            }
        }
        cursor_toggle_anchor(cursor, 1);
    }
    return MLE_OK;
}

// Drop lettered mark
int cmd_drop_lettered_mark(cmd_context_t *ctx) {
    mark_t *mark;
    char letter;
    _cmd_get_char_param(ctx, &letter);
    mark_clone_w_letter(ctx->cursor->mark, letter, &mark);
    return MLE_OK;
}

// Jump back and forth to a lettered mark
// - If letter exists and we're not at it, drop rot13(letter) and goto letter
// - If letter exists and we're already at it, jump to rot13(letter)
// - If letter doesn't exist, drop it in place
int cmd_goto_lettered_mark(cmd_context_t *ctx) {
    mark_t *mark, *mark_tmp;
    char letter, other;
    _cmd_get_char_param(ctx, &letter);
    other = 'a' + (((letter - 'a') + 13) % 26);
    mark = NULL;
    buffer_get_lettered_mark(ctx->buffer, letter, &mark);
    if (mark) {
        if (mark_is_eq(mark, ctx->cursor->mark)) {
            mark = NULL;
            buffer_get_lettered_mark(ctx->buffer, other, &mark);
            if (mark) mark_join(ctx->cursor->mark, mark);
        } else {
            mark_clone_w_letter(ctx->cursor->mark, other, &mark_tmp);
            mark_join(ctx->cursor->mark, mark);
        }
        bview_rectify_viewport(ctx->bview);
    } else {
        mark_clone_w_letter(ctx->cursor->mark, letter, &mark);
    }
    return MLE_OK;
}

// Search for a regex
int cmd_search(cmd_context_t *ctx) {
    return _cmd_search_ex(ctx, 0);
}

// Reverse search for a regex
int cmd_rsearch(cmd_context_t *ctx) {
    return _cmd_search_ex(ctx, 1);
}

// Search for next instance of last search regex
int cmd_search_next(cmd_context_t *ctx) {
    return _cmd_search_next_ex(ctx, 0);
}

// Search for prev instance of last search regex
int cmd_search_prev(cmd_context_t *ctx) {
    return _cmd_search_next_ex(ctx, 1);
}

// Interactive search and replace
int cmd_replace(cmd_context_t *ctx) {
    return cursor_replace(ctx->cursor, 1, NULL, NULL);
}

// Interactive search and replace on all buffers
int cmd_replace_all(cmd_context_t *ctx) {
    bview_t *bview, *bview_orig;
    int num_bviews, do_replace_all, num_replacements, num_replacements_tmp;
    int cancelled, buffer_done_i, i, already_done;
    char *regex, *replacement;
    buffer_t **buffer_done;

    bview_orig = ctx->bview;
    do_replace_all = 0;
    num_replacements = 0;
    cancelled = 0;
    regex = NULL;
    replacement = NULL;
    CDL_COUNT2(ctx->editor->all_bviews, bview, num_bviews, all_next);
    if (num_bviews <= 0) return MLE_OK;
    buffer_done = calloc(num_bviews, sizeof(buffer_t *));
    buffer_done_i = 0;

    do {
        editor_prompt(ctx->editor, "replace_all: Search regex?", NULL, &regex);
        if (!regex) break;
        editor_prompt(ctx->editor, "replace_all: Replacement string?", NULL, &replacement);
        if (!replacement) break;

        CDL_FOREACH2(ctx->editor->all_bviews, bview, all_next) {
            if (!MLE_BVIEW_IS_EDIT(bview)) continue;

            // Check if buffer in done list
            // TODO inefficient, could replace with hash
            for (i = 0, already_done = 0; i < buffer_done_i; i++) {
                if (buffer_done[i] == bview->buffer) {
                    already_done = 1;
                    break;
                }
            }
            if (already_done) continue;

            // Search and replace on this bview
            editor_set_active(ctx->editor, bview);
            cursor_replace_ex(bview->active_cursor, 1, regex, replacement, "replace_all", &do_replace_all, &num_replacements_tmp, &cancelled);
            num_replacements += num_replacements_tmp;

            // Add buffer to done list
            buffer_done[buffer_done_i++] = bview->buffer;
            if (cancelled) break;
        }
    } while (0);

    editor_set_active(ctx->editor, bview_orig);

    MLE_SET_INFO(ctx->editor, "replace_all: Replaced %d instance(s) in %d buffer(s)", num_replacements, buffer_done_i);

    if (regex) free(regex);
    if (replacement) free(replacement);
    if (buffer_done) free(buffer_done);

    return MLE_OK;
}

// Repeat last cmd
int cmd_repeat(cmd_context_t *ctx) {
    // This is a special case in _editor_loop
    return MLE_OK;
}

// Redraw screen
int cmd_redraw(cmd_context_t *ctx) {
    bview_center_viewport_y(ctx->bview);
    editor_force_redraw(ctx->editor);
    return MLE_OK;
}

// Zero viewport y
int cmd_viewport_top(cmd_context_t *ctx) {
    bview_zero_viewport_y(ctx->bview);
    return MLE_OK;
}

// Center viewport y
int cmd_viewport_mid(cmd_context_t *ctx) {
    bview_center_viewport_y(ctx->bview);
    return MLE_OK;
}

// Max viewport y
int cmd_viewport_bot(cmd_context_t *ctx) {
    bview_max_viewport_y(ctx->bview);
    return MLE_OK;
}

// Toggle between top and mid viewport y
int cmd_viewport_toggle(cmd_context_t *ctx) {
    bline_t *orig;
    bline_t *mid;
    bline_t *top;
    orig = ctx->bview->viewport_mark->bline;
    cmd_viewport_mid(ctx); mid  = ctx->bview->viewport_mark->bline;
    cmd_viewport_top(ctx); top  = ctx->bview->viewport_mark->bline;
    if (mid == orig) {
        cmd_viewport_top(ctx);
    } else if (top == orig) {
        cmd_viewport_bot(ctx);
    } else {
        cmd_viewport_mid(ctx);
    }
    return MLE_OK;
}

// Find next occurence of word under cursor
int cmd_find_word(cmd_context_t *ctx) {
    return _cmd_find_word_ex(ctx, 0);
}

// Find prev occurence of word under cursor
int cmd_rfind_word(cmd_context_t *ctx) {
    return _cmd_find_word_ex(ctx, 1);
}

// Incremental search
int cmd_isearch(cmd_context_t *ctx) {
    editor_prompt(ctx->editor, "isearch: Regex?", &(editor_prompt_params_t) {
        .kmap = ctx->editor->kmap_prompt_isearch,
        .prompt_cb = _cmd_isearch_prompt_cb
    }, NULL);
    if (ctx->bview->isearch_rule) {
        srule_destroy(ctx->bview->isearch_rule);
        ctx->bview->isearch_rule = NULL;
    }
    return MLE_OK;
}

// Cut text
int cmd_cut(cmd_context_t *ctx) {
    int append;
    append = ctx->loop_ctx->last_cmd_ctx.cmd && ctx->loop_ctx->last_cmd_ctx.cmd->func == cmd_cut ? 1 : 0;
    MLE_FOREACH_CURSOR(ctx->cursor) {
        cursor_cut_copy(cursor, 1, 1, append);
    }
    return MLE_OK;
}

// Copy text
int cmd_copy(cmd_context_t *ctx) {
    MLE_FOREACH_CURSOR(ctx->cursor) {
        cursor_cut_copy(cursor, 0, 1, 0);
    }
    return MLE_OK;
}

// Paste text (from cursor cut_buffer)
int cmd_uncut(cmd_context_t *ctx) {
    MLE_FOREACH_CURSOR(ctx->cursor) {
        cursor_uncut(cursor);
    }
    return MLE_OK;
}

// Paste text (from editor-wide cut_buffer)
int cmd_uncut_last(cmd_context_t *ctx) {
    MLE_FOREACH_CURSOR(ctx->cursor) {
        cursor_uncut_last(cursor);
    }
    return MLE_OK;
}

// Copy in between chars
int cmd_copy_by(cmd_context_t *ctx) {
    MLE_FOREACH_CURSOR(ctx->cursor) {
        if (cursor_select_by(cursor, ctx->static_param, 0) == MLE_OK) {
            cursor_cut_copy(cursor, 0, 0, 0);
        }
    }
    return MLE_OK;
}

// Cut in between chars
int cmd_cut_by(cmd_context_t *ctx) {
    MLE_FOREACH_CURSOR(ctx->cursor) {
        if (cursor_select_by(cursor, ctx->static_param, 0) == MLE_OK) {
            cursor_cut_copy(cursor, 1, 0, 0);
        }
    }
    return MLE_OK;
}

// Anchor between chars
int cmd_anchor_by(cmd_context_t *ctx) {
    MLE_FOREACH_CURSOR(ctx->cursor) {
        cursor_select_by(cursor, ctx->static_param, 1);
    }
    bview_rectify_viewport(ctx->bview);
    return MLE_OK;
}

// Go to next bview
int cmd_next(cmd_context_t *ctx) {
    editor_set_active(ctx->editor, ctx->bview->all_next);
    return MLE_OK;
}

// Go to prev bview
int cmd_prev(cmd_context_t *ctx) {
    editor_set_active(ctx->editor, ctx->bview->all_prev);
    return MLE_OK;
}

// Go to last bview
int cmd_last(cmd_context_t *ctx) {
    if (!ctx->editor->active_edit_last) return MLE_OK;
    return editor_set_active(ctx->editor, ctx->editor->active_edit_last);
}

// Go to nth bview
int cmd_goto(cmd_context_t *ctx) {
    bview_t *bview;
    int bview_num, num_bviews, bview_i;
    char *bview_num_str;
    char prompt[64];

    num_bviews = editor_bview_edit_count(ctx->editor);
    snprintf(prompt, sizeof(prompt), "goto: Buffer #? (1-%d)", num_bviews);

    // Get bview_num
    if (ctx->static_param) {
        bview_num_str = strdup(ctx->static_param);
    } else {
        editor_prompt(ctx->editor, prompt, NULL, &bview_num_str);
        if (!bview_num_str) return MLE_OK;
    }
    bview_num = atoi(bview_num_str);
    free(bview_num_str);

    // Check
    if (bview_num < 1 || bview_num > num_bviews) return MLE_OK;

    bview_i = 1;
    CDL_FOREACH2(ctx->editor->all_bviews, bview, all_next) {
        if (!MLE_BVIEW_IS_EDIT(bview)) continue;
        if (bview_i == bview_num) return editor_set_active(ctx->editor, bview);
        bview_i += 1;
    }

    return MLE_OK;
}

// Split a bview vertically
int cmd_split_vertical(cmd_context_t *ctx) {
    bview_t *child;
    if (bview_split(ctx->bview, 1, 0.5, &child) == MLE_OK) {
        editor_set_active(ctx->editor, child);
    }
    return MLE_OK;
}

// Split a bview horizontally
int cmd_split_horizontal(cmd_context_t *ctx) {
    bview_t *child;
    if (bview_split(ctx->bview, 0, 0.5, &child) == MLE_OK) {
        editor_set_active(ctx->editor, child);
    }
    return MLE_OK;
}

// Fuzzy path search via fzf
int cmd_fsearch(cmd_context_t *ctx) {
    return _cmd_fsearch_inner(ctx, "fzf");
}

// Fuzzy path search via fzy
int cmd_fsearch_fzy(cmd_context_t *ctx) {
    char shell_cmd[32];
    int nlines;
    nlines = tb_height();
    nlines = MLE_MAX(MLE_MIN(nlines, 9999), 3);
    sprintf(shell_cmd, "find . -type f | fzy -l %d", nlines);
    return _cmd_fsearch_inner(ctx, shell_cmd);
}

// Grep for pattern in cwd
int cmd_grep(cmd_context_t *ctx) {
    aproc_t *aproc;
    char *path;
    char *path_arg;
    char *cmd;
    char *grep_fmt;
    editor_prompt(ctx->editor, "grep: Pattern?", NULL, &path);
    if (!path) return MLE_OK;
    if (ctx->static_param) {
        grep_fmt = ctx->static_param;
    } else {
        #ifdef __APPLE__
        grep_fmt = "grep --color=never -E -i -I -n -r %s . 2>/dev/null";
        #else
        grep_fmt = "grep --color=never -P -i -I -n -r %s . 2>/dev/null";
        #endif
    }
    path_arg = util_escape_shell_arg(path, strlen(path));
    free(path);
    asprintf(&cmd, grep_fmt, path_arg);
    free(path_arg);
    if (!cmd) {
        MLE_RETURN_ERR(ctx->editor, "Failed to format grep cmd: %s", grep_fmt);
    }

    aproc = aproc_new(ctx->editor, ctx->bview, &(ctx->bview->aproc), cmd, 0, _cmd_aproc_bview_passthru_cb);
    free(cmd);
    if (!aproc) return MLE_ERR;
    editor_menu(ctx->editor, _cmd_menu_grep_cb, NULL, 0, aproc, NULL);
    return MLE_OK;
}

// Invoke ctag search
int cmd_ctag(cmd_context_t *ctx) {
    aproc_t *aproc;
    char *word;
    char *word_arg;
    char *cmd;
    bint_t word_len;
    if (cursor_select_by(ctx->cursor, "word", 0) != MLE_OK) {
        MLE_RETURN_ERR(ctx->editor, "%s", "Failed to select word under cursor");
    }
    mark_get_between(ctx->cursor->mark, ctx->cursor->anchor, &word, &word_len);
    cursor_toggle_anchor(ctx->cursor, 0);
    word_arg = util_escape_shell_arg(word, word_len);
    free(word);
    asprintf(&cmd, "readtags -e - %s 2>/dev/null", word_arg);
    free(word_arg);
    if (!cmd) {
        MLE_RETURN_ERR(ctx->editor, "%s", "Failed to format readtags cmd");
    }
    aproc = aproc_new(ctx->editor, ctx->bview, &(ctx->bview->aproc), cmd, 0, _cmd_aproc_bview_passthru_cb);
    free(cmd);
    if (!aproc) return MLE_ERR;
    editor_menu(ctx->editor, _cmd_menu_ctag_cb, NULL, 0, aproc, NULL);
    return MLE_OK;
}

// Browse directory via tree
int cmd_browse(cmd_context_t *ctx) {
    bview_t *menu;
    aproc_t *aproc;
    char *cmd;
    char *browse_path, *browse_path_esc;
    browse_path = ctx->static_param ? ctx->static_param : "./";
    browse_path_esc = util_escape_shell_arg(browse_path, strlen(browse_path));
    asprintf(&cmd, "cd %s && tree --charset C -n -f -L 2 2>/dev/null", browse_path_esc);
    free(browse_path_esc);
    aproc = aproc_new(ctx->editor, ctx->bview, &(ctx->bview->aproc), cmd, 0, _cmd_aproc_bview_passthru_cb);
    free(cmd);
    if (!aproc) return MLE_ERR;
    editor_menu(ctx->editor, _cmd_menu_browse_cb, ".", 1, aproc, &menu);
    mark_move_beginning(menu->active_cursor->mark);
    bview_zero_viewport_y(menu);
    if (strncmp(browse_path, "./", 2) == 0) {
        browse_path += 2;
    } else if (strcmp(browse_path, ".") == 0) {
        browse_path = "";
    }
    snprintf(menu->browse_path, sizeof(menu->browse_path), "%s", browse_path);
    return MLE_OK;
}

// Buffer list
int cmd_blist(cmd_context_t *ctx) {
    bview_t *bview;
    bview_t *menu;
    int path_max;
    char *path;
    int bview_count;
    str_t blist = {0};
    int active_lineno;

    path_max = 1;
    CDL_FOREACH2(ctx->editor->all_bviews, bview, all_next) {
        if (!MLE_BVIEW_IS_EDIT(bview)) continue;
        if (bview->buffer->path && (int)strlen(bview->buffer->path) > path_max) {
            path_max = (int)strlen(bview->buffer->path);
        }
    }

    bview_count = 0;
    active_lineno = -1;
    CDL_FOREACH2(ctx->editor->all_bviews, bview, all_next) {
        if (!MLE_BVIEW_IS_EDIT(bview)) continue;
        if (bview == ctx->editor->active) active_lineno = bview_count;
        bview_count += 1;
        path = bview->buffer->path ? bview->buffer->path : bview->path;
        if (!path || strlen(path) < 1) path = "-";
        str_sprintf(
            &blist,
            "  #%-4d  %-*s  (unsaved=%s len=%" PRIdMAX " buffer=%p bview=%p id=%d)\n",
            bview_count,
            path_max,
            path,
            bview->buffer ? (bview->buffer->is_unsaved ? "y" : "n") : "y",
            bview->buffer->byte_count,
            bview->buffer,
            bview,
            bview->id
        );
    }

    editor_menu(ctx->editor, _cmd_menu_blist_cb, blist.data, blist.len, NULL, &menu);
    if (active_lineno >= 0) mark_move_to(menu->active_cursor->mark, active_lineno, 0);
    bview_set_viewport_y(menu, 0, 1);

    str_free(&blist);
    return MLE_OK;
}

// Save-as file
int cmd_save_as(cmd_context_t *ctx) {
    _cmd_save(ctx->editor, ctx->bview, 1);
    return MLE_OK;
}

// Save file
int cmd_save(cmd_context_t *ctx) {
    _cmd_save(ctx->editor, ctx->bview, 0);
    return MLE_OK;
}

// Open file in a new bview
int cmd_open_file(cmd_context_t *ctx) {
    char *path;
    editor_prompt(ctx->editor, "new_open: File?", NULL, &path);
    if (!path) return MLE_OK;
    editor_open_bview(ctx->editor, NULL, MLE_BVIEW_TYPE_EDIT, path, strlen(path), 1, 0, 0, NULL, NULL);
    free(path);
    return MLE_OK;
}

// Open empty buffer in a new bview
int cmd_open_new(cmd_context_t *ctx) {
    editor_open_bview(ctx->editor, NULL, MLE_BVIEW_TYPE_EDIT, NULL, 0, 1, 0, 0, NULL, NULL);
    return MLE_OK;
}

// Open file into current bview
int cmd_open_replace_file(cmd_context_t *ctx) {
    char *path;
    if (_cmd_pre_close(ctx->editor, ctx->bview) == MLE_ERR) return MLE_OK;
    path = NULL;
    editor_prompt(ctx->editor, "replace_open: Path?", NULL, &path);
    if (!path) return MLE_OK;
    bview_open(ctx->bview, path, strlen(path));
    free(path);
    return MLE_OK;
}

// Open empty buffer into current bview
int cmd_open_replace_new(cmd_context_t *ctx) {
    if (_cmd_pre_close(ctx->editor, ctx->bview) == MLE_ERR) return MLE_OK;
    bview_open(ctx->bview, NULL, 0);
    return MLE_OK;
}

// Close bview
int cmd_close(cmd_context_t *ctx) {
    int num_open;
    int num_closed;
    if (_cmd_pre_close(ctx->editor, ctx->bview) == MLE_ERR) return MLE_OK;
    num_open = editor_bview_edit_count(ctx->editor);
    editor_close_bview(ctx->editor, ctx->bview, &num_closed);
    ctx->loop_ctx->should_exit = num_closed == num_open ? 1 : 0;
    return MLE_OK;
}

// Quit editor
int cmd_quit(cmd_context_t *ctx) {
    bview_t *bview;
    bview_t *tmp;
    if (ctx->editor->loop_depth > 1) return MLE_OK;
    DL_FOREACH_SAFE2(ctx->editor->top_bviews, bview, tmp, top_next) {
        if (!MLE_BVIEW_IS_EDIT(bview)) {
            continue;
        } else if (_cmd_quit_inner(ctx->editor, bview) == MLE_ERR) {
            return MLE_OK;
        }
    }
    ctx->loop_ctx->should_exit = 1;
    return MLE_OK;
}

// Quit editor without saving
int cmd_quit_without_saving(cmd_context_t *ctx) {
    ctx->loop_ctx->should_exit = 1;
    return MLE_OK;
}

// Apply a macro with single-char name
int cmd_apply_macro_by(cmd_context_t *ctx) {
    kmacro_t *macro;
    uint32_t ch;
    char name[8] = { 0 };
    if (ctx->editor->macro_apply) MLE_RETURN_ERR(ctx->editor, "Cannot nest macros%s", "");
    ch = MLE_PARAM_WILDCARD(ctx, 0);
    if (!ch) return MLE_OK;
    tb_utf8_unicode_to_char(name, ch);
    HASH_FIND_STR(ctx->editor->macro_map, name, macro);
    if (!macro) MLE_RETURN_ERR(ctx->editor, "Macro not found with name '%s'", name);
    _cmd_apply_macro_set(ctx, macro);
    return MLE_OK;
}

// Apply a macro
int cmd_apply_macro(cmd_context_t *ctx) {
    char *name;
    kmacro_t *macro;
    if (ctx->editor->macro_apply) MLE_RETURN_ERR(ctx->editor, "Cannot nest macros%s", "");
    editor_prompt(ctx->editor, "apply_macro: Name?", NULL, &name);
    if (!name) return MLE_OK;
    HASH_FIND_STR(ctx->editor->macro_map, name, macro);
    free(name);
    if (!macro) MLE_RETURN_ERR(ctx->editor, "Macro not found%s", "");
    _cmd_apply_macro_set(ctx, macro);
    return MLE_OK;
}

// Apply the last applied macro
int cmd_apply_macro_last(cmd_context_t *ctx) {
    kmacro_t *macro;
    if (!ctx->editor->macro_last) return MLE_OK;
    HASH_FIND_STR(ctx->editor->macro_map, ctx->editor->macro_last, macro);
    if (!macro) MLE_RETURN_ERR(ctx->editor, "Macro not found%s", "");
    _cmd_apply_macro_set(ctx, macro);
    return MLE_OK;
}

// Apply the last applied macro
int cmd_print_macro(cmd_context_t *ctx) {
    char *name;
    kmacro_t *macro;
    size_t i;
    char key[MLE_MAX_KEYNAME_LEN + 1];
    editor_prompt(ctx->editor, "print_macro: Name?", NULL, &name);
    if (!name) return MLE_OK;
    HASH_FIND_STR(ctx->editor->macro_map, name, macro);
    free(name);
    if (!macro) MLE_RETURN_ERR(ctx->editor, "Macro not found%s", "");
    for (i = 0; i < macro->inputs_len; i++) {
        editor_input_to_key(&macro->inputs[i], key);
        MLE_FOREACH_CURSOR(ctx->cursor) {
            mark_insert_before(cursor->mark, key, strlen(key));
            mark_insert_before(cursor->mark, " ", 1);
        }
    }
    return MLE_OK;
}

// No-op
int cmd_noop(cmd_context_t *ctx) {
    (void)ctx;
    return MLE_OK;
}

// Move forward til a certain char
int cmd_move_until_forward(cmd_context_t *ctx) {
    uint32_t ch;
    char str[8] = { 0 };
    ch = MLE_PARAM_WILDCARD(ctx, 0);
    if (!ch) return MLE_OK;
    tb_utf8_unicode_to_char(str, ch);
    MLE_FOREACH_CURSOR_MARK_FN(ctx->cursor, mark_move_next_str_nudge, str, strlen(str));
    bview_rectify_viewport(ctx->bview);
    return MLE_OK;
}

// Move back til a certain char
int cmd_move_until_back(cmd_context_t *ctx) {
    uint32_t ch;
    char str[8] = { 0 };
    ch = MLE_PARAM_WILDCARD(ctx, 0);
    if (!ch) return MLE_OK;
    tb_utf8_unicode_to_char(str, ch);
    MLE_FOREACH_CURSOR_MARK_FN(ctx->cursor, mark_move_prev_str, str, strlen(str));
    bview_rectify_viewport(ctx->bview);
    return MLE_OK;
}

// Temporarily drop anchor and move (shift-arrow behavior in MS Notepad)
int cmd_move_temp_anchor(cmd_context_t *ctx) {
    cmd_func_t fn;
    if (!ctx->static_param) {
        return MLE_ERR;
    }
    if (strcmp(ctx->static_param, "up") == 0) {
        fn = cmd_move_up;
    } else if (strcmp(ctx->static_param, "down") == 0) {
        fn = cmd_move_down;
    } else if (strcmp(ctx->static_param, "left") == 0) {
        fn = cmd_move_left;
    } else if (strcmp(ctx->static_param, "right") == 0) {
        fn = cmd_move_right;
    } else if (strcmp(ctx->static_param, "bol") == 0) {
        fn = cmd_move_bol;
    } else if (strcmp(ctx->static_param, "eol") == 0) {
        fn = cmd_move_eol;
    } else if (strcmp(ctx->static_param, "page_up") == 0) {
        fn = cmd_move_page_up;
    } else if (strcmp(ctx->static_param, "page_down") == 0) {
        fn = cmd_move_page_down;
    } else if (strcmp(ctx->static_param, "word_forward") == 0) {
        fn = cmd_move_word_forward;
    } else if (strcmp(ctx->static_param, "word_back") == 0) {
        fn = cmd_move_word_back;
    } else {
        return MLE_ERR;
    }
    MLE_FOREACH_CURSOR(ctx->cursor) {
        cursor_drop_anchor(cursor, 1);
        cursor->is_temp_anchored = 1;
    }
    return fn(ctx);
}

// Undo
int cmd_undo(cmd_context_t *ctx) {
    if (ctx->editor->coarse_undo) {
        buffer_undo_action_group(ctx->bview->buffer);
    } else {
        buffer_undo(ctx->bview->buffer);
    }
    return MLE_OK;
}

// Redo
int cmd_redo(cmd_context_t *ctx) {
    if (ctx->editor->coarse_undo) {
        buffer_redo_action_group(ctx->bview->buffer);
    } else {
        buffer_redo(ctx->bview->buffer);
    }
    return MLE_OK;
}

// Indent line(s)
int cmd_indent(cmd_context_t *ctx) {
    return _cmd_indent(ctx, 0);
}

// Outdent line(s)
int cmd_outdent(cmd_context_t *ctx) {
    return _cmd_indent(ctx, 1);
}

// Set option
int cmd_set_opt(cmd_context_t *ctx) {
    char *prompt;
    char *val;
    int vali;
    if (!ctx->static_param) return MLE_ERR;
    asprintf(&prompt, "set_opt: %s?", ctx->static_param);
    editor_prompt(ctx->editor, prompt, NULL, &val);
    free(prompt);
    if (!val) return MLE_OK;
    vali = atoi(val);
    if (strcmp(ctx->static_param, "tab_to_space") == 0) {
        ctx->bview->tab_to_space = vali ? 1 : 0;
    } else if (strcmp(ctx->static_param, "tab_width") == 0) {
        ctx->bview->tab_width = MLE_MAX(vali, 1);
        buffer_set_tab_width(ctx->bview->buffer, ctx->bview->tab_width);
    } else if (strcmp(ctx->static_param, "syntax") == 0) {
        bview_set_syntax(ctx->bview, val);
        buffer_apply_styles(ctx->bview->buffer, ctx->bview->buffer->first_line, ctx->bview->buffer->line_count);
    } else if (strcmp(ctx->static_param, "soft_wrap") == 0) {
        ctx->bview->soft_wrap = vali ? 1 : 0;
    } else if (strcmp(ctx->static_param, "coarse_undo") == 0) {
        ctx->editor->coarse_undo = vali ? 1 : 0;
    } else if (strcmp(ctx->static_param, "mouse_support") == 0) {
        ctx->editor->mouse_support = vali ? 1 : 0;
        editor_set_input_mode(ctx->editor);
    }
    free(val);
    return MLE_OK;
}

// Shell
int cmd_shell(cmd_context_t *ctx) {
    char *cmd;

    // Get shell cmd
    if (ctx->static_param) {
        cmd = strdup(ctx->static_param);
    } else {
        editor_prompt(ctx->editor, "shell: Cmd?", NULL, &cmd);
        if (!cmd) return MLE_OK;
    }

    // Apply shell cmd
    _cmd_shell_apply_cmd(ctx, cmd);

    free(cmd);
    return MLE_OK;
}

// Perl
int cmd_perl(cmd_context_t *ctx) {
    char *code;
    char *code_escaped;
    char *cmd;

    // Get perl code
    if (ctx->static_param) {
        code = strdup(ctx->static_param);
    } else {
        editor_prompt(ctx->editor, "perl: Code?", NULL, &code);
        if (!code) return MLE_OK;
    }

    // Shell escape code
    code_escaped = util_escape_shell_arg(code, strlen(code));
    free(code);

    // Format cmd
    asprintf(&cmd, "perl -lp -E 'BEGIN{$i=0}' -E %s 2>/dev/null", code_escaped);
    free(code_escaped);

    // Apply perl cmd
    _cmd_shell_apply_cmd(ctx, cmd);

    free(cmd);
    return MLE_OK;
}

// Jump to a `\S{2,}` on screen via `[a-z][a-z]`
int cmd_jump(cmd_context_t *ctx) {
    bline_t *bline;
    bint_t col;
    bint_t nchars;
    bint_t stop_line_index;
    mark_t *mark;
    mark_t *jumps;
    int jumpi, jumpt, screen_x, screen_y;
    char jumpa[3];
    kinput_t ev[2];
    int headless;

    // Check if headless
    headless = ctx->editor->headless_mode ? 1 : 0;

    // Set boundaries
    mark_clone(ctx->cursor->mark, &mark);
    if (headless) {
        mark_move_bol(mark);
        stop_line_index = mark->bline->line_index + 1;
    } else {
        mark_move_to_w_bline(mark, ctx->bview->viewport_mark->bline, 0);
        stop_line_index = ctx->bview->viewport_mark->bline->line_index + ctx->bview->rect_buffer.h;
    }

    // Make jump map
    jumps = calloc(26*26, sizeof(mark_t));
    jumpi = 0;

    do {
        // Loop for words
        while (jumpi < 26*26 && mark_move_next_re_ex(mark, "\\S{2,}", strlen("\\S{2,}"), &bline, &col, &nchars) == MLBUF_OK) {
            if (bline->line_index >= stop_line_index) break;
            jumps[jumpi].bline = bline;
            jumps[jumpi].col = col;
            mark_move_by(mark, MLE_MAX(0, nchars - 2));
            if (!headless) {
                bview_get_screen_coords(ctx->bview, mark, &screen_x, &screen_y, NULL);
                sprintf(jumpa, "%c%c", 'a' + (jumpi / 26), 'a' + (jumpi % 26));
                tb_print(screen_x, screen_y, TB_WHITE | TB_BOLD, TB_MAGENTA, jumpa);
            }
            jumpi += 1;
            mark_move_by(mark, 2);
        }
        if (jumpi < 1) break;
        if (!headless) tb_present();

        // Get 2 inputs
        _cmd_get_input(ctx, &ev[0]); if (ev[0].ch < 'a' || ev[0].ch > 'z') break;
        _cmd_get_input(ctx, &ev[1]);

        // Jump
        jumpt = ((ev[0].ch - 'a') * 26) + (ev[1].ch - 'a');
        if (jumpt >= 0 && jumpt < jumpi) {
            mark_move_to_w_bline(ctx->cursor->mark, jumps[jumpt].bline, jumps[jumpt].col);
        }
    } while (0);

    // Cleanup
    free(jumps);
    mark_destroy(mark);
    return MLE_OK;
}

// Raise SIGTSTP
int cmd_suspend(cmd_context_t *ctx) {
    (void)ctx;
    tb_shutdown();
    raise(SIGTSTP);
    return MLE_OK;
}

// Push kmap
int cmd_push_kmap(cmd_context_t *ctx) {
    kmap_t *kmap;
    char *kmap_name;
    int rv;

    // Get kmap name
    kmap_name = NULL;
    if (ctx->static_param) {
        kmap_name = strdup(ctx->static_param);
    } else {
        editor_prompt(ctx->editor, "push_kmap: Kmap name?", NULL, &kmap_name);
        if (!kmap_name) return MLE_OK;
    }

    // Find kmap by name
    kmap = NULL;
    HASH_FIND_STR(ctx->editor->kmap_map, kmap_name, kmap);

    if (!kmap) {
        // Not found
        MLE_SET_ERR(ctx->editor, "push_kmap: No kmap defined '%s'", kmap_name);
        rv = MLE_ERR;
    } else {
        // Found, push
        bview_push_kmap(ctx->bview, kmap);
        rv = MLE_OK;
    }

    free(kmap_name);
    return rv;
}

// Pop kmap
int cmd_pop_kmap(cmd_context_t *ctx) {
    bview_pop_kmap(ctx->bview, NULL);
    return MLE_OK;
}

// Hacky as hell less integration
int cmd_less(cmd_context_t *ctx) {
    int rc;
    char *sh_fmt;
    char *sh;
    char out[32];
    int screen_x;
    int screen_y;
    ssize_t out_len;
    bint_t line_top;
    char tmp_buf[32];
    char tmp_linenum[32];
    int tmp_buf_fd;
    int tmp_linenum_fd;

    rc = MLE_OK;
    sh = NULL;
    tmp_buf_fd = -1;
    tmp_linenum_fd = -1;

    do {
        if (MLE_ERR == bview_get_screen_coords(ctx->bview, ctx->cursor->mark, &screen_x, &screen_y, NULL)) {
            rc = MLE_ERR;
            break;
        }
        sprintf(tmp_linenum, "/tmp/mle-less-XXXXXX");
        if ((tmp_linenum_fd = mkstemp(tmp_linenum)) < 0) {
            rc = MLE_ERR;
            break;
        }
        sprintf(tmp_buf, "/tmp/mle-less-XXXXXX");
        if ((tmp_buf_fd = mkstemp(tmp_buf)) < 0) {
            rc = MLE_ERR;
            break;
        }
        if (MLBUF_ERR == buffer_write_to_fd(ctx->buffer, tmp_buf_fd, NULL)) {
            rc = MLE_ERR;
            break;
        }
        sh_fmt = "tmp_lesskey=$(mktemp -q /tmp/mle-less-XXXXXX);"
            "echo -e \"#command\\nq visual\\nQ visual\\n:q visual\\n:Q visual\\nZZ visual\\n#env\\n"
            "LESSEDIT=echo %%lt >%s; kill 0\" | lesskey -o $tmp_lesskey -- -;"
            "less +%ld -j%ld -k $tmp_lesskey -S %s;"
            "rm -f $tmp_lesskey";
        asprintf(&sh, sh_fmt, tmp_linenum, ctx->cursor->mark->bline->line_index+1, screen_y+1, tmp_buf);
        tb_shutdown();
        if (MLE_ERR == util_shell_exec(ctx->editor, sh, -1, NULL, 0, 1, "bash", NULL, NULL, NULL)) {
            rc = MLE_ERR;
            break;
        }
        out_len = read(tmp_linenum_fd, &out, sizeof(out)-1);
        out[out_len >= 0 ? out_len : 0] = '\0';
        line_top = (bint_t)strtoull(out, NULL, 10);
        if (line_top <= 0) {
            rc = MLE_ERR;
            break;
        }
        mark_move_to(ctx->cursor->mark, (line_top) + ctx->bview->rect_buffer.h/2, 0);
        bview_center_viewport_y(ctx->bview);
    } while (0);

    if (tmp_buf_fd >= 0) {
        close(tmp_buf_fd);
        unlink(tmp_buf);
    }
    if (tmp_linenum_fd >= 0) {
        close(tmp_linenum_fd);
        unlink(tmp_linenum);
    }
    if (sh) free(sh);

    return rc;
}

// Show help
int cmd_show_help(cmd_context_t *ctx) {
    str_t h = {0}; // help
    kmap_t *kmap;
    kmap_t *kmap_tmp;
    kmap_node_t *kmap_node;
    int kmap_node_depth;
    int i;
    bview_t *bview;
    char buf[1024];

    str_append(&h,
        "# mle command help\n\n"
        "    notes\n"
        "        C- means Ctrl\n"
        "        M- means Alt\n"
        "        S- means Shift\n"
        "        cmd_x=(default) means unmatched input is handled by cmd_x\n"
        "        (allow_fallthru)=yes means unmatched input is handled by the parent kmap\n\n"
    );

    // Build current kmap stack
    str_append(&h, "    mode stack\n");
    kmap_node_depth = 0;
    DL_FOREACH(ctx->bview->kmap_stack, kmap_node) {
        str_append(&h, "        ");
        for (i = 0; i < kmap_node_depth; i++) {
            str_append(&h, "    ");
        }
        if (i > 0) {
            str_append(&h, "\\_ ");
        }
        str_append(&h, kmap_node->kmap->name);
        if (kmap_node == ctx->bview->kmap_tail) {
            str_append(&h, " (current)");
        }
        str_append(&h, "\n");
        kmap_node_depth += 1;
    }
    str_append(&h, "\n");

    // Build kmap bindings
    HASH_ITER(hh, ctx->editor->kmap_map, kmap, kmap_tmp) {
        str_append(&h, "    mode ");
        str_append(&h, kmap->name);
        str_append(&h, "\n");
        snprintf(buf, sizeof(buf), "        %-40s %-16s\n", "(allow_fallthru)", kmap->allow_fallthru ? "yes" : "no");
        str_append(&h, buf);
        if (kmap->default_cmd_name) {
            snprintf(buf, sizeof(buf), "        %-40s %-16s\n", kmap->default_cmd_name, "(default)");
            str_append(&h, buf);
        }
        _cmd_help_inner(buf, kmap->bindings->children, &h);
        str_append(&h, "\n");
    }

    // Show help in new bview
    editor_open_bview(ctx->editor, NULL, MLE_BVIEW_TYPE_EDIT, NULL, 0, 1, 0, 0, NULL, &bview);
    buffer_insert(bview->buffer, 0, h.data, (bint_t)h.len, NULL);
    bview->buffer->is_unsaved = 0;
    mark_move_beginning(bview->active_cursor->mark);
    bview_zero_viewport_y(bview);

    str_free(&h);
    return MLE_OK;
}

static void _cmd_apply_macro_set(cmd_context_t *ctx, kmacro_t *macro) {
    if (ctx->editor->macro_last) free(ctx->editor->macro_last);
    ctx->editor->macro_last = strdup(macro->name);
    ctx->editor->macro_apply = macro;
    ctx->editor->macro_apply_input_index = 0;
}

// Indent or outdent line(s)
static int _cmd_indent(cmd_context_t *ctx, int outdent) {
    bline_t *start;
    bline_t *end;
    bline_t *cur;
    int use_tabs;
    use_tabs = ctx->bview->tab_to_space ? 0 : 1;
    MLE_FOREACH_CURSOR(ctx->cursor) {
        start = cursor->mark->bline;
        if (cursor->is_anchored) {
            end = cursor->anchor->bline;
            if (start->line_index > end->line_index) {
                cur = end;
                end = start;
                start = cur;
            }
        } else {
            end = start;
        }
        ctx->buffer->is_style_disabled++;
        for (cur = start; cur != end->next; cur = cur->next) {
            _cmd_indent_line(cur, use_tabs, outdent);
        }
        ctx->buffer->is_style_disabled--;
        buffer_apply_styles(ctx->buffer, start, end->line_index - start->line_index);
    }
    return MLE_OK;
}

// Recursively descend into kbinding trie to build help string
static void _cmd_help_inner(char *buf, kbinding_t *trie, str_t *h) {
    kbinding_t *binding;
    kbinding_t *binding_tmp;
    HASH_ITER(hh, trie, binding, binding_tmp) {
        if (binding->children) {
            _cmd_help_inner(buf, binding->children, h);
        } else if (binding->is_leaf) {
            snprintf(buf, 1024,
                "        %-40s %-16s %s\n",
                binding->cmd_name,
                binding->key_patt,
                binding->static_param ? binding->static_param : ""
            );
            str_append(h, buf);
        }
    }
}

// Indent/outdent a line, optionally using tabs
static int _cmd_indent_line(bline_t *bline, int use_tabs, int outdent) {
    char tab_char;
    int num_chars;
    int num_to_del;
    int i;
    bint_t ig;
    tab_char = use_tabs ? '\t' : ' ';
    num_chars = use_tabs ? 1 : bline->buffer->tab_width;
    MLBUF_BLINE_ENSURE_CHARS(bline);
    if (outdent) {
        num_to_del = 0;
        for (i = 0; i < num_chars; i++) {
            if (bline->char_count > i && (char)bline->chars[i].ch == tab_char) {
                num_to_del += 1;
            } else {
                break;
            }
        }
        if (num_to_del > 0) bline_delete(bline, 0, num_to_del);
    } else {
        if (bline->char_count > 0) {
            for (i = 0; i < num_chars; i++) {
                bline_insert(bline, 0, &tab_char, 1, &ig);
            }
        }
    }
    return MLE_OK;
}

// Recursively close bviews, prompting to save unsaved changes. Return MLE_OK if
// it's OK to continue closing, or MLE_ERR if the action was cancelled.
static int _cmd_quit_inner(editor_t *editor, bview_t *bview) {
    if (bview->split_child && _cmd_quit_inner(editor, bview->split_child) == MLE_ERR) {
        return MLE_ERR;
    } else if (_cmd_pre_close(editor, bview) == MLE_ERR) {
        return MLE_ERR;
    }
    editor_close_bview(editor, bview, NULL);
    return MLE_OK;
}

// Prompt to save unsaved changes on close. Return MLE_OK if it's OK to continue
// closing the bview, or MLE_ERR if the action was cancelled.
static int _cmd_pre_close(editor_t *editor, bview_t *bview) {
    char *yn;

    if (!MLE_BVIEW_IS_EDIT(bview)) {
        MLE_RETURN_ERR(editor, "Cannot close non-edit bview %p", (void*)bview);
    } else if (editor->loop_depth > 1) {
        MLE_RETURN_ERR(editor, "Cannot close bview %p when loop_depth > 1", (void*)bview);
    } else if (_cmd_pre_close_ok_to_close_bview(editor, bview)) {
        return MLE_OK;
    }

    editor_set_active(editor, bview);

    yn = NULL;
    editor_prompt(editor, "close: Save modified? (y=yes, n=no, C-c=cancel)",
        &(editor_prompt_params_t) { .kmap = editor->kmap_prompt_yn }, &yn
    );
    if (!yn) {
        return MLE_ERR;
    } else if (0 == strcmp(yn, MLE_PROMPT_NO)) {
        return MLE_OK;
    }
    return _cmd_save(editor, bview, 1);
}

// Prompt to save changes. Return MLE_OK if file was saved or MLE_ERR if the action
// was cancelled.
static int _cmd_save(editor_t *editor, bview_t *bview, int save_as) {
    int rc;
    char *path, *path_tmp;
    char *yn;
    int fname_changed;
    struct stat st;
    bint_t nbytes;

    do {
        if (!bview->buffer->path || save_as) {
            // Prompt for name
            editor_prompt(editor, "save: Save as? (C-c=cancel)", &(editor_prompt_params_t) {
                .data = bview->buffer->path ? bview->buffer->path : "",
                .data_len = bview->buffer->path ? strlen(bview->buffer->path) : 0
            }, &path_tmp);
            if (!path_tmp) return MLE_ERR;

            // Expand tilde
            util_expand_tilde(path_tmp, strlen(path_tmp), &path, NULL);
            free(path_tmp);
        } else {
            // Re-use existing name
            path = strdup(bview->buffer->path);
        }

        // Remember if fname is changing for refreshing syntax later
        fname_changed = !bview->buffer->path || strcmp(bview->buffer->path, path) != 0 ? 1 : 0;

        // Check clobber warning
        if (stat(path, &st) == 0
            && st.st_dev == bview->buffer->st.st_dev
            && st.st_ino == bview->buffer->st.st_ino
            && st.st_mtime > bview->buffer->st.st_mtime
        ) {
            // File was modified after it was opened/last saved
            editor_prompt(editor, "save: Clobber detected! Continue? (y=yes, n=no)",
                &(editor_prompt_params_t) { .kmap = editor->kmap_prompt_yn }, &yn
            );
            if (!yn || 0 == strcmp(yn, MLE_PROMPT_NO)) {
                free(path);
                return MLE_OK;
            }
        }

        // Save, check error
        rc = buffer_save_as(bview->buffer, path, &nbytes);
        free(path);
        if (rc == MLBUF_ERR) {
            MLE_SET_ERR(editor, "save: %s", errno ? strerror(errno) : "failed");
        } else {
            MLE_SET_INFO(editor, "save: Wrote %" PRIdMAX " bytes", nbytes);
            // Notify event observers
            editor_notify_observers(editor, "buffer:save", (void*)bview);
        }

    } while (rc == MLBUF_ERR && (!bview->buffer->path || save_as));

    // Refresh syntax if fname changed
    if (fname_changed) {
        bview_set_syntax(bview, NULL);
    }
    return rc == MLBUF_OK ? MLE_OK : MLE_ERR;
}

// Search for a regex
static int _cmd_search_ex(cmd_context_t *ctx, int is_prev) {
    char *regex;
    int regex_len;
    mark_t *search_mark;
    editor_prompt(ctx->editor, is_prev ? "rsearch: Regex?" : "search: Regex?", NULL, &regex);
    if (!regex) return MLE_OK;
    regex_len = strlen(regex);
    search_mark = buffer_add_mark(ctx->bview->buffer, NULL, 0);
    MLE_FOREACH_CURSOR(ctx->cursor) {
        _cmd_search_next(ctx->bview, cursor, search_mark, regex, regex_len, is_prev);
    }
    mark_destroy(search_mark);
    if (ctx->bview->last_search) free(ctx->bview->last_search);
    ctx->bview->last_search = regex;
    return MLE_OK;
}

// Search for next instance of last search regex
static int _cmd_search_next_ex(cmd_context_t *ctx, int is_prev) {
    int regex_len;
    mark_t *search_mark;
    if (!ctx->bview->last_search) return MLE_OK;
    regex_len = strlen(ctx->bview->last_search);
    search_mark = buffer_add_mark(ctx->bview->buffer, NULL, 0);
    MLE_FOREACH_CURSOR(ctx->cursor) {
        _cmd_search_next(ctx->bview, cursor, search_mark, ctx->bview->last_search, regex_len, is_prev);
    }
    mark_destroy(search_mark);
    return MLE_OK;
}

// Move cursor to next occurrence of term, wrap if necessary. Return MLE_OK if
// there was a match, or MLE_ERR if no match.
static int _cmd_search_next(bview_t *bview, cursor_t *cursor, mark_t *search_mark, char *regex, int regex_len, int is_prev) {
    int rc;
    int (*move_next_prev_re_nudge)(mark_t *, char *, bint_t);
    int (*move_next_prev_re)(mark_t *, char *, bint_t);
    int (*move_beginning_end)(mark_t *);

    rc = MLE_ERR;

    // Set func pointers
    if (is_prev) {
        move_next_prev_re_nudge = mark_move_prev_re;
        move_next_prev_re = mark_move_prev_re;
        move_beginning_end = mark_move_end;
    } else {
        move_next_prev_re_nudge = mark_move_next_re_nudge;
        move_next_prev_re = mark_move_next_re;
        move_beginning_end = mark_move_beginning;
    }

    // Move search_mark to cursor
    mark_join(search_mark, cursor->mark);

    // Look for match ahead of us
    if (move_next_prev_re_nudge(search_mark, regex, regex_len) == MLBUF_OK) {
        // Match! Move there
        mark_join(cursor->mark, search_mark);
        rc = MLE_OK;
    } else {
        // No match, try from beginning
        move_beginning_end(search_mark);
        if (move_next_prev_re(search_mark, regex, regex_len) == MLBUF_OK) {
            // Match! Move there
            mark_join(cursor->mark, search_mark);
            rc = MLE_OK;
        }
    }

    // Rectify viewport if needed
    if (rc == MLE_OK) bview_rectify_viewport(bview);

    return rc;
}

// Find next/prev occurence of word under cursor
static int _cmd_find_word_ex(cmd_context_t *ctx, int is_prev) {
    char *re;
    char *word;
    bint_t re_len;
    bint_t word_len;
    int (*move_next_prev_re)(mark_t *, char *, bint_t);
    int (*move_next_prev_re_nudge)(mark_t *, char *, bint_t);
    int (*move_beginning_end)(mark_t *);

    if (is_prev) {
        move_next_prev_re_nudge = mark_move_prev_re;
        move_next_prev_re = mark_move_prev_re;
        move_beginning_end = mark_move_end;
    } else {
        move_next_prev_re_nudge = mark_move_next_re_nudge;
        move_next_prev_re = mark_move_next_re;
        move_beginning_end = mark_move_beginning;
    }

    MLE_FOREACH_CURSOR(ctx->cursor) {
        if (cursor_select_by(cursor, "word", 0) == MLE_OK) {
            mark_swap(cursor->mark, cursor->anchor);
            mark_get_between(cursor->mark, cursor->anchor, &word, &word_len);
            re_len = asprintf(&re, "\\b%s\\b", word);
            free(word);
            cursor_toggle_anchor(cursor, 0);
            if (move_next_prev_re_nudge(cursor->mark, re, re_len) == MLBUF_ERR) {
                move_beginning_end(cursor->mark);
                move_next_prev_re(cursor->mark, re, re_len);
            }
            free(re);
        }
    }

    bview_rectify_viewport(ctx->bview);
    return MLE_OK;
}

// Aproc callback that writes buf to bview buffer
static void _cmd_aproc_bview_passthru_cb(aproc_t *aproc, char *buf, size_t buf_len) {
    mark_t *active_mark;
    mark_t *ins_mark;
    int is_cursor_at_zero;
    bview_t *bview;

    if (!buf || buf_len < 1) return;

    // Remeber if cursor is at 0
    bview = (bview_t*)aproc->owner;
    active_mark = bview->active_cursor->mark;
    is_cursor_at_zero = active_mark->bline->line_index == 0 && active_mark->col == 0 ? 1 : 0;

    // Append data at end of menu buffer
    ins_mark = buffer_add_mark(bview->buffer, NULL, 0);
    mark_move_end(ins_mark);
    mark_insert_before(ins_mark, buf, buf_len);
    mark_destroy(ins_mark);
    bview_rectify_viewport(bview);

    if (is_cursor_at_zero) mark_move_beginning(active_mark);
}

// Incremental search prompt callback
static void _cmd_isearch_prompt_cb(bview_t *bview_prompt, baction_t *action, void *udata) {
    bview_t *bview;
    char *regex;
    int regex_len;
    (void)action;
    (void)udata;

    bview = bview_prompt->editor->active_edit;

    if (bview->isearch_rule) {
        srule_destroy(bview->isearch_rule);
        bview->isearch_rule = NULL;
    }

    regex = bview_prompt->buffer->first_line->data;
    regex_len = bview_prompt->buffer->first_line->data_len;
    if (regex_len < 1) return;

    // isearch_rule is applied in bview.c
    bview->isearch_rule = srule_new_single(regex, regex_len, 1, TB_BOLD, TB_MAGENTA);
    if (!bview->isearch_rule) return;

    mark_move_next_cre(bview->active_cursor->mark, bview->isearch_rule->cre);

    bview_center_viewport_y(bview);
}

// Callback from cmd_grep
static int _cmd_menu_grep_cb(cmd_context_t *ctx) {
    bint_t linenum;
    char *line;
    char *colon;
    line = strndup(ctx->bview->active_cursor->mark->bline->data, ctx->bview->active_cursor->mark->bline->data_len);
    colon = strchr(line, ':');
    if (colon == NULL) {
        free(line);
        return MLE_OK;
    }
    if (*(colon + 1) != '\0' && strchr(colon + 1, ':') != NULL) {
        linenum = strtoll(colon + 1, NULL, 10);
    } else {
        linenum = 0;
    }
    editor_close_bview(ctx->editor, ctx->bview, NULL);
    editor_open_bview(ctx->editor, NULL, MLE_BVIEW_TYPE_EDIT, line, (int)(colon - line), 1, linenum, 0, NULL, NULL);
    free(line);
    return MLE_OK;
}

// Callback from cmd_ctag
static int _cmd_menu_ctag_cb(cmd_context_t *ctx) {
    char *line;
    char *tok;
    char *fname;
    char *re;
    char *qre;
    char *qre2;
    int re_len;
    int qre_len;
    int i;
    bview_t *bview;
    line = strndup(ctx->bview->active_cursor->mark->bline->data, ctx->bview->active_cursor->mark->bline->data_len);
    i = 0;
    fname = NULL;
    re = NULL;
    tok = strtok(line, "\t");
    while (tok) {
        if (i == 1) {
            fname = tok;
        } else if (i == 2) {
            re = tok;
            break;
        }
        tok = strtok(NULL, "\t");
        i += 1;
    }
    re_len = re ? strlen(re) : 0;
    if (!fname || re_len < 4) {
        free(line);
        return MLE_OK;
    }
    re += 2; // Skip leading `/^`
    re_len -= 2;
    re_len -= 4;
    re[re_len] = '\0'; // Trunc trailing `$/;"`
    util_pcre_replace("([\\.\\\\\\+\\*\\?\\^\\$\\[\\]\\(\\)\\{\\}\\=\\!\\>\\<\\|\\:\\-])", re, "\\\\$1", &qre, &qre_len);
    editor_close_bview(ctx->editor, ctx->bview, NULL);
    editor_open_bview(ctx->editor, NULL, MLE_BVIEW_TYPE_EDIT, fname, strlen(fname), 1, 0, 0, NULL, &bview);
    asprintf(&qre2, "^%s", qre);
    mark_move_next_re(bview->active_cursor->mark, qre2, qre_len+1);
    bview_center_viewport_y(bview);
    free(line);
    free(qre);
    free(qre2);
    return MLE_OK;
}

// Callback from cmd_browse
static int _cmd_menu_browse_cb(cmd_context_t *ctx) {
    char *line;
    char *path, *tmp;
    char apath[PATH_MAX + 1];
    bview_t *new_bview, *self_bview;
    int rv;

    rv = MLE_OK;

    // Get path from tree output
    line = strndup(ctx->bview->active_cursor->mark->bline->data, ctx->bview->active_cursor->mark->bline->data_len);
    if ((path = strstr(line, "-- ")) != NULL) {
        path += 3;
        if (strncmp(path, "./", 2) == 0) {
            path += 2;
        }
        if ((tmp = strstr(path, " -> ")) != NULL) {
            *tmp = '\0';
        }
    } else if (strcmp(line, "..") == 0) {
        path = "..";
    } else if (strlen(line) < 1) {
        goto _cmd_menu_browse_cb_done;
    } else {
        MLE_SET_ERR(ctx->editor, "browse: Cannot browse to: '%s'", line);
        rv = MLE_ERR;
        goto _cmd_menu_browse_cb_done;
    }

    // Derive apath
    size_t browse_path_len = strlen(ctx->bview->browse_path);
    if (browse_path_len > 0 && *path != '/') {
        if (snprintf(apath, sizeof(apath),
            "%s%s%s",
            ctx->bview->browse_path,
            ctx->bview->browse_path[browse_path_len - 1] != '/' ? "/" : "",
            path
        ) > PATH_MAX) {
            MLE_SET_ERR(ctx->editor, "browse: Path longer than PATH_MAX (%d)", PATH_MAX);
            rv = MLE_ERR;
            goto _cmd_menu_browse_cb_done;
        }
    } else {
        snprintf(apath, sizeof(apath), "%s", path);
    }

    // Open file or browse dir
    self_bview = ctx->bview;
    new_bview = NULL;
    if (util_is_dir(apath)) {
        ctx->bview = ctx->editor->active_edit;
        ctx->static_param = apath;
        cmd_browse(ctx);
    } else {
        editor_open_bview(ctx->editor, NULL, MLE_BVIEW_TYPE_EDIT, apath, strlen(apath), 0, 0, 0, NULL, &new_bview);
    }

    // Close self
    editor_close_bview(ctx->editor, self_bview, NULL);

    // Set new_bview to active
    if (new_bview) editor_set_active(ctx->editor, new_bview);

_cmd_menu_browse_cb_done:

    free(line);
    return rv;
}

// Callback from cmd_blist
static int _cmd_menu_blist_cb(cmd_context_t *ctx) {
    char *sid;
    int sid_len;
    int id;
    bview_t *bview;

    if (!util_pcre_match(
        "id=\\d+\\)$",
        ctx->bview->active_cursor->mark->bline->data,
        (int)ctx->bview->active_cursor->mark->bline->data_len,
        &sid,
        &sid_len
    )) {
        return MLE_ERR;
    }

    id = strtol(sid + 3, NULL, 10);

    CDL_FOREACH2(ctx->editor->all_bviews, bview, all_next) {
        if (bview->id == id) {
            editor_close_bview(ctx->editor, ctx->bview, NULL); // Close menu
            editor_set_active(ctx->editor, bview); // Switch to selected bview
            return MLE_OK;
        }
    }

    MLE_RETURN_ERR(ctx->editor, "Could not switch to buffer #%d", id);
}

// Insert newline when auto_indent is enabled (preserves or increases indent)
static void _cmd_insert_auto_indent_newline(cmd_context_t *ctx) {
    bline_t *prev_bline;
    char *prev_line = NULL;
    bint_t prev_line_len;
    char *indent;
    int indent_len;
    char *tmp;
    mark_insert_before(ctx->cursor->mark, "\n", 1);
    prev_bline = ctx->cursor->mark->bline->prev;
    prev_line = strndup(prev_bline->data, prev_bline->data_len);
    prev_line_len = strlen(prev_line);
    if (util_pcre_match("^\\s*", prev_line, prev_line_len, &indent, &indent_len) && indent_len > 0) {
        // Insert same whitespace from prev_line on this line
        mark_insert_before(ctx->cursor->mark, indent, indent_len);
    }
    if (prev_line_len > 0 && prev_line[prev_line_len-1] == '{') {
        // Insert extra indent if last line ends with '{'
        if (ctx->bview->tab_to_space
            && indent_len % ctx->bview->tab_width == 0
            && util_pcre_match("^ *$", indent, indent_len, NULL, NULL)
        ) {
            asprintf(&tmp, "%*c", (int)ctx->bview->tab_width, ' ');
            mark_insert_before(ctx->cursor->mark, tmp, strlen(tmp));
            free(tmp);
        } else if (!ctx->bview->tab_to_space
            && util_pcre_match("^\\t*$", indent, indent_len, NULL, NULL)
        ) {
            mark_insert_before(ctx->cursor->mark, "\t", 1);
        }
    } else if (ctx->loop_ctx->last_cmd_ctx.cmd
        && ctx->loop_ctx->last_cmd_ctx.cmd->func == cmd_insert_data
        && ctx->loop_ctx->last_insert.len == 1
        && ctx->loop_ctx->last_insert.data[0] == '\n'
        && util_pcre_match("^\\s+$", prev_line, prev_line_len, NULL, NULL)
    ) {
        // Clear prev line if it's all whitespace and last cmd was also
        // inserting a newline
        MLBUF_BLINE_ENSURE_CHARS(ctx->cursor->mark->bline->prev);
        bline_delete(ctx->cursor->mark->bline->prev, 0, ctx->cursor->mark->bline->prev->char_count);
    }
    free(prev_line);
}

// Insert closing curly bracket when auto_indent is enabled (decreases indent)
static void _cmd_insert_auto_indent_closing_bracket(cmd_context_t *ctx) {
    char *this_line = NULL;
    char *this_ws;
    char *prev_line = NULL;
    char *prev_ws;
    int this_line_len;
    int this_ws_len;
    int prev_line_len;
    int prev_ws_len;
    int prev_open;
    do {
        if (!ctx->cursor->mark->bline->prev) break;
        this_line = strndup(ctx->cursor->mark->bline->data, ctx->cursor->mark->bline->data_len);
        prev_line = strndup(ctx->cursor->mark->bline->prev->data, ctx->cursor->mark->bline->prev->data_len);
        this_line_len = strlen(this_line);
        prev_line_len = strlen(prev_line);
        prev_open = prev_line_len > 0 && prev_line[prev_line_len-1] == '{' ? 1 : 0;
        if (!util_pcre_match("^\\s*", this_line, this_line_len, &this_ws, &this_ws_len)
            || !util_pcre_match("^\\s*", prev_line, prev_line_len, &prev_ws, &prev_ws_len)
            || (!prev_open && this_ws_len < prev_ws_len)
            || (prev_open && this_ws_len <= prev_ws_len)
        ) {
            // More whitespace on prev line
            break;
        } else if (ctx->bview->tab_to_space
            && ctx->cursor->mark->bline->data_len % ctx->bview->tab_width == 0
            && util_pcre_match("^ +$", this_line, this_line_len, NULL, NULL)
        ) {
            // Outdent with tab_width worth of spaces
            bline_delete(ctx->cursor->mark->bline, 0, ctx->bview->tab_width);
        } else if (!ctx->bview->tab_to_space
            && util_pcre_match("^\\t+$", this_line, this_line_len, NULL, NULL)
        ) {
            // Outdent one tab
            bline_delete(ctx->cursor->mark->bline, 0, 1);
        }
    } while (0);
    mark_insert_before(ctx->cursor->mark, "}", 1);
    if (this_line) free(this_line);
    if (prev_line) free(prev_line);
}

// Apply cmd for each cursor
static void _cmd_shell_apply_cmd(cmd_context_t *ctx, char *cmd) {
    char *input;
    bint_t input_len;
    char *output;
    size_t output_len;
    int exit_code;
    bline_t *block_bline;
    bint_t block_col;
    mark_t *block_mark;

    // Loop for each cursor
    MLE_FOREACH_CURSOR(ctx->cursor) {
        // Get data to send to stdin
        if (cursor->is_anchored) {
            (cursor->is_block ? mark_block_get_between : mark_get_between)
                (cursor->mark, cursor->anchor, &input, &input_len);
        } else {
            input = NULL;
            input_len = 0;
        }

        // Run cmd
        output = NULL;
        output_len = 0;
        exit_code = -1;
        block_mark = NULL;
        if (util_shell_exec(ctx->editor, cmd, 1, input, input_len, 0, NULL, &output, &output_len, &exit_code) == MLE_OK) {
            if (output_len > 0) {
                // Write output to buffer
                if (cursor->is_anchored) {
                    if (cursor->is_block) {
                        mark_block_get_top_left(cursor->mark, cursor->anchor, &block_bline, &block_col);
                        mark_clone(cursor->mark, &block_mark);
                        block_mark->lefty = 1;
                        mark_move_to_w_bline(block_mark, block_bline, block_col);
                        mark_block_delete_between(cursor->mark, cursor->anchor);
                    } else {
                        mark_delete_between(cursor->mark, cursor->anchor);
                    }
                }
                if (cursor->is_block) {
                    mark_block_insert_before(block_mark ? block_mark : cursor->mark, output, output_len);
                } else {
                    mark_insert_before(cursor->mark, output, output_len);
                }
            }
            MLE_SET_INFO(ctx->editor, "shell: Exited %d", exit_code);
        }

        // Frees
        if (block_mark) mark_destroy(block_mark);
        if (input) free(input);
        if (output) free(output);
    } // Loop for next cursor
}

// Get one kinput_t, saving original input on cmd_context_t
static void _cmd_get_input(cmd_context_t *ctx, kinput_t *ret_input) {
    kinput_t oinput;
    MLE_KINPUT_COPY(oinput, ctx->input);
    memset(ret_input, 0, sizeof(kinput_t));
    editor_get_input(ctx->editor, ctx->loop_ctx, ctx);
    MLE_KINPUT_COPY(*ret_input, ctx->input);
    MLE_KINPUT_COPY(ctx->input, oinput);
}

// Perform a fuzzy search using fzf/fzy
// `shell_cmd` is expected to return a path on stdout
static int _cmd_fsearch_inner(cmd_context_t *ctx, char *shell_cmd) {
    char *path;
    size_t path_len;
    path = NULL;
    if (tb_width() >= 0) tb_shutdown();
    if (util_shell_exec(ctx->editor, shell_cmd, -1, NULL, 0, 0, NULL, &path, &path_len, NULL) == MLE_ERR) {
        return MLE_ERR;
    }
    if (path && path_len > 0) {
        while (path[path_len-1] == '\n') {
            // Strip trailing newlines
            path_len -= 1;
        }
        if (path_len > 0) {
            if (ctx->static_param && strcmp(ctx->static_param, "replace") == 0) {
                if (_cmd_pre_close(ctx->editor, ctx->bview) == MLE_OK) {
                    bview_open(ctx->bview, path, path_len);
                }
            } else {
                editor_open_bview(ctx->editor, NULL, MLE_BVIEW_TYPE_EDIT, path, path_len, 1, 0, 0, NULL, NULL);
            }
        }
    }
    free(path);
    return MLE_OK;
}

// Get char from static param or wildcard param
static int _cmd_get_char_param(cmd_context_t *ctx, char *ret_ch) {
    uint32_t ch;
    if (ctx->static_param) {
        *ret_ch = *ctx->static_param;
    } else if ((ch = MLE_PARAM_WILDCARD(ctx, 0))) {
        *ret_ch = (char)ch;
    } else {
        *ret_ch = '\0';
    }
    return MLE_OK;
}

// Move cursor vertically
static int _cmd_move_page_y(cmd_context_t *ctx, int full_y, int is_up) {
    int y, tmp_y;
    int (*viewport_fn)(bview_t*);
    if (ctx->static_param && (tmp_y = atoi(ctx->static_param)) > 0) {
        y = tmp_y;
    } else {
        y = full_y;
    }
    viewport_fn = y < full_y ? bview_rectify_viewport : bview_zero_viewport_y;
    if (is_up) y *= -1;
    MLE_FOREACH_CURSOR_MARK_FN(ctx->cursor, mark_move_vert, y);
    viewport_fn(ctx->bview);
    return MLE_OK;
}

// Return 1 if OK to close bview immediately without prompting to save
static int _cmd_pre_close_ok_to_close_bview(editor_t *editor, bview_t *bview) {
    bview_t *tmp;
    if (!bview->buffer->is_unsaved || MLE_BVIEW_IS_MENU(bview)) {
        return 1; // OK to close saved bviews, and menus
    }
    tmp = bview->split_parent;
    while (tmp) {
        // OK to close if a split_parent has buffer open
        if (tmp->buffer == bview->buffer) return 1;
        tmp = tmp->split_parent;
    }
    return 0;
}
