From fd507da44a491bfdc8d87139c4c366a3f1f1b83b Mon Sep 17 00:00:00 2001 From: Sacha Chua Date: Thu, 24 Nov 2022 10:31:45 -0500 Subject: add title to schedule --- emacsconf-schedule.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'emacsconf-schedule.el') diff --git a/emacsconf-schedule.el b/emacsconf-schedule.el index cfd20f3..f4cdeda 100644 --- a/emacsconf-schedule.el +++ b/emacsconf-schedule.el @@ -301,6 +301,7 @@ Each function should take the info and manipulate it as needed, returning the ne (x 0) (y label-margin) (scale (/ width (float-time (time-subtract end start)))) (time start)) + (dom-append-child elem (dom-node 'title nil (concat "Schedule for " label))) (svg-rectangle elem 0 0 width height :fill "white") (svg-text elem label :x 3 :y (- label-margin 3) :fill "black" :font-size "10") (mapc (lambda (track) @@ -330,8 +331,8 @@ Each function should take the info and manipulate it as needed, returning the ne (x . 0) (y . ,(- height 2 label-margin)) (font-size . 10) - (text-anchor . "middle")) - (svg--encode-text (format-time-string "%-l" time emacsconf-timezone))))) + (text-anchor . "left")) + (svg--encode-text (format-time-string "%-l %p" time emacsconf-timezone))))) (setq time (time-add time (seconds-to-time 3600))))) elem)) @@ -380,12 +381,13 @@ Each function should take the info and manipulate it as needed, returning the ne "lightgreen") ((rx (or "TO_STREAM")) "green") - (t "gray"))))) + (_ "gray"))))) (defun emacsconf-schedule-svg-days (width height days) - (let ((svg (svg-create width height :background "white")) + (let ((svg (svg-create width height)) (day-height (/ height (length days))) (y 0)) + (dom-append-child svg (dom-node 'title nil "Graphical view of the schedule")) (mapc (lambda (day) (let ((group (dom-node 'g `((transform . ,(format "translate(0,%d)" y)))))) -- cgit v1.2.3