local Luan = require "luan:Luan.luan"
local error = Luan.error
local ipairs = Luan.ipairs or error()
local String = require "luan:String.luan"
local digest_message = String.digest_message or error()
local Parsers = require "luan:Parsers.luan"
local json_string = Parsers.json_string or error()
local Html = require "luan:Html.luan"
local html_encode = Html.encode or error()
local Math = require "luan:Math.luan"
local random = Math.random or error()
local Io = require "luan:Io.luan"
local Http = require "luan:http/Http.luan"
local User = require "site:/lib/User.luan"
local current_user = User.current or error()
local get_user_by_id = User.get_by_id or error()
local Chat = require "site:/lib/Chat.luan"
local get_chat_by_id = Chat.get_by_id or error()
local Post = require "site:/lib/Post.luan"
local post_search = Post.search or error()
local Shared = require "site:/lib/Shared.luan"
local post_html = Shared.post_html or error()
local group_name = Shared.group_name or error()
local Logging = require "luan:logging/Logging.luan"
local logger = Logging.logger "get_chat.js"


local function get_html(user,chat)
	local spy = Http.request.cookies.spy ~= nil
	if not spy then
		chat.read(user)
	end
	local posts = post_search( "post_chat_id:"..chat.id, "id" )
%>
	<div top>
		<h3>
			<img back onclick="back()" src="/images/arrow_back.svg">
			<span>
<%
	local user_ids = chat.other_user_ids(user.id)
	if #user_ids > 1 then
%>
				<%= group_name(user_ids) %>
<%
	else
		local other_user = get_user_by_id(user_ids[1]) or error()
%>
				<%= other_user.name_html() %><span online="<%= other_user.id %>"></span>
<%
		local voice_url = other_user.voice_url
		if voice_url ~= nil then
%>
				<a href="<%=voice_url%>" title="Call" target="voice"><img phone src="/images/call.svg"></a>
<%
		end
	end
%>
			</span>
		</h3>
		<span pulldown>
			<img onclick="clickMenu(this)" src="/images/menu.svg">
			<div>
				<span onclick="openPeople()">People in Chat</span>
				<span onclick="openMute()">Mute Chat</span>
				<span onclick="openAddToChat()">Add Someone to Chat</span>
				<span onclick="deleteOld()">Delete Old Messages</span>
				<span onclick="deleteChat()">Delete Chat</span>
			</div>
		</span>
	</div>
	<div main>
<%
	for _, post in ipairs(posts) do
		post_html(post)
	end
%>
		<div input>
			<span textarea>
				<div reply hidden>
					<div reply_top>
						<span>Reply to</span>
						<img src="/images/close.svg" onclick="closeReply()">
					</div>
					<div text></div>
					<div><a when></a></div>
				</div>
				<textarea oninput="fixTextarea(event)" onkeydown="textareaKey(event)"></textarea>
			</span>
			<button onclick="uploadFile()" title="Add file"><img src="/images/upload_file.svg"></button>
			<button onclick="addPost()" title="Send"><img src="/images/send.svg"></button>
		</div>
	</div>
<%
end

local function people(chat)
	for _, user_id in ipairs(chat.user_ids) do
		local user = get_user_by_id(user_id)
		local name = user.name
		local email = user.email
		local voice_url = user.voice_url
		local voice = voice_url and `%> <a href="<%=voice_url%>" title="Call" target="voice"><img phone src="/images/call.svg"></a><%` or ""
%>
		<p>
<%
		if name == nil then
%>
			<b><%=html_encode(email)%></b><%=voice%><br>
<%
		else
%>
			<b><%=html_encode(name)%></b><%=voice%><br>
			<%=html_encode(email)%><br>
<%
		end
%>
			<span last_seen="<%=user_id%>"></span>
		</p>
<%
	end
end

return function()
	local user = current_user() or error()
	local chat = Http.request.parameters.chat or error()
	chat = get_chat_by_id(chat) or error()
	local html = `get_html(user,chat)`
	local digest = digest_message("MD5","luan chat "..random())
	Io.stdout = Http.response.text_writer()
%>
	gotChat(<%=json_string(html)%>);
	filebinUrl = 'https://filebin.net/<%=digest%>/';
	document.querySelector('dialog[people] div[people]').innerHTML = <%=json_string(`people(chat)`)%>;
<%
end