diff options
author | Oliver Kiddle <opk@users.sourceforge.net> | 2004-07-23 13:37:42 +0000 |
---|---|---|
committer | Oliver Kiddle <opk@users.sourceforge.net> | 2004-07-23 13:37:42 +0000 |
commit | 8605ba6dacb27d48be99fd762b54aaac1a6b4958 (patch) | |
tree | fff2a34f6aa83d39a4f7d2241485af8b3ff67647 /Completion/Darwin/Command/_defaults | |
parent | d8e4bb5a383a8566e7ee86466ebe057c45b03201 (diff) | |
download | zsh-8605ba6dacb27d48be99fd762b54aaac1a6b4958.tar.gz zsh-8605ba6dacb27d48be99fd762b54aaac1a6b4958.tar.xz zsh-8605ba6dacb27d48be99fd762b54aaac1a6b4958.zip |
Motoi Washida: 20179: new completions for Mac OS X
Diffstat (limited to 'Completion/Darwin/Command/_defaults')
-rw-r--r-- | Completion/Darwin/Command/_defaults | 66 |
1 files changed, 66 insertions, 0 deletions
diff --git a/Completion/Darwin/Command/_defaults b/Completion/Darwin/Command/_defaults new file mode 100644 index 000000000..0c17c9e69 --- /dev/null +++ b/Completion/Darwin/Command/_defaults @@ -0,0 +1,66 @@ +#compdef defaults + +_defaults_domains(){ + local str="$(_call_program domains defaults domains 2>/dev/null)" + local expl + local -a list + list=( ${(s/, /)str} -g -globalDomain ) + _wanted domains expl 'defaults database domain' \ + compadd -M 'r:|.=* r:|=*' -a list +} + +_defaults_keys(){ + local ks="$(_call_program keys defaults read "$words[2]" 2>/dev/null | sed '/^ [[:alpha:]"]/ { s/^ //; s/ = .*$//; p;}; d')" + local expl + _wanted keys expl 'key' compadd ${(f)ks} +} + +_defaults(){ + local -a _1st_arguments + _1st_arguments=( read read-type write rename delete domains find help ) + + local curcontext="$curcontext" state line expl + + _arguments -A '-*' \ + '(-currentHost)-host:host:_hosts' \ + '(-host)-currentHost' \ + '*::command:->subcmd' && return 0 + + if (( CURRENT == 1 )); then + _describe -t commands "command" _1st_arguments + return + fi + + case $words[1] in + read|read-type|delete) + _arguments \ + "(1)-app:application:_mac_applications" \ + "(-app)1:domain:_defaults_domains" \ + "2:keys:_defaults_keys" + ;; + write) + _arguments \ + "(1)-app:application:_mac_applications" \ + "(-app)1:domain:_defaults_domains" \ + "2:key:_defaults_keys" \ + "*::value" + ;; + rename) + _arguments \ + "(1)-app:application:_mac_applications" \ + "(-app)1:domain:_defaults_domains" \ + "2:old key:_defaults_keys" \ + "3:new key:_defaults_keys" + ;; + domains|help) + ;; + find) + _message word + ;; + *) + _message "unknown defaults command: $words[1]" + ;; + esac +} + +_defaults "$@" |