sort-orders ( -- CO-N CO-M CO-S ) (original) (raw)

sort-orders ( -- CO-N CO-M CO-S )

Vocabulary
http.server.static

Inputs
None

Outputs

CO-N	an object
CO-M	an object
CO-S	an object

Definition

USING: kernel sequences ;

IN: http.server.static

: sort-orders ( -- CO-N CO-M CO-S )
"N" "M" "S" sort-column [
[ drop "?C=" "&O=" surround ] [ ?toggle-sort-order ] 2bi
append
] curry tri@ ;