Permalink
Browse files

Add varying monospace fonts as suggested by spec

  • Loading branch information...
1 parent 3a7498f commit 682a1e62e8e9e5f774b44915327c32db13f08aaa @flussence flussence committed Aug 28, 2011
Showing with 7 additions and 0 deletions.
  1. +7 −0 lib/Pod/To/HTML.pm
View
@@ -19,6 +19,13 @@ sub pod2html($pod) is export returns Str {
'<head>',
' <title>' ~ $title_html ~ '</title>',
' <meta charset="UTF-8" />',
+ ' <style>',
+ # code gets a default font
+ # kbd gets a slightly less common monospace font
+ # samp gets the hard pixelly fonts
+ ' kbd { font-family: "Droid Sans Mono", "Luxi Mono", "Inconsolata", monospace }',
+ ' samp { font-family: "Terminus", "Courier", "Lucida Console", monospace }',
+ ' </style>',
' <link rel="stylesheet" href="http://perlcabal.org/syn/perl.css">',
( do-metadata() // () ),
'</head>',

0 comments on commit 682a1e6

Please sign in to comment.