From 147e675a126dd9f4f29236b5416da4e9f6402299 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 17 Aug 2020 16:04:05 +0200 Subject: Add TRANSPARENT support. --- module/html/vcomponent.scm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'module/html/vcomponent.scm') diff --git a/module/html/vcomponent.scm b/module/html/vcomponent.scm index b4538fbd..6801365b 100644 --- a/module/html/vcomponent.scm +++ b/module/html/vcomponent.scm @@ -151,7 +151,11 @@ "unknown")) ,(when (and (prop ev 'PARTSTAT) (eq? 'TENTATIVE (prop ev 'PARTSTAT))) - " tentative")) + " tentative") + ,(when (and (prop ev 'TRANSP) + (eq? 'TRANSPARENT (prop ev 'TRANSP))) + " transparent") + ) (onclick "toggle_popup('popup' + this.id)") ))) ;; Inner div to prevent overflow. Previously "overflow: none" -- cgit v1.2.3