From a600ecb54fbc69fe3462a23df37a1b4144107343 Mon Sep 17 00:00:00 2001
From: Tobias Boege <tobs@taboege.de>
Date: Wed, 18 Sep 2019 03:19:12 +0200
Subject: [PATCH] Tellable: format CTCP ACTION

Closes #360
---
 xbin/Tellable.p6 | 8 +++++++-
 xt/tellable.t    | 9 +++++++++
 2 files changed, 16 insertions(+), 1 deletion(-)

diff --git a/xbin/Tellable.p6 b/xbin/Tellable.p6
index 21c6a71..e4256b0 100755
--- a/xbin/Tellable.p6
+++ b/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
diff --git a/xt/tellable.t b/xt/tellable.t
index 303170d..5a0d04f 100755
--- a/xt/tellable.t
+++ b/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