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.
Files changed (35) hide show
  1. checksums.yaml +4 -4
  2. data/.travis.yml +1 -7
  3. data/HISTORY.md +4 -0
  4. data/github-markup.gemspec +1 -1
  5. data/lib/github-markup.rb +1 -1
  6. data/lib/github/commands/pod62html +1 -6
  7. metadata +2 -32
  8. data/.gitmodules +0 -3
  9. data/test/markups/README.pod6 +0 -151
  10. data/test/markups/README.pod6.html +0 -128
  11. data/vendor/Pod-To-HTML/LICENSE +0 -201
  12. data/vendor/Pod-To-HTML/META6.json +0 -20
  13. data/vendor/Pod-To-HTML/README.md +0 -96
  14. data/vendor/Pod-To-HTML/README.pod6 +0 -42
  15. data/vendor/Pod-To-HTML/TODO +0 -5
  16. data/vendor/Pod-To-HTML/lib/Pod/To/HTML.pm +0 -691
  17. data/vendor/Pod-To-HTML/resources/examples/01-parse-files.p6 +0 -7
  18. data/vendor/Pod-To-HTML/resources/examples/README.md +0 -13
  19. data/vendor/Pod-To-HTML/resources/examples/main.mustache +0 -26
  20. data/vendor/Pod-To-HTML/resources/examples/render.p6 +0 -17
  21. data/vendor/Pod-To-HTML/resources/templates/main.mustache +0 -32
  22. data/vendor/Pod-To-HTML/t/010-basic.t +0 -29
  23. data/vendor/Pod-To-HTML/t/020-code.t +0 -49
  24. data/vendor/Pod-To-HTML/t/030-comment.t +0 -15
  25. data/vendor/Pod-To-HTML/t/040-lists.t +0 -82
  26. data/vendor/Pod-To-HTML/t/050-format-x-index.t +0 -47
  27. data/vendor/Pod-To-HTML/t/060-table.t +0 -108
  28. data/vendor/Pod-To-HTML/t/070-headings.t +0 -45
  29. data/vendor/Pod-To-HTML/t/075-defn.t +0 -45
  30. data/vendor/Pod-To-HTML/t/080-lang.t +0 -14
  31. data/vendor/Pod-To-HTML/t/090-css.t +0 -16
  32. data/vendor/Pod-To-HTML/t/100-issue-37.t +0 -16
  33. data/vendor/Pod-To-HTML/t/110-issue-41.t +0 -18
  34. data/vendor/Pod-To-HTML/t/120-templates.t +0 -42
  35. data/vendor/Pod-To-HTML/t/templates/main.mustache +0 -33
@@ -1,7 +0,0 @@
1
- use v6;
2
- use Pod::To::HTML;
3
-
4
- put Pod::To::HTML.render('README.pod6'.IO, head-fields => '<style>a { color: black }</style>', title => 'README.pod6');
5
-
6
-
7
-
@@ -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(&#39;block&#39;);'
17
- '$which.is_specified(:by&lt;indenting&gt;);</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:_&quot;mumble&quot;">' '<a class="u" href="#___top" title="go to top of document">'
39
- 'Mumble: &quot;mumble&quot;'
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,15 +0,0 @@
1
- use Test;
2
- use Pod::To::HTML;
3
- plan 1;
4
- my $r;
5
-
6
- =begin pod
7
- =for comment
8
- foo foo not rendered
9
- bla bla bla
10
-
11
- This isn't a comment
12
- =end pod
13
-
14
- $r = node2html $=pod[0];
15
- ok $r ~~ ms/ ^ '<p>' 'This isn&#39;t a comment' '</p>' $ /;
@@ -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';