map-github-pages-json ( base-url params param-string -- jsonlines )


Vocabulary
github

Inputs
base-urlan object
paramsan object
param-stringan object


Outputs
jsonlinesan object


Definition
USING: formatting kernel math sequences ;

IN: github

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