summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--application/libraries/contrib/process-geshi-css.pl26
1 files changed, 26 insertions, 0 deletions
diff --git a/application/libraries/contrib/process-geshi-css.pl b/application/libraries/contrib/process-geshi-css.pl
new file mode 100644
index 000000000..dbf76c294
--- /dev/null
+++ b/application/libraries/contrib/process-geshi-css.pl
@@ -0,0 +1,26 @@
+#!/usr/bin/perl
+use warnings;
+use strict;
+
+open INPUT, "<", "geshi.css" or die $!;
+
+my $last="";
+
+while (<INPUT>) {
+ my $line = $_;
+ my ($lang, $rest) = split / /;
+ $lang =~ s/\.//;
+ $lang =~ s/^_+//;
+ chomp $lang;
+
+ next if ($lang eq "");
+
+ if ($lang ne $last) {
+ $last = $lang;
+ unlink "paste-$lang.css";
+ print STDERR "processing $lang\n";
+ }
+ open OUT, ">>", "paste-$lang.css";
+ print OUT "$line";
+ close OUT;
+}