From 1ca1132787e13e99eaba70123ee8dd7c0cbab385 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Wed, 8 Jul 2020 02:17:10 +0200
Subject: Add HTML button for removing elements.

---
 module/output/html.scm | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

(limited to 'module/output/html.scm')

diff --git a/module/output/html.scm b/module/output/html.scm
index 66b3ad69..93fc5375 100644
--- a/module/output/html.scm
+++ b/module/output/html.scm
@@ -164,8 +164,13 @@
                   ,(btn "×"
                         title: "Stäng"
                         onclick: ""
-                        class: '("close-tooltip")
-                        ))
+                        class: '("close-tooltip"))
+                  ,(btn "🗑"
+                        title: "Ta bort"
+                        ;; Apparently an id gets recieved
+                        ;; as the whole object in js.
+                        onclick: (format #f "remove_event(~a)"
+                                         id)))
 
              ,(tabset
                (append
-- 
cgit v1.2.3