Permalink
Browse files

add some basic CSS. Closes #8

  • Loading branch information...
1 parent b041329 commit 38b12096de2c7cbf77a1e9c754cc816322dd4af5 @moritz moritz committed Aug 28, 2012
Showing with 12 additions and 1 deletion.
  1. +6 −0 html/style.css
  2. +6 −1 htmlify.pl
View
@@ -0,0 +1,6 @@
+pre {
+ background-color: #f4f4f8;
+ border: 1px solid #ededf2;
+ padding: 0.6ex;
+}
+
View
@@ -27,9 +27,14 @@
my $tg;
my %methods-by-type;
my $footer = footer-html;
+my $head = q[
+<link rel="icon" href="/favicon.ico" type="favicon.ico" />
+<link rel="stylesheet" type="text/css" href="/style.css" media="screen" title="default" />
+];
+
sub p2h($pod) {
- pod2html($pod, :url(&url-munge), :$footer);
+ pod2html($pod, :url(&url-munge), :$footer, :$head);
}
sub pod-gist(Pod::Block $pod, $level = 0) {

0 comments on commit 38b1209

Please sign in to comment.