parse-heading ( state -- state' heading )

Vocabulary

farkup

Inputs

state

an object

Outputs

state'	an object
heading	an object

Definition

USING: combinators kernel sequences ;

IN: farkup

: parse-heading ( state -- state' heading )
    unclip-slice dup count= {
        { 0 [ make-paragraph ] }
        { 1 [ heading1 make-heading ] }
        { 2 [ heading2 make-heading ] }
        { 3 [ heading3 make-heading ] }
        { 4 [ heading4 make-heading ] }
        [ drop heading4 make-heading ]
    } case ;