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 Parsers = require "luan:Parsers.luan"
local json_string = Parsers.json_string 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 get_chat_by_user_ids = Chat.get_by_user_ids or error()
local Logging = require "luan:logging/Logging.luan"
local logger = Logging.logger "index.html"


local function get_chat(with)
	local ids = {}
	for email in pairs(with) do
		local with_user = get_user_by_email(email) or error()
		local id = with_user.id
		ids[#ids+1] = id
	end
	local need_push = false
	local chat = run_in_transaction( function()
		local chat = get_chat_by_user_ids(ids)
		if chat == nil then
			chat = Chat.new{
				user_ids = ids
			}
			chat.save()
			need_push = true
		end
		return chat
	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_email = Http.request.parameters.with
	local with = to_set(with_email)
	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 user_id = user.id
	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 chat_content show="chats">
			<div chats>
<%				chats_html() %>
			</div>
			<div posts>
				<div intro>
					<h3>Choose a chat on the left</h3>
					<p>or</p>
					<h3>Chat with another person</h3>
					<form action="javascript:invite()">
						<p>
							<label>Person's email</label><br>
							<input type=email name=email required><br>
						</p>
						<p>
							<input type=submit>
						</p>
					</form>
				</div>
			</div>
		</div>
		<div hidden>
			<span pulldown>
				<img onclick="clickMenu(this)" src="/images/more_vert.svg">
				<div>
					<span onclick="editPost(this)">Edit</span>
					<span onclick="deletePost(this)">Delete</span>
				</div>
			</span>
		</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>
		<dialog invite>
			<h2>Chat with another person</h2>
			<p>We have sent an invite to <span email></span></p>
			<div buttons>
				<button cancel onclick="closeModal(this)">Close</button>
			</div>
		</dialog>
		<script>
			'use strict';

<%
	if selected ~= nil then
%>
			let div = document.querySelector('div[chat="<%=selected.id%>"]');
			selectChat(div,<%=json_string(with_email)%>);
<%
	end
%>
			setUserEventSource(<%=user_id%>);
			lastUpdate = <%=user.last_update()%>;
			userId = '<%=user_id%>';
		</script>
	</body>
</html>
<%
end
author	Franklin Schmidt <fschmidt@gmail.com>
date	Tue, 04 Mar 2025 07:38:43 -0700
parents	323ddacc1593
children	8270106644db