|
|
|
@ -90,7 +90,8 @@
|
|
|
|
(province . ,(assq-ref plist 'province))
|
|
|
|
(province . ,(assq-ref plist 'province))
|
|
|
|
(prov-terse . ,(assq-ref plist 'prov-code))
|
|
|
|
(prov-terse . ,(assq-ref plist 'prov-code))
|
|
|
|
(last-7 . ,(sum-first-n 7 (assq-ref plist 'reports)))
|
|
|
|
(last-7 . ,(sum-first-n 7 (assq-ref plist 'reports)))
|
|
|
|
(last-14 . ,(sum-first-n 14 (assq-ref plist 'reports)))))))
|
|
|
|
(last-14 . ,(sum-first-n 14 (assq-ref plist 'reports)))
|
|
|
|
|
|
|
|
(expiry . ,($expiry-timestamp))))))
|
|
|
|
(set-symbol-property! hr-sym 'json-string json)))
|
|
|
|
(set-symbol-property! hr-sym 'json-string json)))
|
|
|
|
hr-syms))
|
|
|
|
hr-syms))
|
|
|
|
|
|
|
|
|
|
|
|
|