Added expiry tags to strings

master
Brady McDonough 10 months ago
parent 67227e5fda
commit 0cccd1bc87

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

Loading…
Cancel
Save