From: Clint Adams <clint@zsh.org>
To: zsh-workers@sunsite.dk
Subject: PATCH: _bts (options and such)
Date: Fri, 20 Jan 2006 23:10:35 -0500 [thread overview]
Message-ID: <20060121041035.GA10305@scowler.net> (raw)
This is much less useless than 22166. I think it's only missing
subcommand handling for cache and cleancache, which look to be
mini-nightmares.
Index: Completion/Debian/Command/_bts
===================================================================
RCS file: /cvsroot/zsh/zsh/Completion/Debian/Command/_bts,v
retrieving revision 1.5
diff -u -r1.5 _bts
--- Completion/Debian/Command/_bts 21 Jan 2006 01:52:10 -0000 1.5
+++ Completion/Debian/Command/_bts 21 Jan 2006 04:06:44 -0000
@@ -1,19 +1,36 @@
#compdef bts
-local expl
+local expl first=1
-compset -N '[,.]' || compset -n 2
+_arguments -A "-*" \
+ '(-o --offline)'{-o,--offline}'[use cached bugs]' \
+ '(--online --no-offline)'{--online,--no-offline}'[do not use cached bugs]' \
+ '(--cache --no-cache)--cache[cache new versions of pages]' \
+ '(--cache --no-cache)--no-cache[do not cache new versions of pages]' \
+ '--cache-mode=:cache mode:(min mbox full)' \
+ '--cache-delay=:seconds:' \
+ '--mbox[open a mail reader to read the corresponding mbox]' \
+ '--mailreader=:reader:' \
+ '(-f --force-refresh)'{-f,--force-refresh}'[download bug report even if unchanged]' \
+ '-no-force-refresh[do not force refresh]' \
+ '(-q --quiet)*'{-q,--quiet}'[only display info about newly cached pages]' \
+ '(--no-conf --noconf)*'{--no-conf,--noconf}'[do not read any config files]' \
+ '*:subcommand and args:->subcmds' && return 0
+
+compset -N '-[^0-9]#' && first=0
+compset -N '[,.]' && first=0
+[[ $first -eq 0 ]] || compset -n 2
if [[ CURRENT -eq 1 ]]; then
_wanted cmd expl 'bts command' compadd show bugs close reopen retitle \
reassign merge unmerge tag severity forwarded notforwarded help \
- clone submitter found notfound block unblock user usertag \
+ clone submitter found notfound block unblock user usertag usertags \
package owner noowner reportspam cache cleancache
return
fi
case "$words[1]" in
- show|close|unmerge|notforwarded)
+ (show|close|unmerge|notforwarded|noowner|reportspam)
if [[ CURRENT -eq 2 ]]; then
_message -e bugnum 'bug number'
else
@@ -99,6 +116,71 @@
_wanted sep expl 'separator' compadd -S ' ' , .
fi
;;
+ (clone)
+ if [[ CURRENT -eq 2 ]]; then
+ _message -e bugnum 'bug number'
+ elif [[ CURRENT -eq 3 || -prefix [-] ]]; then
+ _wanted newid expl 'new ID' compadd -- -{1..9}
+ else
+ _wanted sep expl 'separator' compadd -S ' ' , .
+ fi
+ ;;
+ (submitter|owner)
+ if [[ CURRENT -eq 2 ]]; then
+ _message -e bugnum 'bug number'
+ else
+ _alternative \
+ 'bugnum:bug number:' \
+ 'email:email address:_email_addresses -c' \
+ 'bang:bang:compadd \!'
+ fi
+ ;;
+ (found|notfound)
+ if [[ CURRENT -eq 2 ]]; then
+ _message -e bugnum 'bug number'
+ elif [[ CURRENT -eq 3 ]]; then
+ _message -e version 'version'
+ else
+ _wanted sep expl 'separator' compadd -S ' ' , .
+ fi
+ ;;
+ (block|unblock)
+ if [[ CURRENT -eq 2 ]]; then
+ _message -e bugnum 'bug number'
+ elif [[ CURRENT -eq 3 ]]; then
+ _wanted prep expl 'preposition' compadd by with
+ else
+ _alternative \
+ 'bugnum:bug number:' \
+ 'separator:separator:compadd -S " " , .'
+ fi
+ ;;
+ (user)
+ if [[ CURRENT -eq 2 ]]; then
+ _wanted upstream expl 'user email for usertags' _email_addresses -c
+ else
+ _wanted sep expl 'separator' compadd -S ' ' , .
+ fi
+ ;;
+ (usertags#)
+ if [[ CURRENT -eq 2 ]]; then
+ _message -e bugnum 'bug number'
+ elif [[ CURRENT -eq 3 ]]; then
+ _wanted operator expl 'operator' compadd - '+' '-' '='
+ elif [[ CURRENT -eq 4 ]]; then
+ _message -e usertag 'user tag'
+ else
+ _message -e usertag 'user tag'
+ _wanted sep expl 'separator' compadd -S ' ' , .
+ fi
+ ;;
+ (package)
+ if [[ CURRENT -eq 2 ]]; then
+ _wanted package expl 'package' _deb_packages avail
+ else
+ _wanted sep expl 'separator' compadd -S ' ' , .
+ fi
+ ;;
help)
;&
*) _wanted sep expl 'separator' compadd -S ' ' , .
reply other threads:[~2006-01-21 4:10 UTC|newest]
Thread overview: [no followups] expand[flat|nested] mbox.gz Atom feed
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=20060121041035.GA10305@scowler.net \
--to=clint@zsh.org \
--cc=zsh-workers@sunsite.dk \
/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).