From 1c3bd94c328df0c8b4293bc42a25b2d7c851fd0c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Wed, 2 Oct 2019 23:05:01 +0200 Subject: Made parser work again (for single files). --- module/vcomponent.scm | 4 ++-- module/vcomponent/primitive.scm | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) (limited to 'module') diff --git a/module/vcomponent.scm b/module/vcomponent.scm index fc360486..a106d993 100644 --- a/module/vcomponent.scm +++ b/module/vcomponent.scm @@ -1,5 +1,5 @@ (define-module (vcomponent) - #:use-module ((vcomponent primitive) :select (parse-path make-vcomponent)) + #:use-module ((vcomponent primitive) :select (parse-cal-path make-vcomponent)) #:use-module (vcomponent datetime) #:use-module (vcomponent recurrence) #:use-module (vcomponent timezone) @@ -82,7 +82,7 @@ (define* (make-vcomponent #:optional path) (if (not path) (make-vcomponent) - (let* ((root (parse-path path)) + (let* ((root (parse-cal-path path)) (component (case (string->symbol (or (attr root "X-HNH-SOURCETYPE") "no-type")) ;; == Single ICS file == diff --git a/module/vcomponent/primitive.scm b/module/vcomponent/primitive.scm index e103feae..2cf12508 100644 --- a/module/vcomponent/primitive.scm +++ b/module/vcomponent/primitive.scm @@ -17,7 +17,7 @@ ; %vcomponent-shallow-copy) - (make-vcomponent add-line! add-child! make-vline add-attribute! parse-path) + (make-vcomponent add-line! add-child! make-vline add-attribute! parse-cal-path) ) (load-extension "libguile-calendar" "init_lib") -- cgit v1.2.3