Add delete-{parameter,property}!

1 files changed, 11 insertions, 0 deletions

diff --git a/module/vcomponent/base.scm b/module/vcomponent/base.scm
index 9066b257..ab2121a2 100644
--- a/module/vcomponent/base.scm
+++ b/module/vcomponent/base.scm
@@ -110,6 +110,11 @@
    get-prop*
    set-prop*!))
 
+(define-public (delete-property! component key)
+  (hashq-remove! (get-component-properties component)
+                 (as-symb key)))
+
+
 ;; vcomponent x (or str symb) → value
 (define (get-prop component key)
   (let ((props (get-prop* component key)))
@@ -139,6 +144,12 @@
      (hashq-set! (get-vline-parameters vline)
                  (as-symb parameter-key) val))))
 
+
+(define-public (delete-parameter! vline parameter-key)
+  (hashq-remove! (get-vline-parameters vline)
+                 (as-symb parameter-key)))
+
+
 ;; Returns the parameters of a property as an assoc list.
 ;; @code{(map car <>)} leads to available parameters.
 (define-public (parameters vline)