@@ -199,56 +199,7 @@ sub pod2html(
199
199
: @ body ,
200
200
: footnotes( do-footnotes ),
201
201
: $ footer ). hash
202
- );
203
-
204
- = comment out
205
- my $prelude = qq:to/END/;
206
- <!doctype html>
207
- <html lang="$lang">
208
- <head>
209
- <title>{ $title_html }</title>
210
- <meta charset="UTF-8" />
211
- <style>
212
- /* code gets the browser-default font
213
- * kbd gets a slightly less common monospace font
214
- * samp gets the hard pixelly fonts
215
- */
216
- kbd \{ font-family: "Droid Sans Mono", "Luxi Mono", "Inconsolata", monospace }
217
- samp \{ font-family: "Terminus", "Courier", "Lucida Console", monospace }
218
- /* WHATWG HTML frowns on the use of <u> because it looks like a link,
219
- * so we make it not look like one.
220
- */
221
- u \{ text-decoration: none }
222
- .nested \{
223
- margin-left: 3em;
224
- }
225
- // footnote things:
226
- aside, u \{ opacity: 0.7 }
227
- a[id^="fn-"]:target \{ background: #ff0 }
228
- </style>
229
- { qq|<link rel="stylesheet" href="$css-url">| if $css-url }
230
- { do-metadata() // () }
231
- $head
232
- </head>
233
- <body class="pod">
234
- <div id="___top"></div>
235
- $header
236
- END
237
- = comment out
238
- return join(qq{\n},
239
- $prelude,
240
- ( $title.defined ?? "<h1 class='title'>{$title_html}</h1>"
241
- !! () ),
242
- ( $subtitle.defined ?? "<p class='subtitle'>{$subtitle}</p>"
243
- !! () ),
244
- ( my $ToC := do-toc($pod) // () ),
245
- '<div class="pod-body', ($ToC ?? '' !! ' no-toc'), '">',@body,'</div>',
246
- do-footnotes(),
247
- $footer,
248
- '</body>',
249
- "</html>\n"
250
- );
251
-
202
+ )
252
203
}
253
204
254
205
# | Returns accumulated metadata as a string of C«<meta>» tags
0 commit comments