From 5bad5320032a8fc477e9f2527d23036c41ac023e Mon Sep 17 00:00:00 2001 From: LLLL Colonq Date: Mon, 9 Jun 2025 18:31:55 -0400 Subject: Update --- src/gizmo/wasp-dna.el | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'src/gizmo/wasp-dna.el') diff --git a/src/gizmo/wasp-dna.el b/src/gizmo/wasp-dna.el index 2ba8626a..4418e3ab 100644 --- a/src/gizmo/wasp-dna.el +++ b/src/gizmo/wasp-dna.el @@ -30,6 +30,12 @@ (log (--map (w/list-to-pair (s-split ": " it)) (-non-nil (--map (cadr (s-split "\t" it)) (s-lines logstr)))))) log)) +(defun w/dna-user-log (user) + "Return a complete log of every message sent by USER." + (--filter + (s-equals? (s-downcase (car it)) user) + (w/dna-complete-log))) + (defun w/dna-generate-from-logs (user) "Generate DNA from historical logs for USER. You probably want to use this interactively and then save the result here." -- cgit v1.2.3