clean up code for creating the issue message to be sent

1 files changed, 5 insertions, 2 deletions

diff --git a/lib/Crawl/Bot.pm b/lib/Crawl/Bot.pm
index 703982d..75e8a0d 100644
--- a/lib/Crawl/Bot.pm
+++ b/lib/Crawl/Bot.pm
@@ -104,10 +104,13 @@ sub tick {
         (my $id = $link) =~ s/.*=(\d+)$/$1/;
         return if $self->has_issue($id);
         warn "New issue! ($id)";
+        my $message = $issue->title;
+        $message =~ s/\d+: //;
+        $message = sprintf '%s (%s) by %s',
+                           $message, $issue->link, $issue->creator;
         $self->say(
             channel => $_,
-            body    => $issue->title . ' (' . $issue->link . ')'
-                     . ' by ' . $issue->creator
+            body    => $message,
         ) for $self->channels;
         $self->add_issue($id);
     });