From: Daniel Shahaf <d.s@daniel.shahaf.name>
To: zsh-workers@zsh.org
Subject: [PATCH] _tmux: Complete environment variables and their values for set-environment and show-environment.
Date: Thu, 17 Aug 2017 04:39:27 +0000 [thread overview]
Message-ID: <20170817043927.14638-1-danielsh@tarpaulin.shahaf.local2> (raw)
Also, teach show-environment not to offer --options after positional
arguments.
---
Completion/Unix/Command/_tmux | 86 +++++++++++++++++++++++++++++++++++++++++--
1 file changed, 83 insertions(+), 3 deletions(-)
diff --git a/Completion/Unix/Command/_tmux b/Completion/Unix/Command/_tmux
index 0f142bb0e..179e09484 100644
--- a/Completion/Unix/Command/_tmux
+++ b/Completion/Unix/Command/_tmux
@@ -732,12 +732,30 @@ _tmux-set-buffer() {
_tmux-set-environment() {
[[ -n ${tmux_describe} ]] && print "(un)set an environment variable" && return
- _arguments -s -A "-*" -S \
+ local mode=session action=add
+ local curcontext="$curcontext" state line ret=1
+ typeset -A opt_args
+ _arguments -C -s -A "-*" -S : \
'(-t)-g[modify global environment]' \
'-r[remove variable before starting new processes]' \
'-u[unset a variable]' \
'(-g)-t[specify target session]:target session:__tmux-sessions' \
- ':name' ':value'
+ ': :->name' '(-u -r)2: :->value' && ret=0
+
+ if (( ${+opt_args[-g]} )); then
+ mode=global
+ fi
+ if (( ${+opt_args[-u]} || ${+opt_args[-r]} )); then
+ action=remove-unset
+ fi
+
+ # TODO: the exclusion "(-g -r)2:" doesn't work, so simulate it here
+ if [[ $action == remove-unset ]] && [[ $state == value ]]; then
+ __tmux-nothing-else
+ else
+ __tmux-environment-variables $mode $state $action && ret=0
+ fi
+ return ret
}
_tmux-set-option() {
@@ -804,10 +822,21 @@ _tmux-show-buffer() {
_tmux-show-environment() {
[[ -n ${tmux_describe} ]] && print "display the environment" && return
- _arguments -s \
+ local mode=session
+ local curcontext="$curcontext" state line ret=1
+ typeset -A opt_args
+ _arguments -C -A "-*" -s : \
'(-t)-g[show global environment]' \
'-s[format output as Bourne shell commands]' \
'(-g)-t+[specify target session]:target session:__tmux-sessions' \
+ '1:: :->name' && ret=0
+
+ if (( ${+opt_args[-g]} )); then
+ mode=global
+ fi
+
+ __tmux-environment-variables $mode $state show && ret=0
+ return ret
}
_tmux-show-messages() {
@@ -997,6 +1026,57 @@ function __tmux-clients() {
_describe -t clients 'clients' clients
}
+function __tmux-environment-variables() {
+ local mode="$1" state="$2" action="$3"
+
+ local -a dash_g
+ case $mode in
+ (global) dash_g=(-g);;
+ (session) dash_g=();;
+ (*) return 1;; # bug in the caller
+ esac
+
+ local hint
+ case $action in
+ (add) hint=" (or specify a new one)";;
+ (remove-unset) hint="";;
+ (show) hint="";;
+ (*) return 1;; # bug in the caller
+ esac
+
+ case ${state} in
+ (name)
+ local -a vars_and_vals=( ${(@f)"$(command tmux 2>/dev/null show-env $dash_g)"} )
+ local -a descriptions
+ local k_v k v
+ for k_v in $vars_and_vals; do
+ k=${k_v%%=*}
+ if [[ $k == -* ]]; then
+ k=${k#-}
+ v='(remove)'
+ else
+ v=${k_v#*=}
+ fi
+ descriptions+=( "${k//:/\\:}:$v" )
+ done
+ _describe -t parameters "${dash_g[1]:+"global "}environment variables${hint}" descriptions
+ ;;
+ (value)
+ local var_and_val=${(@f)"$(command tmux 2>/dev/null show-env $dash_g -- ${(Q)words[-2]})"}
+ if [[ -n $var_and_val ]]; then
+ local -a expl
+ _description -x parameter-values expl "Value for ${words[-2]}"
+ compadd "$expl[@]" - ${var_and_val#*=}
+ else
+ _message "Value for ${words[-2]}"
+ fi
+ ;;
+ (*)
+ return 1
+ ;;
+ esac
+}
+
function __tmux-format() {
_message 'not implemented yet'
}
next reply other threads:[~2017-08-17 4:39 UTC|newest]
Thread overview: 2+ messages / expand[flat|nested] mbox.gz Atom feed top
2017-08-17 4:39 Daniel Shahaf [this message]
2017-08-17 17:17 ` Daniel Shahaf
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=20170817043927.14638-1-danielsh@tarpaulin.shahaf.local2 \
--to=d.s@daniel.shahaf.name \
--cc=zsh-workers@zsh.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.vuxu.org/mirror/zsh/
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).