unit module TinyMD; role TinyMD::Grammar { token term:sym { 'markdown' \h* '{' ~ '}' } token markdown-body { \s* * \s* } proto token block { * } token block:sym

{ ^^ \h* <[-*_]> ** 3..99 \h* \n+ } token block:sym

{ ^^ $=('#' ** 1..6) \h+ $=\N+ \n* } token block:sym { ^^ '```' $=\N* \n $=.*? ^^ '```' \n* } token block:sym { [ ^^ [ ' ' ** 4 | \t ] $=\N+ \n* ]+ } token block:sym { [ ^^ \h* '>' \h* $=\N+ \n* ]+ } token block:sym

=\N+ \n* ]+ } token block:sym

=\N+ \n* ]+ } # token block:sym { [ ^^ > $=\N+ \n* ]+ } token block:sym { [ ^^ > $=[ <-[\n}]>+ ] \n* ]+ } token block-stop { \h* [ '}' | <[-*_]>**3..99 | '#' | '>' | <[-*+]> \h | \d+ '.' \h | ' ' ** 4 | \t | '```' ] } # token block-stop { \h* [ <[-*_]>**3..99 | '#' | '>' | <[-*+]> \h | \d+ '.' \h | ' ' ** 4 | \t | '```' ] } } role TinyMD::Actions { method term:sym($/) { my $html = $.made; # Check if we are running under the modern Raku grammar (RakuAST) if self.^name.starts-with('Raku::') { use experimental :rakuast; make RakuAST::StrLiteral.new($html); } else { # Legacy QAST fallback for older Rakudo versions use QAST:from; make QAST::SVal.new( :value($html) ); } } method markdown-body($/) { make $.map(*.made).join("\n\n") } method block:sym

($/) { make "

" } method block:sym

($/) { make ".chars}>" ~ $.&inline ~ ".chars}>" } method block:sym($/) { make "

.trim ?? " class=\"language-{$.trim}\"" !! "") ~ ">\n" ~ $.&htmlscape ~ "

" } method block:sym($/) { make "

\n" ~ $.join("\n").&htmlscape ~ "\n

" } method block:sym($/) { make "

\n" ~ $.map({"
" ~ &.inline ~ "
"}).join("\n") ~ "\n

" } method block:sym

.map({"

" ~ .&inline ~ "

"}).join("\n") ~ "\n

.map({"

" ~ .&inline ~ "

"}).join("\n") ~ "\n

($/) { make "

\n " ~ $.join("\n").&inline ~ "\n

" } sub htmlscape($str) { $str.trans([ '<' , '>' , '&' ] => [ '<', '>', '&' ]) } sub inline($str) { $str.subst(/ \! \[ (.*?) \] $ (.*?) $ /, -> $/ { " $\"$0\"$ " }, :g) # Images .subst(/ \[ (.*?) \] $ (.*?) $ /, -> $/ { "{$0}" }, :g) # Links .subst(/ \*\* (.*?) \*\* | __ (.*?) __ /, -> $/ { "{ $0 || $1 }" }, :g) # bold .subst(/ \* (.*?) \* | _ (.*?) _ /, -> $/ { "{ $0 || $1 }" }, :g) # italic .subst(/ (\`+) \h* (.+?) \h* $0 /, -> $/ { "" ~ $1.&htmlscape ~ "" }, :g) # code } } use Slangify TinyMD::Grammar, TinyMD::Actions;

Untitled