diff options
| author | Hugo Hörnquist <hugo@hornquist.se> | 2019-10-01 23:39:00 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-10-01 23:39:00 +0200 |
| commit | 7539f8c8804849294e100c5442e0397f4f4d2c40 (patch) | |
| tree | 129fa0bb0f18604bd378724794c855e8e4d230dc /module/vcomponent.scm | |
| parent | Start moving to scheme structs. (diff) | |
| download | calp-7539f8c8804849294e100c5442e0397f4f4d2c40.tar.gz calp-7539f8c8804849294e100c5442e0397f4f4d2c40.tar.xz | |
Disabled bunch of old stuff, new stuff kinda builds.
Diffstat (limited to 'module/vcomponent.scm')
| -rw-r--r-- | module/vcomponent.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/module/vcomponent.scm b/module/vcomponent.scm index cc79b646..fc360486 100644 --- a/module/vcomponent.scm +++ b/module/vcomponent.scm @@ -1,5 +1,5 @@ (define-module (vcomponent) - #:use-module ((vcomponent primitive) :select (%vcomponent-make)) + #:use-module ((vcomponent primitive) :select (parse-path make-vcomponent)) #:use-module (vcomponent datetime) #:use-module (vcomponent recurrence) #:use-module (vcomponent timezone) @@ -81,8 +81,8 @@ (define* (make-vcomponent #:optional path) (if (not path) - (%vcomponent-make) - (let* ((root (%vcomponent-make path)) + (make-vcomponent) + (let* ((root (parse-path path)) (component (case (string->symbol (or (attr root "X-HNH-SOURCETYPE") "no-type")) ;; == Single ICS file == |