find_comment_index = function(id)
	assert(Global_state.thread.type == 'rows')
	for i,row in ipairs(Global_state.thread.data) do
		assert(row.type == 'cols')
		assert(#row.data == 2)
		assert(row.data[2].type == 'rows')
		if row.data[2].data[1].id == id then
			return i
		end
	end
end

save_metadata = function(node)
	--print('saving metadata for', node.id)
	local mfile = metadata_file(node.id)
	local mpath = save_dir_path(mfile)
	love.filesystem.write(mpath, json.encode(node.metadata))
end

next_comment = function(id)

next_comment_id = function(id)

find_node = function(node, id)
	if node.type == 'text' and not node.button then
		if node.id == id then
			return node
		else
			return nil
		end
	end
	if node.type == 'rows' or node.type == 'cols' then
		for _,child in ipairs(node.data) do
			local t = find_node(child, id)
			if t then return t end
		end
	end
end

reply_button = function(filename, index, depth)

reply_button = function(filename, depth)

		name=filename, item_index=index,

		name=filename,

end

end

	local id = next_comment_id(parent_id)
	print('creating', id)

		filename=full_path(next_comment(parent_id)),

		id=id,
		filename=full_path(id),

	save_metadata(comment)

	table.insert(item_stuff.data, reply_button(comment.filename, 0, depth+1))
	return result
end

	table.insert(item_stuff.data,
		reply_button(comment.id, depth+1))
	return result, id
end

initialize_item = function(filename, depth)
	local result = {filename=full_path(filename)}

initialize_item = function(id, depth)
	local result = {
		type='text',
		id=id, filename=full_path(id),
		width=Width, depth=depth,
		metadata=load_metadata(id),
		border=Border_color,
	}

	-- more fields
	result.type = 'text'
	result.width = Width
	result.depth = depth
	result.metadata = load_metadata(filename)
	result.border = Border_color

load_subtree = function(filename, out, depth)

load_subtree = function(id, out, depth)

--	print('load_subtree', filename)
	local item = initialize_item(filename, depth)

--	print('load_subtree', id)
	local item = initialize_item(id, depth)

		reply_button(filename, #out, depth))

		reply_button(id, depth))

end

end

		local n, id = new_comment(button.name, button.depth)
		local parent = find_node(Global_state.thread, button.name)
		assert(parent)
		table.insert(parent.metadata.replies, id)
		save_metadata(parent)
		local item_index = find_comment_index(button.name)

			button.item_index+1,
			new_comment(button.name, button.depth))

			item_index+1,
			n)

end

end