From df9fa9743e5f56f932f919273b1811b63222f919 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Mon, 10 Apr 2023 22:45:30 +0200
Subject: Add (sxml util).

---
 module/sxml/util.scm | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 module/sxml/util.scm

diff --git a/module/sxml/util.scm b/module/sxml/util.scm
new file mode 100644
index 00000000..532141b2
--- /dev/null
+++ b/module/sxml/util.scm
@@ -0,0 +1,22 @@
+(define-module (sxml util)
+  :use-module (ice-9 match)
+  :export (get-root-element add-attributes))
+
+(define (get-root-element tree)
+  (match tree
+    (('*TOP* ('*PI* 'xml body) (root . children))
+     (lambda (modifier) `(*TOP* (*PI* xml ,body)
+                           ,(modifier `(,root ,@children)))))
+    (('*TOP* (root . children))
+     (lambda (modifier) `(*TOP* ,(modifier `(,root ,@children)))))
+    ((root . children)
+     (lambda (modifier) `(*TOP* ,(modifier `(,root ,@children)))))))
+
+(define (add-attributes element added-attributes)
+  (match element
+    ((el ('@ . attributes) . children)
+     `(,el (@ ,@attributes ,@added-attributes)
+           ,@children))
+    ((el . children)
+     `(,el (@ ,@added-attributes)
+           ,@children))))
-- 
cgit v1.2.3