define_tag(
	'tree',
	-namespace='directory_',
	-req='path',
	-opt='include', -type='array',
	-opt='exclude', -type='array',
	-opt='hidden', -type='boolean',
	-opt='depth', -type='integer',
	-priority='replace',
	-description='Returns nested unordered lists of files/folders within the given path.'
);
	fail_if(
		!file_isdirectory(#path),
		-1,
		'The path supplied is not a directory.'
	);
	
	local('out') = string;
	!local_defined('include') ? local('include') = array;
	!local_defined('exclude') ? local('exclude') = array;
	!local_defined('hidden') ? local('hidden') = false;
	!local_defined('depth') ? local('depth') = 0;
	
	#depth == 0 ? #out += '
' + string(#path)->removetrailing('/')&split('/')->last + '
\n';
	#out += ('\t' * #depth) + '
\n';
	local('list') = file_listdirectory(#path);

	iterate(#list, local('i'));		
		(#i->beginswith('.') && !#hidden) ? loop_continue;
		local('ext') = (#i >> '.' ? #i->split('.')->last | '');				
		#out += ('\t' * (#depth + 1)) + '
';
			
		if(file_isdirectory(#path + #i));
			#out += '\n' + ('\t' * (#depth + 2)) + '' + #i + '\n' + directory_tree(
				#path + #i,
				-include=#include,
				-exclude=#exclude,
				-hidden=#hidden,
				-depth=(#depth + 2)
			);
			
			#out += ('\t' * (#depth + 1)) + '
\n';
		else;
			(!#include->size || #include >> #ext) && (!#exclude->size || #exclude !>> #ext) ? #out += '' + #i + '\n';
		/if;
	/iterate;
	
	local('out') += ('\t' * #depth) + '
\n';
	return(#out);
/define_tag;