view plugins/muc/language.lib.lua @ 12590:5eaf77114fdb

compat: Use table.pack (there since Lua 5.2) over our util.table Added in d278a770eddc avoid having to deal with its absence in Lua 5.1. No longer needed when Lua 5.1 support is dropped.
author Kim Alvefur <zash@zash.se>
date Mon, 11 Jul 2022 19:15:24 +0200
parents 13ccc2f05007
children
line wrap: on
line source

-- Prosody IM
-- Copyright (C) 2008-2010 Matthew Wild
-- Copyright (C) 2008-2010 Waqas Hussain
-- Copyright (C) 2014 Daurnimator
--
-- This project is MIT/X11 licensed. Please see the
-- COPYING file in the source package for more information.
--

local function get_language(room)
	return room._data.language;
end

local function set_language(room, language)
	if language == "" then language = nil; end
	if get_language(room) == language then return false; end
	room._data.language = language;
	return true;
end

local function add_disco_form(event)
	table.insert(event.form, {
		name = "muc#roominfo_lang";
		value = "";
	});
	event.formdata["muc#roominfo_lang"] = get_language(event.room);
end

local function add_form_option(event)
	table.insert(event.form, {
		name = "muc#roomconfig_lang";
		label = "Language tag for room (e.g. 'en', 'de', 'fr' etc.)";
		type = "text-single";
		desc = "Indicate the primary language spoken in this room";
		datatype = "xs:language";
		value = get_language(event.room) or "";
	});
end

module:hook("muc-disco#info", add_disco_form);
module:hook("muc-config-form", add_form_option, 100-3);

module:hook("muc-config-submitted/muc#roomconfig_lang", function(event)
	if set_language(event.room, event.value) then
		event.status_codes["104"] = true;
	end
end);

return {
	get = get_language;
	set = set_language;
};