fey.naomi/bird-server
1
0
Fork 0
Code Issues 2 Pull Requests Actions Packages Projects Releases Wiki Activity

fix: don't get all bird sightings for unknown species

Browse Source
This commit is contained in:
Fey Naomi Schrewe 2025-10-03 13:24:47 +02:00
parent 27ae3b6404
commit 7c36ac5c3c
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/ebird.clj
View File

@ -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))