local Luan = require "luan:Luan.luan"
local error = Luan.error
local ipairs = Luan.ipairs or error()
local parse = Luan.parse or error()
local Io = require "luan:Io.luan"
local uri = Io.uri or error()
local Time = require "luan:Time.luan"
local Thread = require "luan:Thread.luan"
local thread_run = Thread.run or error()
local Html = require "luan:Html.luan"
local html_encode = Html.encode or error()
local Http = require "luan:http/Http.luan"
local Mail = require "luan:mail/Mail.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 chat_search = Chat.search or error()
local Utils = require "site:/lib/Utils.luan"
local base_url = Utils.base_url or error()


local Shared = {}

local started = Time.now()
Shared.started = started

function Shared.head()
%>
		<meta name="viewport" content="width=device-width, initial-scale=1">
		<title>Web Chat</title>
		<style>
			@import "/site.css?s=<%=started%>";
		</style>
		<script src="/site.js?s=<%=started%>"></script>
<%
end

local function header(crumbs)
	local user = current_user()
%>
		<div header>
			<span>
				<a href="/">Web Chat</a>
<%	for _, crumb in ipairs(crumbs or {}) do %>
				/ <%=crumb%>
<%	end %>
			</span>
			<span right>
<%	if user == nil then %>
				<a href="/login.html">Login / Register</a>
<%	else
		local voice_url = user.voice_url
		if voice_url ~= nil then
%>
				<a href="<%=voice_url%>" title="Call" target="voice"><img phone src="/images/call.svg"></a>
<%
		end
%>
				<a href="/account.html"><%= user.email %></a>
<%	end %>
			</span>
		</div>
<%
end
Shared.header = header

function Shared.private_header()
	header{
		[[<a href="/private/">private</a>]]
		[[<a href="/private/tools/">tools</a>]]
	}
end

local config_file = uri("site:/private/local/config.luano")
Shared.config_file = config_file

do
	if config_file.exists() then
		Shared.config = parse( config_file.read_text() )
	else
		Shared.config = {
			mail_server = {
				host = "smtpcorp.com"
				port = 465
				username = "xxx"
				password = "xxx"
			}
		}
	end
end

local send_mail = Mail.sender(Shared.config.mail_server).send
Shared.send_mail = send_mail

function Shared.send_mail_async(mail)
	thread_run( function()
		send_mail(mail)
	end )
end

function Shared.post_html(post)
	local author_id = post.author_id
	local user = current_user() or error()
	local author = get_user_by_id(author_id)
	local id = post.id
%>
		<div post="<%=id%>" author="<%=author.id%>" fix>
			<div who>
				<span author><%=author.email%></span>
				<span right>
					<span when><%=post.date%></span>
					<span pulldown></span>
				</span>
			</div>
			<div text><%= html_encode(post.content) %></div>
		</div>
<%
end

local function chat_other_users_html(chat,user,show_phone)
	local my_id = user.id
	local is_first = true
	for _, user_id in ipairs(chat.user_ids) do
		if user_id ~= my_id then
			local other_user = get_user_by_id(user_id) or error()
			if is_first then
				is_first = false
			else
				%>, <%
			end
			%><span email><%= other_user.email %></span><span online="<%= other_user.id %>"></span><%
			local voice_url = other_user.voice_url
			if voice_url ~= nil and show_phone then
				%> <a href="<%=voice_url%>" title="Call" target="voice"><img phone src="/images/call.svg"></a><%
			end
		end
	end
end
Shared.chat_other_users_html = chat_other_users_html

function Shared.chats_html()
	local user = current_user() or error()
	local chats = chat_search( "chat_user_ids:"..user.id, "chat_updated desc" )
	for _, chat in ipairs(chats) do
%>
		<div chat="<%=chat.id%>" onclick="selectChat(this)"><% chat_other_users_html(chat,user,false) %></div>
<%
	end
end

function Shared.http_push_to_users(user_ids,message)
	local base = base_url().."/user/"
	for _, user_id in ipairs(user_ids) do
		local url = base..user_id
		Http.push(url,message)
	end
end

return Shared