From: Steinar H. Gunderson <sesse@debian.org>
Date: Mon, 25 Dec 2006 16:05:46 +0000 (+0100)
Subject: Implement access keys.
X-Git-Url: https://git.sesse.net/?p=pr0n;a=commitdiff_plain;h=b218e9760de4e6b42e79510866d43f0e9c675609;ds=sidebyside

Implement access keys.
---

diff --git a/perl/Sesse/pr0n/Common.pm b/perl/Sesse/pr0n/Common.pm
index 1c864fc..e3b3332 100644
--- a/perl/Sesse/pr0n/Common.pm
+++ b/perl/Sesse/pr0n/Common.pm
@@ -134,8 +134,12 @@ sub get_query_string {
 }
 
 sub print_link {
-	my ($r, $title, $baseurl, $param, $defparam) = @_;
-	my $str = "<a href=\"$baseurl" . get_query_string($param, $defparam) . "\">$title</a>";
+	my ($r, $title, $baseurl, $param, $defparam, $accesskey) = @_;
+	my $str = "<a href=\"$baseurl" . get_query_string($param, $defparam) . "\"";
+	if (defined($accesskey) && length($accesskey) == 1) {
+		$str .= " accesskey=\"$accesskey\"";
+	}
+	$str .= ">$title</a>";
 	$r->print($str);
 }
 
diff --git a/perl/Sesse/pr0n/Index.pm b/perl/Sesse/pr0n/Index.pm
index 88affa1..5aa3138 100644
--- a/perl/Sesse/pr0n/Index.pm
+++ b/perl/Sesse/pr0n/Index.pm
@@ -437,7 +437,8 @@ sub print_nextprev {
 		my %newsettings = %$settings;
 		$newsettings{'start'} = $newstart;
 		chomp (my $title = Sesse::pr0n::Templates::fetch_template($r, 'prevpage'));
-		Sesse::pr0n::Common::print_link($r, "$title ($newstart-$newend)\n", "/$event/", \%newsettings, $defsettings);
+		chomp (my $accesskey = Sesse::pr0n::Templates::fetch_template($r, 'prevaccesskey'));
+		Sesse::pr0n::Common::print_link($r, "$title ($newstart-$newend)\n", "/$event/", \%newsettings, $defsettings, $accesskey);
 	}
 
 	# This
@@ -455,7 +456,8 @@ sub print_nextprev {
 		my %newsettings = %$settings;
 		$newsettings{'start'} = $newstart;
 		chomp (my $title = Sesse::pr0n::Templates::fetch_template($r, 'nextpage'));
-		Sesse::pr0n::Common::print_link($r, "$title ($newstart-$newend)", "/$event/", \%newsettings, $defsettings);
+		chomp (my $accesskey = Sesse::pr0n::Templates::fetch_template($r, 'nextaccesskey'));
+		Sesse::pr0n::Common::print_link($r, "$title ($newstart-$newend)", "/$event/", \%newsettings, $defsettings, $accesskey);
 	}
 
 	$r->print("    </p>\n");
diff --git a/templates/default/footer b/templates/default/footer
index 71655f5..8b312a6 100644
--- a/templates/default/footer
+++ b/templates/default/footer
@@ -2,7 +2,7 @@
     <p class="footer">pr0n %VERSION%,
       &copy; 2004-2006 <a href="http://www.sesse.net/">Steinar H. Gunderson</a>. All images
       are copyright their respective owners; please see the
-      <a href="/faq.html">FAQ</a> for more information.</p>
+      <a href="/faq.html" accesskey="5">FAQ</a> for more information.</p>
   </body>
 </html>
 
diff --git a/templates/default/nextaccesskey b/templates/default/nextaccesskey
new file mode 100644
index 0000000..8ba3a16
--- /dev/null
+++ b/templates/default/nextaccesskey
@@ -0,0 +1 @@
+n
diff --git a/templates/default/prevaccesskey b/templates/default/prevaccesskey
new file mode 100644
index 0000000..1a9cc2b
--- /dev/null
+++ b/templates/default/prevaccesskey
@@ -0,0 +1 @@
+p
diff --git a/templates/skoyen.bilder.knatten.com/footer b/templates/skoyen.bilder.knatten.com/footer
index 71655f5..8b312a6 100644
--- a/templates/skoyen.bilder.knatten.com/footer
+++ b/templates/skoyen.bilder.knatten.com/footer
@@ -2,7 +2,7 @@
     <p class="footer">pr0n %VERSION%,
       &copy; 2004-2006 <a href="http://www.sesse.net/">Steinar H. Gunderson</a>. All images
       are copyright their respective owners; please see the
-      <a href="/faq.html">FAQ</a> for more information.</p>
+      <a href="/faq.html" accesskey="5">FAQ</a> for more information.</p>
   </body>
 </html>
 
diff --git a/templates/skoyen.bildereks.knatten.com/footer b/templates/skoyen.bildereks.knatten.com/footer
index 71655f5..8b312a6 100644
--- a/templates/skoyen.bildereks.knatten.com/footer
+++ b/templates/skoyen.bildereks.knatten.com/footer
@@ -2,7 +2,7 @@
     <p class="footer">pr0n %VERSION%,
       &copy; 2004-2006 <a href="http://www.sesse.net/">Steinar H. Gunderson</a>. All images
       are copyright their respective owners; please see the
-      <a href="/faq.html">FAQ</a> for more information.</p>
+      <a href="/faq.html" accesskey="5">FAQ</a> for more information.</p>
   </body>
 </html>