bluesky-create-session ( -- session )

Vocabulary

bluesky

Inputs

None

Outputs

session

an object

Definition

USING: hashtables http.json kernel namespaces.extras sequences ;

IN: bluesky

: bluesky-create-session ( -- session )
    bluesky-identifier bluesky-password 2required
    [ [ [ "identifier" ] ] dip [ ] curry compose { } like ] dip
    [ [ "password" ] ] dip [ ] curry compose { } like [ ] 2curry
    { } like
    parse-hashtable
    "https://bsky.social/xrpc/com.atproto.server.createSession"
    http-post-json nip ;