map-github-pages ( base-url params param-string -- seq )

Vocabulary

github

Inputs

base-url	an object
params	an object
param-string	an object

Outputs

seq

an object

Definition

USING: combinators.short-circuit formatting kernel math
sequences ;

IN: github

: map-github-pages ( base-url params param-string -- seq )
    [ 0 [ dup ] ] 3dip
    [ [ [ [ 1 + ] ] dip ] dip [ pick suffix ] 2curry compose ]
    dip [
        vsprintf append github-get dup
        { [ empty? ] [ "[]" = ] } 1|| [ 2drop f f ] when
    ] curry compose produce nip concat ; inline