github-markup 3.0.2 → 3.0.3
Sign up to get free protection for your applications and to get access to all the features.
- checksums.yaml +4 -4
- data/.travis.yml +1 -7
- data/HISTORY.md +4 -0
- data/github-markup.gemspec +1 -1
- data/lib/github-markup.rb +1 -1
- data/lib/github/commands/pod62html +1 -6
- metadata +2 -32
- data/.gitmodules +0 -3
- data/test/markups/README.pod6 +0 -151
- data/test/markups/README.pod6.html +0 -128
- data/vendor/Pod-To-HTML/LICENSE +0 -201
- data/vendor/Pod-To-HTML/META6.json +0 -20
- data/vendor/Pod-To-HTML/README.md +0 -96
- data/vendor/Pod-To-HTML/README.pod6 +0 -42
- data/vendor/Pod-To-HTML/TODO +0 -5
- data/vendor/Pod-To-HTML/lib/Pod/To/HTML.pm +0 -691
- data/vendor/Pod-To-HTML/resources/examples/01-parse-files.p6 +0 -7
- data/vendor/Pod-To-HTML/resources/examples/README.md +0 -13
- data/vendor/Pod-To-HTML/resources/examples/main.mustache +0 -26
- data/vendor/Pod-To-HTML/resources/examples/render.p6 +0 -17
- data/vendor/Pod-To-HTML/resources/templates/main.mustache +0 -32
- data/vendor/Pod-To-HTML/t/010-basic.t +0 -29
- data/vendor/Pod-To-HTML/t/020-code.t +0 -49
- data/vendor/Pod-To-HTML/t/030-comment.t +0 -15
- data/vendor/Pod-To-HTML/t/040-lists.t +0 -82
- data/vendor/Pod-To-HTML/t/050-format-x-index.t +0 -47
- data/vendor/Pod-To-HTML/t/060-table.t +0 -108
- data/vendor/Pod-To-HTML/t/070-headings.t +0 -45
- data/vendor/Pod-To-HTML/t/075-defn.t +0 -45
- data/vendor/Pod-To-HTML/t/080-lang.t +0 -14
- data/vendor/Pod-To-HTML/t/090-css.t +0 -16
- data/vendor/Pod-To-HTML/t/100-issue-37.t +0 -16
- data/vendor/Pod-To-HTML/t/110-issue-41.t +0 -18
- data/vendor/Pod-To-HTML/t/120-templates.t +0 -42
- data/vendor/Pod-To-HTML/t/templates/main.mustache +0 -33
@@ -1,13 +0,0 @@
|
|
1
|
-
# Some examples for the module.
|
2
|
-
|
3
|
-
Test
|
4
|
-
|
5
|
-
perl6 -I../../lib render.p6
|
6
|
-
|
7
|
-
which uses the local [template `main.mustache`](main.mustache) instead of the default one. Add a pod6 or pm6 file at the end if you want to check a different file.
|
8
|
-
|
9
|
-
Change to the upper dir, and run
|
10
|
-
|
11
|
-
perl6 -Ilib resources/examples/01-parse-files.p6
|
12
|
-
|
13
|
-
for a similar version which uses the same file.
|
@@ -1,26 +0,0 @@
|
|
1
|
-
<!doctype html>
|
2
|
-
<html lang="{{ lang }}">
|
3
|
-
<head>
|
4
|
-
<title>{{ title }}</title>
|
5
|
-
<meta charset="UTF-8" />
|
6
|
-
<style>
|
7
|
-
kbd { font-family: "Droid Sans Mono", "Luxi Mono", "Inconsolata", monospace }
|
8
|
-
samp, code { font-family: "Terminus", "Courier", "Lucida Console", monospace }
|
9
|
-
|
10
|
-
.nested {
|
11
|
-
margin-left: 3em;
|
12
|
-
}
|
13
|
-
aside, u { opacity: 0.7 }
|
14
|
-
a[id^="fn-"]:target { background: #ff0 }
|
15
|
-
</style>
|
16
|
-
</head>
|
17
|
-
<body class="pod">
|
18
|
-
<div id="___top"></div>
|
19
|
-
{{{ header }}}
|
20
|
-
{{# title }}<h1 class='title'>{{ title }}</h1>{{/ title }}
|
21
|
-
{{# subtitle }}<p class='subtitle'>{{ subtitle }}</p>{{/ subtitle }}
|
22
|
-
<div class="pod-body no-toc">
|
23
|
-
{{# body }}{{{ . }}}{{/ body }}
|
24
|
-
</div>
|
25
|
-
</body>
|
26
|
-
</html>
|
@@ -1,17 +0,0 @@
|
|
1
|
-
#!/usr/bin/env perl6
|
2
|
-
|
3
|
-
use v6;
|
4
|
-
use MONKEY-SEE-NO-EVAL;
|
5
|
-
use Pod::To::HTML;
|
6
|
-
|
7
|
-
sub MAIN( $file = "../../README.pod6" ) {
|
8
|
-
my $file-content = $file.IO.slurp;
|
9
|
-
die "No pod here" if not $file-content ~~ /\=begin \s+ pod/;
|
10
|
-
my $pod;
|
11
|
-
try {
|
12
|
-
$pod = EVAL($file-content ~ "\n\$=pod");
|
13
|
-
};
|
14
|
-
die "Pod fails: $!" if $!;
|
15
|
-
my $result = pod2html( $pod, templates => '.' );
|
16
|
-
say $result;
|
17
|
-
}
|
@@ -1,32 +0,0 @@
|
|
1
|
-
<!doctype html>
|
2
|
-
<html lang="{{ lang }}">
|
3
|
-
<head>
|
4
|
-
<title>{{ title }}</title>
|
5
|
-
<meta charset="UTF-8" />
|
6
|
-
<style>
|
7
|
-
kbd { font-family: "Droid Sans Mono", "Luxi Mono", "Inconsolata", monospace }
|
8
|
-
samp { font-family: "Terminus", "Courier", "Lucida Console", monospace }
|
9
|
-
u { text-decoration: none }
|
10
|
-
.nested {
|
11
|
-
margin-left: 3em;
|
12
|
-
}
|
13
|
-
aside, u { opacity: 0.7 }
|
14
|
-
a[id^="fn-"]:target { background: #ff0 }
|
15
|
-
</style>
|
16
|
-
{{# css }}<link rel="stylesheet" href="{{ css }}">{{/ css }}
|
17
|
-
{{# metadata }}{{{ metadata }}}{{/ metadata }}
|
18
|
-
{{{ head }}}
|
19
|
-
</head>
|
20
|
-
<body class="pod">
|
21
|
-
<div id="___top"></div>
|
22
|
-
{{{ header }}}
|
23
|
-
{{# title }}<h1 class='title'>{{ title }}</h1>{{/ title }}
|
24
|
-
{{# subtitle }}<p class='subtitle'>{{ subtitle }}</p>{{/ subtitle }}
|
25
|
-
{{# toc }}{{{ toc }}}{{/ toc }}
|
26
|
-
<div class="pod-body{{^ toc }} no-toc{{/ toc }})">
|
27
|
-
{{# body }}{{{ . }}}{{/ body }}
|
28
|
-
</div>
|
29
|
-
{{# footnotes }}{{{ footnotes }}}{{/ footnotes }}
|
30
|
-
{{{ footer }}}
|
31
|
-
</body>
|
32
|
-
</html>
|
@@ -1,29 +0,0 @@
|
|
1
|
-
use Test; # -*- mode: perl6 -*-
|
2
|
-
use Pod::To::HTML;
|
3
|
-
plan 3;
|
4
|
-
|
5
|
-
# XXX Need a module to walk HTML trees
|
6
|
-
|
7
|
-
=begin foo
|
8
|
-
=end foo
|
9
|
-
|
10
|
-
my $r = node2html $=pod[0];
|
11
|
-
ok $r ~~ ms/'<section>' '<h1>' foo '</h1>' '</section>' /;
|
12
|
-
|
13
|
-
=begin foo
|
14
|
-
some text
|
15
|
-
=end foo
|
16
|
-
|
17
|
-
$r = node2html $=pod[1];
|
18
|
-
ok $r ~~ ms/'<section>' '<h1>' foo '</h1>' '<p>' some text '</p>' '</section>'/;
|
19
|
-
|
20
|
-
=head1 Talking about Perl 6
|
21
|
-
|
22
|
-
if $*PERL.compiler.name eq 'rakudo'
|
23
|
-
and $*PERL.compiler.version before v2018.06 {
|
24
|
-
skip "Your rakudo is too old for this test. Need 2018.06 or newer";
|
25
|
-
}
|
26
|
-
else {
|
27
|
-
$r = node2html $=pod[2];
|
28
|
-
nok $r ~~ m:s/Perl 6/, "no-break space is not converted to other space";
|
29
|
-
}
|
@@ -1,49 +0,0 @@
|
|
1
|
-
use Test;
|
2
|
-
use Pod::To::HTML;
|
3
|
-
plan 3;
|
4
|
-
my $r;
|
5
|
-
|
6
|
-
=begin pod
|
7
|
-
This ordinary paragraph introduces a code block:
|
8
|
-
|
9
|
-
$this = 1 * code('block');
|
10
|
-
$which.is_specified(:by<indenting>);
|
11
|
-
=end pod
|
12
|
-
|
13
|
-
$r = node2html $=pod[0];
|
14
|
-
ok $r ~~ ms[[
|
15
|
-
'<p>' 'This ordinary paragraph introduces a code block:' '</p>'
|
16
|
-
'<pre class="pod-block-code">$this = 1 * code('block');'
|
17
|
-
'$which.is_specified(:by<indenting>);</pre>']];
|
18
|
-
|
19
|
-
=begin pod
|
20
|
-
This is an ordinary paragraph
|
21
|
-
|
22
|
-
While this is not
|
23
|
-
This is a code block
|
24
|
-
|
25
|
-
=head1 Mumble: "mumble"
|
26
|
-
|
27
|
-
Suprisingly, this is not a code block
|
28
|
-
(with fancy indentation too)
|
29
|
-
|
30
|
-
But this is just a text. Again
|
31
|
-
|
32
|
-
=end pod
|
33
|
-
|
34
|
-
$r = node2html $=pod[1];
|
35
|
-
ok $r ~~ ms[['<p>' 'This is an ordinary paragraph' '</p>'
|
36
|
-
'<pre class="pod-block-code">While this is not'
|
37
|
-
'This is a code block</pre>'
|
38
|
-
'<h1 id="Mumble:_"mumble"">' '<a class="u" href="#___top" title="go to top of document">'
|
39
|
-
'Mumble: "mumble"'
|
40
|
-
'</a>' '</h1>'
|
41
|
-
'<p>' 'Suprisingly, this is not a code block (with fancy indentation too)' '</p>'
|
42
|
-
'<p>' 'But this is just a text. Again' '</p>']];
|
43
|
-
|
44
|
-
my %*POD2HTML-CALLBACKS = code => sub (:$node, :&default) {
|
45
|
-
ok $node.contents ~~ /:i code/, 'Callback called';
|
46
|
-
}
|
47
|
-
|
48
|
-
# say $=pod[0].perl;
|
49
|
-
pod2html $=pod[0];
|
@@ -1,82 +0,0 @@
|
|
1
|
-
use Test;
|
2
|
-
use Pod::To::HTML;
|
3
|
-
plan 3;
|
4
|
-
my $r;
|
5
|
-
|
6
|
-
=begin pod
|
7
|
-
The seven suspects are:
|
8
|
-
|
9
|
-
=item Happy
|
10
|
-
=item Dopey
|
11
|
-
=item Sleepy
|
12
|
-
=item Bashful
|
13
|
-
=item Sneezy
|
14
|
-
=item Grumpy
|
15
|
-
=item Keyser Soze
|
16
|
-
=end pod
|
17
|
-
|
18
|
-
$r = pod2html $=pod[0];
|
19
|
-
ok $r ~~ ms[[
|
20
|
-
'<p>' 'The seven suspects are:' '</p>'
|
21
|
-
'<ul>'
|
22
|
-
'<li>' '<p>' Happy '</p>' '</li>'
|
23
|
-
'<li>' '<p>' Dopey '</p>' '</li>'
|
24
|
-
'<li>' '<p>' Sleepy '</p>' '</li>'
|
25
|
-
'<li>' '<p>' Bashful '</p>' '</li>'
|
26
|
-
'<li>' '<p>' Sneezy '</p>' '</li>'
|
27
|
-
'<li>' '<p>' Grumpy '</p>' '</li>'
|
28
|
-
'<li>' '<p>' Keyser Soze '</p>' '</li>'
|
29
|
-
'</ul>'
|
30
|
-
]];
|
31
|
-
|
32
|
-
=begin pod
|
33
|
-
=item1 Animal
|
34
|
-
=item2 Vertebrate
|
35
|
-
=item2 Invertebrate
|
36
|
-
|
37
|
-
=item1 Phase
|
38
|
-
=item2 Solid
|
39
|
-
=item2 Liquid
|
40
|
-
=item2 Gas
|
41
|
-
=item2 Chocolate
|
42
|
-
=end pod
|
43
|
-
|
44
|
-
$r = pod2html $=pod[1];
|
45
|
-
ok $r ~~ ms[[
|
46
|
-
'<ul>'
|
47
|
-
'<li>' '<p>' Animal '</p>' '</li>'
|
48
|
-
'<ul>'
|
49
|
-
'<li>' '<p>' Vertebrate '</p>' '</li>'
|
50
|
-
'<li>' '<p>' Invertebrate '</p>' '</li>'
|
51
|
-
'</ul>'
|
52
|
-
'<li>' '<p>' Phase '</p>' '</li>'
|
53
|
-
'<ul>'
|
54
|
-
'<li>' '<p>' Solid '</p>' '</li>'
|
55
|
-
'<li>' '<p>' Liquid '</p>' '</li>'
|
56
|
-
'<li>' '<p>' Gas '</p>' '</li>'
|
57
|
-
'<li>' '<p>' Chocolate '</p>' '</li>'
|
58
|
-
'</ul>'
|
59
|
-
'</ul>'
|
60
|
-
]];
|
61
|
-
|
62
|
-
=begin pod
|
63
|
-
=comment CORRECT...
|
64
|
-
=begin item1
|
65
|
-
The choices are:
|
66
|
-
=end item1
|
67
|
-
=item2 Liberty
|
68
|
-
=item2 Death
|
69
|
-
=item2 Beer
|
70
|
-
=end pod
|
71
|
-
|
72
|
-
$r = pod2html $=pod[2];
|
73
|
-
ok $r ~~ ms[[
|
74
|
-
'<ul>'
|
75
|
-
'<li>' '<p>' 'The choices are:' '</p>' '</li>'
|
76
|
-
'<ul>'
|
77
|
-
'<li>' '<p>' Liberty '</p>' '</li>'
|
78
|
-
'<li>' '<p>' Death '</p>' '</li>'
|
79
|
-
'<li>' '<p>' Beer '</p>' '</li>'
|
80
|
-
'</ul>'
|
81
|
-
'</ul>'
|
82
|
-
]];
|
@@ -1,47 +0,0 @@
|
|
1
|
-
use Test;
|
2
|
-
use Pod::To::HTML;
|
3
|
-
plan 3;
|
4
|
-
|
5
|
-
=begin pod
|
6
|
-
X<|behavior> L<http://www.doesnt.get.rendered.com>
|
7
|
-
=end pod
|
8
|
-
|
9
|
-
my $r = pod2html $=pod, :url({ $_ });
|
10
|
-
ok $r ~~ m/'href="http://www.doesnt.get.rendered.com"'/;
|
11
|
-
|
12
|
-
=begin pod
|
13
|
-
|
14
|
-
When indexing X<an item> the X<X format> is used.
|
15
|
-
|
16
|
-
It is possible to index X<an item> in repeated places.
|
17
|
-
=end pod
|
18
|
-
|
19
|
-
$r = node2html $=pod[1];
|
20
|
-
|
21
|
-
like $r, /
|
22
|
-
'When indexing'
|
23
|
-
\s* '<a name="index-entry-an_item">'
|
24
|
-
\s* '<span ' .* '>an item</span>'
|
25
|
-
.+ 'the'
|
26
|
-
.+ '<span ' .+ '>X format</span>'
|
27
|
-
.+ 'to index'
|
28
|
-
.+ '<span' .+ '>an item</span>'
|
29
|
-
.+ 'in repeated places.'
|
30
|
-
/, 'X format in text';
|
31
|
-
|
32
|
-
=begin pod
|
33
|
-
|
34
|
-
When indexing X<an item|Define an item> another text can be used for the index.
|
35
|
-
|
36
|
-
It is possible to index X<hierarchical items|defining, a term>with hierarchical levels.
|
37
|
-
|
38
|
-
And then index the X<same place|Same; Place> with different index entries.
|
39
|
-
=end pod
|
40
|
-
|
41
|
-
$r = node2html $=pod[2];
|
42
|
-
like $r, /
|
43
|
-
'When indexing <a name="index-entry-Define_an_item-an_item">'
|
44
|
-
.* '<span' .+ '>an item</span>'
|
45
|
-
.+ 'to index ' .+ 'index-entry-defining__a_term-hierarchical_items' .+ '<span' .+ '>hierarchical items</span>'
|
46
|
-
.+ 'index the ' .+ '>same place</span>'
|
47
|
-
/, 'Text with indexed items correct';
|
@@ -1,108 +0,0 @@
|
|
1
|
-
use Test; # -*- mode: perl6 -*-
|
2
|
-
use Pod::To::HTML;
|
3
|
-
|
4
|
-
plan 4;
|
5
|
-
|
6
|
-
my $r;
|
7
|
-
|
8
|
-
=table
|
9
|
-
col1 col2
|
10
|
-
|
11
|
-
$r = pod2html $=pod[0];
|
12
|
-
#say $r.perl;
|
13
|
-
ok $r ~~ ms[[
|
14
|
-
'<table class="pod-table">'
|
15
|
-
'<tbody>'
|
16
|
-
'<tr>'
|
17
|
-
'<td>' col1 '</td>'
|
18
|
-
'<td>' col2 '</td>'
|
19
|
-
'</tr>'
|
20
|
-
'</tbody>'
|
21
|
-
'</table>'
|
22
|
-
]];
|
23
|
-
|
24
|
-
=table
|
25
|
-
H1 H2
|
26
|
-
-- --
|
27
|
-
col1 col2
|
28
|
-
|
29
|
-
$r = pod2html $=pod[1];
|
30
|
-
#say $r.perl;
|
31
|
-
ok $r ~~ ms[[
|
32
|
-
'<table class="pod-table">'
|
33
|
-
'<thead>'
|
34
|
-
'<tr>'
|
35
|
-
'<th>' H1 '</th>'
|
36
|
-
'<th>' H2 '</th>'
|
37
|
-
'</tr>'
|
38
|
-
'</thead>'
|
39
|
-
'<tbody>'
|
40
|
-
'<tr>'
|
41
|
-
'<td>' col1 '</td>'
|
42
|
-
'<td>' col2 '</td>'
|
43
|
-
'</tr>'
|
44
|
-
'</tbody>'
|
45
|
-
'</table>'
|
46
|
-
]];
|
47
|
-
|
48
|
-
|
49
|
-
=begin table :class<sorttable>
|
50
|
-
|
51
|
-
H1 H2
|
52
|
-
-- --
|
53
|
-
col1 col2
|
54
|
-
|
55
|
-
col1 col2
|
56
|
-
|
57
|
-
=end table
|
58
|
-
|
59
|
-
$r = pod2html $=pod[2];
|
60
|
-
#say $r.perl;
|
61
|
-
ok $r ~~ ms[[
|
62
|
-
'<table class="pod-table sorttable">'
|
63
|
-
'<thead>'
|
64
|
-
'<tr>'
|
65
|
-
'<th>' H1 '</th>'
|
66
|
-
'<th>' H2 '</th>'
|
67
|
-
'</tr>'
|
68
|
-
'</thead>'
|
69
|
-
'<tbody>'
|
70
|
-
'<tr>'
|
71
|
-
'<td>' col1 '</td>'
|
72
|
-
'<td>' col2 '</td>'
|
73
|
-
'</tr>'
|
74
|
-
'<tr>'
|
75
|
-
'<td>' col1 '</td>'
|
76
|
-
'<td>' col2 '</td>'
|
77
|
-
'</tr>'
|
78
|
-
'</tbody>'
|
79
|
-
'</table>'
|
80
|
-
]];
|
81
|
-
|
82
|
-
=begin table :caption<Test Caption>
|
83
|
-
|
84
|
-
H1 H2
|
85
|
-
-- --
|
86
|
-
col1 col2
|
87
|
-
|
88
|
-
=end table
|
89
|
-
|
90
|
-
$r = pod2html $=pod[3];
|
91
|
-
# say $r;
|
92
|
-
ok $r ~~ ms[[
|
93
|
-
'<table class="pod-table">'
|
94
|
-
'<caption>' 'Test Caption' '</caption>'
|
95
|
-
'<thead>'
|
96
|
-
'<tr>'
|
97
|
-
'<th>' H1 '</th>'
|
98
|
-
'<th>' H2 '</th>'
|
99
|
-
'</tr>'
|
100
|
-
'</thead>'
|
101
|
-
'<tbody>'
|
102
|
-
'<tr>'
|
103
|
-
'<td>' col1 '</td>'
|
104
|
-
'<td>' col2 '</td>'
|
105
|
-
'</tr>'
|
106
|
-
'</tbody>'
|
107
|
-
'</table>'
|
108
|
-
]];
|
@@ -1,45 +0,0 @@
|
|
1
|
-
use v6;
|
2
|
-
use Test;
|
3
|
-
use Pod::To::HTML;
|
4
|
-
|
5
|
-
plan 3;
|
6
|
-
|
7
|
-
=begin pod
|
8
|
-
|
9
|
-
=head1 Heading 1
|
10
|
-
|
11
|
-
=head2 Heading 1.1
|
12
|
-
|
13
|
-
=head2 Heading 1.2
|
14
|
-
|
15
|
-
=head1 Heading 2
|
16
|
-
|
17
|
-
=head2 Heading 2.1
|
18
|
-
|
19
|
-
=head2 Heading 2.2
|
20
|
-
|
21
|
-
=head2 <a href="/routine/message#class_Exception">(Exception) method message</a>
|
22
|
-
|
23
|
-
=head3 Heading 2.2.1
|
24
|
-
|
25
|
-
=head3 X<Heading> 2.2.2
|
26
|
-
|
27
|
-
=head1 Heading C<3>
|
28
|
-
|
29
|
-
=end pod
|
30
|
-
|
31
|
-
my $html = pod2html $=pod;
|
32
|
-
|
33
|
-
#put $html;
|
34
|
-
|
35
|
-
($html ~~ m:g/ ('2.2.2') /);
|
36
|
-
|
37
|
-
is so ($0 && $1 && $2), True, 'hierarchical numbering';
|
38
|
-
|
39
|
-
($html ~~ m:g/ 'href="#Heading_3"' /);
|
40
|
-
|
41
|
-
is so $0, True, 'link down to heading';
|
42
|
-
|
43
|
-
($html ~~ m:g/ ('name="index-entry-Heading"') /);
|
44
|
-
|
45
|
-
is so ($0 || $1), True, 'no X<> anchors in ToC';
|