diff options
| author | EmacsConf <emacsconf-org@gnu.org> | 2022-11-06 05:10:26 -0800 |
|---|---|---|
| committer | EmacsConf <emacsconf-org@gnu.org> | 2022-11-06 05:10:26 -0800 |
| commit | 62f6c67e65dc499b3fa26ce6fe01cde42d6e3670 (patch) | |
| tree | 31906a6697cf1a516856a1c5700907a32c3df09c /emacsconf-publish.el | |
| parent | 5ee4fe0d9ff316a45afd4ce4e8e51c4e73c0d548 (diff) | |
| parent | f4c4fe009240ae2544d8f6b5830cdc2ebbe7d037 (diff) | |
| download | emacsconf-el-62f6c67e65dc499b3fa26ce6fe01cde42d6e3670.tar.xz emacsconf-el-62f6c67e65dc499b3fa26ce6fe01cde42d6e3670.zip | |
Merge branch 'main' of git.emacsconf.org:pub/emacsconf-el
Diffstat (limited to 'emacsconf-publish.el')
| -rw-r--r-- | emacsconf-publish.el | 28 |
1 files changed, 17 insertions, 11 deletions
diff --git a/emacsconf-publish.el b/emacsconf-publish.el index 5dbae57..b2ff788 100644 --- a/emacsconf-publish.el +++ b/emacsconf-publish.el @@ -153,16 +153,19 @@ (defun emacsconf-publish-res-index () (interactive) - (let ((info (mapcar (lambda (o) - (if (plist-get o :bbb-room) - (append (list - :qa-link - (format "<a href=\"%s\" target=\"_blank\" rel=\"noreferrer\">Join Q&A</a>" (plist-get o :bbb-room)) - :url - (plist-get o :bbb-room)) - o) - o)) - (emacsconf-prepare-for-display (emacsconf-get-talk-info))))) + (let ((emacsconf-use-absolute-url t) + (emacsconf-base-url "") + (info (mapcar (lambda (o) + (append (list + :url (concat "#" (plist-get o :slug))) + (if (and (string-match "live" (or (plist-get o :q-and-a) "")) + (plist-get o :bbb-room)) + (append (list + :qa-link + (format "<a href=\"%s\" target=\"_blank\" rel=\"noreferrer\">Join Q&A</a>" (plist-get o :bbb-room))) + o) + o))) + (emacsconf-prepare-for-display (emacsconf-get-talk-info))))) (mapc (lambda (track) (let ((track-talks (seq-filter (lambda (o) (string= (plist-get o :track) (plist-get track :name))) @@ -179,7 +182,10 @@ (lambda (o) (concat "<tr>" - "<td>" (plist-get o :qa-link) + (format + "<td><a name=\"%s\"></a>" + (plist-get o :slug)) + (plist-get o :qa-link) "</td>" "<td>" (if (plist-get o :pad-url) (format "<a href=\"%s\" target=\"_blank\" rel=\"noreferrer\">Open pad</a>" (plist-get o :pad-url)) |