~/bin contents

[dotfiles.git] / bin / bin / texinavfix.pl

diff --git a/bin/bin/texinavfix.pl b/bin/bin/texinavfix.pl
new file mode 100755 (executable)
index 0000000..b82a85e
--- /dev/null
+++ b/bin/bin/texinavfix.pl
@@ -0,0 +1,31 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+
+my %rels;
+my $header = 0;
+my $printed = 0;
+
+while(<STDIN>){
+    ($rels{$2} = $1) if /^<link href="([^#]*)[^"]*" rel="([^"]*)" title/;
+    if(/^<div class="header">$/){
+        print "$_<center><p>";
+        if(defined $rels{"prev"}){
+            print "<a href=\"$rels{'prev'}\">[&lt;&lt;&lt;]</a>";
+        };
+        if(defined $rels{"up"}){
+            print "<a href=\"$rels{'up'}\">[^^^]</a>";
+        };
+        if(defined $rels{"next"}){
+            print "<a href=\"$rels{'next'}\">[&gt;&gt;&gt;]</a>";
+        };
+        $header++;
+    };
+    if($header && /^<.div>$/){
+        print "</p></center>$_";
+        $header--;
+    };
+    next if $header;
+    print;
+};