bin/populate-lang-table, mason/pastebin/%show: Segregate `highlight' languages.

[odin-cgi] / bin / populate-lang-table

diff --git a/bin/populate-lang-table b/bin/populate-lang-table
index a5b6beeaf61e7d6cea764c41813cfdda9bd93346..407a940c0b40afa8a64516b01f6bd07e1f816c6e 100755 (executable)
--- a/bin/populate-lang-table
+++ b/bin/populate-lang-table
@@ -9,11 +9,11 @@ my %newlang, %oldlang;
 open my $fh, "-|", "highlight", "-p" or die "highlight: $!";
 while (<$fh>) {
   my ($descr, $lang) = /^(.*\S)\s*:\s*(\S+)(?:\s.*|)$/;
-  next unless defined $lang;
-  $newlang{$lang} = $descr;
+  next if !defined $lang or $lang eq "txt";
+  $newlang{"hl:$lang"} = $descr;
 }
 close $fh or die "close highlight: $! $?";
-$newlang{"txt"} //= "Plain text";
+$newlang{"txt"} = "Plain text";
 
 Odin::xact {
   my $h = $db->selectall_hashref