simon/gaza-stats
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Now also generating graph of number of donors.

Browse source
This commit is contained in:
Simon Brooke 2026-09-27 16:36:37 +01:00
parent 68b714640a
commit b396015e34
2 changed files with 37 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

2
README.md
View file

@ -26,7 +26,7 @@ be supplied as `java.time.LocalDate` objects, or as strings in the format
`yyyy-mm-dd`. If `end-date` is not supplied, data for a single week will be
returned.
### `chart-total-donations-by-weeks`
### `(chart-total-donations-by-weeks start-date end-date)`
Create and return an XY chart of data on total donations made between
`start-date` and `end-date`. Arguments may be supplied as

51
src/gaza_stats/core.clj
View file

@ -1,5 +1,6 @@
(ns gaza-stats.core
(:require [cljc.java-time.local-date :as ld]
(:require [clojure.string :refer [capitalize]]
[cljc.java-time.local-date :as ld]
[com.hypirion.clj-xchart :refer [xy-chart]]
[korma.core :refer [fields join select where]]
[korma.db :refer [defdb sqlite3]]))
@ -32,26 +33,46 @@
(loop [s sd
i (ld/plus-days sd 7)
r nil]
(let [r' (cons
[s (reduce +
(map :amount
(select 'campaign_donations
(fields :amount)
(where (and {:created_at [> s]}
{:created_at [<= i]})))))]
(let [data (select 'campaign_donations
(fields :amount)
(where (and {:created_at [> s]}
{:created_at [<= i]})))
amounts (map :amount data)
r' (cons
[s {:total (reduce + amounts)
:n (count data)
:max (apply max amounts)
:min (apply min amounts)}]
r)]
(if (ld/is-before ed i) (reverse r')
(recur i (ld/plus-days i 7) r')))))))
(defmacro datetime->date [x]
`(java.util.Date/from
(.toInstant (.atStartOfDay ~x)
(java.time.ZoneOffset/ofHours 0))))
(defn chart-donations-by-weeks
"Create and return an XY chart of data on field represented by `key` of
donations made between `start-date` and `end-date`. Arguments may be supplied as
`java.time.LocalDate` objects, or as strings in the format `yyyy-mm-dd`."
[start-date end-date key]
(let [data (total-donations-by-weeks start-date end-date)]
(xy-chart {(format "%s Donations" (capitalize (name key)))
[(map #(datetime->date (first %)) data)
(map #(:n (nth % 1)) data)]})))
(defn chart-total-donations-by-weeks
"Create and return an XY chart of data on total donations made between
`start-date` and `end-date`. Arguments may be supplied as
`java.time.LocalDate` objects, or as strings in the format `yyyy-mm-dd`."
[start-date end-date]
(let [data (total-donations-by-weeks start-date end-date)]
(xy-chart {"Donations"
[(map #(java.util.Date/from
(.toInstant (.atStartOfDay (first %))
(java.time.ZoneOffset/ofHours 0)))
data)
(map #(nth % 1) data)]})))
(chart-donations-by-weeks start-date end-date :total))
(defn chart-number-donations-by-weeks
"Create and return an XY chart of data on number of donations made between
`start-date` and `end-date`. Arguments may be supplied as
`java.time.LocalDate` objects, or as strings in the format `yyyy-mm-dd`."
[start-date end-date]
(chart-donations-by-weeks start-date end-date :n))