From 7c36ac5c3c8002567fff62210850a7d49b6e7725 Mon Sep 17 00:00:00 2001 From: Fey Naomi Schrewe Date: Fri, 3 Oct 2025 13:24:47 +0200 Subject: [PATCH] fix: don't get all bird sightings for unknown species --- src/ebird.clj | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/src/ebird.clj b/src/ebird.clj index 6bd68e2..e4b5060 100644 --- a/src/ebird.clj +++ b/src/ebird.clj @@ -36,9 +36,13 @@ (defn get-recent ([lat lng] (call-api "data/obs/geo/recent" {"lat" lat "lng" lng "dist" 50})) ([species] (get-recent species latitude longitude)) - ([species lat lng] - (call-api (str "data/obs/geo/recent/" (get-code species)) - {"lat" lat "lng" lng "dist" 50}))) + ([species lat lng] + (let [code (get-code species)] + (if code + (call-api (str "data/obs/geo/recent/" code) + {"lat" lat "lng" lng "dist" 50}) + [])))) + (defn summarise-recent [recent] (reduce (fn [acc obs] {:bird-count (+ (or 1 (:how-many obs)) (:bird-count acc))