Add labels, rotated

1 files changed, 35 insertions, 22 deletions

diff --git a/emacsconf.el b/emacsconf.el
index 83ad471..753ca30 100644
--- a/emacsconf.el
+++ b/emacsconf.el
@@ -630,45 +630,58 @@ Talks with a FIXED_TIME property are not moved."
      (list "Status" "Slug" "Schedule" "Time" "Buffer" "Title" "Name" "Q&A" "Availability"))
    (mapcar #'emacsconf-format-schedule-summary-row (or info (emacsconf-get-talk-info)))))
 
-(defun emacsconf-summarize-track-as-svg (svg x y width height start-time end-time info)
-  (let ((x-scale (/ width (float-time (time-subtract end-time start-time)))))
+(defun emacsconf-summarize-track-as-svg (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)))))
     (mapc
      (lambda (o)
-       (let ((x1 (+ x (floor (* x-scale (float-time (time-subtract (plist-get o :start-time) start-time))))))
-             (x2 (+ x (floor (* x-scale (float-time (time-subtract (plist-get o :end-time) start-time))))))
-             )
+       (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)))
          (svg-rectangle
           svg
-          x1
+          x
           y
-          (- x2 x1)
-          (1- height)
+          (if vertical width size)
+          (1- (if vertical size height))
           :stroke "white"
-          :fill "gray"
-          :title (or (plist-get o :slug) (plist-get o :title)))
-         (svg-text
+          :fill "gray")
+         (dom-append-child
           svg
-          (or (plist-get o :slug) (plist-get o :title))
-          :fill "black"
-          :x x1
-          :y (+ y (/ height 2))
-          )))
+          (dom-node
+           'g
+           `((transform . ,(format "translate(%d,%d)"
+                                   (+ x (if vertical width size) -2) (+ y (if vertical size height) -2))))
+           (dom-node
+            'text
+            '((fill . "white")
+              (x . 0)
+              (y . 0)
+              (font-size . 10)
+              (transform . "rotate(-90)"))
+            (svg--encode-text (or (plist-get o :slug) (plist-get o :title))))))))
      (emacsconf-filter-talks info))))
 
-(defun emacsconf-summarize-schedule-as-svg (width height info)
+(defun emacsconf-summarize-schedule-as-svg (width height info &optional vertical)
   (let* ((svg (svg-create width height))
          (gen-sat (emacsconf-schedule-get-subsequence info "^GEN Sat" "^GEN Sun"))
-         (dev-sat (emacsconf-schedule-get-subsequence info "^DEV Sat" "^DEV Sun")))
+         (dev-sat (emacsconf-schedule-get-subsequence info "^DEV Sat" "^DEV Sun"))
+         (track-width (if vertical (/ width 2) width))
+         (track-height (if vertical height (/ height 2)))) 
     (emacsconf-summarize-track-as-svg
-     svg 0 0 width (/ height 2)
+     svg 0 0 track-width track-height
      (date-to-time "2022-12-03 9:00")
      (date-to-time "2022-12-03 18:00")
-     gen-sat)
+     gen-sat vertical)
     (emacsconf-summarize-track-as-svg
-     svg 0 (/ height 2) width height
+     svg
+     (if vertical track-width 0)
+     (if vertical 0 track-height)
+     track-width track-height
      (date-to-time "2022-12-03 9:00")
      (date-to-time "2022-12-03 18:00")
-     dev-sat)
+     dev-sat vertical)
     svg))
 
 (defun emacsconf-schedule-get-subsequence (info start &optional end)