60 lines
1.8 KiB
Bash
60 lines
1.8 KiB
Bash
|
#!/bin/sh
|
||
|
|
# socktop-swipe next|prev
|
||
|
|
#
|
||
|
|
# Walks a linear "zoom carousel" over the tiled socktop window:
|
||
|
|
#
|
||
|
|
# overview <-> pane 0 <-> pane 1 <-> ... <-> pane N-1
|
||
|
|
# (all hosts) host 1 host 2 last host
|
||
|
|
#
|
||
|
|
# "next" moves right along that line and stops at the last pane.
|
||
|
|
# "prev" moves back and stops at the overview. Deliberately no wrap-around:
|
||
|
|
# on a wall display, wrapping makes it impossible to tell where you are.
|
||
|
|
#
|
||
|
|
# This is tmux pane zoom, NOT extra socktop instances. All panes keep running
|
||
|
|
# and stay connected while hidden, so swiping back shows current data with no
|
||
|
|
# reconnect, and the polling load on the monitored hosts is constant.
|
||
|
|
set -eu
|
||
|
|
|
||
|
|
for c in /usr/local/etc/socktop-swipe.env "$(dirname "$0")/config.env"; do
|
||
|
|
[ -r "$c" ] && . "$c" && break
|
||
|
|
done
|
||
|
|
: "${SOCKTOP_SESSION:=socktop4}"
|
||
|
|
|
||
|
|
dir=${1:?usage: socktop-swipe next|prev}
|
||
|
|
|
||
|
|
# Resolve the session's active window to its window id (@N) rather than assuming
|
||
|
|
# a window name, so this works against any socktop session however it was built.
|
||
|
|
WIN=$(tmux display-message -t "$SOCKTOP_SESSION" -p '#{window_id}' 2>/dev/null) || exit 0
|
||
|
|
[ -n "$WIN" ] || exit 0
|
||
|
|
|
||
|
|
state=$(tmux display-message -t "$WIN" -p '#{window_zoomed_flag} #{pane_index} #{window_panes}') || exit 0
|
||
|
|
zoomed=${state%% *}
|
||
|
|
rest=${state#* }
|
||
|
|
idx=${rest%% *}
|
||
|
|
count=${rest##* }
|
||
|
|
last=$((count - 1))
|
||
|
|
|
||
|
|
zoom_to() {
|
||
|
|
# Selecting a different pane auto-unzooms, so zoom explicitly afterwards.
|
||
|
|
tmux select-pane -t "$WIN.$1"
|
||
|
|
tmux resize-pane -Z -t "$WIN.$1"
|
||
|
|
}
|
||
|
|
|
||
|
|
if [ "$zoomed" = 0 ]; then
|
||
|
|
case "$dir" in
|
||
|
|
next) zoom_to 0 ;;
|
||
|
|
prev) : ;; # already at the overview; nothing further out
|
||
|
|
esac
|
||
|
|
else
|
||
|
|
case "$dir" in
|
||
|
|
next) [ "$idx" -lt "$last" ] && zoom_to $((idx + 1)) || : ;;
|
||
|
|
prev)
|
||
|
|
if [ "$idx" -gt 0 ]; then
|
||
|
|
zoom_to $((idx - 1))
|
||
|
|
else
|
||
|
|
tmux resize-pane -Z -t "$WIN.$idx" # unzoom -> overview
|
||
|
|
fi
|
||
|
|
;;
|
||
|
|
esac
|
||
|
|
fi
|