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 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 "chat.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," ")
	return 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()
			return chat
		elseif n == 1 then
			return chats[1]
		else
			error("multiple chats for: "..query)
		end
	end )
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
	local chats = Chat.search( "chat_user_ids:"..user.id, "chat_updated desc" )
	Io.stdout = Http.response.text_writer()
%>
<!doctype html>
<html>
	<head>
<%		head() %>
		<style>
			@import "chat.css?s=<%=started%>";
		</style>
		<script src="chat.js?s=<%=started%>"></script>
	</head>
	<body>
<%		header() %>
		<div content>
			<div chats>
<%
	for _, chat in ipairs(chats) do
%>
				<div chat="<%=chat.id%>" onclick="selectChat(this)"><%= chat.other_users_email(user) %></div>
<%
	end
%>
			</div>
			<div posts></div>
		</div>
	</body>
<%
	if selected ~= nil then
%>
		<script>
			let div = document.querySelector('div[chat="<%=selected.id%>"]');
			selectChat(div);
		</script>
<%
	end
%>
</html>
<%
end
author	Franklin Schmidt <fschmidt@gmail.com>
date	Wed, 30 Oct 2024 23:18:45 -0600
parents	b8b12fd8be22
children	8b8905f63d80