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 Table = require "luan:Table.luan"
local concat = Table.concat 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 User = require "site:/lib/User.luan"
local current_user = User.current_required or error()
local get_user_by_id = User.get_by_id 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 function other_users(user,chat)
	local my_id = user.id
	local t = {}
	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()
			t[#t+1] = other_user.email
		end
	end
	return concat( t, ", " )
end

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," ")
	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 user = current_user()
	if user == nil then
		return
	end
	local with = Http.request.parameters.with
	if with ~= nil then
		with = to_set(with)
		with[user.email] = true
		get_chat(with)
	end
	local chats = user.get_chats()
	Io.stdout = Http.response.text_writer()
%>
<!doctype html>
<html>
	<head>
<%		head() %>
	</head>
	<body>
<%		header() %>
		<div content>
			<h1>Chat</h1>
<%	for _, chat in ipairs(chats) do %>
			<p><%= other_users(user,chat) %></p>
<%	end %>
		</div>
	</body>
</html>
<%
end
author	Franklin Schmidt <fschmidt@gmail.com>
date	Sun, 27 Oct 2024 20:39:18 -0600
parents	src/login_sent.html.luan@2c63b10781e1
children	a49866b52cc2