summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSacha Chua <sacha@sachachua.com>2022-10-08 10:09:28 -0400
committerSacha Chua <sacha@sachachua.com>2022-10-08 10:09:28 -0400
commit028b3db31447476e5636d5017997d520e9664a66 (patch)
tree017817ea5802b870452ff99c9e23c53631e9e53e
parent5557664db700ff2d645f212c2c381780ab85dbcd (diff)
downloademacsconf-el-028b3db31447476e5636d5017997d520e9664a66.tar.xz
emacsconf-el-028b3db31447476e5636d5017997d520e9664a66.zip
Use relative URLs, allow SVG modification function
-rw-r--r--emacsconf-schedule.el62
-rw-r--r--emacsconf.el4
2 files changed, 36 insertions, 30 deletions
diff --git a/emacsconf-schedule.el b/emacsconf-schedule.el
index e42ca2d..d679e32 100644
--- a/emacsconf-schedule.el
+++ b/emacsconf-schedule.el
@@ -224,45 +224,51 @@ Each function should take the info and manipulate it as needed, returning the ne
(emacsconf-filter-talks info)))))
-(defun emacsconf-schedule-svg-track (svg base-x base-y width height start-time end-time info &optional vertical)
- (let ((scale (/ (if vertical height width)
- (float-time (time-subtract end-time start-time)))))
+(defun emacsconf-schedule-svg-track (svg base-x base-y width height start-time end-time info &optional modify-func)
+ (let ((scale (/ width (float-time (time-subtract end-time start-time)))))
(mapc
(lambda (o)
(let* ((offset (floor (* scale (float-time (time-subtract (plist-get o :start-time) start-time)))))
(size (floor (* scale (float-time (time-subtract (plist-get o :end-time) (plist-get o :start-time))))))
- (x (if vertical base-x (+ base-x offset)))
- (y (if vertical (+ base-y offset) base-y)))
+ (x (+ base-x offset))
+ (y base-y))
(dom-append-child
svg
(dom-node
'a
- `((href . ,(plist-get o :url))
+ `((href . ,(concat "/" (plist-get o :url)))
(title . ,(plist-get o :title)))
(dom-node
- 'rect
- `((x . ,x)
- (y . ,y)
- (opacity . "0.8")
- (width . ,(if vertical width size))
- (height . ,(1- (if vertical size height)))
- (stroke . "black")
- (stroke-dasharray .
- ,(if (string-match "live" (or (plist-get o :q-and-a) "live"))
- ""
- "5,5,5"
- ))
- (fill . ,(cond
- ((string-match "BREAK\\|LUNCH" (plist-get o :title)) "white")
- ((plist-get o :invalid) "red")
- ((string-match "EST"
- (or (plist-get o :availability) ""))
- "lightgray")
- (t "lightgreen")))))
+ 'title
+ nil
+ (plist-get o :title))
+ (let ((node (dom-node
+ 'rect
+ `((x . ,x)
+ (y . ,y)
+ (opacity . "0.8")
+ (width . ,size)
+ (height . ,(1- height))
+ (stroke . "black")
+ (stroke-dasharray .
+ ,(if (string-match "live" (or (plist-get o :q-and-a) "live"))
+ ""
+ "5,5,5"
+ ))
+ (fill . ,(cond
+ ((string-match "BREAK\\|LUNCH" (plist-get o :title)) "white")
+ ((plist-get o :invalid) "red")
+ ((string-match "EST"
+ (or (plist-get o :availability) ""))
+ "lightgray")
+ (t "lightgreen")))))))
+ (if modify-func
+ (funcall modify-func o node)
+ node))
(dom-node
'g
`((transform . ,(format "translate(%d,%d)"
- (+ x (if vertical width size) -2) (+ y (if vertical size height) -2))))
+ (+ x size -2) (+ y height -2))))
(dom-node
'text
'((fill . "black")
@@ -273,7 +279,7 @@ Each function should take the info and manipulate it as needed, returning the ne
(svg--encode-text (or (plist-get o :slug) (plist-get o :title)))))))))
info)))
-(defun emacsconf-schedule-svg-day (elem label width height start end tracks)
+(defun emacsconf-schedule-svg-day (elem label width height start end tracks &optional modify-func)
(let* ((label-margin 15)
(track-height (/ (- height (* 2 label-margin)) (length tracks)))
(x 0) (y label-margin)
@@ -284,7 +290,7 @@ Each function should take the info and manipulate it as needed, returning the ne
(mapc (lambda (track)
(emacsconf-schedule-svg-track
elem x y width track-height
- start end track)
+ start end track modify-func)
(setq y (+ y track-height)))
tracks)
;; draw grid
diff --git a/emacsconf.el b/emacsconf.el
index 81caa56..a5ba782 100644
--- a/emacsconf.el
+++ b/emacsconf.el
@@ -101,7 +101,7 @@
(defun emacsconf-browse-wiki-page (search)
(interactive (list (emacsconf-complete-talk)))
(setq search (emacsconf-get-slug-from-string search))
- (browse-url (concat emacsconf-base-url "/" emacsconf-year "/talks/" search "/")))
+ (browse-url (concat emacsconf-base-url emacsconf-year "/talks/" search "/")))
(defun emacsconf-set-property-from-slug (search prop value)
(interactive (list (emacsconf-complete-talk) nil nil))
@@ -247,7 +247,7 @@
:type (if (org-entry-get (point) "SLUG") 'talk 'headline)
:status (elt heading 2)
:level (car heading)
- :url (concat emacsconf-base-url emacsconf-year "/talks/" (org-entry-get (point) "SLUG"))
+ :url (concat emacsconf-year "/talks/" (org-entry-get (point) "SLUG"))
:schedule-group
(org-entry-get-with-inheritance "SCHEDULE_GROUP")
:wiki-file-path (expand-file-name