diff options
author | Hugo Hörnquist <hugo@hornquist.se> | 2019-10-02 23:05:01 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-10-02 23:05:01 +0200 |
commit | 1c3bd94c328df0c8b4293bc42a25b2d7c851fd0c (patch) | |
tree | fb529813816b2d0bce24f475f367e2556b7a2f71 /module | |
parent | Disabled bunch of old stuff, new stuff kinda builds. (diff) | |
download | calp-1c3bd94c328df0c8b4293bc42a25b2d7c851fd0c.tar.gz calp-1c3bd94c328df0c8b4293bc42a25b2d7c851fd0c.tar.xz |
Made parser work again (for single files).
Diffstat (limited to 'module')
-rw-r--r-- | module/vcomponent.scm | 4 | ||||
-rw-r--r-- | module/vcomponent/primitive.scm | 2 |
2 files changed, 3 insertions, 3 deletions
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") |