Implement quote block.

This commit is contained in:
Tom Alexander 2023-12-30 20:53:20 -05:00
parent 3a6fc5b669
commit 03c8c07fe0
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::QuoteBlock; use crate::types::QuoteBlock;
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::QuoteBlock(original) }, { WasmAstNode::QuoteBlock(original) },
{ "TODO".into() }, { "quote-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,
WasmQuoteBlock { WasmQuoteBlock {
additional_properties: AdditionalProperties::default(), additional_properties,
}, },
)) ))
} }