From b4fcc6500bb7ae3074f6c751e0d4bf2fc8918323 Mon Sep 17 00:00:00 2001
From: Tom Alexander <tom@fizz.buzz>
Date: Sat, 30 Dec 2023 16:47:24 -0500
Subject: [PATCH] Implement verse block.

---
 src/wasm/verse_block.rs | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/src/wasm/verse_block.rs b/src/wasm/verse_block.rs
index 9520dbf7..4c244c46 100644
--- a/src/wasm/verse_block.rs
+++ b/src/wasm/verse_block.rs
@@ -6,6 +6,7 @@ use super::macros::to_wasm;
 use super::to_wasm::ToWasm;
 use super::AdditionalProperties;
 use crate::compare::ElispFact;
+use crate::types::GetAffiliatedKeywords;
 use crate::types::VerseBlock;
 use crate::wasm::to_wasm::ToWasmStandardProperties;
 
@@ -21,8 +22,12 @@ to_wasm!(
     original,
     wasm_context,
     { WasmAstNode::VerseBlock(original) },
-    { "TODO".into() },
+    { "verse-block".into() },
     {
+        let additional_properties = original
+            .get_affiliated_keywords()
+            .to_wasm(wasm_context.clone())?;
+
         let children = original
             .children
             .iter()
@@ -36,7 +41,7 @@ to_wasm!(
         Ok((
             children,
             WasmVerseBlock {
-                additional_properties: AdditionalProperties::default(),
+                additional_properties,
             },
         ))
     }