parse-link ( string -- paragraph-list )

Vocabulary

farkup

Inputs

string

an object

Outputs

paragraph-list

an object

Definition

USING: kernel lists sequences splitting ;

IN: farkup

: parse-link ( string -- paragraph-list )
    rest-slice "]]" split1-slice [
        "|" split1 [ "image:" ?head ] dip swap
        [ [ ] or-simple-title image boa ]
        [ [ parse-paragraph ] or-simple-title link boa ] if
    ] dip [ (parse-paragraph) cons ] [ 1list ] if* ;