From 015297edb822bf035d82f8cfc562d29fc1a998e0 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Mon, 30 Aug 2021 20:31:30 +0200
Subject: Add debug tab to HTML popups.

---
 module/calp/html/vcomponent.scm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/module/calp/html/vcomponent.scm b/module/calp/html/vcomponent.scm
index 4421a08e..105c6cc5 100644
--- a/module/calp/html/vcomponent.scm
+++ b/module/calp/html/vcomponent.scm
@@ -602,6 +602,11 @@
                      `(("📅" title: "Redigera"
                         ,(fmt-for-edit ev))))
 
+                  ,@(when (debug)
+                      `(("🐸" title: "Debug"
+                         (div
+                          (pre ,(prop ev 'UID))))))
+
                   ("⤓" title: "Nedladdning"
                    (div (@ (class "eventtext") (style "font-family:sans"))
                         (h2 "Ladda ner")
-- 
cgit v1.2.3