function str = page_to_str(page,fun)

if (nargin < 2)
	fun = @sec_to_clock;
end

% TODO: integrate full and interval display

str = ['[', fun(page.start), ',', fun(page.start + page.duration)];

if (page.full)
	str = [str, ')'];
else
	str = [str, ']'];
end

switch (page.interval)
	
	case (0)
		
	case (1), str = ['{', str];
		
	case (2), str = [str, '}'];
		
	case (3), str = ['{', str, '}'];
		
end