Implement verse block.

This commit is contained in:
Tom Alexander 2023-12-30 16:47:24 -05:00
parent ddb6f31562
commit b4fcc6500b
Signed by: talexander
GPG Key ID: D3A179C9A53C0EDE

View File

@ -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,
},
))
}