From d5a602d267ab6c1e00d9b079eeee715d952faa47 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Mon, 13 Jul 2020 01:26:57 +0200
Subject: Add drag-handles to events.

---
 module/output/html.scm |  3 ++-
 static/style.css       | 15 +++++++++++++++
 2 files changed, 17 insertions(+), 1 deletion(-)

diff --git a/module/output/html.scm b/module/output/html.scm
index e3a247d4..7485374f 100644
--- a/module/output/html.scm
+++ b/module/output/html.scm
@@ -244,7 +244,8 @@
              ,(when (prop ev 'LOCATION)
                 `(span (@ (class "location"))
                        ,(string-map (lambda (c) (if (char=? c #\,) #\newline c))
-                                    (prop ev 'LOCATION)))))
+                                    (prop ev 'LOCATION))))
+             (div (@ (class "drag-handle"))))
             ,(popup ev popup-id)))))
 
 ;; Format single event for graphical display
diff --git a/static/style.css b/static/style.css
index abb4f8c7..f7809299 100644
--- a/static/style.css
+++ b/static/style.css
@@ -505,6 +505,21 @@ along with their colors.
     overflow: hidden;
 }
 
+.event-body .drag-handle {
+    position: absolute;
+    top: 2px;
+    bottom: 2px;
+    right: 1px;
+    width: 3px;
+    cursor: ns-resize;
+    border: none;
+}
+
+.event-body:hover .drag-handle {
+    border-left: 3px dotted black;
+    border-right: 3px dotted black;
+}
+
 .days .event {
     border: 1px solid black;
 }
-- 
cgit v1.2.3