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 [
        '[
            over "," split1 nip ".html" ?tail drop
            [ swap ":" glue 2array ] [ _ push-at ] bi
        ] assoc-each
    ] keep [ swap ] { } assoc-map-as "qualified.idx" binary
    [ serialize ] with-file-writer ;