U0 (*@slon_api_follow_fedi)(JsonObject* follow) = NULL;
extern U0 @slon_api_v1_statuses_query(SlonHttpSession* session, JsonArray* status_array);

JsonObject* @slon_accounts_default_relationship_object()
{
    JsonObject* relationship = Json.CreateObject(slon_mem_task);
    relationship->set("following", FALSE, JSON_BOOLEAN);
    relationship->set("showing_reblogs", TRUE, JSON_BOOLEAN);
    relationship->set("notifying", FALSE, JSON_BOOLEAN);
    relationship->set("followed_by", FALSE, JSON_BOOLEAN);
    relationship->set("blocking", FALSE, JSON_BOOLEAN);
    relationship->set("blocked_by", FALSE, JSON_BOOLEAN);
    relationship->set("muting", FALSE, JSON_BOOLEAN);
    relationship->set("muting_notifications", FALSE, JSON_BOOLEAN);
    relationship->set("requested", FALSE, JSON_BOOLEAN);
    relationship->set("domain_blocking", FALSE, JSON_BOOLEAN);
    relationship->set("endorsed", FALSE, JSON_BOOLEAN);
    return relationship;
}

JsonObject* @slon_accounts_create_local_for_remote_actor(SlonHttpSession* session, JsonObject* actor_object, U8* remote_actor, HttpUrl* url)
{
    if (!actor_object || !remote_actor) {
        return SLON_EMPTY_JSON_OBJECT;
    }
    SLON_SCRATCH_BUFFER_AND_REQUEST_JSON
    no_warn request_json;

    U8* id = @slon_api_generate_unique_id(session);
    U8* created_at = @slon_api_timestamp_from_cdate(session, Now);
    JsonObject* account = Json.CreateObject(slon_mem_task);
    account->set("id", id, JSON_STRING);
    account->set("created_at", created_at, JSON_STRING);
    account->set("username", actor_object->@("preferredUsername"), JSON_STRING);
    StrPrint(scratch_buffer, "%s@%s", actor_object->@("preferredUsername"), url->host);
    account->set("acct", scratch_buffer, JSON_STRING);
    account->set("display_name", actor_object->@("name"), JSON_STRING);
    account->set("email", "", JSON_STRING);
    account->set("note", actor_object->@("summary"), JSON_STRING);
    if (actor_object->@("icon")) {
        account->set("avatar", actor_object->o("icon")->@("url"), JSON_STRING);
        account->set("avatar_static", actor_object->o("icon")->@("url"), JSON_STRING);
    } else {
        account->set("avatar", SLON_MISSING_ACCOUNT_AVATAR, JSON_STRING);
        account->set("avatar_static", SLON_MISSING_ACCOUNT_AVATAR, JSON_STRING);
    }
    account->set("header", "data:image/gif;base64,R0lGODlhAQABAAAAACH5BAEKAAEALAAAAAABAAEAAAICTAEAOw==", JSON_STRING);
    account->set("header_static", "data:image/gif;base64,R0lGODlhAQABAAAAACH5BAEKAAEALAAAAAABAAEAAAICTAEAOw==", JSON_STRING);
    account->set("last_status_at", "0", JSON_STRING);
    account->set("followers_count", 0, JSON_NUMBER);
    account->set("following_count", 0, JSON_NUMBER);
    account->set("statuses_count", 0, JSON_NUMBER);
    account->set("locked", FALSE, JSON_BOOLEAN);
    account->set("bot", FALSE, JSON_BOOLEAN);
    account->set("discoverable", FALSE, JSON_BOOLEAN);
    account->set("indexable", FALSE, JSON_BOOLEAN);
    account->set("hide_collections", FALSE, JSON_BOOLEAN);
    account->set("emojis", SLON_EMPTY_JSON_ARRAY, JSON_ARRAY);
    account->set("fields", SLON_EMPTY_JSON_ARRAY, JSON_ARRAY);
    account->set("url", remote_actor, JSON_STRING);
    account->set("remote_actor", remote_actor, JSON_STRING);

    db->a("accounts")->append(account);
    // db->o("statuses")->set(acct->@("id"), Json.CreateArray(slon_mem_task), JSON_ARRAY);
    @slon_db_save_account_to_disk(account);

    @slon_free(session, created_at);
    @slon_free(session, id);
    return account;
}

U0 @slon_api_v1_accounts_follow_request(U8* this_actor, U8* remote_actor)
{
    U8 scratch_buffer[1024];
    StrPrint(scratch_buffer, "%s/follow/%d", this_actor, Now);
    JsonObject* follow_object = Json.CreateObject(slon_mem_task);
    follow_object->set("@context", "https://www.w3.org/ns/activitystreams", JSON_STRING);
    follow_object->set("id", scratch_buffer, JSON_STRING);
    follow_object->set("type", "Follow", JSON_STRING);
    follow_object->set("actor", this_actor, JSON_STRING);
    follow_object->set("object", remote_actor, JSON_STRING);
    if (@slon_api_follow_fedi) {
        @slon_api_follow_fedi(follow_object);
    }
}

U0 @slon_api_v1_accounts_post(SlonHttpSession* session)
{
    if (!@slon_api_authorized(session)) {
        session->status(401);
        return;
    }

    SLON_AUTH_ACCOUNT_ID
    JsonObject* my_acct = @slon_api_account_by_id(account_id);

    I64 i;

    if (2 == 3) {
        // placeholder for other methods
    } else {
        // Work with account :id
        U8* some_account_id = session->path(3);
        JsonObject* acct = @slon_api_account_by_id(some_account_id);
        if (!acct) {
            session->status(404);
            return;
        }
        if (session->path_count() > 5) {
            U8* method = session->path(4);
            if (!StrICmp("follow", method)) {
                if (!acct->@("remote_actor")) {
                    session->status(404);
                    return;
                }
                // add to my following
                if (!db->o("following")->a(my_acct->@("username"))) {
                    db->o("following")->set(my_acct->@("username"), Json.CreateArray(slon_mem_task), JSON_ARRAY);
                }
                db->o("following")->a(my_acct->@("username"))->append(acct->@("remote_actor"), JSON_STRING);
                @slon_db_save_following_to_disk;
                // send Follow request
                @slon_api_v1_accounts_follow_request(db->o("actors")->o((my_acct->@("username")))->@("id"), acct->@("remote_actor"));

                Bool followed_by = FALSE;
                JsonArray* my_followers = db->o("followers")->a(my_acct->@("username"));
                if (my_followers) {
                    for (i = 0; i < my_followers->length; i++) {
                        if (my_followers->@(i) && !StrICmp(my_followers->@(i), acct->@("remote_actor"))) {
                            followed_by = TRUE;
                            break;
                        }
                    }
                }
                JsonObject* relationship = @slon_accounts_default_relationship_object;
                relationship->set("id", acct->@("id"), JSON_STRING);
                relationship->set("following", TRUE, JSON_BOOLEAN);
                relationship->set("followed_by", followed_by, JSON_BOOLEAN);
                session->send(relationship);
                return;
            }
            session->status(404);
        } else {
            session->status(404);
        }
    }
}

U0 @slon_api_v1_accounts_get(SlonHttpSession* session)
{
    SLON_SCRATCH_BUFFER_AND_REQUEST_JSON
    no_warn scratch_buffer;

    I64 i;

    JsonObject* acct = NULL;
    if (!StrICmp("relationships", session->path(3))) {
        if (@slon_api_authorized(session)) {
            JsonArray* relationships = Json.CreateArray(slon_mem_task);
            JsonArray* relationship_of_ids = request_json->@("id");
            JsonObject* target_account = NULL;
            if (relationship_of_ids) {
                for (i = 0; i < relationship_of_ids->length; i++) {
                    target_account = @slon_api_account_by_id(relationship_of_ids->@(i));
                    if (target_account) {
                        Bool followed_by = FALSE;
                        Bool following = FALSE;
                        if (target_account->@("remote_actor")) {
                            JsonObject* my_account = @slon_api_account_by_id(session->auth->@("account_id"));
                            JsonArray* my_followers = db->o("followers")->a(my_account->@("username"));
                            if (my_followers) {
                                for (i = 0; i < my_followers->length; i++) {
                                    if (my_followers->@(i) && !StrICmp(my_followers->@(i), target_account->@("remote_actor"))) {
                                        followed_by = TRUE;
                                        break;
                                    }
                                }
                            }
                            JsonArray* my_following = db->o("following")->a(my_account->@("username"));
                            if (my_following) {
                                for (i = 0; i < my_following->length; i++) {
                                    if (my_following->@(i) && !StrICmp(my_following->@(i), target_account->@("remote_actor"))) {
                                        following = TRUE;
                                        break;
                                    }
                                }
                            }
                        }
                        JsonObject* relationship = @slon_accounts_default_relationship_object;
                        relationship->set("id", target_account->@("id"), JSON_STRING);
                        relationship->set("following", following, JSON_BOOLEAN);
                        relationship->set("followed_by", followed_by, JSON_BOOLEAN);
                        relationships->append(relationship);
                    }
                }
            }

            session->send(relationships);
            return;
        } else {
            session->status(401);
        }
    } else if (!StrICmp("verify_credentials", session->path(3))) {
        if (@slon_api_authorized(session)) {
            SLON_AUTH_ACCOUNT_ID
            acct = @slon_api_account_by_id(account_id);
            if (acct) {
                session->send(acct);
            } else {
                session->status(404);
            }
        } else {
            session->status(401);
        }
    } else {
        // Work with account :id
        U8* some_account_id = session->path(3);
        acct = @slon_api_account_by_id(some_account_id);
        if (!acct) {
            session->status(404);
            return;
        }
        if (session->path_count() > 5) {
            U8* method = session->path(4);
            if (!StrICmp("following", method)) {
                // FIXME: Implement this
                session->send(SLON_EMPTY_JSON_ARRAY);
                return;
            }
            if (!StrICmp("statuses", method)) {
                // Return the Account's Statuses
                @slon_api_v1_statuses_query(session, db->o("statuses")->a(some_account_id));
                return;
            }
            session->status(404);
        } else {
            // Return the Account profile
            JsonObject* profile_object = Json.Clone(acct, slon_mem_task);
            profile_object->unset("source");
            session->send(profile_object);
        }
    }
}

Bool @slon_api_v1_accounts_key_is_boolean(U8* name)
{
    return (!StrICmp(name, "locked") || !StrICmp(name, "bot") || !StrICmp(name, "discoverable") || !StrICmp(name, "hide_collections") || !StrICmp(name, "indexable"));
}

U0 @slon_api_v1_accounts_patch(SlonHttpSession* session)
{
    SLON_SCRATCH_BUFFER_AND_REQUEST_JSON

    JsonObject* acct = NULL;

    if (!StrICmp("update_credentials", session->path(3))) {
        if (@slon_api_authorized(session)) {
            SLON_AUTH_ACCOUNT_ID

            if (!request_json || !request_json->keys) {
                session->status(400);
                return;
            }

            acct = @slon_api_account_by_id(account_id);
            if (!acct) {
                session->status(404);
                return;
            }
            JsonObject* source = acct->@("source");

            I64 fields_attributes_indexes[16];
            JsonKey* update_field_index;
            JsonObject* field_object;

            MemSet(fields_attributes_indexes, NULL, sizeof(I64) * 16);
            JsonArray* fields_array = Json.CreateArray(slon_mem_task);
            SlonCatboxUpload* cb = NULL;
            U8* media_id = NULL;
            U8* media_file_ext = NULL;
            SlonMultipartFile* file = NULL;

            JsonKey* key = request_json->keys;
            while (key) {
                if (!StrICmp("avatar", key->name)) {
                    if (key->type == JSON_NUMBER) {
                        // Write image file to RAM disk
                        file = key->value;
                        media_id = @slon_api_generate_unique_id(session);
                        media_file_ext = StrFind("/", file->content_type) + 1;
                        StrPrint(scratch_buffer, "%s/%s.%s", SLON_MEDIA_PATH, media_id, media_file_ext);
                        FileWrite(scratch_buffer, file->buffer, file->size);
                        @slon_free(session, media_id);
                        // Then, async upload the image file to Catbox
                        cb = CAlloc(sizeof(SlonCatboxUpload), slon_mem_task);
                        cb->key = acct->@("avatar", TRUE);
                        cb->filepath = StrNew(scratch_buffer, slon_mem_task);
                        cb->callback = &@slon_db_actors_update_user;
                        cb->callback_arg = acct;
                        Spawn(&@slon_api_async_upload_to_catbox, cb, "SlonAsyncCatboxUpload");
                    } else {
                        acct->set("avatar", key->value, key->type);
                        acct->set("avatar_static", key->value, key->type);
                    }
                } else if (!StrICmp("header", key->name)) {
                    if (key->type == JSON_NUMBER) {
                        // Write image file to RAM disk
                        file = key->value;
                        media_id = @slon_api_generate_unique_id(session);
                        media_file_ext = StrFind("/", file->content_type) + 1;
                        StrPrint(scratch_buffer, "%s/%s.%s", SLON_MEDIA_PATH, media_id, media_file_ext);
                        FileWrite(scratch_buffer, file->buffer, file->size);
                        @slon_free(session, media_id);
                        // Then, async upload the image file to Catbox
                        cb = CAlloc(sizeof(SlonCatboxUpload), slon_mem_task);
                        cb->key = acct->@("header", TRUE);
                        cb->filepath = StrNew(scratch_buffer, slon_mem_task);
                        cb->callback = &@slon_db_actors_update_user;
                        cb->callback_arg = acct;
                        Spawn(&@slon_api_async_upload_to_catbox, cb, "SlonAsyncCatboxUpload");
                    } else {
                        acct->set("header", key->value, key->type);
                        acct->set("header_static", key->value, key->type);
                    }
                } else if (!String.BeginsWith("fields_attributes", key->name) && !String.BeginsWith("source", key->name)) {
                    if (@slon_api_v1_accounts_key_is_boolean(key->name)) {
                        switch (key->type) {
                        case JSON_STRING:
                            acct->set(key->name, @slon_api_boolean_from_string(key->value), JSON_BOOLEAN);
                            break;
                        default:
                            acct->set(key->name, key->value > 0, JSON_BOOLEAN);
                            break;
                        }
                    } else {
                        acct->set(key->name, key->value, key->type);
                    }
                } else if (String.BeginsWith("source", key->name)) {
                    if (!StrICmp("source[language]", key->name)) {
                        source->set("language", key->value);
                    }
                    if (!StrICmp("source[privacy]", key->name)) {
                        source->set("privacy", key->value);
                    }
                } else if (!StrICmp("fields_attributes", key->name)) {
                    // Get fields data from JSON object
                    AdamLog("let's get fields data from JSON object!!\n");
                    update_field_index = key->value(JsonObject*)->keys;
                    while (update_field_index) {
                        field_object = update_field_index->value;
                        field_object->set("verified_at", NULL, JSON_NULL);
                        AdamLog("before stringify\n");
                        AdamLog("%s\n", Json.Stringify(field_object, slon_mem_task));
                        AdamLog("after stringify\n");
                        fields_array->append(field_object, JSON_OBJECT);
                        update_field_index = update_field_index->next;
                    }
                }
                key = key->next;
            }

            acct->set("fields", fields_array, JSON_ARRAY);
            source->set("fields", acct->@("fields"), JSON_ARRAY);

            @slon_db_actors_update_user(acct);
            session->send(acct);
        } else {
            session->status(401);
        }
    } else {
        session->status(404);
    }
}