In-progress browser for a directory of text files
metadata_file = function(filename)
	return  filename:gsub('%.md$', '')..'.json'
end