Add conversion for affiliated keywords to wasm additional properties.

src/wasm/paragraph.rs

@@ -3,6 +3,10 @@ use serde::Serialize;
 use super::macros::to_wasm;
 use super::standard_properties::WasmStandardProperties;
 use super::to_wasm::ToWasm;
+use super::AdditionalProperties;
+#[cfg(feature = "wasm_test")]
+use crate::compare::ElispFact;
+use crate::types::GetAffiliatedKeywords;
 use crate::types::Paragraph;
 use crate::wasm::to_wasm::ToWasmStandardProperties;
 use crate::wasm::WasmAstNode;
@@ -11,8 +15,9 @@ use crate::wasm::WasmAstNode;
 #[serde(tag = "ast_node")]
 #[serde(rename = "paragraph")]
 pub struct WasmParagraph<'s, 'p> {
-    standard_properties: WasmStandardProperties,
-    children: Vec<WasmAstNode<'s, 'p>>,
+    pub(crate) standard_properties: WasmStandardProperties,
+    pub(crate) additional_properties: AdditionalProperties<'s, 'p>,
+    pub(crate) children: Vec<WasmAstNode<'s, 'p>>,
 }
 
 to_wasm!(
@@ -22,6 +27,10 @@ to_wasm!(
     wasm_context,
     standard_properties,
     {
+        let additional_properties = original
+            .get_affiliated_keywords()
+            .to_wasm(wasm_context.clone())?;
+
         let children = original
             .children
             .iter()
@@ -34,6 +43,7 @@ to_wasm!(
 
         Ok(WasmParagraph {
             standard_properties,
+            additional_properties,
             children,
         })
     }
@@ -44,3 +54,10 @@ impl<'s, 'p> Into<WasmAstNode<'s, 'p>> for WasmParagraph<'s, 'p> {
         WasmAstNode::Paragraph(self)
     }
 }
+
+#[cfg(feature = "wasm_test")]
+impl<'s, 'p> ElispFact<'s> for WasmParagraph<'s, 'p> {
+    fn get_elisp_name<'b>(&'b self) -> std::borrow::Cow<'s, str> {
+        "paragraph".into()
+    }
+}