746e0d032f
Today I can control "terminal" and "new" by changing the terminal
alias but I always need to choose a concrete implementation, like
"tmux-terminal-horizontal", even when there is otherwise no need to
mention tmux in my config.
Allow to configure windowing system and window placement independently
by introducing dedicated options.
This allows to create mappings that work in any windowing system like
map global user c %{:with-option windowing_placement window new<ret>}
map global user '"' %{:with-option windowing_placement vertical new<ret>}
map global user '%' %{:with-option windowing_placement horizontal new<ret>}
For windowing systems that don't support all placements, you can wrap
the above in try/catch to fall back on the "window" variant which is
defined for all windowing systems.
When using multiple (nested) windowing systems, you might want to
add mappings like
map global user t %{:with-option windowing_module tmux new<ret>}
map global user T %{:with-option windowing_module wayland new<ret>}
---
This changes the default "terminal" alias for some modules. In
particular, instead of delegating to
iterm-terminal-vertical
screen-terminal-vertical
tmux-terminal-horizontal
wezterm-terminal-vertical
it will now by default delegate to the respective "-window" variant.
We could maintain backwards compatiblity here by setting the
"windowing_placement" option accordingly, but the new behavior seems
more logical?
Also, this removes the "terminal-tab" alias which was only defined
by the kitty module.
We could try to keep the alias approach and implement a "with-alias"
command, however that approach can only capture both dimensions
(windowing system and placement) if we add tons of commands
like "terminal-horizontal" (with implied windowing system) and
"tmux-terminal" (with implied placement).
Side thought: we could also get rid of the "focus" alias and instead
define
define-command focus %{
"%opt{windowing_module}-focus"
}
Closes #3943, #4425
76 lines
2.5 KiB
Plaintext
76 lines
2.5 KiB
Plaintext
# http://gnu.org/software/screen/
|
|
# ‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾
|
|
|
|
|
|
provide-module screen %{
|
|
|
|
# ensure that we're running under screen
|
|
evaluate-commands %sh{
|
|
[ -z "${kak_opt_windowing_modules}" ] || [ -n "$STY" ] || echo 'fail screen not detected'
|
|
}
|
|
|
|
define-command screen-terminal-impl -hidden -params 3.. %{
|
|
nop %sh{
|
|
tty="$(ps -o tty ${kak_client_pid} | tail -n 1)"
|
|
screen -X eval "$1" "$2"
|
|
shift 2
|
|
# see x11.kak for what this achieves
|
|
args=$(
|
|
for i in "$@"; do
|
|
printf "'%s' " "$(printf %s "$i" | sed "s|'|'\\\\''|g")"
|
|
done
|
|
)
|
|
screen -X screen sh -c "${args} ; screen -X remove" < "/dev/$tty"
|
|
}
|
|
}
|
|
|
|
define-command screen-terminal-vertical -params 1.. -docstring '
|
|
screen-terminal-vertical <program> [<arguments>]: create a new terminal as a screen pane
|
|
The current pane is split into two, left and right
|
|
The program passed as argument will be executed in the new terminal' \
|
|
%{
|
|
screen-terminal-impl 'split -v' 'focus right' %arg{@}
|
|
}
|
|
complete-command screen-terminal-vertical shell
|
|
|
|
define-command screen-terminal-horizontal -params 1.. -docstring '
|
|
screen-terminal-horizontal <program> [<arguments>]: create a new terminal as a screen pane
|
|
The current pane is split into two, top and bottom
|
|
The program passed as argument will be executed in the new terminal' \
|
|
%{
|
|
screen-terminal-impl 'split -h' 'focus down' %arg{@}
|
|
}
|
|
complete-command screen-terminal-horizontal shell
|
|
|
|
define-command screen-terminal-window -params 1.. -docstring '
|
|
screen-terminal-window <program> [<arguments>]: create a new terminal as a screen window
|
|
The program passed as argument will be executed in the new terminal' \
|
|
%{
|
|
nop %sh{
|
|
tty="$(ps -o tty ${kak_client_pid} | tail -n 1)"
|
|
screen -X screen "$@" < "/dev/$tty"
|
|
}
|
|
}
|
|
complete-command screen-terminal-window shell
|
|
|
|
define-command screen-focus -params ..1 -docstring '
|
|
screen-focus [<client>]: focus the given client
|
|
If no client is passed then the current one is used' \
|
|
%{
|
|
evaluate-commands %sh{
|
|
if [ $# -eq 1 ]; then
|
|
printf %s\\n "
|
|
evaluate-commands -client '$1' focus
|
|
"
|
|
elif [ -n "${kak_client_env_STY}" ]; then
|
|
tty="$(ps -o tty ${kak_client_pid} | tail -n 1)"
|
|
screen -X select "${kak_client_env_WINDOW}" < "/dev/$tty"
|
|
fi
|
|
}
|
|
}
|
|
complete-command -menu screen-focus client
|
|
|
|
alias global focus screen-focus
|
|
|
|
}
|