define_type(
	'delicious',
	-prototype,
	-description='Implements the del.icio.us API v1.'
);
	// http://del.icio.us/help/api/
	// dependencies: xml_tree

	local(
		'username' = string,
		'password' = string,
		'tags' = array,
		'posts' = array,
		'dates' = treemap,
		'bundles' = array
	);

	
	define_tag(
		'oncreate',
		-req='username',
		-req='password'
	);
		self->username = #username;
		self->password = #password;
	/define_tag;

	
	define_tag(
		'send',
		-req='object',
		-req='method',
		-opt='args'
	);
		!local_defined('args') ? local('args') = array;
		local('resp') = string;
		
		protect;
			#resp = xml_tree(
				string(
					include_url(
						('https://api.del.icio.us/v1/' + #object + '/' + #method),
						-username=self->username,
						-password=self->password,
						-getparams=#args,
						-timeout=10
					)
				)
			);
		/protect;
		
		return(@#resp);
	/define_tag;

	
	define_tag('lastupdate');			
		protect;
			local('resp') = @self->send('posts','update');
			local('out') = date_gmttolocal(date(#resp->time, -format='%QT%TZ', -gmt));
			return(#out);
		/protect;
	/define_tag;
	

	define_tag('gettags');
		protect;
			local('resp') = @self->send('tags','get');
			local('tags') = #resp->tag;
			!#tags->isa('array') ? #tags = array(#tags);
			
			// clear any previously populated tags
			self->tags = array;
			
			iterate(#tags, local('i'));
				self->tags->insert(#i->tag = integer(#i->count));
			/iterate;				
		/protect;

		return(@self->tags);
	/define_tag;	
	
	
	define_tag(
		'renametag',
		-req='old',
		-req='new'
	);
		protect;
			local('resp') = @self->send('tags','rename',array('old'=#old,'new'=#new));
			return(#resp->contents == 'done');
		/protect;
	/define_tag;
	
	
	define_tag(
		'getposts',
		-opt='tag',
		-opt='date', -type='date',
		-opt='url'
	);
		protect;
			local('args') = array;
			local_defined('tag') ? #args->insert('tag' = #tag);
			local_defined('date') ? #args->insert('dt' = date_localtogmt(#date)->format('%QT%TZ'));
			local_defined('url') ? #args->insert('url' = #url);

			local('resp') = @self->send('posts','get',#args);
			local('posts') = #resp->post;
			!#posts->isa('array') ? #posts = array(#posts);
			
			// empty any previously inserted posts
			self->posts = array;
			
			iterate(#posts, local('i'));
				self->posts->insert(#i->atts);
			/iterate;				
		/protect;

		return(@self->posts);
	/define_tag;
	
	
	define_tag(
		'recentposts',
		-opt='tag',
		-opt='count', -type='integer'
	);
		protect;
			local('args') = array;
			local_defined('tag') ? #args->insert('tag' = #tag);
			local_defined('count') ? #args->insert('count' = #count);

			local('resp') = @self->send('posts','recent',#args);
			local('posts') = #resp->post;
			!#posts->isa('array') ? #posts = array(#posts);

			// empty any previously inserted posts
			self->posts = array;
			
			iterate(#posts, local('i'));
				self->posts->insert(#i->atts);
			/iterate;				
		/protect;

		return(@self->posts);
	/define_tag;


	define_tag(
		'allposts',
		-opt='tag'
	);
		protect;
			local('args') = array;
			local_defined('tag') ? #args->insert('tag' = #tag);

			local('resp') = @self->send('posts','all',#args);
			local('posts') = #resp->post;
			!#posts->isa('array') ? #posts = array(#posts);

			// empty any previously inserted posts
			self->posts = array;
			
			iterate(#posts, local('i'));
				self->posts->insert(#i->atts);
			/iterate;
		/protect;

		return(@self->posts);
	/define_tag;
	
	
	define_tag(
		'getdates',
		-opt='tag'
	);
		protect;
			local('args') = array;
			local_defined('tag') ? #args->insert('tag' = #tag);

			local('resp') = @self->send('posts','dates',#args);
			local('dates') = #resp->date;
			!#dates->isa('array') ? #dates = array(#dates);
			
			// clear any previously populated dates
			self->dates = treemap;
			
			iterate(#dates, local('i'));
				self->dates->insert(date_gmttolocal(date(#i->date, -format='%Q', -gmt)) = integer(#i->count));
			/iterate;				
		/protect;

		return(@self->dates);
	/define_tag;
	
	
	define_tag(
		'addpost',
		-req='url',
		-req='description',
		-opt='extended',
		-opt='tags',
		-opt='date', -type='date',
		-opt='replace', -type='boolean',
		-opt='shared', -type='boolean'
	);
		!local_defined('replace') ? local('replace') = true;
		!local_defined('shared') ? local('shared') = true;
	
		local('args') = array(
			'url' = #url,
			'description' = #description
		);
		
		local_defined('extended') ? #args->insert('extended' = #extended);
		local_defined('tags') ? #args->insert('tags' = #tags);
		local_defined('date') ? #args->insert('dt' = date_localtogmt(#date)->format('%QT%TZ'));
		!#replace ? #args->insert('replace' = 'no');
		!#shared ? #args->insert('shared' = 'no');
		
		protect;
			local('resp') = @self->send('posts','add',#args);
			return(#resp->code == 'done');
		/protect;
	/define_tag;
	
	
	define_tag(
		'deletepost',
		-req='url'
	);
		protect;
			local('resp') = @self->send('posts','delete',array('url'=#url));
			return(#resp->code == 'done');
		/protect;
	/define_tag;
	
	
	define_tag('getbundles');
		protect;
			local('resp') = @self->send('tags/bundles','all');				
			local('bundles') = #resp->bundle;
			!#bundles->isa('array') ? #bundles = array(#bundles);
			
			// clear any previously populated bundles
			self->bundles = array;
			
			iterate(#bundles, local('i'));
				self->bundles->insert(string(#i->attribute('name')) = string(#i->tags)->split(' '));
			/iterate;				
		/protect;

		return(@self->bundles);
	/define_tag;
	
	
	define_tag(
		'setbundle',
		-req='bundle',
		-req='tags'
	);
		protect;
			local('resp') = @self->send('tags/bundles','set',array('bundle'=#bundle,'tags'=#tags));
			return(#resp->contents == 'ok');
		/protect;
	/define_tag;
	
	
	define_tag(
		'deletebundle',
		-req='bundle'
	);
		protect;
			local('resp') = @self->send('tags/bundles','delete',array('bundle'=#bundle));
			return(#resp->contents == 'ok');
		/protect;
	/define_tag;
/define_type;