f69d8c3e12
Just like the parent commit but for tmux-repl-* commands. Note that tmux-repl-set-pane without arguments is kind of broken; it increments the current pane ID, which only works in the most basic scenarios. We should probably replace it with something better, with menu completions etc.
92 lines
3.2 KiB
Plaintext
92 lines
3.2 KiB
Plaintext
# http://tmux.github.io/
|
|
# ‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾
|
|
# Tmux version >= 2 is required to use this module
|
|
|
|
hook global ModuleLoaded tmux %{
|
|
require-module tmux-repl
|
|
}
|
|
|
|
provide-module tmux-repl %{
|
|
|
|
declare-option -docstring "tmux pane id in which the REPL is running" str tmux_repl_id
|
|
|
|
define-command -hidden -params 1.. tmux-repl-impl %{
|
|
evaluate-commands %sh{
|
|
if [ -z "$TMUX" ]; then
|
|
echo 'fail This command is only available in a tmux session'
|
|
exit
|
|
fi
|
|
tmux_args="$1"
|
|
if [ "${1%%-*}" = split ]; then
|
|
tmux_args="$tmux_args -t ${kak_client_env_TMUX_PANE}"
|
|
elif [ "${1%% *}" = new-window ]; then
|
|
session_id=$(tmux display-message -p -t ${kak_client_env_TMUX_PANE} '#{session_id}')
|
|
tmux_args="$tmux_args -t $session_id"
|
|
fi
|
|
shift
|
|
repl_pane_id=$(tmux $tmux_args -P -F '#{pane_id}' "$@")
|
|
printf "set-option current tmux_repl_id '%s'" "$repl_pane_id"
|
|
}
|
|
}
|
|
|
|
define-command tmux-repl-vertical -params 0.. -docstring "Create a new vertical pane for repl interaction" %{
|
|
tmux-repl-impl 'split-window -v' %arg{@}
|
|
}
|
|
complete-command tmux-repl-vertical shell
|
|
|
|
define-command tmux-repl-horizontal -params 0.. -docstring "Create a new horizontal pane for repl interaction" %{
|
|
tmux-repl-impl 'split-window -h' %arg{@}
|
|
}
|
|
complete-command tmux-repl-horizontal shell
|
|
|
|
define-command tmux-repl-window -params 0.. -docstring "Create a new window for repl interaction" %{
|
|
tmux-repl-impl 'new-window' %arg{@}
|
|
}
|
|
complete-command tmux-repl-window shell
|
|
|
|
define-command -params 0..1 tmux-repl-set-pane -docstring %{
|
|
tmux-repl-set-pane [pane number]: Set an existing tmux pane for repl interaction
|
|
If the address of new pane is not given, next pane is used
|
|
(To get the pane number in tmux,
|
|
use 'tmux display-message -p '#{pane_id}'" in that pane)
|
|
} %{
|
|
evaluate-commands %sh{
|
|
if [ -z "$TMUX" ]; then
|
|
echo 'fail This command is only available in a tmux session'
|
|
exit
|
|
fi
|
|
if [ $# -eq 0 ]; then
|
|
curr_pane_no="${kak_client_env_TMUX_PANE#%}"
|
|
tgt_pane=$((curr_pane_no+1))
|
|
else
|
|
tgt_pane="$1"
|
|
fi
|
|
curr_win="$(tmux display-message -t ${kak_client_env_TMUX_PANE} -p '#{window_id}')"
|
|
if tmux list-panes -t "$curr_win" -F \#D | grep -Fxq "%"$tgt_pane; then
|
|
printf "set-option current tmux_repl_id '%s'" %$tgt_pane
|
|
else
|
|
echo 'fail The correct pane is not there. Activate using tmux-terminal-* or some other way'
|
|
fi
|
|
}
|
|
}
|
|
|
|
define-command -hidden tmux-send-text -params 0..1 -docstring %{
|
|
tmux-send-text [text]: Send text to the REPL pane.
|
|
If no text is passed, then the selection is used
|
|
} %{
|
|
evaluate-commands %sh{
|
|
if [ $# -eq 0 ]; then
|
|
tmux set-buffer -b kak_selection -- "${kak_selection}"
|
|
else
|
|
tmux set-buffer -b kak_selection -- "$1"
|
|
fi
|
|
tmux paste-buffer -b kak_selection -t "$kak_opt_tmux_repl_id" ||
|
|
echo 'fail tmux-send-text: failed to send text, see *debug* buffer for details'
|
|
}
|
|
}
|
|
|
|
alias global repl-new tmux-repl-horizontal
|
|
alias global repl-send-text tmux-send-text
|
|
|
|
}
|