summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBadlop <badlop@process-one.net>2009-08-15 22:02:49 +0000
committerBadlop <badlop@process-one.net>2009-08-15 22:02:49 +0000
commitcf6d39487a5d28c99351043ed728add328889af8 (patch)
tree5a5eef3e40aa2dcffef72d80aa6828c7b763d1d7
parentUpdate Ingoing s2s connections inner state to hold domain name (thanks to Jua... (diff)
Display room service messages in distintive blue colour.
SVN Revision: 2491
-rw-r--r--src/mod_muc/mod_muc_log.erl10
1 files changed, 7 insertions, 3 deletions
diff --git a/src/mod_muc/mod_muc_log.erl b/src/mod_muc/mod_muc_log.erl
index 67c8a77a..d1942f4b 100644
--- a/src/mod_muc/mod_muc_log.erl
+++ b/src/mod_muc/mod_muc_log.erl
@@ -413,11 +413,14 @@ add_message_to_log(Nick1, Message, RoomJID, Opts, State) ->
io_lib:format("<font class=\"msc\">~s~s~s</font><br/>",
[Nick, ?T(" has set the subject to: "), htmlize(T,NoFollow,FileFormat)]);
{body, T} ->
- case regexp:first_match(T, "^/me\s") of
- {match, _, _} ->
+ case {regexp:first_match(T, "^/me\s"), Nick} of
+ {_, ""} ->
+ io_lib:format("<font class=\"msm\">~s</font><br/>",
+ [htmlize(T,NoFollow,FileFormat)]);
+ {{match, _, _}, _} ->
io_lib:format("<font class=\"mne\">~s ~s</font><br/>",
[Nick, string:substr(htmlize(T,FileFormat), 5)]);
- nomatch ->
+ {nomatch, _} ->
io_lib:format("<font class=\"mn\">~s</font> ~s<br/>",
[Nick2, htmlize(T,NoFollow,FileFormat)])
end
@@ -691,6 +694,7 @@ put_header_css(F, false) ->
fw(F, ".ts {color: #AAAAAA; text-decoration: none;}"),
fw(F, ".mrcm {color: #009900; font-style: italic; font-weight: bold;}"),
fw(F, ".msc {color: #009900; font-style: italic; font-weight: bold;}"),
+ fw(F, ".msm {color: #000099; font-style: italic; font-weight: bold;}"),
fw(F, ".mj {color: #009900; font-style: italic;}"),
fw(F, ".ml {color: #009900; font-style: italic;}"),
fw(F, ".mk {color: #009900; font-style: italic;}"),