Created
September 28, 2016 16:42
-
-
Save timo/58996f10e6334fcab124f86b510b8fc2 to your computer and use it in GitHub Desktop.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
diff --git a/synopsebot.p6 b/synopsebot.p6 | |
index 1f95a16..6e30fe4 100755 | |
--- a/synopsebot.p6 | |
+++ b/synopsebot.p6 | |
@@ -32,7 +32,7 @@ class SynopsesBot { | |
} | |
method info:sym<Snn> ($/) { | |
- return unless $<line> < 9999; | |
+ return unless $<entry> or $<line> < 9999; | |
my $syn = $<subsyn> ?? "$<syn>/$<subsyn>" !! $<syn>; | |
my $name = $<line> ?? "line_" ~ $<line> !! $<entry>.trans(" " => "_"); | |
$e.msg("Link: http://design.perl6.org/$syn.html#$name"); | |
@@ -52,14 +52,13 @@ class SynopsesBot { | |
my $bot = Net::IRC::Bot.new( | |
server => "irc.freenode.net", | |
port => 6667, | |
- channels => ["#duff"], | |
+ channels => ["#perl6", "#moarvm", "#perl6-dev", "#perl6-release"], | |
- nick => "jsdbot", | |
- username => "jsdbot", | |
- name => "blame PerlJam", | |
+ nick => "synopsebot6", | |
+ username => "synopsebot6", | |
+ name => "i link to perl6 design docs", | |
modules => ( SynopsesBot.new ), | |
- :debug | |
); | |
$bot.run(); | |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment