blob: 5b7763324ec65cd3f324e07e5f527895e879c67f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
|
# 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
}
|
