completion: more complete completion for zsh.

This adds completion files for zsh that cover most of notmuch's cli.

The files in completion/zsh are formatted so that they can be found by
zsh's completion system if put $fpath. They are also registered to the
notmuch-* pattern, so they can be called externally using _dispatch.

Update installation recipe and drop debian/notmuch.examples to avoid
breakage. This means zsh completion is not installed for debian, to be
fixed in a future commit.

Amended by db: use regexp searching for address completion. This seems
to be fast enough to work without a cache.
This commit is contained in:
Vincent Breitmoser 2018-09-18 13:19:23 +02:00 committed by David Bremner
parent e8cb6b2cd6
commit 07eac4af32
6 changed files with 306 additions and 93 deletions

View file

@ -6,7 +6,7 @@ dir := completion
# directly in any shell commands. Instead we save its value in other,
# private variables that we can use in the commands.
bash_script := $(srcdir)/$(dir)/notmuch-completion.bash
zsh_script := $(srcdir)/$(dir)/notmuch-completion.zsh
zsh_scripts := $(srcdir)/$(dir)/zsh/_notmuch $(srcdir)/$(dir)/zsh/_email-notmuch
install: install-$(dir)
@ -18,5 +18,5 @@ ifeq ($(WITH_BASH),1)
endif
ifeq ($(WITH_ZSH),1)
mkdir -p "$(DESTDIR)$(zsh_completion_dir)"
install -m0644 $(zsh_script) "$(DESTDIR)$(zsh_completion_dir)/_notmuch"
install -m0644 $(zsh_scripts) "$(DESTDIR)$(zsh_completion_dir)"
endif

View file

@ -11,6 +11,6 @@ notmuch-completion.bash
[1] https://github.com/scop/bash-completion
notmuch-completion.zsh
zsh
Command-line completion for the zsh shell.
Command-line completions for the zsh shell.

View file

@ -1,88 +0,0 @@
#compdef notmuch
# ZSH completion for `notmuch`
# Copyright © 2009 Ingmar Vanhassel <ingmar@exherbo.org>
_notmuch_commands()
{
local -a notmuch_commands
notmuch_commands=(
'help:display documentation for a subcommand'
'setup:interactively configure notmuch'
'address:output addresses from matching messages'
'compact:compact the notmuch database'
'config:access notmuch configuration file'
'count:count messages matching the given search terms'
'dump:creates a plain-text dump of the tags of each message'
'insert:add a message to the maildir and notmuch database'
'new:incorporate new mail into the notmuch database'
'reply:constructs a reply template for a set of messages'
'restore:restores the tags from the given file (see notmuch dump)'
'search:search for messages matching the given search terms'
'show:show messages matching the given search terms'
'tag:add/remove tags for all messages matching the search terms'
)
_describe -t command 'command' notmuch_commands
}
_notmuch_dump()
{
_files
}
_notmuch_help_topics()
{
local -a notmuch_help_topics
notmuch_help_topics=(
'search-terms:show common search-terms syntax'
)
_describe -t notmuch-help-topics 'topic' notmuch_help_topics
}
_notmuch_help()
{
_alternative \
_notmuch_commands \
_notmuch_help_topics
}
_notmuch_restore()
{
_files
}
_notmuch_search()
{
_arguments -s : \
'--max-threads=[display only the first x threads from the search results]:number of threads to show: ' \
'--first=[omit the first x threads from the search results]:number of threads to omit: ' \
'--sort=[sort results]:sorting:((newest-first\:"reverse chronological order" oldest-first\:"chronological order"))' \
'--output=[select what to output]:output:((summary threads messages files tags))'
}
_notmuch_address()
{
_arguments -s : \
'--sort=[sort results]:sorting:((newest-first\:"reverse chronological order" oldest-first\:"chronological order"))' \
'--output=[select what to output]:output:((sender recipients count))'
}
_notmuch()
{
if (( CURRENT > 2 )) ; then
local cmd=${words[2]}
curcontext="${curcontext%:*:*}:notmuch-$cmd"
(( CURRENT-- ))
shift words
_call_function ret _notmuch_$cmd
return ret
else
_notmuch_commands
fi
}
_notmuch "$@"
# vim: set sw=2 sts=2 ts=2 et ft=zsh :

View file

@ -0,0 +1,9 @@
#autoload
local expl
local -a notmuch_addr
notmuch_addr=( ${(f)"$(notmuch address --deduplicate=address --output=address -- from:/$PREFIX/)"} )
_description notmuch-addr expl 'email address (notmuch)'
compadd "$expl[@]" -a notmuch_addr

293
completion/zsh/_notmuch Normal file
View file

@ -0,0 +1,293 @@
#compdef notmuch -p notmuch-*
# ZSH completion for `notmuch`
# Copyright © 2018 Vincent Breitmoser <look@my.amazin.horse>
_notmuch_command() {
local -a notmuch_commands
notmuch_commands=(
'help:display documentation for a subcommand'
'setup:interactively configure notmuch'
'address:output addresses from matching messages'
'compact:compact the notmuch database'
'config:access notmuch configuration file'
'count:count messages matching the given search terms'
'dump:creates a plain-text dump of the tags of each message'
'insert:add a message to the maildir and notmuch database'
'new:incorporate new mail into the notmuch database'
'reindex:re-index a set of messages'
'reply:constructs a reply template for a set of messages'
'restore:restores the tags from the given file (see notmuch dump)'
'search:search for messages matching the given search terms'
'show:show messages matching the given search terms'
'tag:add/remove tags for all messages matching the search terms'
)
if ((CURRENT == 1)); then
_describe -t commands 'notmuch command' notmuch_commands
else
local curcontext="$curcontext"
cmd=$words[1]
if (( $+functions[_notmuch_$cmd] )); then
_notmuch_$cmd
else
_message -e "unknown command $cmd"
fi
fi
}
_notmuch_term_tag _notmuch_term_is () {
local ret=1 expl
local -a notmuch_tags
notmuch_tags=( ${(f)"$(notmuch search --output=tags '*')"} )
_description notmuch-tag expl 'tag'
compadd "$expl[@]" -a notmuch_tags && ret=0
return $ret
}
_notmuch_term_to _notmuch_term_from() {
_email_addresses -c
}
_notmuch_term_mimetype() {
local ret=1 expl
local -a commontypes
commontypes=(
'text/plain'
'text/html'
'application/pdf'
)
_description typical-mimetypes expl 'common types'
compadd "$expl[@]" -a commontypes && ret=0
_mime_types && ret=0
return $ret
}
_notmuch_term_path() {
local ret=1 expl
local maildir="$(notmuch config get database.path)"
[[ -d $maildir ]] || { _message -e "database.path not found" ; return $ret }
_description notmuch-folder expl 'maildir folder'
_files "$expl[@]" -W $maildir -/ && ret=0
return $ret
}
_notmuch_term_folder() {
local ret=1 expl
local maildir="$(notmuch config get database.path)"
[[ -d $maildir ]] || { _message -e "database.path not found" ; return $ret }
_description notmuch-folder expl 'maildir folder'
local ignoredfolders=( '*/(cur|new|tmp)' )
_files "$expl[@]" -W $maildir -F ignoredfolders -/ && ret=0
return $ret
}
_notmuch_term_query() {
local ret=1
local line query_name
local -a query_names query_content
for line in ${(f)"$(notmuch config list | grep '^query.')"}; do
query_name=${${line%%=*}#query.}
query_names+=( $query_name )
query_content+=( "$query_name = ${line#*=}" )
done
_description notmuch-named-query expl 'named query'
compadd "$expl[@]" -d query_content -a query_names && ret=0
return $ret
}
_notmuch_search_term() {
local ret=1 expl match
setopt localoptions extendedglob
typeset -a notmuch_search_terms
notmuch_search_terms=(
'from' 'to' 'subject' 'attachment' 'mimetype' 'tag' 'id' 'thread' 'path' 'folder' 'date' 'lastmod' 'query' 'property'
)
if compset -P '(#b)([^:]#):'; then
if (( $+functions[_notmuch_term_$match[1]] )); then
_notmuch_term_$match[1] && ret=0
return $ret
elif (( $+notmuch_search_terms[(r)$match[1]] )); then
_message "search term '$match[1]'" && ret=0
return $ret
else
_message -e "unknown search term '$match[1]'"
return $ret
fi
fi
_description notmuch-term expl 'search term'
compadd "$expl[@]" -S ':' -a notmuch_search_terms && ret=0
if [[ $CURRENT -gt 1 && $words[CURRENT-1] != '--' ]]; then
_description notmuch-op expl 'boolean operator'
compadd "$expl[@]" -- and or not xor && ret=0
fi
return $ret
}
_notmuch_tagging_or_search() {
setopt localoptions extendedglob
local ret=1 expl
local -a notmuch_tags
# first arg that is a search term, or $#words+1
integer searchtermarg=$(( $words[(I)--] != 0 ? $words[(i)--] : $words[(i)^(-|+)*] ))
if (( CURRENT > 1 )); then
() {
local -a words=( $argv )
local CURRENT=$(( CURRENT - searchtermarg + 1 ))
_notmuch_search_term && ret=0
} $words[searchtermarg,$]
fi
# only complete +/- tags if we're before the first search term
if (( searchtermarg >= CURRENT )); then
if compset -P '+'; then
notmuch_tags=( ${(f)"$(notmuch search --output=tags '*')"} )
_description notmuch-tag expl 'add tag'
compadd "$expl[@]" -a notmuch_tags
return 0
elif compset -P '-'; then
notmuch_tags=( ${(f)"$(notmuch search --output=tags '*')"} )
_description notmuch-tag expl 'remove tag'
compadd "$expl[@]" -a notmuch_tags
return 0
else
_description notmuch-tag expl 'add or remove tags'
compadd "$expl[@]" -S '' -- '+' '-' && ret=0
fi
fi
return $ret
}
_notmuch_address() {
_arguments -S \
'--format=[set output format]:output format:(json sexp text text0)' \
'--format-version=[set output format version]:format version: ' \
'--sort=[sort results]:sorting:((newest-first\:"reverse chronological order" oldest-first\:"chronological order"))' \
'--output=[select output format]:output format:(sender recipients count address)' \
'--deduplicate=[deduplicate results]:deduplication mode:(no mailbox address)' \
'--exclude=[respect excluded tags setting]:exclude tags:(true false)' \
'*::search term:_notmuch_search_term'
}
_notmuch_compact() {
_arguments \
'--backup=[save a backup before compacting]:backup directory:_files -/' \
'--quiet[do not print progress or results]'
}
_notmuch_count() {
_arguments \
- normal \
'--lastmod[append lastmod and uuid to output]' \
'--exclude=[respect excluded tags setting]:exclude tags:(true false)' \
'--output=[select what to count]:output format:(messages threads files)' \
'*::search term:_notmuch_search_term' \
- batch \
'--batch[operate in batch mode]' \
'(--batch)--input=[read batch operations from file]:batch file:_files'
}
_notmuch_dump() {
_arguments -S \
'--gzip[compress output with gzip]' \
'--format=[specify output format]:output format:(batch-tag sup)' \
'*--include=[configure metadata to output (default all)]:metadata type:(config properties tags)' \
'--output=[write output to file]:output file:_files' \
'*::search term:_notmuch_search_term'
}
_notmuch_new() {
_arguments \
'--no-hooks[prevent hooks from being run]' \
'--quiet[do not print progress or results]' \
'--full-scan[don''t rely on directory modification times for scan]' \
'--decrypt=[decrypt messages]:decryption setting:((false\:"never decrypt" auto\:"decrypt if session key is known (default)" true\:"decrypt using secret keys" stash\:"decrypt, and store session keys"))'
}
_notmuch_reindex() {
_arguments \
'--decrypt=[decrypt messages]:decryption setting:((false\:"never decrypt" auto\:"decrypt if session key is known (default)" true\:"decrypt using secret keys" stash\:"decrypt, and store session keys"))' \
'*::search term:_notmuch_search_term'
}
_notmuch_search() {
_arguments -S \
'--max-threads=[display only the first x threads from the search results]:number of threads to show: ' \
'--first=[omit the first x threads from the search results]:number of threads to omit: ' \
'--sort=[sort results]:sorting:((newest-first\:"reverse chronological order" oldest-first\:"chronological order"))' \
'--output=[select what to output]:output:(summary threads messages files tags)' \
'*::search term:_notmuch_search_term'
}
_notmuch_show() {
_arguments -S \
'--entire-thread=[output entire threads]:show thread:(true false)' \
'--format=[set output format]:output format:(text json sexp mbox raw)' \
'--format-version=[set output format version]:format version: ' \
'--part=[output a single decoded mime part]:part number: ' \
'--verify[verify signed MIME parts]' \
'--decrypt=[decrypt messages]:decryption setting:((false\:"never decrypt" auto\:"decrypt if session key is known (default)" true\:"decrypt using secret keys" stash\:"decrypt, and store session keys"))' \
'--exclude=[respect excluded tags setting]:exclude tags:(true false)' \
'--body=[output body]:output body content:(true false)' \
'--include-html[include text/html parts in the output]' \
'*::search term:_notmuch_search_term'
}
_notmuch_reply() {
_arguments \
'--format=[set output format]:output format:(default json sexp headers-only)' \
'--format-version=[set output format version]:output format version: ' \
'--reply-to=[specify recipient types]:recipient types:(all sender)' \
'--decrypt=[decrypt messages]:decryption setting:((false\:"never decrypt" auto\:"decrypt if session key is known (default)" true\:"decrypt using secret keys"))' \
'*::search term:_notmuch_search_term'
}
_notmuch_restore() {
_arguments \
'--acumulate[add data to db instead of replacing]' \
'--format=[specify input format]:input format:(auto batch-tag sup)' \
'*--include=[configure metadata to import (default all)]:metadata type:(config properties tags)' \
'--input=[read from file]:notmuch dump file:_files'
}
_notmuch_tag() {
_arguments \
- normal \
'--remove-all[remove all tags from matching messages]:*:search term:_notmuch_search_term' \
'*::tag or search:_notmuch_tagging_or_search' \
- batch \
'--batch[operate in batch mode]' \
'(--batch)--input=[read batch operations from file]:batch file:_files'
}
_notmuch() {
if [[ $service == notmuch-* ]]; then
local compfunc=_${service//-/_}
(( $+functions[$compfunc] )) || return 1
$compfunc "$@"
else
_arguments \
'(* -)--help[show help]' \
'(* -)--version[show version]' \
'--config=-[specify config file]:config file:_files' \
'--uuid=-[check against database uuid or exit]:uuid: ' \
'*::notmuch commands:_notmuch_command'
fi
}
_notmuch "$@"

View file

@ -1 +0,0 @@
completion/notmuch-completion.zsh