MUC: Add support for setting a room language (closes #1149)

2 files changed, 54 insertions, 0 deletions

diff --git a/plugins/muc/language.lib.lua b/plugins/muc/language.lib.lua
new file mode 100644
index 00000000..ae9bcfed
--- /dev/null
+++ b/plugins/muc/language.lib.lua
@@ -0,0 +1,50 @@
+-- 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";
+		value = get_language(event.room) or "";
+	});
+end
+
+module:hook("muc-disco#info", add_disco_form);
+module:hook("muc-config-form", add_form_option, 100-9.5);
+
+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;
+};
diff --git a/plugins/muc/mod_muc.lua b/plugins/muc/mod_muc.lua
index 10de8c95..fd240193 100644
--- a/plugins/muc/mod_muc.lua
+++ b/plugins/muc/mod_muc.lua
@@ -33,6 +33,10 @@ local description = module:require "muc/description";
 room_mt.get_description = description.get;
 room_mt.set_description = description.set;
 
+local language = module:require "muc/language";
+room_mt.get_language = language.get;
+room_mt.set_language = language.set;
+
 local hidden = module:require "muc/hidden";
 room_mt.get_hidden = hidden.get;
 room_mt.set_hidden = hidden.set;