tau-dev

tau-dev

#
# tclline: An attempt at a pure tcl readline.
#
# This base code taken from https://wiki.tcl-lang.org/20215 and
# https://wiki.tcl-lang.org/16139
#
# Author: HCG
# Licence: "as freely available as possible" https://wiki.tcl-lang.org/4381
#
# Modified by rjmcmahon: fixes history and multiple key sequences per input char (may not assume atomic)

tau-dev

pub usingnamespace @import("std").c.builtins;

pub const Buf = extern struct {
    data: [*c]u8,
    cursor: c_int,
    size: c_int,
};

pub const BakedChar = extern struct {
    x0: c_ushort,

tau-dev

[
	{ "keys": ["ctrl+g"], "command": "toggle_side_bar" },
	{ "keys": ["alt+left"], "command": "jump_back" },
	{ "keys": ["alt+right"], "command": "jump_forward" },
	{ "keys": ["alt+up"], "command": "swap_line_up" },
	{ "keys": ["alt+down"], "command": "swap_line_down" },
	
	{ "keys": ["ctrl+left"], "command": "move", "args": {"by": "words", "forward": false } },
	{ "keys": ["ctrl+right"], "command": "move", "args": {"by": "word_ends", "forward": true } },
	{ "keys": ["ctrl+alt+left"], "command": "move", "args": {"by": "subwords", "forward": false} },

tau-dev

%F{43}[%f%n%F{43}]%f %2~ %F{43}$%f