one_time_load = function()
	print('loading '..Current_pane.filename)
	Current_pane.editor_state.filename = Directory..Current_pane.filename
	load_from_disk(Current_pane.editor_state)
	Text.redraw_all(Current_pane.editor_state)
	-- Disable autosave; undo isn't accessible in mobile devices.
	Current_pane.editor_state.filename = nil
end

one_time_save = function()
	print('saving to '..Current_pane.filename)
	Current_pane.editor_state.filename = Directory..Current_pane.filename
	save_to_disk(Current_pane.editor_state)
	-- Don't autosave yet; undo isn't accessible in mobile devices.
	Current_pane.editor_state.filename = nil
end

-- Function that is called when a 'filename' is selected from the file dialog, e.g. to load from or save to a file.
File_dialog_callback = nil

refresh_directory_contents = function()
	Directory_contents = {}
	local files_info = nativefs.getDirectoryItemsInfo(Directory)
	for _,file_info in ipairs(files_info) do
		if file_info.type == 'file' then
			table.insert(Directory_contents, file_info.name)
		end
	end
	table.sort(Directory_contents)
end

-- filenames inside directory
Directory_contents = nil

Directory = love.filesystem.getSourceBaseDirectory()..'/carousel_data/'

Show_file_dialog = false

draw_file_dialog = function()
	App.color(Menu_background)
	love.graphics.rectangle('fill',
		Menu_left+5,
		Menu_bottom+5,
		Safe_width-Menu_left-10,
		Safe_height-Menu_bottom-10)
	if Directory_contents == nil then
		-- on the first frame after dialog is enabled
		refresh_directory_contents()
	end
	local x, y = Menu_left+10, Menu_bottom+10
	for _,filename in ipairs(Directory_contents) do
		local w = App.width(filename) + 10
		if x == Menu_left+10 or x+w < Safe_width-Menu_left-10 then
			styled_button(filename, x,y, function()
				File_dialog_callback(filename)
				Show_file_dialog = false
				File_dialog_callback = nil
			end)
			x = x+w+10
		else
			x = Menu_left+10
			y = y+Line_height+10
			if y > Safe_height-Menu_bottom-10 then
				break
			end
		end
	end
end

load_button = function(x, y, r)
	return overflowable_button('load', x, y, r,
		function()
			Directory_contents = nil  -- refresh from file system
			Show_file_dialog = true
			File_dialog_callback = function(filename)
				Current_pane.filename = filename
				one_time_load()
			end
		end)
end

save_button = function(x, y, r)
	return overflowable_button('save', x, y, r,
		function()
			print('save')
			if Current_pane.filename == nil then
				Directory_contents = nil  -- refresh from file system
				Show_file_dialog = true
				File_dialog_callback = function(filename)
					Current_pane.filename = filename
					one_time_save()
				end
			else
				one_time_save()
			end
		end)
end

-- Lua Carousel is almost entirely in a single (adjustable) font, but we make one exception to squeeze in a file name
Title_font = nil

	x, y = save_button(x, y, r)
	x, y = load_button(x, y, r)

	App.color(Normal_color)

	App.color{r=0.5, g=0.5, b=0.5}

	love.graphics.line(x1,y1, x2,y1)

	if Current_pane.filename then
		-- title in between if it exists
		local old_font = love.graphics.getFont()
		if Title_font == nil then
			Title_font = love.graphics.newFont(15)  -- 20 pixels between menu and upper border - 5
		end
		love.graphics.setFont(Title_font)
		local tx1 = Current_pane.editor_state.left
		local tx2 = tx1 + App.width(Current_pane.filename)
		love.graphics.print(Current_pane.filename, tx1, y1-15+5)
		love.graphics.setFont(old_font)
		love.graphics.line(x1,y1, tx1-5,y1)
		love.graphics.line(math.min(tx2+5,x2), y1, x2,y1)
	else
		love.graphics.line(x1,y1, x2,y1)
	end

	if Show_file_dialog then
		Show_file_dialog = false
		return
	end

	-- modal dialog
	if Show_file_dialog then
		draw_file_dialog()
		return
	end

	App.mkdir(Directory)