comparison contrib/zsh_completion @ 3546:6106236bc4eb

zsh: support remote URLs
author Brendan Cully <brendan@kublai.com>
date Thu, 26 Oct 2006 22:28:33 -0700
parents 35b99f076d02
children c8494fcc9d39
comparison
equal deleted inserted replaced
3545:35b99f076d02 3546:6106236bc4eb
152 _hg_addremove() { 152 _hg_addremove() {
153 _alternative 'files:unknown files:_hg_unknown' \ 153 _alternative 'files:unknown files:_hg_unknown' \
154 'files:missing files:_hg_missing' 154 'files:missing files:_hg_missing'
155 } 155 }
156 156
157 _hg_urls() {
158 if compset -P bundle://
159 then
160 _files
161 elif [[ -prefix *: ]]
162 then
163 _urls
164 else
165 local expl
166 compset -S '[^:]*'
167 _wanted url-schemas expl 'URL schema' compadd -S '' - \
168 http:// https:// ssh:// bundle://
169 fi
170 }
171
157 _hg_paths() { 172 _hg_paths() {
158 typeset -a paths pnames 173 typeset -a paths pnames
159 _hg_cmd paths 2> /dev/null | while read -A pnames 174 _hg_cmd paths 2> /dev/null | while read -A pnames
160 do 175 do
161 paths+=($pnames[1]) 176 paths+=($pnames[1])
162 done 177 done
163 (( $#paths )) && _describe -t urls 'repository aliases' paths 178 (( $#paths )) && _describe -t path-aliases 'repository alias' paths
164 } 179 }
165 180
166 _hg_remote() { 181 _hg_remote() {
167 _alternative 'urls:repository alias:_hg_paths' \ 182 _alternative 'path-aliases:repository alias:_hg_paths' \
168 'directories:directory:_files -/' 183 'directories:directory:_files -/' \
184 'urls:URL schema:_hg_urls'
169 } 185 }
170 186
171 # Common options 187 # Common options
172 _hg_global_opts=( 188 _hg_global_opts=(
173 '(--repository -R)'{-R+,--repository}'[repository root directory]:repository:_files -/' 189 '(--repository -R)'{-R+,--repository}'[repository root directory]:repository:_files -/'