Add: Huggable bot

compose.yaml

@@ -328,6 +328,21 @@ services:
         limits:
           memory: 1.5G
 
+  huggable:
+    image: postmodern.alexdaniel.org/whateverable:latest
+    command: ake start:huggable
+    volumes:
+      - /home/whateverable/data/huggable:/srv/data/huggable
+    secrets:
+      - config
+    networks:
+      - caddy
+    deploy:
+      replicas: 1
+      resources:
+        limits:
+          memory: 1.5G
+
   sourceable:
     image: postmodern.alexdaniel.org/whateverable:latest
     command: ake start:sourceable

xbin/Huggable.p6

@@ -0,0 +1,30 @@
+use Whateverable;
+use IRC::Client;
+
+unit class Huggable does Whateverable
+
+#| .hug
+#| .hug <nick>...
+#| hugs the sender if no nick is provided
+method irc-privmsg-channel ($msg where / [\s|^] '.hug' [\s|$] /) {
+    my $idx   = $msg.text.index('.hug') + 4;
+    my $nicks = $msg.text.substr($idx).trim || $msg.nick;
+    $.irc.send: :where($msg.channel), :text("hugs " ~ $nicks);
+}
+
+#| huggable6: hug
+#| huggable6: hug <nick>...
+#| hugs the sender if no nick is provided
+multi method irc-to-me($msg where / [\s|^] 'hug' [\s|$] /) {
+    my $idx   = $msg.text.index('hug') + 3;
+    my $nicks = $msg.text.substr($idx).trim || $msg.nick;
+    $.irc.send: :where($msg.channel), :text("hugs " ~ $nicks);
+}
+
+#| huggable6: <nick>...
+multi method irc-to-me($msg) {
+    $.irc.send: :where($msg.channel), :text("hugs " ~ $msg.text);
+}
+
+Huggable.new.selfrun: 'huggable6', [/ huggable6? <before ':'> /,
+fuzzy-nick('huggable6', 2)]

xt/huggable.t

@@ -0,0 +1,52 @@
+#!/usr/bin/env perl6
+
+BEGIN %*ENV<PERL6_TEST_DIE_ON_FAIL> = 1;
+%*ENV<TESTABLE> = 1;
+
+use lib <lib xt/lib>;
+use Test;
+use Testable;
+use IRC::Client;
+
+my $t = Huggable.new: bot => 'Huggable';
+
+$t.common-tests: help => 'Like this: .hug <nick>';
+
+#| .hug
+#| .hug <nick>
+$t.test('.hug',
+        'hug',
+        "hugs {$t.our-nick}");
+
+$t.test('.hug <nick>',
+        '.hug sibl',
+        'hugs sibl');
+
+$t.test('.hug <whatever actually>',
+        '.hug everyone',
+        'hugs everyone');
+
+$t.test('<prefix> .hug <nick>',
+        '<foobar> .hug ande',
+        "hugs ande");
+
+#| huggable6: hug
+#| huggable6: hug <nick>
+$t.test('huggable6: hug',
+        "{$t.bot-nick}: hug",
+        "hugs {$t.our-nick}"
+       );
+$t.test('huggable6: hug everyone',
+        "{$t.bot-nick}: hug everyone",
+        'hugs everyone'
+       );
+
+#| huggable6: <nick>...
+$t.test('huggable6: sibl ande',
+        "{$t.bot-nick}: sibl ande",
+        'hugs sibl ande'
+       );
+
+$t.last-test;
+done-testing;
+END $t.end;