From 81fc535b2b8cb2a726c8514f2ae91e913ac157c7 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Wed, 12 Apr 2023 11:18:25 +0200
Subject: UNFINISHED work on data stores and formats.

---
 module/vcomponent/base.scm | 27 +++++++++++++++------------
 1 file changed, 15 insertions(+), 12 deletions(-)

(limited to 'module/vcomponent/base.scm')

diff --git a/module/vcomponent/base.scm b/module/vcomponent/base.scm
index e4982336..472c5074 100644
--- a/module/vcomponent/base.scm
+++ b/module/vcomponent/base.scm
@@ -30,6 +30,7 @@
            parameters
            properties
 
+           copy-as-orphan
            copy-vcomponent
            x-property?
            internal-field?
@@ -198,23 +199,25 @@
               ;; TODO deep-copy on parameters?
               (get-vline-parameters vline)))
 
+(define (copy-as-orphan component)
+  (make-vcomponent%
+   (type component)
+   (children component)
+   ;; properties
+   (alist->hashq-table
+    (hash-map->list (lambda (key value)
+                      (cons key (if (list? value)
+                                    (map copy-vline value)
+                                    (copy-vline value))))
+                    (get-component-properties component)))))
+
+
 (define (copy-vcomponent component)
-  (let ((ev
-         (make-vcomponent%
-          (type component)
-          (children component)
-          ;; properties
-          (alist->hashq-table
-           (hash-map->list (lambda (key value)
-                             (cons key (if (list? value)
-                                           (map copy-vline value)
-                                           (copy-vline value))))
-                           (get-component-properties component))))))
+  (let ((ev (copy-as-orphan component)))
     (when (parent component)
       (reparent! (parent component) ev))
     ev))
 
-
 (define (extract field)
   (lambda (e) (prop e field)))
 
-- 
cgit v1.2.3