db_queens_list <- function(db, colony_id = NULL) {
  api_get(db, "/v1/queens", list(colony_id = colony_id))
}

db_queens_get <- function(db, id) {
  api_get_one(db, paste0("/v1/queens/", id))
}

db_queens_insert <- function(db, colony_id, year = NA, breed = NA,
                             origin_colony_id = NA, marked_color = NA,
                             notes = NA, introduced_at = NA) {
  result <- api_post(db, "/v1/queens", list(
    colony_id = colony_id,
    year = year,
    breed = breed,
    origin_colony_id = origin_colony_id,
    marked_color = marked_color,
    notes = notes,
    introduced_at = introduced_at
  ))
  result$id
}

db_queens_update <- function(db, id, colony_id, year = NA, breed = NA,
                             origin_colony_id = NA, marked_color = NA,
                             notes = NA, introduced_at = NA, superseded_at = NA) {
  api_put(db, paste0("/v1/queens/", id), list(
    colony_id = colony_id,
    year = year,
    breed = breed,
    origin_colony_id = origin_colony_id,
    marked_color = marked_color,
    notes = notes,
    introduced_at = introduced_at,
    superseded_at = superseded_at
  ))
}

db_queens_supersede <- function(db, id) {
  api_post(db, paste0("/v1/queens/", id, "/supersede"))
}

db_queens_delete <- function(db, id) {
  api_delete(db, paste0("/v1/queens/", id))
}