Complete attributes dynamically incl UDAs

This is the major refinement of the completion: Most of it just moved
the global variables from up above to inside _task_filter so every array
of attributes will be calculated dynamically there.
This commit is contained in:
Doron Behar 2019-05-19 23:02:42 +03:00 committed by Tomas Babej
parent 9d3bbe744d
commit 4bdab32c12
No known key found for this signature in database
GPG key ID: B0747C6578F7D2F5

View file

@ -22,68 +22,21 @@
# SOFTWARE.
#
# https://www.opensource.org/licenses/mit-license.php
#
# TODO: environment leakage! + these should be used dynamically and not only when this file is loaded
typeset -g _task_cmds _task_projects _task_tags _task_config _task_modifiers
_task_projects=(${(f)"$(task _projects)"})
_task_tags=($(task _tags))
_task_zshids=( ${(f)"$(task _zshids)"} )
_task_config=($(task _config))
_task_columns=($(task _columns))
# TODO: The 2 following can be static but not leak to environment as well
_task_modifiers=(
'before' \
'after' \
'none' \
'any' \
'is' \
'isnt' \
'has' \
'hasnt' \
'startswith' \
'endswith' \
'word' \
'noword'
)
_task_conjunctions=(
'and' \
'or' \
'xor' \
'\)' \
'\(' \
'<' \
'<=' \
'=' \
'!=' \
'>=' \
'>'
)
# TODO: as before
_task_cmds=($(task _commands; task _aliases))
_task_zshcmds=( ${(f)"$(task _zshcommands)"} sentinel:sentinel:sentinel )
# filter completion
(( $+functions[_task_filter] )) ||
_task_filter() {
_task_aliases=($(task _aliases))
local -a reply args word
word=$'[^\0]#\0'
# priorities
local -a task_priorities
_regex_words values 'task priorities' \
'H:High' \
'M:Middle' \
'L:Low'
task_priorities=("$reply[@]")
local -a reply
local word=$'[^\0]#\0'
# projects
local -a task_projects
task_projects=(
local _task_projects=($(task _projects))
local task_projects=(
/"$word"/
":values:task projects:compadd -a _task_projects"
)
local -a _task_dates
_regex_words values 'task dates' \
'tod*ay:Today' \
'yes*terday:Yesterday' \
@ -116,9 +69,8 @@ _regex_words values 'task dates' \
'midsommarafton:Midsommarafton' \
'later:Later' \
'someday:Some Day'
_task_dates=("$reply[@]")
local _task_dates=("$reply[@]")
local -a _task_reldates
_regex_words values 'task reldates' \
'hrs:n hours' \
'day:n days' \
@ -127,19 +79,23 @@ _regex_words values 'task reldates' \
'3rd:third' \
'th:4th, 5th, etc.' \
'wks:weeks'
_task_reldates=("$reply[@]")
local _task_reldates=("$reply[@]")
task_dates=(
local task_dates=(
\( "$_task_dates[@]" \|
\( /$'[0-9][0-9]#'/- \( "$_task_reldates[@]" \) \)
\)
)
local -a task_zshids
if (( $#_task_zshids )); then
# This data is a little bit differnt, it may contain any kind of character so
# we parse it manually and quote using '${(q)_desc}' the descriptions
local -a _task_zshids
local _id desc
task _zshids | while IFS=':' read _id desc; do
_task_zshids+=("$_id:${(qq)desc}")
done
_regex_words values 'task IDs' $_task_zshids
task_zshids=("$reply[@]")
fi
local task_zshids=("$reply[@]")
_regex_words values 'task frequencies' \
'daily:Every day' \
@ -155,74 +111,116 @@ _regex_words values 'task frequencies' \
'yearly:Every year' \
'biannual:Every two years' \
'biyearly:Every two years'
_task_freqs=("$reply[@]")
local _task_freqs=("$reply[@]")
local -a _task_frequencies
_regex_words values 'task frequencies' \
'd:days' \
'w:weeks' \
'q:quarters' \
'y:years'
_task_frequencies=("$reply[@]")
local _task_frequencies=("$reply[@]")
# TODO: environment leakage! + values not calculated dynamically
task_freqs=(
local task_freqs=(
\( "$_task_freqs[@]" \|
\( /$'[0-9][0-9]#'/- \( "$_task_frequencies[@]" \) \)
\)
)
# attributes
# TODO: This should include UDAs as well
local -a task_attributes
_regex_words -t ':' default 'task attributes' \
'des*cription:Task description text' \
'status:Status of task - pending, completed, deleted, waiting' \
'pro*ject:Project name:$task_projects' \
'pri*ority:priority:$task_priorities' \
'du*e:Due date:$task_dates' \
're*cur:Recurrence frequency:$task_freqs' \
'un*til:Expiration date:$task_dates' \
'li*mit:Desired number of rows in report' \
'wa*it:Date until task becomes pending:$task_dates' \
'ent*ry:Date task was created:$task_dates' \
'end:Date task was completed/deleted:$task_dates' \
'st*art:Date task was started:$task_dates' \
'sc*heduled:Date task is scheduled to start:$task_dates' \
'dep*ends:Other tasks that this task depends upon:$task_zshids'
task_attributes=("$reply[@]")
args=(
\( "$task_attributes[@]" \|
\( /'(project|description|status|entry|end|start|scheduled|depends|due|wait|recur|priority|until|limit).'/- \( /$'[^:]#:'/ ":default:modifiers:compadd -S ':' -a _task_modifiers" \) \) \|
\( /'(rc).'/- \( /$'[^:]#:'/ ":arguments:config:compadd -S ':' -a _task_config" \) \) \|
\( /'(+|-)'/- \( /"$word"/ ":values:remove tag:compadd -a _task_tags" \) \) \|
\( /"$word"/ \)
\) \#
# task statuses
local _task_statuses=(
pending
completed
deleted
waiting
)
_regex_arguments _task_attributes "${args[@]}"
_regex_words statuses 'task statuses' \
"${_task_statuses}"
local task_statuses=("${reply[@]}")
## task commands
# attributes
local _task_all_attributes=(
'des*cription:Task description text'
'status:Status of task:$task_statuses'
'pro*ject:Project name:$task_projects'
'pri*ority:priority:$task_priorities'
'du*e:Due date:$task_dates'
're*cur:Recurrence frequency:$task_freqs'
'un*til:Expiration date:$task_dates'
'li*mit:Desired number of rows in report'
'wa*it:Date until task becomes pending:$task_dates'
'ent*ry:Date task was created:$task_dates'
'end:Date task was completed/deleted:$task_dates'
'st*art:Date task was started:$task_dates'
'sc*heduled:Date task is scheduled to start:$task_dates'
'depends:Other tasks that this task depends upon:$task_zshids'
)
## add UDAs as attributes
local uda_name uda_label uda_values
local -a udas_spec
task _udas | while read uda_name; do
uda_label="$(task _get rc.uda."$uda_name".label)"
# TODO: we could have got the values of every uda and try to complete that
# but that can become extremly slow with a lot of udas
#uda_values=(${(@s:,:)"$(task _get rc.uda."$uda_name".values)"})
udas_spec+=("${uda_name}:${(q)uda_label}")
done
_task_all_attributes=("${_task_all_attributes[@]}" "${udas_spec[@]}")
_regex_words -t ':' default 'task attributes' "${_task_all_attributes[@]}"
local task_attributes=("$reply[@]")
local _task_tags=($(task _tags))
local _task_config=($(task _config))
local _task_modifiers=(
'before'
'after'
'none'
'any'
'is'
'isnt'
'has'
'hasnt'
'startswith'
'endswith'
'word'
'noword'
)
local _task_conjunctions=(
'and'
'or'
'xor'
'\)'
'\('
'<'
'<='
'='
'!='
'>='
'>'
)
_regex_arguments _task_attributes \
\( "${task_attributes[@]}" \| \
\( /'(project|description|status|entry|end|start|scheduled|depends|due|wait|recur|priority|until|limit).'/- \( /$'[^:]#:'/ ":default:modifiers:compadd -S ':' -a _task_modifiers" \) \) \| \
\( /'(rc).'/- \( /$'[^:]#:'/ ":arguments:config:compadd -S ':' -a _task_config" \) \) \| \
\( /'(+|-)'/- \( /"$word"/ ":values:remove tag:compadd -a _task_tags" \) \) \| \
\( /"$word"/ \) \
\) \#
# filter completion
(( $+functions[_task_filter] )) ||
_task_filter() {
_task_attributes "$@"
# TODO complete conjunctions only if the previous word is a filter expression, i.e. attribute, ID, any non-command
_describe -t default 'task conjunctions' _task_conjunctions
}
# execute completion
(( $+functions[_task_execute] )) ||
_task_execute() {
_files
}
# id-only completion
(( $+functions[_task_id] )) ||
_task_id() {
_describe -t values 'task IDs' _task_zshids
(( $+functions[_task_ids] )) ||
_task_ids() {
local _ids=( ${(f)"$(task _zshids)"} )
_describe 'task ids' _ids
}
(( $+functions[_task_aliases] )) ||
_task_aliases() {
local _aliases=( ${(f)"$(task _aliases)"} )
_describe 'task aliases' _aliases
}
# subcommand-only function
@ -233,6 +231,7 @@ _task_subcommands() {
local cmd category desc
local lastcategory=''
# The list is sorted by category, in the right order.
local _task_zshcmds=( ${(f)"$(task _zshcommands)"} sentinel:sentinel:sentinel )
for _zshcmd in "$_task_zshcmds[@]"; do
# Parse out the three fields
cmd=${_zshcmd%%:*}
@ -253,17 +252,28 @@ _task_subcommands() {
done
}
## contexts
(( $+functions[_task_context] )) ||
_task_context() {
local _contexts=(${(f)"$(task _context)"})
_describe 'task contexts' _contexts
}
## first level completion => task sub-command completion
(( $+functions[_task_default] )) ||
_task_default() {
local cmd ret=1
integer i=1
local _task_cmds=($(task _commands; task _aliases))
while (( i < $#words ))
do
cmd="${_task_cmds[(r)$words[$i]]}"
if (( $#cmd )); then
_call_function ret _task_${cmd} ||
if (( $+functions[_task_${cmd}] )); then
_task_${cmd}
return ret
fi
_call_function ret _task_filter ||
_message "No command remaining."
return ret
@ -271,12 +281,9 @@ _task_default() {
(( i++ ))
done
# update IDs
_task_zshids=( ${(f)"$(task _zshids)"} )
_task_subcommands
_describe -t tasks 'task IDs' _task_zshids
_describe -t aliases 'task aliases' _task_aliases
# _task_ids
_task_aliases
_call_function ret _task_filter
return ret