aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorHugo Hörnquist <hugo@lysator.liu.se>2022-10-16 22:24:57 +0200
committerHugo Hörnquist <hugo@lysator.liu.se>2022-10-16 23:28:34 +0200
commit53c003b8ac61d2c1e7373776cbb4914e10043b1d (patch)
tree61b801562f026995c38412a9d51fcf5a786ef2bd
parentValidate that submitted event doesn't have invalid interval. (diff)
downloadcalp-53c003b8ac61d2c1e7373776cbb4914e10043b1d.tar.gz
calp-53c003b8ac61d2c1e7373776cbb4914e10043b1d.tar.xz
Minor cleaup.
-rw-r--r--module/calp/server/routes.scm2
-rw-r--r--module/vcomponent/util/instance/methods.scm8
-rw-r--r--static/server_connect.ts2
-rw-r--r--static/style.scss2
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;
}
}