diff options
| -rw-r--r-- | emacsconf-bbb.el | 32 |
1 files changed, 20 insertions, 12 deletions
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) |