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::to_wasm::ToWasm;
use super::AdditionalProperties; use super::AdditionalProperties;
use crate::compare::ElispFact; use crate::compare::ElispFact;
use crate::types::GetAffiliatedKeywords;
use crate::types::VerseBlock; use crate::types::VerseBlock;
use crate::wasm::to_wasm::ToWasmStandardProperties; use crate::wasm::to_wasm::ToWasmStandardProperties;
@ -21,8 +22,12 @@ to_wasm!(
original, original,
wasm_context, wasm_context,
{ WasmAstNode::VerseBlock(original) }, { WasmAstNode::VerseBlock(original) },
{ "TODO".into() }, { "verse-block".into() },
{ {
let additional_properties = original
.get_affiliated_keywords()
.to_wasm(wasm_context.clone())?;
let children = original let children = original
.children .children
.iter() .iter()
@ -36,7 +41,7 @@ to_wasm!(
Ok(( Ok((
children, children,
WasmVerseBlock { WasmVerseBlock {
additional_properties: AdditionalProperties::default(), additional_properties,
}, },
)) ))
} }