listing-sort-by ( seq quot: ( elt -- key ) -- sortedseq )

Vocabulary

http.server.static

Inputs

seq	an object
quot	a quotation with stack effect ( elt -- key )

Outputs

sortedseq

an object

Definition

USING: kernel sequences sorting ;

IN: http.server.static

: listing-sort-by ( seq quot: ( elt -- key ) -- sortedseq )
    sort-by sort-asc? [ reverse ] unless ; inline