From 12c5fb28395a629e789223ec1873173b9df41b6d Mon Sep 17 00:00:00 2001
From: Ryan Voots <ryan@voots.org>
Date: Mon, 27 Nov 2017 20:18:45 -0500
Subject: [PATCH] Setup perl6 better

---
 app.cfg                    | 1 +
 lib/App/Model/Languages.pm | 3 ++-
 templates/editor.html      | 5 +++++
 3 files changed, 8 insertions(+), 1 deletion(-)

diff --git a/app.cfg b/app.cfg
index 4008313..2f9b7c8 100644
--- a/app.cfg
+++ b/app.cfg
@@ -39,6 +39,7 @@ protocol="perlbot"
 
 [announce.channels]
 "localhost:perlbot:#perl"="Freenode #perl"
+"localhost:perlbot:#perl6"="Freenode #perl6"
 "localhost:perlbot:#web"="Freenode #web"
 "localhost:perlbot:#web-social"="Freenode #web-social"
 "localhost:perlbot:#perlcafe"="Freenode #perlcafe"
diff --git a/lib/App/Model/Languages.pm b/lib/App/Model/Languages.pm
index bc9662b..d30adcb 100644
--- a/lib/App/Model/Languages.pm
+++ b/lib/App/Model/Languages.pm
@@ -7,7 +7,8 @@ use Mojo::Base '-base';
 
 my @langs = (
     {name => "perl5.26",  mode => "perl", description => "Perl 5.26"},
-    {name => "perl",      mode => "perl", description => "Perl (blead/git)"},
+    {name => "perl",      mode => "perl", description => "Perl 5 (blead/git)"},
+    {name => "perl6",     mode => "perl", description => "Rakudo Star / Perl 6"},
     {name => "deparse",   mode => "perl", description => "Deparsed Perl"},
     {name => "ruby",      mode => "ruby", description => "Ruby (2.1)"},
     {name => "javascript", mode => "javascript", description => "Javascript/Node.js"},
diff --git a/templates/editor.html b/templates/editor.html
index 8fe99a7..276ae92 100755
--- a/templates/editor.html
+++ b/templates/editor.html
@@ -222,6 +222,11 @@
       console.log("language: ", language);
       editor.session.setMode("ace/mode/" + language);
     });
+    
+    var channel = $(location).attr('hash');
+    if (channel == "#perl6") {
+     $("#language").val("perl6").change();
+    }
 
     editor.session.setMode("ace/mode/perl");