diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-07-13 01:26:57 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-07-13 01:26:57 +0200 |
| commit | d5a602d267ab6c1e00d9b079eeee715d952faa47 (patch) | |
| tree | c649d9bed6378e2c72be9d9c2ea4b473ebfe2a7d | |
| parent | Fix popup movement. (diff) | |
| download | calp-draghandle.tar.gz calp-draghandle.tar.xz | |
Add drag-handles to events.draghandle
| -rw-r--r-- | module/output/html.scm | 3 | ||||
| -rw-r--r-- | static/style.css | 15 |
2 files changed, 17 insertions, 1 deletions
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; } |