diff options
| author | Sacha Chua <sacha@sachachua.com> | 2024-01-15 09:39:09 -0500 |
|---|---|---|
| committer | Sacha Chua <sacha@sachachua.com> | 2024-01-15 09:39:09 -0500 |
| commit | c1a15aa9fd74b92f34efdb5847046c28759cae3c (patch) | |
| tree | f99b7ce0abeb474c90f9ab6cabbf079c80165072 | |
| parent | c89f28d618ab07f89dd499342972ef2de6f6d077 (diff) | |
| download | emacsconf-el-c1a15aa9fd74b92f34efdb5847046c28759cae3c.tar.xz emacsconf-el-c1a15aa9fd74b92f34efdb5847046c28759cae3c.zip | |
change report format
| -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))) |