#compdef vb
#autoload

_vb() {
	local state

	_arguments -C '1: :->actions' '2: :->vms' '3: :->snapshots'


	case $state in
		(actions)
			local actions
			actions=("list:List all VMs"
				"start:Start VM"
				"gui:Connect graphical gui"
				"stop:Stop VM"
				"suspend:Suspend VM"
				"restart:Restart VM"
				"reset:Reset VM"
				"status:Show status"
				"snapshot:Create new snapshot"
				"snaprestore:Restore snapshots"
				"snaplist:List snapshots"
				"snapdel:Delete snapshot")
			_describe 'actions' actions
		;;
		(vms)
			compadd -- $(vboxmanage list vms | awk -F\" '{print $2}' | xargs)
		;;
		(snapshots)
			local snapshot_list
			[[ $line[1] =~ 'snapdel|snaprestore' ]] || return
			snapshot_list=$(vboxmanage snapshot $line[2] list)
			[[ $? -ne 0 ]] && return
			compadd -- $(awk '{print $2}' <<<$snapshot_list)
		;;
	esac
}

_vb "$@"