From: Daniel Shahaf <d.s@daniel.shahaf.name>
To: zsh-workers@zsh.org
Subject: [PATCH] _debsnap: New completion function.
Date: Mon, 27 Apr 2020 11:38:13 +0000 [thread overview]
Message-ID: <20200427113813.1701-1-danielsh@tarpaulin.shahaf.local2> (raw)
---
Completion/Debian/Command/_debsnap | 52 ++++++++++++++++++++++++++++++
1 file changed, 52 insertions(+)
create mode 100644 Completion/Debian/Command/_debsnap
diff --git a/Completion/Debian/Command/_debsnap b/Completion/Debian/Command/_debsnap
new file mode 100644
index 000000000..40389375c
--- /dev/null
+++ b/Completion/Debian/Command/_debsnap
@@ -0,0 +1,52 @@
+#compdef debsnap
+
+# Based on debsnap from devscripts-2.20.3
+
+local context state state_descr line ret=1
+local -a expl
+typeset -A opt_args
+
+_arguments \
+ '(-d --destdir)'{-d+,--destdir=}'[set download directory]:download directory:_files -/' \
+ '(-f --force)'{-f,--force}'[allow non-empty destination directory]' \
+ '(-v --verbose)'{-v,--verbose}'[print configuration and report progress]' \
+ --list"[list versions; don't download]" \
+ --binary'[operate on binary packages (default: source packages)]' \
+ '*'{-a+,--architecture=}'[specify architectures to download]:architecture to download:_deb_architectures' \
+ --first='[download all versions newer than this]:version number (lower bound):->versions' \
+ --last='[download all versions older than this]:version number (upper bound):->versions' \
+ '(-)'{-h,--help}'[show usage information]' \
+ '(-)'--version'[show version number and license]' \
+ '1: :->package' \
+ '2:version number to download:->versions' \
+ && ret=0
+
+# -a implies --binary
+if (( ${+opt_args[-a]} || ${+opt_args[--architecture]} )); then
+ opt_args[--binary]=''
+fi
+
+case $state in
+ (package)
+ if (( ${+opt_args[--binary]} )); then
+ _description binary-packages expl 'binary package to download'
+ _deb_packages "${expl[@]}" avail && ret=0
+ else
+ _description source-packages expl 'source package to download'
+ _deb_packages "${expl[@]}" source && ret=0
+ fi
+ ;;
+ (versions)
+ local package=${(Q)line[1]}
+ if [[ -n $package ]]; then
+ local -a versions=( ${(f)"$(_call_program versions debsnap --list ${(@kv)opt_args[(I)(-a|--architecture|--binary)]} -- ${line[1]})"} )
+ # TODO: filter ${versions} to only those between ${opt_args[--first]} and ${opt_args[--last]}
+ _description versions expl ${state_descr}
+ compadd "$@" "${expl[@]}" -a versions && ret=0
+ else
+ _message -- $state_descr && ret=0
+ fi
+ ;;
+esac
+
+return ret
next reply other threads:[~2020-04-27 11:39 UTC|newest]
Thread overview: 2+ messages / expand[flat|nested] mbox.gz Atom feed top
2020-04-27 11:38 Daniel Shahaf [this message]
2020-04-27 19:35 ` 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=20200427113813.1701-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).