diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-07-08 02:21:28 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-07-08 02:21:28 +0200 |
commit | c6e2bf633d435e52813f03da0691a99a91890c7a (patch) | |
tree | bd5d141e1b60ddd9f62c21ce5d85ce46f9fe87e2 /module/vcomponent | |
parent | Add HTML button for removing elements. (diff) | |
download | calp-c6e2bf633d435e52813f03da0691a99a91890c7a.tar.gz calp-c6e2bf633d435e52813f03da0691a99a91890c7a.tar.xz |
Move save-event to own module.
This hopefully resolves theh problems with (output ical) having
bootstraping problems.
Diffstat (limited to '')
-rw-r--r-- | module/vcomponent.scm | 30 |
1 files changed, 0 insertions, 30 deletions
diff --git a/module/vcomponent.scm b/module/vcomponent.scm index 5987c542..9b5f944c 100644 --- a/module/vcomponent.scm +++ b/module/vcomponent.scm @@ -63,9 +63,6 @@ -;;; TODO vcomponent should NOT depend on output -(use-modules (output ical)) - ;;; TODO both add- and remove-event sometimes crash with ;;;;; Warning: Unwind-only `stack-overflow' exception; skipping pre-unwind handler. ;;; I belive this is due to how getf and setf work. @@ -128,30 +125,3 @@ #f)) -(define / file-name-separator-string) - -(define-public (save-event event) - (define calendar (parent event)) - (case (prop calendar 'X-HNH-SOURCETYPE) - [(file) - (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))) - (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")) - uid)] - - [else - (error "Source of calendar unknown, aborting.") - ])) |