Implement on-demand version bump changes fetcher

- Adds triggered command `ver GITHUB_URL_TO_VERSION_BUMP_COMMIT`
- Useful for release managers

Author: zoffixznet

bin/geth.p6

@@ -14,7 +14,8 @@ class Geth::Plugin::Info {
         "Source at https://github.com/perl6/geth "
         ~ "To add repo, add an 'application/json' webhook on GitHub "
         ~ "pointing it to http://geth.perl6.party/?chan=#perl6 and choose "
-        ~ "'Send me everything' for events to send";
+        ~ "'Send me everything' for events to send | use `ver URL to commit` "
+        ~ "to fetch version bump changes";
     }
 }
 

lib/Geth/Plugin/GitHub.pm6

@@ -4,13 +4,32 @@ unit class Geth::Plugin::GitHub is IRC::Client::Plugin;
 use IRC::TextColor;
 use Geth::Config;
 use Geth::GitHub::Hooks;
+use Geth::GitHub::Hooks::Preprocessor;
+
 has $.host is required;
 has $.port is required;
 
 constant &Δ = &irc-style-text;
 constant THROTTLE_LINES_UNTHROTTLED_MAX = 5;
 constant THROTTLE_SLEEP    = 2;
 constant THROTTLE_COOLDOWN = 8;
+constant $NQP_API_URL    = 'https://api.github.com/repos/perl6/nqp';
+constant $RAKUDO_API_URL = 'https://api.github.com/repos/rakudo/rakudo';
+constant $NQP_URL        = 'https://github.com/perl6/nqp';
+constant $MOAR_URL       = 'https://github.com/MoarVM/MoarVM';
+
+method irc-to-me (
+    $ where /^ 'ver' \s+ 'https://github.com/' <-[/]>+ '/'
+        $<repo>=<-[/]>+ '/commit/' $<sha>=\S+ $/
+) {
+    Geth::GitHub::Hooks::Preprocessor.new.fetch-version-bump: |(
+        $<repo> eq 'rakudo'
+            ?? ("$RAKUDO_API_URL/commits/$<sha>", $NQP_URL)
+            !! ("$NQP_API_URL/commits/$<sha>",   $MOAR_URL)
+    )
+    andthen "version bump brought in these changes: $_"
+    orelse "Failed to fetch version bump info because reasons";
+}
 
 method irc-started {
     start react {