calendar

3.9 KB

1. // calendar.hl — `/`: the month view under the app header, with the user's private events (ticket calendar#2).
2. // The events live in events.hl; the faces below are what the month view calls (`emit server …`, the trailing
3. // `session` is always the server's since hybriel #16). Each answers with the events of the six weeks on screen.
4. // Signed out: no session user → nothing is read or written.
5. parent './main.hl'
6. import MonthView from './month-view/month-view.hl'
7. import { userIdOfSession } from '../users.hl'
8. import { eventsBetween, saveEvent, deleteEvent, defaultsOf, saveDefaults, upcoming } from '../events.hl'
9. import { describe, shift } from './month-view/reminders.hl'
10. import { serverToday } from './month-view/clock.hl'
11. import { isDate } from './month-view/dates.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. // the window is two dates the page shows; anything else is refused
25. validWindow = (first, last) => { return isDate(first) && isDate(last) }
27. on server calLoad(first, last, session) {
28. let u = userIdOfSession(session)
29. if (u == null) { return { error = 'log in with ident first' } }
30. if (!validWindow(first, last)) { return { error = 'not a date' } }
31. return { events = eventsBetween(u, first, last) defaults = describe(defaultsOf(u)) soon = soonOf(u) defaultRows = defaultsOf(u) }
32. }
34. on server calSave(fields, first, last, session) {
35. let u = userIdOfSession(session)
36. if (u == null) { return { error = 'log in with ident first' } }
37. if (!validWindow(first, last)) { return { error = 'not a date' } }
38. if (fields == null || hlTypeName(fields) != 'Hybrid') { return { error = 'the event must be an object' } }
39. let r = saveEvent(u, fields)
40. if (r.error != null) { return { error = r.error } }
41. return { events = eventsBetween(u, first, last) defaults = describe(defaultsOf(u)) soon = soonOf(u) defaultRows = defaultsOf(u) }
42. }
44. on server calDelete(id, first, last, session) {
45. let u = userIdOfSession(session)
46. if (u == null) { return { error = 'log in with ident first' } }
47. if (!validWindow(first, last)) { return { error = 'not a date' } }
48. let r = deleteEvent(u, id)
49. if (r.error != null) { return { error = r.error } }
50. return { events = eventsBetween(u, first, last) defaults = describe(defaultsOf(u)) soon = soonOf(u) defaultRows = defaultsOf(u) }
51. }
53. // the events with the reminders that apply, from two days back to nine days ahead (what the browser plans its notifications from)
54. soonOf = (u) => {
55. let t = serverToday()
56. return upcoming(u, shift(t, -2), shift(t, 9))
57. }
59. // the calendar settings: the default reminders (rows)
60. on server calSettingsLoad(session) {
61. let u = userIdOfSession(session)
62. if (u == null) { return { error = 'log in with ident first' } }
63. return { rows = defaultsOf(u) defaults = describe(defaultsOf(u)) soon = soonOf(u) defaultRows = defaultsOf(u) }
64. }
66. on server calSettingsSave(rows, session) {
67. let u = userIdOfSession(session)
68. if (u == null) { return { error = 'log in with ident first' } }
69. let r = saveDefaults(u, rows)
70. if (r.error != null) { return { error = r.error } }
71. return { rows = defaultsOf(u) defaults = describe(defaultsOf(u)) soon = soonOf(u) defaultRows = defaultsOf(u) }
72. }
74. // the same save as calSave, sent while the server cannot be reached: a statement-form emit the offline layer queues and
75. // replays (an event that is also emitted in value form is never queued — hence its own name)
76. on server calSaveQueued(fields, first, last, session) {
77. let u = userIdOfSession(session)
78. if (u == null) { return { error = 'log in with ident first' } }
79. if (fields == null || hlTypeName(fields) != 'Hybrid') { return { error = 'the event must be an object' } }
80. let r = saveEvent(u, fields)
81. if (r.error != null) { return { error = r.error } }
82. return { ok = true }
83. }