diff options
author | Sacha Chua <sacha@sachachua.com> | 2022-10-20 21:49:32 -0400 |
---|---|---|
committer | Sacha Chua <sacha@sachachua.com> | 2022-10-20 21:49:32 -0400 |
commit | 59de795fdcdd117e671b1513474f158a7e38c313 (patch) | |
tree | c3a9ae1a1e9233ed519e32b893cbef51fcf6b97a /emacsconf-schedule.el | |
parent | a8102ca8b13607b4e4eae95635e0d4ac578cf195 (diff) | |
download | emacsconf-el-59de795fdcdd117e671b1513474f158a7e38c313.tar.xz emacsconf-el-59de795fdcdd117e671b1513474f158a7e38c313.zip |
Work on watch pages on live.emacsconf.org
Diffstat (limited to 'emacsconf-schedule.el')
-rw-r--r-- | emacsconf-schedule.el | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/emacsconf-schedule.el b/emacsconf-schedule.el index 9b90faa..b8c3892 100644 --- a/emacsconf-schedule.el +++ b/emacsconf-schedule.el @@ -226,6 +226,7 @@ Each function should take the info and manipulate it as needed, returning the ne (emacsconf-filter-talks info))))) (defvar emacsconf-schedule-svg-modify-functions '(emacsconf-schedule-svg-color-by-track) "Functions to run to modify the display of each item.") +(defvar emacsconf-use-absolute-url nil "Non-nil means try to use absolute URLs.") (defun emacsconf-schedule-svg-track (svg base-x base-y width height start-time end-time info) (let ((scale (/ width (float-time (time-subtract end-time start-time))))) (mapc @@ -258,7 +259,12 @@ Each function should take the info and manipulate it as needed, returning the ne (parent (dom-node 'a (list - (cons 'href (concat "/" (plist-get o :url))) + (cons 'href + (concat + (if emacsconf-use-absolute-url + emacsconf-base-url + "/") + (plist-get o :url))) (cons 'title (plist-get o :title)) (cons 'data-slug (plist-get o :slug))) (dom-node 'title nil |