diff options
Diffstat (limited to 'module/vcomponent/base.scm')
| -rw-r--r-- | module/vcomponent/base.scm | 11 |
1 files changed, 0 insertions, 11 deletions
diff --git a/module/vcomponent/base.scm b/module/vcomponent/base.scm index a93ff6da..3e75e566 100644 --- a/module/vcomponent/base.scm +++ b/module/vcomponent/base.scm @@ -77,17 +77,6 @@ (set-component-children! parent (cons child (children parent))) (set-component-parent! child parent)) -;; TODO this doesn't handle multi-valued items -(define* (get-property-value component key #:optional default) - (cond [(hashq-ref (get-component-properties component) - key #f) - => get-vline-value] - [else default])) - -(define (get-property component key) - (hashq-ref (get-component-properties component) - key)) - ;;; TODO key=DTSTART, (date? value) => #t ;;; KRÄVER att (props vline 'VALUE) <- "DATE" (define (set-property! component key value) |