;; Likes service — inter-service data queries

(defquery is-liked (&key user-id target-type target-slug target-id)
  "Check if a user has liked a specific target."
  (let ((result (service "likes" "is-liked"
                  :user-id user-id :target-type target-type
                  :target-slug target-slug :target-id target-id)))
    {"liked" result}))

(defquery liked-slugs (&key user-id target-type)
  "Return all liked target_slugs for a user + target_type."
  (service "likes" "liked-slugs"
    :user-id user-id :target-type target-type))

(defquery liked-ids (&key user-id target-type)
  "Return all liked target_ids for a user + target_type."
  (service "likes" "liked-ids"
    :user-id user-id :target-type target-type))