From 3152e0420751a56e1e3a89687a3935f62151a18e Mon Sep 17 00:00:00 2001 From: Gene Pasquet Date: Sun, 9 Mar 2025 20:46:14 +0000 Subject: Handle outputting collected data --- tracker.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/tracker.lisp b/tracker.lisp index 40e65dc..a1ed7e9 100644 --- a/tracker.lisp +++ b/tracker.lisp @@ -104,7 +104,7 @@ (defun collect-status-tracking (id) (read-list-from-redis (format nil *tracking-key-fmt* id))) -(defun collect-tracking () +(defun collect-tracking (&key print) (redis:with-connection () (let* ((history-keys (red:keys (format nil *tracking-key-fmt* "*"))) (status-history (mapcar (lambda (history-key) @@ -114,7 +114,7 @@ (collect-status-tracking id)))) history-keys))) ;; status-history - (format nil "~{~a~%~}" + (format print "~{~a~%~}" (alexandria:flatten (mapcar (lambda (item) (mapcar @@ -126,6 +126,6 @@ (cdr (assoc 'reblogs entry)) (cdr (assoc 'replies entry)) (when (assoc 'age entry) - (cdr (assoc 'age entry))))) + (cdr (assoc 'age entry))))) (cdr item))) status-history)))))) -- cgit v1.2.3