X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/ccc4981ff62e695908a9855041b9669800a733ed..3301a8a999962dee1aa9a6e6c32e3a72e8367f6c:/common.inc.plp

diff --git a/common.inc.plp b/common.inc.plp
index cd218ef..7935a8e 100644
--- a/common.inc.plp
+++ b/common.inc.plp
@@ -105,6 +105,10 @@ sub Html {
 	ref $_ eq 'ARRAY' or $_ = [$_]
 		for grep {$_} $meta->{raw}, $meta->{description}, $meta->{keywords};
 
+	# document headers before output
+	$header{content_type} = "text/html; charset=$meta->{charset}";
+	unshift @{ $meta->{raw} }, stylesheet($meta->{stylesheet});
+
 	# optional amends
 	push @{ $meta->{raw} }, (
 		'<!--[if lte IE 6]><style> .help dl.legend dt {margin:0 0 1px} </style><![endif]-->',
@@ -116,7 +120,6 @@ sub Html {
 	) if $meta->{keys};
 
 	# leading output
-	$header{content_type} = "text/html; charset=$meta->{charset}";
 	say '<!DOCTYPE html>';
 	say '<html lang="en">';
 	say '';
@@ -129,7 +132,6 @@ sub Html {
 		for join(', ', @{ $meta->{keywords} }) || ();
 	say '<meta name="viewport" content="width=device-width, initial-scale=1">';
 	say '<link rel="icon" type="image/png" href="/clip.png">';
-	say for stylesheet($meta->{stylesheet});
 	say for map { @{$_} } $meta->{raw} || ();
 	say '<meta name="robots" content="noindex">' if $Dev;
 	say '</head>';
@@ -159,10 +161,18 @@ sub Html {
 	<a href="http://www.fsf.org/licensing/licenses/agpl-3.0.html" rel="license copyright"
 	 title="Licensed under the GNU Affero General Public License, version 3">AGPLv3</a>
 EOT
-		say sprintf 'â¢ %.3fs', Time::HiRes::tv_interval($Time) if $Dev;
+		say sprintf 'â¢ %.3fs', Time::HiRes::tv_interval($Time) if $Dev and $Time;
 		say '</p>';
 		say '';
 		say '</html>';
 	};
 }
 
+sub showlink {
+	my ($title, $href, $selected) = @_;
+	return sprintf(
+		$selected ? '<strong>%s</strong>' : '<a href="%2$s">%s</a>',
+		EscapeHTML($title), EscapeHTML($href)
+	);
+}
+
