From 53c003b8ac61d2c1e7373776cbb4914e10043b1d Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Sun, 16 Oct 2022 22:24:57 +0200 Subject: Minor cleaup. --- module/calp/server/routes.scm | 2 +- module/vcomponent/util/instance/methods.scm | 8 ++++++-- static/server_connect.ts | 2 +- static/style.scss | 2 +- 4 files changed, 9 insertions(+), 5 deletions(-) diff --git a/module/calp/server/routes.scm b/module/calp/server/routes.scm index e8676e6f..877bd8f2 100644 --- a/module/calp/server/routes.scm +++ b/module/calp/server/routes.scm @@ -124,7 +124,7 @@ (define ical-namespace '(IC . "urn:ietf:params:xml:ns:icalendar-2.0")) -(define root-script "window.onload = () => document.getElementsByTagName('a')[0].click()") +(define root-script "window.onload = () => document.querySelector('a').click()") ;; TODO ensure encoding on all fields which take user provided data. ;; Possibly a fallback which strips everything unknown, and treats diff --git a/module/vcomponent/util/instance/methods.scm b/module/vcomponent/util/instance/methods.scm index f1c6ecf0..5651b265 100644 --- a/module/vcomponent/util/instance/methods.scm +++ b/module/vcomponent/util/instance/methods.scm @@ -216,7 +216,9 @@ (format (current-error-port) - (G_ "Event updated ~a~%") (prop event 'UID)))] + (G_ "Event ~a updated in ~a~%") + (prop event 'UID) + (prop calendar 'NAME)))] [else (add-event this calendar event) @@ -229,4 +231,6 @@ (throw 'misc-error (G_ "Saving event to disk failed."))) (format (current-error-port) - (G_ "Event inserted ~a~%") (prop event 'UID))])) + (G_ "Event ~a added to ~a~%") + (prop event 'UID) + (prop calendar 'NAME))])) diff --git a/static/server_connect.ts b/static/server_connect.ts index d1a544eb..29f5bab2 100644 --- a/static/server_connect.ts +++ b/static/server_connect.ts @@ -64,7 +64,7 @@ async function create_event(event: VEvent) { return; } - console.log('calendar=', calendar/*, xml*/); + console.log('calendar =', atob(calendar)/*, xml*/); let data = new URLSearchParams(); data.append("cal", calendar); diff --git a/static/style.scss b/static/style.scss index 578288b4..d5920f79 100644 --- a/static/style.scss +++ b/static/style.scss @@ -819,7 +819,7 @@ popup-element { /* some form of sensible minimi and default size for the popup (s main area). */ min-width: 150px; width: 350px; - height: 250px; + height: 300px; } } -- cgit v1.2.3