From 832422efbadfb7c1d1f4ee6707243c2eda18edd3 Mon Sep 17 00:00:00 2001 From: Sacha Chua Date: Sun, 25 Oct 2026 20:25:54 -0400 Subject: bbb: load the user id --- emacsconf-bbb.el | 32 ++++++++++++++++++++------------ 1 file changed, 20 insertions(+), 12 deletions(-) (limited to 'emacsconf-bbb.el') diff --git a/emacsconf-bbb.el b/emacsconf-bbb.el index ee6eefe..968bb4d 100644 --- a/emacsconf-bbb.el +++ b/emacsconf-bbb.el @@ -56,24 +56,32 @@ (or info (emacsconf-active-talks (emacsconf-filter-talks (emacsconf-get-talk-info)))))))) (defvar emacsconf-bbb-prefix "EC26" "Prefix for conference rooms.") +(defvar emacsconf-bbb-user-email "emacsconf@sachachua.com" "E-mail address for the BBB account.") + ;;;###autoload (defun emacsconf-bbb-create-rooms () "Copy the commands needed to create the rooms. docker exec -it greenlight-v3 /bin/bash -c \"bundle exec rails console\" user_id = User.find_by_email(\"emacsconf@sachachua.com\").id" (interactive) - (kill-new - (mapconcat (lambda (group) - (format - "Room.create(user_id: user_id, name: \"%s: %s - %s\")\n" - emacsconf-bbb-prefix - (plist-get (cadr group) :speakers) - (string-join (mapcar (lambda (talk) (plist-get talk :slug)) - (cdr group)) - ", "))) - (emacsconf-mail-groups (emacsconf-active-talks (emacsconf-get-talk-info))) - "")) - (message "Copied. Run it inside the greenlight-v3 rails console.")) + (let ((rooms (emacsconf-mail-groups (seq-remove (lambda (o) (plist-get o :bbb-room)) (emacsconf-active-talks (emacsconf-get-talk-info)))))) + (if rooms + (progn + (kill-new + (format "user_id = User.find_by_email(\"%s\").id\n%s\nRoom.all.each { |x| puts x.friendly_id + \" \" + x.name }\nnil" + emacsconf-bbb-user-email + (mapconcat (lambda (group) + (format + "Room.create(user_id: user_id, name: \"%s: %s - %s\")\n" + emacsconf-bbb-prefix + (plist-get (cadr group) :speakers) + (string-join (mapcar (lambda (talk) (plist-get talk :slug)) + (cdr group)) + ", "))) + rooms + ""))) + (message "Copied. Run it inside the greenlight-v3 rails console.")) + (message "No more rooms needed.")))) ;;;###autoload (defun emacsconf-bbb-load-rooms (string) -- cgit v1.2.3