diff options
| -rw-r--r-- | tracker.lisp | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/tracker.lisp b/tracker.lisp index d1ccd78..40e65dc 100644 --- a/tracker.lisp +++ b/tracker.lisp @@ -71,6 +71,7 @@ (red:lpush (format nil *tracking-key-fmt* (tooter:id status)) (list (cons 'time (get-universal-time)) + (cons 'age (- (get-universal-time) (tooter:created-at status))) (cons 'favourites (tooter:favourites-count status)) (cons 'replies (tooter:replies-count status)) (cons 'reblogs (tooter:reblogs-count status)))))) @@ -98,9 +99,7 @@ tracked-statuses)) ;; Persist tracking list - (save-status-trakers tracked-statuses) - )) - ) + (save-status-trakers tracked-statuses)))) (defun collect-status-tracking (id) (read-list-from-redis (format nil *tracking-key-fmt* id))) @@ -120,12 +119,13 @@ (mapcar (lambda (item) (mapcar (lambda (entry) - (format nil "~a,~a,~a,~a,~a" + (format nil "~a,~a,~a,~a,~a,~a" (car item) (cdr (assoc 'time entry)) (cdr (assoc 'favourites entry)) (cdr (assoc 'reblogs entry)) - (cdr (assoc 'replies entry)))) + (cdr (assoc 'replies entry)) + (when (assoc 'age entry) + (cdr (assoc 'age entry))))) (cdr item))) - status-history))) - ))) + status-history)))))) |