Permalink
Browse files

Output U<> in line with the others

  • Loading branch information...
1 parent d073a7d commit 0e406098538ee8b9934d7f847e0d4f124a1ef4d1 @flussence flussence committed Apr 30, 2012
Showing with 5 additions and 2 deletions.
  1. +5 −2 lib/Pod/To/HTML.pm
View
@@ -37,8 +37,11 @@ sub pod2html($pod) is export returns Str {
# samp gets the hard pixelly fonts
' kbd { font-family: "Droid Sans Mono", "Luxi Mono", "Inconsolata", monospace }',
' samp { font-family: "Terminus", "Courier", "Lucida Console", monospace }',
+ # WHATWG HTML frowns on the use of <u> because it looks like a link,
+ # so we make it not look like one.
+ ' u { text-decoration: none }',
# footnote things:
- ' aside { opacity: 0.7 }',
+ ' aside, u { opacity: 0.7 }',
' a[id^="fn-"]:target { background: #ff0 }',
' </style>',
' <link rel="stylesheet" href="http://perlcabal.org/syn/perl.css">',
@@ -295,7 +298,7 @@ multi sub node2inline(Pod::FormattingCode $node) returns Str {
K => 'kbd', #= Keyboard
R => 'var', #= Replaceable
T => 'samp', #= Terminal
- U => 'i', #= Unusual
+ U => 'u', #= Unusual
);
given $node.type {

0 comments on commit 0e40609

Please sign in to comment.