sort-repos-by-time ( seq name quot: ( obj1 obj2 -- <=> ) -- seq' )

Vocabulary

github

Inputs

seq	an object
name	an object
quot	a quotation with stack effect ( obj1 obj2 -- <=> )

Outputs

seq'

an object

Definition

USING: assocs calendar.parser kernel sorting ;

IN: github

: sort-repos-by-time
    ( seq name quot: ( obj1 obj2 -- <=> ) -- seq' )
    [ [ of rfc3339>timestamp ] curry ] dip [ [ bi@ ] curry ] dip
    compose sort-with ; inline