github-org-or-user ( org/user -- orgs/users )

Vocabulary

github

Inputs

org/user

an object

Outputs

orgs/users

an object

Definition

USING: accessors assocs combinators kernel sequences ;

IN: github

: github-org-or-user ( org/user -- orgs/users )
    get-user "type" of {
        { "User" [ "users" ] }
        { "Organization" [ "orgs" ] }
        [
            type>> "Unknown github username type: " prepend
            throw
        ]
    } case ;