File

plugins/muc/language.lib.lua @ 11395:d336b28b4002

mod_http_errors: Style tweak Weird to have the background all the way to the edge of the viewport. Would be nice if this could be done without the extra span.
author Kim Alvefur <zash@zash.se>
date Sun, 21 Feb 2021 07:59:17 +0100
parent 10063:13ccc2f05007
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;
};