Merge pull request #362 from taboege/tellable-ctcp-action

Tellable: format CTCP ACTION

Author: AlexDaniel

xbin/Tellable.p6

@@ -131,7 +131,13 @@ multi method irc-to-me($msg where { m:r/^ \s* [seen \s+]?
         return “I haven't seen $who around”
         ~ maybe ‘, did you mean %s?’, did-you-mean-seen $who, %seen
     }
-    “I saw $who $entry<timestamp> in $entry<channel>: <$entry<nick>> $entry<text>”
+
+    # Format CTCP ACTION aka /me
+    my $said = $entry<text> ~~ /^ \x[01] ‘ACTION ’ <( .* )> \x[01] $/ ??
+        “* $entry<nick> $/” !!
+        “<$entry<nick>> $entry<text>”;
+
+    “I saw $who $entry<timestamp> in $entry<channel>: $said”
 }
 
 #| tell

xt/tellable.t

@@ -103,6 +103,15 @@ $t.test(‘.seen (normalization, doubled letters)’,
        );
 
 
+# CTCP ACTION
+
+$t.test(:!both, ‘send a /me’, “\x[01]ACTION waves\x[01]”);
+
+$t.test(:!both, ‘.seen a /me’,
+        “.seen {$t.our-nick}”,
+        /^ <me($t)>‘, I saw ’<me($t)>‘ 2’\S+‘Z in #whateverable_tellable6: * ’<me($t)>‘ waves’ $/
+       );
+
 
 # Tell