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 /module/output/html.scm | |
| parent | Fix popup movement. (diff) | |
| download | calp-draghandle.tar.gz calp-draghandle.tar.xz | |
Add drag-handles to events.draghandle
Diffstat (limited to 'module/output/html.scm')
| -rw-r--r-- | module/output/html.scm | 3 |
1 files changed, 2 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 |