diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-17 16:41:58 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-17 16:41:58 +0200 |
commit | 79b9876aa8f3611264be4d665b51051b17c3c8b7 (patch) | |
tree | 251c0f5d0e0565a3d7a32f03647b2cf22991912f /module/html/util.scm | |
parent | Can add events spanning midnight. (diff) | |
download | calp-79b9876aa8f3611264be4d665b51051b17c3c8b7.tar.gz calp-79b9876aa8f3611264be4d665b51051b17c3c8b7.tar.xz |
Selected event now glows.
Diffstat (limited to '')
-rw-r--r-- | module/html/util.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/module/html/util.scm b/module/html/util.scm index edbcf756..c9252122 100644 --- a/module/html/util.scm +++ b/module/html/util.scm @@ -42,6 +42,6 @@ ;; TODO? same event placed multiple times, when spanning multiple cells (define-public html-id (let ((id (make-object-property))) - (lambda (ev) - (or (id ev) - (set/r! (id ev) (symbol->string (gensym "__html_id_"))))))) + (lambda (ev) + (or (id ev) + (set/r! (id ev) (symbol->string (gensym "__html_id_"))))))) |