diff options
Diffstat (limited to 'emacsconf-schedule.el')
| -rw-r--r-- | emacsconf-schedule.el | 10 |
1 files changed, 6 insertions, 4 deletions
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)))))) |