#compdef be
#
# This file should be copied into one of the directories in $fpath;
# e. g. /usr/local/share/zsh/site-functions/_be.
# From then on, every new shell should have the be completion.
__be_commands () {
local -a commands
commands=(
assign:'Assign an individual or group to fix a bug'
comment:'Add a comment to a bug'
commit:'Commit the currently pending changes to the repository'
depend:'Add / remove bug dependencies'
diff:'Compare bug reports with older tree'
due:'Set bug due dates'
help:'Print help for given command or topic'
html:'Generate a static HTML dump of the current repository status'
import_xml:'Import comments and bugs from XML'
init:'Create an on-disk bug repository'
list:'List bugs'
merge:'Merge duplicate bugs'
new:'Create a new bug'
remove:'Remove (delete) a bug and its comments'
serve:'Serve bug directory storage over HTTP'
set:'Change bug directory settings'
severity:'Change a bug’s severity level'
show:'Show a particular bug, comment, or combination of both'
status:'Change a bug’s status level'
subscribe:'(Un)subscribe to change notification'
tag:'Tag a bug, or search bugs for tags'
target:'Assorted bug target manipulations and queries'
)
integer ret=1
_describe -t commands 'command' commands && ret=0
return ret
}
_be-assign () {
local curcontext="$curcontext" state line expl ret=1
assignees=("${(f)$(be assign --complete)}" "-" "none")
ids=("${(f)$(be assign - --complete)}")
_arguments -C \
'(-h --help)'{-h,--help}'[Print a help message]' \
'--complete[Print a list of possible completions]' \
':assignee:($assignees)' \
':ticket ID:($ids)' \
&& return 0
}
_be-comment () {
local curcontext="$curcontext" state line expl ret=1
ids=("${(f)$(be comment --complete)}")
ids=(${ids[5,-1]})
mimes=("text/plain" "text/xml" "image/jpeg" "image/png" "image/svg" "application/xhtml+xml" "application/pdf")
_arguments -C \
'(-h --help)'{-h,--help}'[Print a help message]' \
'--complete[Print a list of possible completions]' \
'(-a --author)'{-a,--author=-}'[Set the comment author]:author:($authors)' \
'--alt-id[Set an alternate comment ID]:($ids)' \
'(-c --content-type)'{-c,--content-type=-}'[Set comment content-type (e.g. text/plain)]:mime type:($mimes)' \
':ID:($ids)' \
&& return 0
}
_be-commit () {
local curcontext="$curcontext" state line expl ret=1
_arguments -C \
'(-h --help)'{-h,--help}'[Print a help message]' \
'--complete[Print a list of possible completions]' \
'(-b --body)'{-b,--body=-}'[Provide the detailed body for the commit message]:body:((EDITOR\:"start editor" ""\:"write on command line"))' \
'(-a --allow-empty)'{-a,--allow-empty}'[Allow empty commits]' \
':summary (‘-’ for stdin):' \
&& return 0
}
_be-depend () {
local curcontext="$curcontext" state line expl ret=1
ids=("${(f)$(be depend --complete)}")
ids=(${ids[9,-1]})
statusses=("${(f)$(be depend --status --complete)}")
sevties=("${(f)$(be depend --severity --complete)}")
_arguments -C \
'(-h --help)'{-h,--help}'[Print a help message]' \
'--complete[Print a list of possible completions]' \
'(-r --remove)'{-r,--remove}'[Remove dependency (instead of adding it)]' \
'(-s --show-status)'{-s,--show-status}'[Show status of blocking bugs]' \
'(-S --show-summary)'{-S,--show-summary}'[Show summary of blocking bugs]' \
'--status=-[Only show bugs matching the STATUS specifier]:status:($statusses)' \
'--severity=-[Only show bugs matching the SEVERITY specifier]:severity:($sevties)' \
{-t,--tree-depth=-}'[Print dependency tree rooted at BUG-ID with DEPTH levels of both blockers and blockees]:depth:' \
'--repair[Check for and repair one-way links]' \
'*:ID:($ids)' \
&& return 0
}
_be-diff () {
# TODO subscription completion is too hard for me atm…
# one should probably use _combination… but how??
# TODO maybe even a nice copletion for repo? but how??
local curcontext="$curcontext" state line expl ret=1
_arguments -C \
'(-h --help)'{-h,--help}'[Print a help message]' \
'--complete[Print a list of possible completions]' \
'(-r --repo)'{-r,--repo=-}'[Compare with repository instead of the current repository]:repository:' \
'(-s --subscription)'{-s,--subscribe=-}'[Only print changes matching subscription]:subscription:' \
'(-u --uuids)'{-u,--uuids}'[Only print the changed bug UUIDS]' \
&& return 0
}
_be-due () {
# XXX This command is currently defunct in be itself
}
_be-help () {
# XXX Needs no completion. What to do?
}
_be-html () {
local curcontext="$curcontext" state line expl ret=1
_arguments -C \
'(-h --help)'{-h,--help}'[Print a help message]' \
'--complete[Print a list of possible completions]' \
'(-o --output)'{-o,--output=-}'[Set the output path]' \
'(-t --template)'{-t,--template=-}'[Use a different template]' \
'--title=-[Set the bug repository title]' \
'--index-header=-[Set the index page headers]' \
'(-e --export-template)'{-e,--export-template}'[Export the default template and exit]' \
'(-d --export-template-dir)'{-d,--export-template-dir=-}'[Set the directory for the template export]' \
'(-l --min-id-length)'{-l,--min-id-length=-}'[Attempt to truncate bug and comment IDs to this length]' \
'(-v -verbose)'{-v,--verbose}'[Verbose output]' \
&& return 0
}
_be-import_xml () {
local curcontext="$curcontext" state line expl ret=1
ids=("${(f)$(be import_xml --comment-root --complete)}")
_arguments -C \
'(-h --help)'{-h,--help}'[Print a help message]' \
'--complete[Print a list of possible completions]' \
'(-i --ignore-missing-references)'{-i,--ignore-missing-references}'[Ignore unknown <in-reply-to> elements]' \
'(-a --add-only)'{-a,--add-only}'[Cancel when bugs already exist]' \
'(-p --preserve-uuids)'{-p,--preserve-uuids}'[Preserve UUIDs for trusted input (potential name collisions)]' \
'(-c --comment-root)'{-c,--comment-root=-}'[Supply a bug or comment ID as the root of any standalon <comment> elements]:ID:($ids)' \
&& return 0
}
_be-init () {
local curcontext="$curcontext" state line expl ret=1
_arguments -C \
'(-h --help)'{-h,--help}'[Print a help message]' \
'--complete[Print a list of possible completions]' \
&& return 0
}
_be-list () {
local curcontext="$curcontext" state line expl ret=1
statusses=("${(f)$(be list --status --complete)}")
sevties=("${(f)$(be list --severity --complete)}")
devers=("${(f)$(be list --assigned --complete)}")
crits=(assigned comments creator extra_strings full last_modified mine reporter severity status summary time uuid)
_arguments -C \
'(-h --help)'{-h,--help}'[Print a help message]' \
'--complete[Print a list of possible completions]' \
'--status=-[Only show bugs matching the status specifier]:status level:($statusses)' \
'--severity=-[Only show bugs matching the severity specifier]:severity:($sevties)' \
'--important[List bugs of “serious” or higher severity]' \
'(-a --assigned)'{-a,--assigned=-}'[Only show bugs assigned to a certain developer]:developer:($devers)' \
'(-m --mine)'{-m,--mine}'[Only show bugs assigned to you]' \
'(-e --extra-strings)'{-e,--extra-strings=-}'[Only show bugs matching the argument, e.g. --extra-strings TAG:working,TAG:xml]' \
'(-S --sort)'{-S,--sort=-}'[Adjust bug-sort criteria]:sort criteria:($crits)' \
'(-t --tags)'{-t,--tags}'[Add TAGS: field to standard listing format]' \
'(-i --ids)'{-i,--ids}'[Only print the bug IDs]' \
'(-x --xml)'{-x,--xml}'[Dump output in XML format]' \
&& return 0
}
_be-merge () {
local curcontext="$curcontext" state line expl ret=1
ids=("${(f)$(be merge --complete)}")
_arguments -C \
'(-h --help)'{-h,--help}'[Print a help message]' \
'--complete[Print a list of possible completions]' \
'1:merge into:($ids)' \
'2:merge what:($ids)' \
&& return 0
}
_be-new () {
local curcontext="$curcontext" state line expl ret=1
# These seemingly ugly lines split the output of the command in $(cmd) into an array.
sevties=("${(f)$(be new -s --complete)}")
statusses=("${(f)$(be new -t --complete)}")
devers=("${(f)$(be new -a --complete)}")
creators=("${(f)$(be new -c --complete)}") # XXX This currently seems to give *no* results
reporters=("${(f)$(be new -r --complete)}") # XXX This currently seems to give *no* results
_arguments -C \
'(-h --help)'{-h,--help}'[Print a help message]' \
'--complete[Print a list of possible completions]' \
'(-r --reporter)'{-r,--reporter=-}'[The user who reported the bug]:reporter:($reporters)' \
'(-c --creator)'{-c,--creator=-}'[The user who created the bug]:creator:($creators)' \
'(-a --assigned)'{-a,--assigned=-}'[The developer in charge of the bug]:developer:($devers)' \
'(-t --status)'{-t,--status=-}'[The bug’s status level]:status level:($statusses)' \
'(-s --severity)'{-s,--severity=-}'[The bug’s severity]:severity:($sevties)' \
&& return 0
}
_be-remove () {
local curcontext="$curcontext" state line expl ret=1
ids=("${(f)$(be remove --complete)}")
ids=(${ids[2,-1]})
_arguments -C \
'(-h --help)'{-h,--help}'[Print a help message]' \
'--complete[Print a list of possible completions]' \
'*:ID:($ids)' \
&& return 0
}
_be-serve () {
local curcontext="$curcontext" state line expl ret=1
_arguments -C \
'(-h --help)'{-h,--help}'[Print a help message]' \
'--complete[Print a list of possible completions]' \
'--port=-[Bind server to port]' \
'--host=-[Set host string]' \
'(-r --read-only)'{-r,--read-only}'[Disable operations that require writing]' \
'(-n --notify)'{-n,--notify=-}'[Send notification emails for changes]' \
'(-s --ssl)'{-s,--ssl}'[Use CherryPy to serve HTTPS (HTTP over SSL/TLS)]' \
'(-a --auth)'{-a,--auth=-}'[Require authentication]' \
&& return 0
}
_be-set () {
local curcontext="$curcontext" state line expl ret=1
#XXX This command is documented as not providing a good interface for some settings. Postponed!
_arguments -C \
'(-h --help)'{-h,--help}'[Print a help message]' \
'--complete[Print a list of possible completions]' \
&& return 0
}
_be-severity () {
local curcontext="$curcontext" state line expl ret=1
sevties=("${(f)$(be severity --complete)}")
sevties=(${sevties[2,-1]})
ids=("${(f)$(be severity ${sevties[1]} --complete)}")
_arguments -C \
'(-h --help)'{-h,--help}'[Print a help message]' \
'--complete[Print a list of possible completions]' \
'1:severity:($sevties)' \
'2:ID:($ids)' \
&& return 0
}
_be-show () {
local curcontext="$curcontext" state line expl ret=1
ids=("${(f)$(be show --complete)}")
# TODO completion of comment IDs does *not* work!
_arguments -C \
'(-h --help)'{-h,--help}'[Print a help message]' \
'--complete[Print a list of possible completions]' \
'(-x --xml)'{-x,--xml}'[Dump as XML]' \
'--only-raw-body[When printing only a single comment, just print it’s body]' \
'(-c --no-comments)'{-c,--no-comments}'[Disable comment output]' \
'*:ID:($ids[5,-1])' \
&& return 0
}
_be-status () {
local curcontext="$curcontext" state line expl ret=1
statusses=("${(f)$(be status --complete)}")
statusses=(${statusses[2,-1]})
ids=("${(f)$(be status ${statusses[1]} --complete)}")
_arguments -C \
'(-h --help)'{-h,--help}'[Print a help message]' \
'--complete[Print a list of possible completions]' \
'1:status:($statusses)' \
'2:ID:($ids)' \
&& return 0
}
_be-subscribe () {
local curcontext="$curcontext" state line expl ret=1
ids=("${(f)$(be subscribe --complete)}")
_arguments -C \
'(-h --help)'{-h,--help}'[Print a help message]' \
'--complete[Print a list of possible completions]' \
'(-u --unsubscribe)'{-u,--unsubscribe}'[Unsubscribe instead of subscribing]' \
'(-a --list-all)'{-a,--list-all}'[List subscribers for all bugs]' \
'(-l --list)'{-l,--list}'[List subscribers]' \
'(-s --subscriber)'{-s,--subscriber=-}'[Email address of the subscriber]:email:' \
'(-S --servers)'{-S,--servers=-}'[Servers from which you want notification]:server:' \
'(-t --types)'{-t,--types=-}'[Types of changes you wish to be notified about]:types:' \
'1:ID:($ids[8,-1])' \
&& return 0
}
_be-tag () {
local curcontext="$curcontext" state line expl ret=1
ids=("${(f)$(be tag --complete)}")
# tags=("${(f)$(be tag ${ids[1]} --complete)}") # XXX This seems to always return *nothing*
tags=("${(f)$(be tag --list)}")
_arguments -C \
'(-h --help)'{-h,--help}'[Print a help message]' \
'--complete[Print a list of possible completions]' \
'(-r --remove)'{-r,--remove}'[Remove tag (instead of adding)]' \
'(-l --list)'{-l,--list}'[List all available tags and exit]' \
'1:ID:($ids[4,-1])' \
'*:tag:($tags)' \
&& return 0
}
_be-target () {
local curcontext="$curcontext" state line expl ret=1
ids=("${(f)$(be target --complete)}")
# awk splits the lines into tokens delimited by ': ', then prints only the second of each line.
targets=("${(f)$(be list --severity=target | awk -F ': ' -- '{print($2)}' )}")
_arguments -C \
'(-h --help)'{-h,--help}'[Print a help message]' \
'--complete[Print a list of possible completions]' \
'(-r --resolve *)'{-r,--resolve+}'[Print the UUID for the target bug whose summary matches TARGET]:target:($targets)' \
'1:ID:($ids[3,-1])' \
'2:target:($targets)' \
&& return 0
}
_be () {
local curcontext="$curcontext" state line expl ret=1
_arguments -C \
'(-h --help)'{-h,--help}'[Print a help message]' \
'--complete[Print a list of possible completions]' \
'(-r --repo)'{-r,--repo=-}'[Select BE repository (see ‘be help repo’) rather than the current directory]:repository: ' \
'--paginate[Pipe all output into less (or if set, $PAGER)]' \
'--no-pager[Do not pipe output into a pager]' \
'--version[Print version string]' \
'--full-version[Print full version information]' \
'1:command:->command' \
'*::argument:->option-or-argument' && ret=0
case $state in
(command)
_wanted commands expl 'be command' __be_commands && ret=0
#__be_commands
;;
(option-or-argument)
becommand="${words[1]}"
curcontext="${curcontext%:*:*}:be${becommand}:"
_call_function ret _be-${becommand}
;;
esac
}
_be "$@"
