[elpa] externals/activities b75e6f4ab6 44/50: oldest-age: find oldest age of last OR default state

[ELPA Syncer]

branch: externals/activities
commit b75e6f4ab6e2e48fbbe170d81dcd6730e6bcbcb6
Author: J.D. Smith <jdtsmith@gmail.com>
Commit: JD Smith <93749+jdtsmith@users.noreply.github.com>

    oldest-age: find oldest age of last OR default state
    
    These are the ages that are actually showing during completion.
---
 activities.el | 13 ++++++-------
 1 file changed, 6 insertions(+), 7 deletions(-)

diff --git a/activities.el b/activities.el
index 4757b09670..c9ced60e93 100644
--- a/activities.el
+++ b/activities.el
@@ -902,13 +902,12 @@ Abbreviate the units if ABBREV is non-nil."
 
 (defun activities--oldest-age (activities)
   "Return the age in seconds of the oldest activity in ACTIVITIES."
-  (cl-loop for (_name . act) in activities maximize
-          (cl-loop
-           for type in '(default last)
-           for state = (cl-struct-slot-value 'activities-activity type act)
-           if state
-           for etc = (activities-activity-state-etc state)
-           maximize (float-time (time-since (map-elt etc 'time))))))
+  (cl-loop for (_name . activity) in activities
+          for state = (pcase-let (((cl-struct activities-activity default 
last) activity))
+                        (or last default))
+          if state
+          for etc = (activities-activity-state-etc state)
+          maximize (float-time (time-since (map-elt etc 'time)))))
 
 (defun activities-sort-by-active-age (names)
   "Return the list of activity NAMES sorted active first, then by age."