From 4a48be393e91c2cd5f59cb549b2085faae9114c7 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Wed, 22 Jul 2020 16:36:16 +0200 Subject: Let with-atomic-output-to-file break free. --- module/output/vdir.scm | 18 ++++++------------ 1 file changed, 6 insertions(+), 12 deletions(-) (limited to 'module/output/vdir.scm') diff --git a/module/output/vdir.scm b/module/output/vdir.scm index abe02a9f..5e319248 100644 --- a/module/output/vdir.scm +++ b/module/output/vdir.scm @@ -8,8 +8,10 @@ :use-module (util) :use-module (output ical) :use-module (vcomponent) + :use-module ((util io) :select (with-atomic-output-to-file)) ) + (define / file-name-separator-string) (define-public (save-event event) @@ -19,19 +21,11 @@ (error "Importing into direct calendar files not supported")] [(vdir) - (let* ((uid (or (prop event 'UID) (uuidgen))) - ;; copy to enusre writable string - (tmpfile (string-copy (string-append (prop calendar 'X-HNH-DIRECTORY) - / ".calp-" uid "XXXXXX"))) - (port (mkstemp! tmpfile))) + (let* ((uid (or (prop event 'UID) (uuidgen)))) (set! (prop event 'UID) uid) - (with-output-to-port port - (lambda () (print-components-with-fake-parent (list event)))) - ;; does close flush? - (force-output port) - (close-port port) - (rename-file tmpfile (string-append (prop calendar 'X-HNH-DIRECTORY) - / uid ".ics")) + (with-atomic-output-to-file + (string-append (prop calendar 'X-HNH-DIRECTORY) / uid ".ics") + (lambda () (print-components-with-fake-parent (list event)))) uid)] [else -- cgit v1.2.3