Mercurial Hosting > chat

local Luan = require "luan:Luan.luan"
local error = Luan.error
local ipairs = Luan.ipairs or error()
local pairs = Luan.pairs or error()
local range = Luan.range or error()
local Table = require "luan:Table.luan"
local concat = Table.concat or error()
local is_empty = Table.is_empty or error()
local size = Table.size or error()
local Io = require "luan:Io.luan"
local Http = require "luan:http/Http.luan"
local Shared = require "site:/lib/Shared.luan"
local head = Shared.head or error()
local header = Shared.header or error()
local started = Shared.started or error()
local chats_html = Shared.chats_html or error()
local http_push_to_users = Shared.http_push_to_users or error()
local User = require "site:/lib/User.luan"
local current_user = User.current or error()
local get_user_by_email = User.get_by_email or error()
local Utils = require "site:/lib/Utils.luan"
local to_set = Utils.to_set or error()
local Db = require "site:/lib/Db.luan"
local run_in_transaction = Db.run_in_transaction or error()
local Chat = require "site:/lib/Chat.luan"
local chat_search = Chat.search or error()
local Logging = require "luan:logging/Logging.luan"
local logger = Logging.logger "index.html"


local function get_chat(with)
	local t = {}
	local ids = {}
	for email in pairs(with) do
		local with_user = get_user_by_email(email) or error()
		local id = with_user.id
		t[#t+1] = "+chat_user_ids:"..id
		ids[#ids+1] = id
	end
	local query = concat(t," ")
	local need_push = false
	local chat = run_in_transaction( function()
		local chats = chat_search(query)
		local n = #chats
		if n == 0 then
			local chat = Chat.new{
				user_ids = ids
			}
			chat.save()
			need_push = true
			return chat
		elseif n == 1 then
			return chats[1]
		else
			error("multiple chats for: "..query)
		end
	end )
	if need_push then
		local js = "getChats('"..chat.id.."')"
		http_push_to_users( chat.user_ids, js )
	end
	return chat
end

return function()
	local with = Http.request.parameters.with
	with = to_set(with)
	local user = current_user()
	if user == nil then
		local url = "/login.html"
		if not is_empty(with) then
			local t = {}
			for email in pairs(with) do
				t[#t+1] = "with="..email
			end
			url = url.."?"..concat(t,"&")
		end
		Http.response.send_redirect(url)
		return
	end
	local selected = nil
	if not is_empty(with) then
		with[user.email] = true
		if size(with) > 1 then
			selected = get_chat(with)
		end
	end
	Io.stdout = Http.response.text_writer()
%>
<!doctype html>
<html>
	<head>
<%		head() %>
		<style>
			@import "chat.css?s=<%=started%>";
		</style>
		<style online></style>
		<script src="chat.js?s=<%=started%>"></script>
	</head>
	<body>
<%		header() %>
		<div content show="chats">
			<div chats>
<%				chats_html() %>
			</div>
			<div posts></div>
		</div>
		<dialog delete_chat>
			<h2>Delete Chat</h2>
			<p>Are you sure that you want to delete this chat?</p>
			<div buttons>
				<button cancel onclick="closeModal(this)">Cancel</button>
				<button go onclick="doDeleteChat(this)">Delete</button>
			</div>
		</dialog>
		<dialog delete_post>
			<h2>Delete Message</h2>
			<p>Are you sure that you want to delete this message?</p>
			<div buttons>
				<button cancel onclick="closeModal(this)">Cancel</button>
				<button go onclick="doDeletePost(this)">Delete</button>
			</div>
		</dialog>
		<dialog edit_post>
			<h2>Edit Message</h2>
			<p><textarea onfocus="fixTextarea(event)" oninput="fixTextarea(event)"></textarea></p>
			<div buttons>
				<button cancel onclick="closeModal(this)">Cancel</button>
				<button go onclick="savePost(this)">Save</button>
			</div>
		</dialog>
		<script>
<%
	if selected ~= nil then
%>
			let div = document.querySelector('div[chat="<%=selected.id%>"]');
			selectChat(div);
<%
	end
%>
			setUserEventSource(<%=user.id%>);
			lastUpdate = <%=user.last_update()%>;
		</script>
	</body>
</html>
<%
end
author	Franklin Schmidt <fschmidt@gmail.com>
date	Sun, 10 Nov 2024 19:57:14 -0700
parents	f4708943f29e
children	62d04ca486dd