summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--emacsconf-extract.el12
1 files changed, 6 insertions, 6 deletions
diff --git a/emacsconf-extract.el b/emacsconf-extract.el
index d4a2f97..efd2ade 100644
--- a/emacsconf-extract.el
+++ b/emacsconf-extract.el
@@ -770,12 +770,12 @@ Would you like to help? See [[help_with_chapter_markers]] for more details. You
("ParticipantJoinEvent" (cl-incf participant-count) (when (> participant-count max-participants) (setq max-participants participant-count)))
("ParticipantLeftEvent" (cl-decf participant-count))
("EndAndKickAllEvent" (cl-decf meeting-count))))
- `(("Number of meetings analyzed" ,(length meeting-participants))
- ("Max number of simultaneous users" ,max-participants)
- ("Max number of simultaneous meetings" ,max-meetings)
- ("Max number of people in one meeting" ,(apply 'max (mapcar (lambda (o) (length (plist-get o :participants))) meeting-participants)))
- ("Total unique users" ,(length (seq-uniq (seq-mapcat (lambda (o) (mapcar #'car (plist-get o :participants))) meeting-participants))))
- ("Total unique talking" ,(length (seq-uniq (seq-mapcat (lambda (o) (plist-get o :talking)) meeting-participants)))))))
+ `((,(length meeting-participants) "Number of meetings analyzed")
+ (,max-participants "Max number of simultaneous users")
+ (,max-meetings "Max number of simultaneous meetings")
+ (,(apply 'max (mapcar (lambda (o) (length (plist-get o :participants))) meeting-participants)) "Max number of people in one meeting")
+ (,(length (seq-uniq (seq-mapcat (lambda (o) (mapcar #'cdr (plist-get o :participants))) meeting-participants))) "Total unique users")
+ (,(length (seq-uniq (seq-mapcat (lambda (o) (plist-get o :talking)) meeting-participants))) "Total unique talking"))))
(defun emacsconf-extract-bbb-dired-raw (talk)
(interactive (list (emacsconf-complete-talk-info)))