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 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 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 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 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
	if not is_empty(with) then
		with[user.email] = true
		if size(with) > 1 then
			get_chat(with)
		end
	end
	local chats = user.get_chats()
	Io.stdout = Http.response.text_writer()
%>
<!doctype html>
<html>
	<head>
<%		head() %>
		<style>
			body {
				height: 100vh;
				display: flex;
				flex-direction: column;
			}
			div[content] {
				margin-bottom: 0;
				display: flex;
				height: 100%;
				margin-left: calc(3% - 8px);
			}
			div[chats] {
				width: 250px;
				padding-right: 8px;
			}
			div[chats] > div {
				margin-top: 2px;
				margin-bottom: 2px;
				padding-top: 16px;
				padding-bottom: 16px;
				padding-left: 8px;
				padding-right: 8px;
				border-radius: 4px;
			}
			div[chats] > div:hover,
			div[chats] > div[selected] {
				background-color: LightBlue;
			}
			div[posts] {
				padding-left: 8px;
				border-left: 1px solid;
			}
		</style>
		<script>
			'use strict';

			let currentChatId = null;

			function selectChat(div) {
				let chatId = div.getAttribute('chat');
				if( chatId === currentChatId )
					return;
				let selected = div.parentNode.querySelector('[selected]');
				if( selected )  selected.removeAttribute('selected');
				div.setAttribute('selected','');
				ajax(`chat.js?chat=${chatId}`);
			}
		</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>
</html>
<%
end
author	Franklin Schmidt <fschmidt@gmail.com>
date	Tue, 29 Oct 2024 22:11:40 -0600
parents	a49866b52cc2
children	d654e3471132