diff options
| author | Sacha Chua <sacha@sachachua.com> | 2022-11-05 21:51:02 -0400 |
|---|---|---|
| committer | Sacha Chua <sacha@sachachua.com> | 2022-11-05 21:51:02 -0400 |
| commit | 7d6c2e6094da87f8d31b26acb8ef5df4bc7814d5 (patch) | |
| tree | 8254de94c99f8a4989fdeb35934265aac477afa8 /emacsconf-publish.el | |
| parent | be425c8f5a596822c770e47816c2a7faea1e245f (diff) | |
| download | emacsconf-el-7d6c2e6094da87f8d31b26acb8ef5df4bc7814d5.tar.xz emacsconf-el-7d6c2e6094da87f8d31b26acb8ef5df4bc7814d5.zip | |
Link to table in res index
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 5e15d02..fb3a664 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)) |