watson.zsh-completion

#compdef watson


# ~~~ LIST OF COMMANDS ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
_watson_commands=(
  'add:Add a frame for a project that was not tracked live.'
  'cancel:Cancel the last call to the start command.'
  'config:Get and set configuration options.'
  'edit:Edit a frame.'
  'frames:Display the list of all frame IDs.'
  'help:Display help information'
  'log:Display each recorded session during the...'
  'merge:Perform a merge of the existing frames with a...'
  'rename:Rename a project or tag.'
  'projects:Display the list of all the existing...'
  'remove:Remove a frame.'
  'report:Display a report of the time spent on each...'
  'restart:Restart monitoring time for a previously...'
  'start:Start monitoring time for the given project.'
  'status:Display when the current project was started...'
  'stop:Stop monitoring time for the current project.'
  'sync:Get the frames from the server and push the...'
  'tags:Display the list of all the tags.'
)


# ~~~ LOCATING THE FRAMES FILE ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
if [[ -n "$WATSON_DIR" ]]; then
  _watson_frame_file=${WATSON_DIR}/frames
elif [[ "$OSTYPE" =~ "^darwin" ]]; then
  _watson_frame_file="${HOME}/Library/Application Support/watson/frames"
else
  _watson_frame_file=${HOME}/.config/watson/frames
fi


# ~~~ CACHING ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# Using the cache mechanism of zsh to store projects, tags and frame lists
(( $+functions[_watson_get_projects] )) ||
_watson_get_projects() {
  local cacheid='WATSON_PROJECTS'
  if ( [[ ${+_watson_project_list} -eq 0 ]] || _cache_invalid $cacheid ) \
            && ! _retrieve_cache $cacheid;
  then
    _watson_project_list=("${(f)$(_call_program watson-projects watson projects)}")
    _store_cache $cacheid _watson_project_list
  fi;
}


(( $+functions[_watson_get_tags] )) ||
_watson_get_tags() {
  local cacheid='WATSON_TAGS'
  if ( [[ ${+_watson_tag_list} -eq 0 ]] || _cache_invalid $cacheid ) \
            && ! _retrieve_cache $cacheid;
  then
    _watson_tag_list=("${(f)$(_call_program watson-tags watson tags)}")
    _store_cache $cacheid _watson_tag_list
  fi;
}


(( $+functions[_watson_get_frames] )) ||
_watson_get_frames() {
  local cacheid='WATSON_FRAMES'
  if ( [[ ${+_watson_frame_list} -eq 0 ]] || _cache_invalid $cacheid ) \
            && ! _retrieve_cache $cacheid;
  then
    _watson_frame_list=("${(f)$(_call_program watson-log watson log)}")
    _store_cache $cacheid _watson_frame_list
  fi;
}


# Define a default caching policy for watson: we rebuild the cache
# if the cache file is older than watson's frame file.
local cache_policy
zstyle -s ":completion::complete:watson:*" cache-policy cache_policy
if [[ -z "$cache_policy" ]]; then
  zstyle ":completion::complete:watson:*" cache-policy _watson_caching_policy
fi

_watson_caching_policy() {
  [[ "$_watson_frame_file" -nt "$1" ]] && return 0
  return 1
}


# ~~~ COMPLETION ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
_watson() {
  typeset -A opt_args
  local context state line curcontext="$curcontext"

  _arguments : \
    '--version[Show the version and exit.]' \
    '--help[Show help and exit.]' \
    '1: :_watson_cmds' \
    '*::arg:->args' \
  && return 0

  case "$state" in
    (args)
      case $words[1] in
        (cancel|help|projects|restart|status|stop|sync|tags)
          _arguments : '--help'
          ;;
        (add)
          _arguments -A '-*' : \
            ': :_watson_projects' \
            '*: :_watson_plus_tags' \
            '(--from -f)'{-f,--from}'[start date and time (YYYY-MM-DD H:M:S)]' \
               ':date (YYYY-MM-DD H:M:S):' \
            '(--to -t)'{-t,--to}'[end date and time (YYYY-MM-DD H:M:S)]' \
               ':date (YYYY-MM-DD H:M:S):' \
            '--help'
          ;;
        (start)
          _arguments -A '-*' : \
            ': :_watson_projects' \
            '*: :_watson_plus_tags' \
            '--help'
          ;;
        (edit)
          _arguments -A '-*' : \
            ': :_watson_frames' \
            '--help'
          ;;
        (remove)
          _arguments : \
            '-f[Dont ask for confirmation]' \
            ': :_watson_frames' \
            '--help'
          ;;
        (log|report)
          _arguments : \
            '*'{-p,--project}'[only for the given project]: :_watson_projects' \
            '*'{-T,--tag}'[only for the given tag]: :_watson_tags' \
            '(--from -f)'{-f,--from}'[start date]:date (YYYY-MM-DD):' \
            '(--to -t)'{-t,--to}'[end date]:date (YYYY-MM-DD):' \
            '(--all -a)'{-a,--all}'[output all frames]:' \
            '--help'
          ;;
        (merge)
          _arguments : \
            '--help' \
            {-f,--force} \
            ': :_files'
          ;;
        (rename)
          _arguments : \
            '*'{project}'[rename given project]: :_watson_projects' \
            '*'{tag}'[rename given tag]: :_watson_tags' \
            '--help'
          ;;
      esac
      ;;
  esac;
}


(( $+functions[_watson_projects] )) ||
_watson_projects() {
  _watson_get_projects
  local expl
  _description projects expl 'projects'
  compadd "$expl[@]" -a -- _watson_project_list
}

(( $+functions[_watson_frames] )) ||
_watson_frames() {
  _watson_get_frames
  local expl i
  for l in $_watson_frame_list; do
    if [[ "$l" =~ '^[A-Z]' ]];
    then
      i=$(($i+1))
      _description -V frames$i expl "${l%%\(*\)}"
    else
      desc=(${l##[[:space:]]})
      IFS=' ' read -r val _ <<< $desc
      compadd "$expl[@]" -d desc -l - "$val"
    fi
  done;
}

(( $+functions[_watson_tags] )) ||
_watson_tags() {
  _watson_get_tags
  compadd "$@" -a -- _watson_tag_list
}

(( $+functions[_watson_plus_tags] )) ||
_watson_plus_tags() {
  _watson_get_tags
  local expl
  _description tags expl 'tags'
  compadd "$expl[@]" -a -p '+' -- _watson_tag_list
}

(( $+functions[_watson_cmds] )) ||
_watson_cmds() {
  _describe -t commands 'commands' _watson_commands "$@"
}

_watson "$@"