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";
+$newlang{"md"} = "Markdown";
Odin::xact {
my $h = $db->selectall_hashref