parse-colors ( lines -- assoc )

Vocabulary

colors.private

Inputs

lines

an object

Outputs

assoc

an object

Definition

USING: ascii assocs sequences splitting ;

IN: colors.private

: parse-colors ( lines -- assoc )
    [ "!" head? ] reject [
        [ blank? ] split-when harvest 3 cut "-" join suffix
        parse-line
    ] H{ } map>assoc ;