local Luan = require "luan:Luan.luan"
local error = Luan.error
local stringify = Luan.stringify or error()
local Math = require "luan:Math.luan"
local min = Math.min or error()
local String = require "luan:String.luan"
local sub_string = String.sub or error()
local replace = String.replace or error()
local starts_with = String.starts_with or error()
local Io = require "luan:Io.luan"
local new_text_area = require("luan:swing/Text_area.luan").new or error()
local new_frame = require("luan:swing/Frame.luan").new or error()
local new_panel = require("luan:swing/Component.luan").new_panel or error()
local Layout = require "luan:swing/Layout.luan"
local new_mig_layout = Layout.new_mig_layout or error()
local new_scroll_pane = require("luan:swing/Scroll_pane.luan").new or error()
local new_text_area_line_numbers = require("luan:swing/Text_area_line_numbers.luan").new or error()
local int_to_color = require("luan:swing/Color.luan").int_to_color or error()
local Border = require "luan:swing/Border.luan"
local create_empty_border = Border.create_empty_border or error()
local new_label = require("luan:swing/Label.luan").new or error()
local make_find_panel = require "classpath:luan_editor/find.luan"
local add_menu_bar = require "classpath:luan_editor/menu.luan"
local Swing = require "luan:swing/Swing.luan"
local File_chooser = require "luan:swing/File_chooser.luan"
local choose_file = File_chooser.awt_choose_file or error()
local Logging = require "luan:logging/Logging.luan"
local logger = Logging.logger "editor/window"


local n_windows = 0
local documents = {}

local function bool(val,default)
	if val ~= nil then
		return val
	else
		return default
	end
end

local config_file = Io.uri("file:"..Swing.home_dir.."/.luan_editor")
local config = {}
if config_file.exists() then
	try
		config = Luan.parse(config_file.read_text())
	catch e
		logger.error(e)
	end
end
config.size = config.size or { width=700, height=700 }
config.line_wrap = bool( config.line_wrap, true )
config.whitespace_visible = bool( config.whitespace_visible, false )
config.tab_size = config.tab_size or 4

local function save_config()
	config_file.write_text( stringify(config).."\n" )
end

local function new_window(file)
	local window = {}
	window.has_file = file~=nil and file.is_file()
	local text_area = new_text_area{
		wrap_style_word = true
		line_wrap = config.line_wrap
		whitespace_visible = config.whitespace_visible
		tab_size = config.tab_size
		font = { family="Monospaced", size=13 }
	}
	window.text_area = text_area
	local title = file and file.canonical().to_string() or "new"
	if file ~= nil then
		local document = documents[title]
		if document == nil then
			documents[title] = text_area.document
		else
			text_area.document = document
		end
		if file.is_file() then
			text_area.text = file.read_text()
			text_area.document.clear_unedited()
		end
	end
	text_area.set_selection(0)
	local status_bar = new_label{
		constraints = "span,growx"
		text = " "
		border = create_empty_border(2,16,4,16)
	}
	window.status_bar = status_bar
	local find_panel = make_find_panel(window)
	local frame = new_frame{
		preferred_size = config.size
		content_pane = new_panel{
			layout = new_mig_layout("insets 0,wrap,fill,hidemode 3","","[][grow 0]")
			children = {
				new_scroll_pane{
					constraints = "grow"
					view = text_area
					row_header_view = new_text_area_line_numbers{
						text_area = text_area
						foreground_color = int_to_color(0x888888)
						border = create_empty_border(0,8,0,8)
					}
				}
				find_panel
				status_bar
			}
		}
	}
	window.frame = frame
	frame.add_close_listener(function()
		n_windows = n_windows - 1
		if n_windows == 0 then
			Luan.exit()
		end
	end)
	frame.add_resize_stopped_listener( 200, function()
		--logger.info(stringify(frame.size))
		config.size = frame.size
		save_config()
	end)
	frame.add_move_stopped_listener( 200, function()
		--logger.info(stringify(frame.location))
		config.location = frame.location
		save_config()
	end)
	local function set_title()
		local s = title
		if not text_area.document.is_unedited() then
			s = s.." *"
		end
		frame.title = s
	end
	set_title()
	window.set_title = set_title  -- dont gc
	text_area.document.add_undo_listener(set_title)
	window.new = new_window
	function window.open()
		local new_file = choose_file{
			action = "load"
			parent = frame
			directory = file and file.parent()
		}
		if new_file ~= nil then
			new_window(new_file)
		end
	end
	function window.save()
		if file == nil then
			file = choose_file{
				action = "save"
				parent = frame
			}
			if file == nil then
				return false
			end
			title = file.canonical().to_string()
			frame.title = title
			documents[title] = text_area.document
		end
		file.write_text(text_area.text)
		text_area.document.set_unedited()
		return true
	end
	function window.revert()
		local selection = text_area.get_selection()
		local text = file.read_text()
		text_area.text = text
		text_area.set_selection(min(selection,#text+1))
		text_area.document.set_unedited()
		status_bar.text = "Reverted"
	end
	local function selection_lines()
		local start_seletion, end_selection = text_area.get_selection()
		local end_ = end_selection == start_seletion and end_selection or end_selection - 1
		local start_line = text_area.get_line_from_position(start_seletion)
		local end_line = text_area.get_line_from_position(end_)
		local start_pos = text_area.get_line_start_position(start_line)
		local end_pos = text_area.get_line_end_position(end_line)
		local text = text_area.text
		text = sub_string(text,start_pos,end_pos-2)
		return {
			text = text
			start_pos = start_pos
			length = #text
			lines = end_line - start_line + 1
			start_seletion = start_seletion
			end_selection = end_selection
		}
	end
	function window.indent()
		local r = selection_lines()
		local text = r.text
		local start_pos = r.start_pos
		text = "\t"..replace(text,"\n","\n\t")
		text_area.replace(start_pos,r.length,text)
		--logger.info(stringify{text_area.get_selection()})
		text_area.set_selection( r.start_seletion+1, r.end_selection+r.lines )
	end
	function window.unindent()
		local r = selection_lines()
		local text = r.text
		text = "\n"..text
		local start_seletion = r.start_seletion
		if starts_with(text,"\n\t") then
			start_seletion = start_seletion - 1
		end
		local len1 = #text
		text = replace(text,"\n\t","\n")
		local len2 = #text
		local end_selection = r.end_selection - (len1 - len2)
		text = sub_string(text,2)
		text_area.replace(r.start_pos,r.length,text)
		text_area.set_selection(start_seletion,end_selection)
	end
	function window.cursor_column()
		local cursor_pos = text_area.get_selection()
		local line = text_area.get_line_from_position(cursor_pos)
		local start_line_pos = text_area.get_line_start_position(line)
		return cursor_pos - start_line_pos + 1
	end
	function window.goto(line)
		local pos = text_area.get_line_start_position(line)
		text_area.set_selection(pos)
	end
	function window.set_line_wrap(line_wrap)
		text_area.line_wrap = line_wrap
		config.line_wrap = line_wrap
		save_config()
	end
	function window.set_whitespace_visible(whitespace_visible)
		text_area.whitespace_visible = whitespace_visible
		config.whitespace_visible = whitespace_visible
		save_config()
	end
	function window.set_tab_size(tab_size)
		text_area.tab_size = tab_size
		config.tab_size = tab_size
		save_config()
	end
	add_menu_bar(window)
	frame.pack()
	if config.location ~= nil then
		frame.location = config.location
	end
	frame.visible = true
	text_area.request_focus_in_window()
	n_windows = n_windows + 1
end

return new_window