unescape content of title, remove commented out old code

finanalyst · finanalyst · commit 945f894312b2 · 2018-12-11T11:27:39.000+08:00
diff --git a/lib/Pod/To/HTML.pm b/lib/Pod/To/HTML.pm
@@ -199,56 +199,7 @@ sub pod2html(
         :@body,
         :footnotes( do-footnotes ),
         :$footer).hash
-    );
-
-=comment out
-    my $prelude = qq:to/END/;
-        <!doctype html>
-        <html lang="$lang">
-        <head>
-          <title>{ $title_html }</title>
-          <meta charset="UTF-8" />
-          <style>
-            /* code gets the browser-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 }
-            /* 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 }
-            .nested \{
-                margin-left: 3em;
-            }
-            // footnote things:
-            aside, u \{ opacity: 0.7 }
-            a[id^="fn-"]:target \{ background: #ff0 }
-          </style>
-          { qq|<link rel="stylesheet" href="$css-url">| if $css-url }
-          { do-metadata() // () }
-          $head
-        </head>
-        <body class="pod">
-        <div id="___top"></div>
-        $header
-        END
-=comment out
-    return join(qq{\n},
-        $prelude,
-        ( $title.defined ?? "<h1 class='title'>{$title_html}</h1>"
-                         !! () ),
-        ( $subtitle.defined  ?? "<p class='subtitle'>{$subtitle}</p>"
-                         !! () ),
-        ( my $ToC := do-toc($pod) // () ),
-        '<div class="pod-body', ($ToC ?? '' !! ' no-toc'), '">',@body,'</div>',
-        do-footnotes(),
-        $footer,
-        '</body>',
-        "</html>\n"
-    );
-
+    )
 }
 
 #| Returns accumulated metadata as a string of C«<meta>» tags
diff --git a/resources/templates/main.mustache b/resources/templates/main.mustache
@@ -1,7 +1,7 @@
 <!doctype html>
 <html lang="{{ lang }}">
     <head>
-        <title>{{ title }}</title>
+        <title>{{{ title }}}</title>
         <meta charset="UTF-8" />
         <style>
         kbd { font-family: "Droid Sans Mono", "Luxi Mono", "Inconsolata", monospace }
@@ -20,8 +20,8 @@
     <body class="pod">
     <div id="___top"></div>
     {{{ header }}}
-    {{# title }}<h1 class='title'>{{ title }}</h1>{{/ title }}
-    {{# subtitle }}<p class='subtitle'>{{ subtitle }}</p>{{/ subtitle }}
+    {{# title }}<h1 class='title'>{{{ title }}}</h1>{{/ title }}
+    {{# subtitle }}<p class='subtitle'>{{{ subtitle }}}</p>{{/ subtitle }}
     {{# toc }}{{{ toc }}}{{/ toc }}
     <div class="pod-body{{^ toc }} no-toc{{/ toc }})">
     {{# body }}{{{ . }}}{{/ body }}
diff --git a/t/070-headings.t b/t/070-headings.t
@@ -30,7 +30,7 @@ plan 3;
 
 my $html = pod2html $=pod;
 
-#put $html;
+put $html;
 
 ($html ~~ m:g/ ('2.2.2') /);
 
