diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-04-06 19:04:28 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-04-06 19:04:33 +0200 |
commit | ee3d463024179514f09d80d962d1b9765462dd6b (patch) | |
tree | 4b7c4916d30fcd7df88f9452b601658d18de7320 /module/vcalendar.scm | |
parent | Rename get_property to get_attributes. (diff) | |
download | calp-ee3d463024179514f09d80d962d1b9765462dd6b.tar.gz calp-ee3d463024179514f09d80d962d1b9765462dd6b.tar.xz |
Add temporary set-attributes!
Diffstat (limited to 'module/vcalendar.scm')
-rw-r--r-- | module/vcalendar.scm | 13 |
1 files changed, 11 insertions, 2 deletions
diff --git a/module/vcalendar.scm b/module/vcalendar.scm index 0f1a3c57..ab404a1a 100644 --- a/module/vcalendar.scm +++ b/module/vcalendar.scm @@ -45,8 +45,17 @@ (as-string attr) (as-string prop))) -;; TODO replace this with procedure-with-setter -(define-public prop get-property) +(define (set-property! component attr prop val) + (%vcomponent-set-property! + component + (as-string attr) + (as-string prop) + val)) + +(define-public prop + (make-procedure-with-setter + get-property + set-property!)) (define-public (properties component attr) (%vcomponent-property-list component (as-string attr))) |