]> Sergey Matveev's repositories - dotfiles.git/blobdiff - bin/bin/texinavfix.pl
Huge tmux-fzf simplification with files quoting
[dotfiles.git] / bin / bin / texinavfix.pl
index b82a85e7e34ddd09313b3951dc1c6a605ffa6644..e14d808fcc7690d370a1b9a827092deafbd06a78 100755 (executable)
@@ -9,16 +9,16 @@ my $printed = 0;
 
 while(<STDIN>){
     ($rels{$2} = $1) if /^<link href="([^#]*)[^"]*" rel="([^"]*)" title/;
-    if(/^<div class="header">$/){
+    if(/<div class="header">$/){
         print "$_<center><p>";
         if(defined $rels{"prev"}){
-            print "<a href=\"$rels{'prev'}\">[&lt;&lt;&lt;]</a>";
+            print "<a href=\"$rels{'prev'}\" accesskey=\"p\" rel=\"prev\">[&lt;&lt;&lt;]</a>";
         };
         if(defined $rels{"up"}){
-            print "<a href=\"$rels{'up'}\">[^^^]</a>";
+            print "<a href=\"$rels{'up'}\" accesskey=\"u\" rel=\"up\">[^^^]</a>";
         };
         if(defined $rels{"next"}){
-            print "<a href=\"$rels{'next'}\">[&gt;&gt;&gt;]</a>";
+            print "<a href=\"$rels{'next'}\" accesskey=\"n\" rel=\"next\">[&gt;&gt;&gt;]</a>";
         };
         $header++;
     };