db_lists_get_all <- function(db, include_closed = FALSE) {
  api_get(db, "/v1/lists", list(include_closed = include_closed))
}

db_lists_insert <- function(db, name, type, t_shirt_size = NA, notes = NA) {
  api_post(db, "/v1/lists", list(
    name = name,
    type = type,
    t_shirt_size = t_shirt_size,
    notes = notes
  ))
}

db_lists_close <- function(db, id) {
  api_post(db, paste0("/v1/lists/", id, "/close"))
}

db_lists_reopen <- function(db, id) {
  api_post(db, paste0("/v1/lists/", id, "/reopen"))
}

db_lists_delete <- function(db, id) {
  api_delete(db, paste0("/v1/lists/", id))
}