From 8ec2f441d40ab89b40cc3158f65c914eff497cee Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 4 Oct 2021 23:18:24 +0200 Subject: Major typescript work. --- module/calp/html/view/calendar.scm | 2 +- module/calp/html/view/calendar/week.scm | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) (limited to 'module') diff --git a/module/calp/html/view/calendar.scm b/module/calp/html/view/calendar.scm index dfcd2264..c328f8b3 100644 --- a/module/calp/html/view/calendar.scm +++ b/module/calp/html/view/calendar.scm @@ -110,7 +110,7 @@ (script (@ (defer) (src "/static/dragable.js"))) (script (@ (defer) (src "/static/clock.js"))) (script (@ (defer) (src "/static/popup.js"))) - (script (@ (defer) (src "/static/rrule.js"))) + ;; (script (@ (defer) (src "/static/rrule.js"))) ;; (script (@ (defer) (src "/static/binders.js"))) (script (@ (defer) (src "/static/server_connect.js"))) ;; (script (@ (defer) (src "/static/input_list.js"))) diff --git a/module/calp/html/view/calendar/week.scm b/module/calp/html/view/calendar/week.scm index 9911b162..17bb3b2d 100644 --- a/module/calp/html/view/calendar/week.scm +++ b/module/calp/html/view/calendar/week.scm @@ -15,7 +15,7 @@ :use-module ((calp html vcomponent) :select (make-block) ) :use-module ((calp html components) - :select (btn tabset #; #; form with-label + :select (btn tabset ; form with-label )) :use-module ((vcomponent group) :select (group-stream get-groups-between)) @@ -170,7 +170,7 @@ ;; (eq? 'TRANSPARENT (prop ev 'TRANSP))) ;; " transparent") ) - (onclick "toggle_popup('popup' + this.id)") + ; (onclick "toggle_popup('popup' + this.id)") ) ;; Inner div to prevent overflow. Previously "overflow: none" ;; was set on the surounding div, but the popup /needs/ to -- cgit v1.2.3