Add age to tracking data

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