diff options
| author | Gene Pasquet <dev@etenil.net> | 2025-03-09 20:46:14 +0000 |
|---|---|---|
| committer | Gene Pasquet <dev@etenil.net> | 2025-03-23 09:30:09 +0000 |
| commit | 3152e0420751a56e1e3a89687a3935f62151a18e (patch) | |
| tree | 502f1cd01423abfaf75ecda09d8b96fca6ec526d | |
| parent | 92c1acd630b10db83a113c0385d09de67e19cc98 (diff) | |
Handle outputting collected data
| -rw-r--r-- | tracker.lisp | 6 |
1 files 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)))))) |