Handbook
Glossary
json-page ( url -- page )
Vocabulary
reddit.private
Inputs
url
an
object
Outputs
page
an
object
Definition
USING:
assocs
combinators
http.client
json
kernel
urls
;
IN:
reddit.private
:
json-page
( url -- page )
>url
dup
http-get
nip
json>
"data"
of
{
[
"children"
of
]
[
"before"
of
[
f
]
when-json-null
]
[
"after"
of
[
f
]
when-json-null
]
}
cleave
\
page
boa
;