use v6.d;
use ProcessedPod;
use RenderPod::Templating;
use RenderPod::Exceptions;

class X::ProcessedPod::HTML::InvalidCSS::NoSpec is Exception {
    method message() {
        "If :css-type is supplied to processor method, so must :css-src"
    }
}
class X::ProcessedPod::HTML::InvalidCSS::BadSource is Exception {
    has $.fn;
    method message() {
        "$.fn does not exist as a text file"
    }
}
class X::ProcessedPod::HTML::InvalidCSS::BadType is Exception {
    has $.css-type;
    method message() {
        "Only 'load' or 'link' acceptable, got '$.css-type'"
    }
}
class X::ProcessedPod::HTML::BadFavicon is Exception {
    has $.favicon-src;
    method message() {
        "The favicon source is unavailable, got '$.favicon-src'"
    }
}
# class variables as they used during object instantiation.
our $camelia-svg = %?RESOURCES<Camelia.svg>.slurp;
our $default-css-text = '<style>' ~ %?RESOURCES<pod.css>.slurp ~ '</style>';
our $camelia-ico = %?RESOURCES<camelia-ico.bin>.slurp;

class Pod::To::HTML2 is ProcessedPod {
    # needed for HTML rendering
    has $.def-ext is rw;

    # Only needed for legacy P2HTML
    has $!head = '';
    method head () is rw {
        Proxy.new(
            FETCH => -> $ { $!head },
            STORE => -> $, Str:D $head {
                $!head = $head;
                self.modify-templates( self.templater.make-template-from-string(
                    %( :$head,  )
                    )
                );
            }
        )
    }
    has $!css = '';
    method css () is rw {
        Proxy.new(
            FETCH => -> $ { $!css },
            STORE => -> $, Str:D $css {
                $!css = $css;
                self.modify-templates(
                    self.templater.make-template-from-string( %( :css("\<link rel=\"stylesheet\" href=\"$css>\">"), ) )
                )
            }
        )
    }

    #| render is a class method that is called by the raku compiler
    method render($pod-tree) {
        state $rv;
        return $rv with $rv;
        # Some implementations of raku/perl6 called the classes render method twice,
        # so it's necessary to prevent the same work being done repeatedly
        my $pp = self.new;
        $pp.pod-file.name = $*PROGRAM-NAME;
        # takes the pod tree and wraps it in HTML.
        $pp.process-pod($pod-tree);
        # Outputs a string that describes a html page
        $rv = $pp.source-wrap;
        # and store response so its not re-calculated
    }

    #| the constructor for this object
    submethod TWEAK(
            :$templates,
            :$css-type,
            :$css-src,
            :$css-url,
            :$favicon-src,
            :$highlight-code,
            :$head,
            Bool :$min-top = False,
            Str :$type = 'rakuclosure'
                    ) {
        my Bool $t-loaded = False;
        $!def-ext = 'html';
        my $css-text = $default-css-text;
        my $favicon-bin = $camelia-ico;
        my $favicon;
        self.custom = <Image>;
        self.highlight-code = $highlight-code with $highlight-code;
        with $templates {
            self.templates($templates);
            $t-loaded = True;
        }
        # specified templates over-ride templates in a file in CWD
        if ! $t-loaded and 'html-templates.raku'.IO.f {
            self.templates('html-templates.raku');
            $t-loaded = True;
        }
        with $css-type {
            X::ProcessedPod::HTML::InvalidCSS::NoSpec.new.throw and return Nil without $css-src;
            given $css-type {
                when 'load' {
                    X::ProcessedPod::HTML::InvalidCSS::BadSource.new(:fn($css-src)).throw and return Nil
                    unless $css-src.IO.f;
                    $css-text = '<style>' ~ $css-src.IO.slurp ~ '</style>';
                }
                when 'link' {
                    $css-text = '<link rel="stylesheet"  type="text/css" href="' ~ $css-src ~ '" media="screen" title="default" />'
                }
                default {
                    X::ProcessedPod::HTML::InvalidCSS::BadType.new(:$css-type).throw;
                    return Nil
                }
            }
        }
        with $favicon-src {
            X::ProcessedPod::HTML::BadFavicon.new(:$favicon-src).throw
            unless $favicon-src.IO.f;
            $favicon-bin = $favicon-src.IO.slurp;
        }
        $favicon = '<link href="data:image/x-icon;base64,'
                ~ $favicon-bin
                ~ '" rel="icon" type="image/x-icon" />';
        self.templates(self.html-templates(:$type))
            unless $t-loaded;
        # modify the templates to include css, camelia, and favicon settings
        # unless turned off by min-top
        self.modify-templates( self.templater.make-template-from-string(
                %( :css($css-text), :$favicon, :camelia-img($camelia-svg) )  )
            ) unless $min-top;
        self.css = $_ with $css-url;
        self.head = $_ with $head;
    }

    multi method html-templates(:type($) where *eq 'crotmp') {
        %(
            :_templater<CroTemplater>,
            :raw('<&HTML( .contents )>'),
            :escaped('<.contents>'),
            :block-code(q:to/TMPL/),
                <?.<highlight-contents>><.highlight-contents></?>
                <!.<highlight-contents>><pre class="pod-block-code">
                    <.contents>
                </pre>
                </!>
                TMPL
            :camelia-img(q:to/TMPL/),
                <:sub camelia-img>
                <camelia /></:>
                TMPL
            :css(q:to/TMPL/),
                <:sub css>
                <style>debug</style></:>
                TMPL
            :head(q:to/TMPL/),
                <:sub head>
                </:>
                TMPL
            :favicon(q:to/TMPL/),
				<:sub favicon>
                <meta>NoIcon</meta></:>
                TMPL
            :comment(q:to/TMPL/),
				<&HTML('')>
                TMPL
            :declarator(q:to/TMPL/),
				<a name="<.target>"></a>
                <article>
                    <code class="pod-code-inline"><.code></code>
                    <.contents>
                </article>
                TMPL
            :defn(q:to/TMPL/),
				<dt>
                <.term>
                </dt><dd>
                <.contents>
                </dd>
                TMPL
            :dlist-end('</dl>'),
            :dlist-start('<dl>'),
            :favicon(''),
            :footnotes(q:to/TMPL/),
				<?{.notes.elems > 0}><div id="_Footnotes" class="footnotes">
                    <ul>
                    <@notes><li id="<.fnTarget>" >
                        <span class="footnote-number"><.fnNumber></span>
                    <.text>
                    <a class="footnote" href="#<.retTarget>" >« Back »</a></li>
                    </@>
                    </ul></div>
                </?>
                <!{.notes.elems > 0}>Has no elements</!>
                TMPL
            :format-b('<strong><.contents><strong>'),
            :format-c('<code><.contents><code>'),
            :format-i('<em><.contents><em>'),
            :format-k('<kbd><.contents><kbd>'),
            :format-l(q:to/TMPL/),
				<a href="<?.internal>#</?><.target><?.local>.html</?>">
                <.contents>
                </a>
                TMPL
            :format-n(q:to/TMPL/),
				<sup><a name="<.retTarget>" href="#<.fnTarget>">[<.fnNumber>]</a></sup>
                TMPL
            :format-p(q:to/TMPL/),
				<div><pre>
                <.contents>
                </pre></div>
                TMPL
            :format-r('<var><.contents><var>'),
            :format-t('<samp><.contents><samp>'),
            :format-u('<u><.contents><u>'),
            :format-x('<a name="<.target>"></a><?.text><span class="glossary-entry"><.text></span></?>'),
            :glossary(q:to/TMPL/),
				<?.glossary><div id="_Glossary" class="glossary">
                <div class="glossary-caption">Glossary</div>
                <div class="glossary-defn header">Term explained</div><div class="header glossary-place">In section</div>
                    <@glossary>
                        <div class="glossary-defn">
                        <.text>
                        </div>
                        <@refs>
                          <div class="glossary-place"><a href="#<.target>"><?.<place>><.place></?></a></div>
                        </@>
                    </@>
                </div>
                </?>
                TMPL
            :heading(q:to/TMPL/),
				<:sub heading($level=1,:$close

False


                <<&heading(.level)> id="<.target>">
                <a href="#<.top>" class="u" title="go to top of document">
                <.text>
                </a>
                <<&heading(.level,:close)>>
                TMPL
            :image(q:to/TMPL/),
				<img src="<.src>"<?.width> width="<.width>"</?><?.height> height="<.height>"</?><?.alt> alt="<.alt>"</?>>')
                TMPL
            :item('<li><.contents></li>'),
            :list(q:to/TMPL/),
				<ul>
                    <@items>
                    <.item>
                    </@>
                </ul>
                TMPL
            :meta(q:to/TMPL/),
				<@meta: $m>
                    <meta name="<$m.name>" value="<$m.value>" />
                </@>
                TMPL
            :named(q:to/TMPL/),
				<:sub heading($level=1,:$close

root

Highlighting

ExtractPod

React

=begin React :component<HeaderCol> :id<menu> 
=para L<Documentation|/doc/introduction>
=para L<Modules| /mods>
=para L<Examples| file:../examples/index.podlite>
=para L<Download |file:../download/index.podlite>
=para L<About|file:../about/index.podlite>
=para 🔍 K<⌘K>/K<ctrl-K>
=end React


=begin React :component<HeaderCol> :id<footer>  
=begin nested :!nested
=item1 B<Language>
    =item2 L<Get started|file:../getting-started/getting-started.podlite>
    =item2 L<Why Raku?|/doc/language/faq#Why-should-I-learn-Raku-What's-so-great-about-it>
    =item2 L<Try Raku|https://glot.io/new/raku>
    =item2 L<Raku cheat sheet|https://github.com/Raku/mu/blob/master/docs/Perl6/Cheatsheet/cheatsheet.txt>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<Raku on Exercism|https://exercism.org/tracks/raku>
    =item2 L<Wikipedia|https://en.wikipedia.org/wiki/Raku_(programming_language)>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=end nested
=begin nested :!nested

=item1 B<L<Documentation|/doc>>
    =item2 L<Getting started, Migration guides from other languages, & Tutorials | file:../doc/introduction.podlite>
    =item2 L<Language References|file:../doc/reference.podlite>
    =item2 L<Type Reference| file:../doc/types.podlite>
    =item2 L<Miscellaneous| file:../doc/miscellaneous.podlite>
    =item2 L<FAQs (Frequently Asked Questions)|/doc/language/faq>
    =item2 L<Community|/doc/language/community>
    =item2 L<The list of all documents|file:../doc/index.podlite>

=item1 B<Resources>
    =item2 L<The Raku Guide|https://raku.guide/>
    =item2 L<Books |https://perl6book.com/>
    =item2 L<Rosetta Code | https://www.raku.org/community/rosettacode>

=end nested
=begin nested :!nested

=item1 B<Resoures>
    =item2 L<Download | file:../download/index.podlite>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=item1 B<Learning>
    =item2 L<The Raku Guide|https://raku.guide/>
    =item2 L<Wikibook |https://en.wikibooks.org/wiki/Raku_Programming>
    =item2 L<Books |https://perl6book.com/>
    =item2 L<Rosetta Code | https://www.raku.org/community/rosettacode>
    =item2 L<Learn Raku in Y minutes|https://learnxinyminutes.com/docs/raku/>
    =item2 L<Golfing |https://github.com/AlexDaniel/raku-golf-cheatsheet>
=end nested
=begin nested :!nested

=item1 B<Explore>
    =item2 L<Raku Blog Aggregator|https://planet.raku.org/>
    =item2 L<Rakudo Weekly|https://rakudoweekly.blog/>
    =item2 L<The Weekly Challenge |https://perlweeklychallenge.org/>
    =item2 L<Raku Advent Calendar|https://raku-advent.blog/>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=end nested
=end React


=begin React :component<CookieConsent> :id<CookieConsent> :buttonCaption("Got it!")
=para
This website uses cookies for analytics.
=end React


HTML2

Raku::Pod::Render v3.7.6

Authors

License

Dependencies

Test Dependencies

Provides

Documentation