diff options
| -rw-r--r-- | emacsconf-extract.el | 12 |
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))) |