b875a1802c
This patch centralises the loading of windowing environments, in order to ensure that by default only a single module is loaded, rather than the current code which can load multiple potentially incompatible modules; and in order to provide the user with more control over the loading of windowing modules. The patch introduces a new str-list option `windowing_modules` which defines an ordered list of windowing modules to attempt to load. Modules are loaded in the order specified in the list until a module loads without error, at which point the process finishes. When loaded each windowing module tests the environment to determine whether it should load (e.g. the tmux module tests to see if it's being run within a tmux session), and if it determines that it should then it completes its loading without error. If it doesn't detect an appropriate environment then it returns an error, and the module loading logic tries the next module. The user can override the default `windowing_modules` list to specify their preferred modules (i.e. they can put kitty ahead of tmux if that's their preference, or they can leave out the x11 modules alltogether). In addition, if the `windowing_modules` option is an empty list this bypasses the environment detection logic completely, and allows the modules to be loaded manually - this allows a user to replace the windowing module loading logic with their own manual set up.
75 lines
2.5 KiB
Plaintext
75 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
|
|
if [ "$i" = '' ]; then
|
|
printf "'' "
|
|
else
|
|
printf %s "$i" | sed -e "s|'|'\\\\''|g; s|^|'|; s|$|' |"
|
|
fi
|
|
done
|
|
)
|
|
screen -X screen sh -c "${args} ; screen -X remove" < "/dev/$tty"
|
|
}
|
|
}
|
|
|
|
define-command screen-terminal-vertical -params 1.. -shell-completion -docstring '
|
|
screen-terminal-vertical <program> [<arguments>] [<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{@}
|
|
}
|
|
define-command screen-terminal-horizontal -params 1.. -shell-completion -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{@}
|
|
}
|
|
define-command screen-terminal-window -params 1.. -shell-completion -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"
|
|
}
|
|
}
|
|
|
|
define-command screen-focus -params ..1 -client-completion -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
|
|
}
|
|
}
|
|
|
|
alias global focus screen-focus
|
|
alias global terminal screen-terminal-vertical
|
|
|
|
}
|