read-embedded-language ( n string opening -- n string embedded-language )

Vocabulary

modern.html

Inputs

n	an object
string	an object
opening	an object

Outputs

n	an object
string	an object
embedded-language	an object

Definition

USING: combinators.extras kernel modern.slices sequences strings
;

IN: modern.html

: read-embedded-language
    ( n string opening -- n string embedded-language )
    "%" expect-and-span >string
    [ take-tag-name >string ] dip-1up append
    [ "%>" slice-til-string [ >string ] bi@ ] dip-2up
    <embedded-language> ;