calendar

3.2 KB

1. // components/calendar.hl — `/`: the month view under the app header, with the user's private events (ticket calendar#2).
2. // The faces below are what the month view calls (`emit server …`, the trailing `session` is always the server's since
3. // hybriel #16): thin wrappers — the session and the window are checked here, the events live in lib/events.hl (the
4. // answer: calendarView / settingsView, the six weeks on screen), the default reminders in lib/settings.hl.
5. // Signed out: no session user → nothing is read or written.
6. parent './main.hl'
7. import MonthView from './month-view/month-view.hl'
8. import { userIdOfSession } from '../lib/users.hl'
9. import { saveEvent, deleteEvent, calendarView, settingsView } from '../lib/events.hl'
10. import { saveDefaults } from '../lib/settings.hl'
11. import { validWindow } from '../lib/events-helpers.hl'
13. __title = 'Calendar'
14. // the request's headers (hybriel #105, names lowercase): the month view writes its names in the request's language on
15. // the first render (calendar#6)
16. headers = null
17. String requestLanguage = headers != null && headers['accept-language'] != null ? headers['accept-language'] : ''
18. View {
19. calendarPage {
20. MonthView { acceptLanguage = requestLanguage }
21. }
22. }
24. on server calLoad(first, last, session) {
25. let u = userIdOfSession(session)
26. if (u == null) { return { error = 'log in with ident first' } }
27. if (!validWindow(first, last)) { return { error = 'not a date' } }
28. return calendarView(u, first, last)
29. }
31. on server calSave(fields, first, last, session) {
32. let u = userIdOfSession(session)
33. if (u == null) { return { error = 'log in with ident first' } }
34. if (!validWindow(first, last)) { return { error = 'not a date' } }
35. if (fields == null || hlTypeName(fields) != 'Hybrid') { return { error = 'the event must be an object' } }
36. let r = saveEvent(u, fields)
37. if (r.error != null) { return { error = r.error } }
38. return calendarView(u, first, last)
39. }
41. on server calDelete(id, first, last, session) {
42. let u = userIdOfSession(session)
43. if (u == null) { return { error = 'log in with ident first' } }
44. if (!validWindow(first, last)) { return { error = 'not a date' } }
45. let r = deleteEvent(u, id)
46. if (r.error != null) { return { error = r.error } }
47. return calendarView(u, first, last)
48. }
50. // the calendar settings: the default reminders (rows)
51. on server calSettingsLoad(session) {
52. let u = userIdOfSession(session)
53. if (u == null) { return { error = 'log in with ident first' } }
54. return settingsView(u)
55. }
57. on server calSettingsSave(rows, session) {
58. let u = userIdOfSession(session)
59. if (u == null) { return { error = 'log in with ident first' } }
60. let r = saveDefaults(u, rows)
61. if (r.error != null) { return { error = r.error } }
62. return settingsView(u)
63. }
65. // the same save as calSave, sent while the server cannot be reached: a statement-form emit the offline layer queues and
66. // replays (an event that is also emitted in value form is never queued — hence its own name)
67. on server calSaveQueued(fields, first, last, session) {
68. let u = userIdOfSession(session)
69. if (u == null) { return { error = 'log in with ident first' } }
70. if (fields == null || hlTypeName(fields) != 'Hybrid') { return { error = 'the event must be an object' } }
71. let r = saveEvent(u, fields)
72. if (r.error != null) { return { error = r.error } }
73. return { ok = true }
74. }