generate-qualified-index ( index -- )

Vocabulary

help.html

Inputs

index

an object

Outputs

None

Definition

USING: arrays assocs io.encodings.binary io.files kernel
sequences serialize splitting ;

IN: help.html

: generate-qualified-index ( index -- )
    H{ } clone [
        [ push-at ] curry [
            [
                over "," split1 nip ".html" ?tail drop
                [ swap ":" glue 2array ]
            ]
        ] dip [ bi ] curry compose assoc-each
    ] keep [ swap ] { } assoc-map-as "qualified.idx" binary
    [ serialize ] with-file-writer ;