Retrieves some public repository information via SWI-Prolog.

githubapi.pl

:- module(githubapi, [list_repos/3]).

:- use_module(library(http/http_client)).
:- use_module(library(http/http_json)).

process_repo(J) :-
    J = json(D),
    format(
        '~w \n\t~w \n\tlanguage: ~w \n\tclone url: ~w \n',
        [D.name, D.description, D.language, D.clone_url]
    ).

list_repos(Username, Page, PerPage) :-
    format(
        atom(Url),
        'https://api.github.com/users/~w/repos?sort=pushed&page=~w&per_page=~w',
        [Username, Page, PerPage]
    ),
    http_get(Url, Data, []),
    length(Data, Len),
    format('Got ~w items\n', [Len]),
    maplist(process_repo, Data).