diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-08-30 20:31:30 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-08-30 20:31:30 +0200 |
| commit | 015297edb822bf035d82f8cfc562d29fc1a998e0 (patch) | |
| tree | 7091c3bea2d26bd89db8eef3e0d93ec0cb81f457 /module/calp/html/vcomponent.scm | |
| parent | Fix minor syntax error for set/r! (diff) | |
| download | calp-015297edb822bf035d82f8cfc562d29fc1a998e0.tar.gz calp-015297edb822bf035d82f8cfc562d29fc1a998e0.tar.xz | |
Add debug tab to HTML popups.
Diffstat (limited to 'module/calp/html/vcomponent.scm')
| -rw-r--r-- | module/calp/html/vcomponent.scm | 5 |
1 files changed, 5 insertions, 0 deletions
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") |