diff options
| author | Sacha Chua <sacha@sachachua.com> | 2022-12-09 22:46:25 -0500 |
|---|---|---|
| committer | Sacha Chua <sacha@sachachua.com> | 2022-12-09 22:46:25 -0500 |
| commit | c1a32ad031d6a5fc7dc644fcfc442c3c9a6e107c (patch) | |
| tree | da21e24a057dfde16817ab01fa89fd1924d0e84b /emacsconf.el | |
| parent | 923de3f273dd82f52072cffcb9a84737fc287f7f (diff) | |
| download | emacsconf-el-c1a32ad031d6a5fc7dc644fcfc442c3c9a6e107c.tar.xz emacsconf-el-c1a32ad031d6a5fc7dc644fcfc442c3c9a6e107c.zip | |
code for adding questions to the Q&A transcript
Diffstat (limited to 'emacsconf.el')
| -rw-r--r-- | emacsconf.el | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/emacsconf.el b/emacsconf.el index 395db45..7157efd 100644 --- a/emacsconf.el +++ b/emacsconf.el @@ -311,10 +311,13 @@ (emacsconf-search-talk-info (emacsconf-complete-talk info) info)) (defun emacsconf-get-slug-from-string (search) - (if (listp search) (setq search (car search))) - (if (and search (string-match "\\(.*?\\) - " search)) - (match-string 1 search) - search)) + (when (listp search) (setq search (car search))) + (cond + ((and search (stringp search) (string-match "\\(.*?\\) - " search)) + (match-string 1 search)) + ((and (stringp search) (string-match (concat "^" emacsconf-id "-" emacsconf-year "-\\(.+?\\)--") search)) + (match-string 1 search)) + (t search))) (defun emacsconf-go-to-talk (search) (interactive (list (emacsconf-complete-talk))) @@ -1232,7 +1235,7 @@ Filter by TRACK if given. Use INFO as the list of talks." (or info (emacsconf-get-volunteer-info)))) (defun emacsconf-complete-volunteer (&optional info) - (setq info (or info (emacsconf-get-volunteer-info info))) + (setq info (or info (emacsconf-get-volunteer-info))) (let* ((choices (emacsconf-volunteer-emails-for-completion)) (choice (completing-read |