/
perldoc.html.ep
96 lines (96 loc) · 2.63 KB
/
perldoc.html.ep
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
<!doctype html><html>
<head>
<title><%= $title %></title>
%= stylesheet '/css/prettify-mojo.css'
%= javascript '/js/prettify.js'
%= content_for 'header'
%= stylesheet begin
a { color: inherit }
a:hover { color: #2a2a2a }
a img { border: 0 }
body {
background-color: #f5f6f8;
color: #445555;
font: 0.9em 'Helvetica Neue', 'Helvetica', sans-serif;
font-weight: normal;
line-height: 1.5;
margin: 0;
}
h1, h2, h3 {
color: #2a2a2a;
font-size: 1.5em;
margin: 0;
}
h1 a, h2 a, h3 a { text-decoration: none }
pre {
background-color: #eee;
background: url(<%= url_for '/mojolicious-pinstripe.gif' %>);
-moz-border-radius: 5px;
border-radius: 5px;
color: #eee;
font-family: 'Menlo', 'Monaco', Courier, monospace !important;
text-align: left;
text-shadow: #333 0 1px 0;
padding-bottom: 1.5em;
padding-top: 1.5em;
white-space: pre-wrap;
}
#footer {
padding-top: 1em;
text-align: center;
}
#perldoc {
background-color: #fff;
-moz-border-radius-bottomleft: 5px;
border-bottom-left-radius: 5px;
-moz-border-radius-bottomright: 5px;
border-bottom-right-radius: 5px;
-moz-box-shadow: 0px 0px 2px #ccc;
-webkit-box-shadow: 0px 0px 2px #ccc;
box-shadow: 0px 0px 2px #ccc;
margin-left: 5em;
margin-right: 5em;
padding: 3em;
padding-top: 7em;
}
#perldoc > ul:first-of-type a { text-decoration: none }
#wrapperlicious {
max-width: 1000px;
margin: 0 auto;
}
% end
</head>
<body onload="prettyPrint()">
%= content_for 'mojobar'
% my $link = begin
%= link_to shift, shift, class => "mojoscroll"
% end
<div id="wrapperlicious">
<div id="perldoc">
<h1><a id="toc">TABLE OF CONTENTS</a></h1>
<ul>
% for my $section (@$sections) {
<li>
%= $link->(splice @$section, 0, 2)
% if (@$section) {
<ul>
% while (@$section) {
<li>
%= $link->(splice @$section, 0, 2)
</li>
% }
</ul>
% }
</li>
% }
</ul>
%= content_for 'perldoc'
</div>
</div>
<div id="footer">
%= link_to 'http://mojolicio.us' => begin
%= image '/mojolicious-black.png', alt => 'Mojolicious logo'
% end
</div>
</body>
</html>