blob: 7de9379b9213f568016bc3358c1048a6e8eec982 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
;;; Commentary:
;;; Module for writing components to the vdir storage format.
;;; Currently also has some cases for "big" icalendar files,
;;; but those are currently unsupported.
;;; TODO generalize save-event and remove-event into a general interface,
;;; which different database backends can implement. Actually, do that for all
;;; loading and writing.
;;; Code:
(define-module (vcomponent formats vdir save-delete)
:use-module (hnh util)
:use-module (hnh util uuid)
:use-module ((hnh util path) :select (path-append))
:use-module ((hnh util exceptions) :select (assert))
:use-module (vcomponent formats ical output)
:use-module (vcomponent)
:use-module ((hnh util io) :select (with-atomic-output-to-file))
)
(define-public (save-event event)
(define calendar (parent event))
(assert (eq? 'vdir (prop calendar '-X-HNH-SOURCETYPE)))
(let* ((uid (or (prop event 'UID) (uuid))))
(set! (prop event 'UID) uid
;; TODO use existing filename if present?
(prop event '-X-HNH-FILENAME) (path-append
(prop calendar '-X-HNH-DIRECTORY)
(string-append uid ".ics")))
(with-atomic-output-to-file (prop event '-X-HNH-FILENAME)
(lambda () (print-components-with-fake-parent (list event))))
uid))
(define-public (remove-event event)
(define calendar (parent event))
(assert (eq? 'vdir (prop calendar '-X-HNH-SOURCETYPE)))
(delete-file (prop event '-X-HNH-FILENAME)))
|
