diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-04-05 16:40:34 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-04-05 16:56:03 +0200 |
| commit | b4bfe19901bedebbffd5052d6885f0a1a91fe8a7 (patch) | |
| tree | 7d946d35dfbc4bf3b2937e679751c4e696321450 | |
| parent | Remove parse-time from (datetime timespec). (diff) | |
| download | calp-b4bfe19901bedebbffd5052d6885f0a1a91fe8a7.tar.gz calp-b4bfe19901bedebbffd5052d6885f0a1a91fe8a7.tar.xz | |
Comment and set defaults for event object.
| -rw-r--r-- | module/vcomponent/util/instance/methods.scm | 13 |
1 files changed, 11 insertions, 2 deletions
diff --git a/module/vcomponent/util/instance/methods.scm b/module/vcomponent/util/instance/methods.scm index 926f9bb8..18ac9330 100644 --- a/module/vcomponent/util/instance/methods.scm +++ b/module/vcomponent/util/instance/methods.scm @@ -27,12 +27,21 @@ (define-class <events> () - (calendar-files init-keyword: calendar-files:) - (calendars getter: get-calendars) + ;; Files which calendars where loaded from + (calendar-files init-keyword: calendar-files: + init-value: '()) + ;; calendar objects + (calendars getter: get-calendars + init-value: '()) + ;; events, which should all be children of the calendars (events getter: get-events) + ;; subset of events (repeating-events getter: get-repeating-events) + ;; subset of events (fixed-events getter: get-fixed-events) + ;; events again, but as stream with repeating events realised (event-set getter: get-event-set) + ;; hash-table from event UID:s, to the events uid-map ) |