From cc54be8f965321b9e7f80a0fa21c76f40dad0abc Mon Sep 17 00:00:00 2001
From: Ryan Voots <ryan@voots.org>
Date: Tue, 9 Jan 2018 20:06:02 -0500
Subject: [PATCH] Add cobol and a few others

---
 lib/App/Model/Languages.pm | 7 +++++--
 templates/editor.html      | 4 +++-
 2 files changed, 8 insertions(+), 3 deletions(-)

diff --git a/lib/App/Model/Languages.pm b/lib/App/Model/Languages.pm
index d30adcb..e2b8e41 100644
--- a/lib/App/Model/Languages.pm
+++ b/lib/App/Model/Languages.pm
@@ -7,12 +7,15 @@ use Mojo::Base '-base';
 
 my @langs = (
     {name => "perl5.26",  mode => "perl", description => "Perl 5.26"},
-    {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"},
+    {name => "tcc",       mode => "c_cpp",    description => "TCC 0.9.27"},
     {name => "text",      mode => "text", description => "Plain text"},
+    {name => "text",      mode => "text", description => "----------"},
+    {name => "cobol",     mode => "cobol", description => "GnuCOBOL 2.2"},
+    {name => "perl",      mode => "perl", description => "Perl 5 (blead/git)"},
+    {name => "deparse",   mode => "perl", description => "Deparsed Perl"},
     {name => "evalall",   mode => "perl", description => "Perl (EvalAll)"},
     {name => "perl5.24",  mode => "perl", description => "Perl 5.24"},
     {name => "perl5.22",  mode => "perl", description => "Perl 5.22"},
diff --git a/templates/editor.html b/templates/editor.html
index db4b7fb..aa16edd 100755
--- a/templates/editor.html
+++ b/templates/editor.html
@@ -10,7 +10,7 @@
     }
 
     #paste {
-      font-family: 'mono'
+      font-family: 'monospace'
     }
 
     html, body, #content {
@@ -232,6 +232,8 @@
     var channel = $(location).attr('hash');
     if (channel == "#perl6") {
      $("#language").val("perl6").change();
+    } else if (channel == "#cobol") {
+     $("#language").val("cobol").change();
     }
 
     editor.session.setMode("ace/mode/perl");