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 | |
parent | Fix popup movement. (diff) | |
download | calp-d5a602d267ab6c1e00d9b079eeee715d952faa47.tar.gz calp-d5a602d267ab6c1e00d9b079eeee715d952faa47.tar.xz |
Add drag-handles to events.draghandle
Diffstat (limited to '')
-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 |