add title to schedule

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))))))