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

8
src/ebird.clj
View File

@ -37,8 +37,12 @@
([lat lng] (call-api "data/obs/geo/recent" {"lat" lat "lng" lng "dist" 50})) ([lat lng] (call-api "data/obs/geo/recent" {"lat" lat "lng" lng "dist" 50}))
([species] (get-recent species latitude longitude)) ([species] (get-recent species latitude longitude))
([species lat lng] ([species lat lng]
(call-api (str "data/obs/geo/recent/" (get-code species)) (let [code (get-code species)]
{"lat" lat "lng" lng "dist" 50}))) (if code
(call-api (str "data/obs/geo/recent/" code)
{"lat" lat "lng" lng "dist" 50})
[]))))
(defn summarise-recent [recent] (defn summarise-recent [recent]
(reduce (reduce
(fn [acc obs] {:bird-count (+ (or 1 (:how-many obs)) (:bird-count acc)) (fn [acc obs] {:bird-count (+ (or 1 (:how-many obs)) (:bird-count acc))