## p : string -> unit
p() {
+ local -r usage='Usage: p [FILE] NAME'
+ local name
+ local file
+
+ case "$#" in
+ 0)
+ echo "$usage" >&2
+ return 1;;
+ 1)
+ file=~/._p/p
+ name="$1";;
+ 2)
+ file="$1"
+ name="$2";;
+ *)
+ echo "$usage" >&2
+ return 1;;
+ esac
+
awk \
- -v _s="$1" \
+ -v _s="$name" \
'
BEGIN {_s = tolower(_s)}
}
}
' \
- ~/._p/p \
+ "$file" \
| xsel -i -b -t 30000
}
echo 'accounting'
- printf '%stmux\n%ssessions %d, clients %d\n' \
- "$indent_unit" \
- "${indent_unit}${indent_unit}" \
- "$(tmux list-sessions 2> /dev/null | wc -l)" \
- "$(tmux list-clients 2> /dev/null | wc -l)"
+ printf '%stmux\n' "$indent_unit"
+ ps -eo comm,cmd \
+ | awk '
+ # Expecting lines like:
+ # "tmux: server tmux -L pistactl new-session -d -s pistactl"
+ # "tmux: client tmux -L foo"
+ # "tmux: client tmux -Lbar"
+ /^tmux:/ {
+ # XXX This of course assumes pervasive usage of -L
+ # TODO Handle -S
+ role=$2
+ split($0, sides_of_L, "-L")
+ split(sides_of_L[2], words_right_of_L, FS)
+ sock=words_right_of_L[1]
+ if (!sock) {
+ sock = "default"
+ } else {
+ sock = "\"" sock "\""
+ }
+ roles[role]++
+ socks[sock]++
+ count[role, sock]++
+ }
+
+ END {
+ for (sock in socks) {
+ clients = count["client", sock]
+ printf "%s ", sock
+ if (clients) {
+ printf "<-> %d", clients
+ }
+ printf "\n"
+ }
+ printf "\n"
+ }' \
+ | sort \
+ | column -t \
+ | indent "${indent_unit}${indent_unit}"
echo