From cd6a64c015b747d92448171f027564cc18efad1f Mon Sep 17 00:00:00 2001
From: Tom Alexander <tom@fizz.buzz>
Date: Fri, 29 Dec 2023 21:36:52 -0500
Subject: [PATCH] Implement keyword.

---
 src/wasm/keyword.rs | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/src/wasm/keyword.rs b/src/wasm/keyword.rs
index 289bbc45..f9afadab 100644
--- a/src/wasm/keyword.rs
+++ b/src/wasm/keyword.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::Keyword;
 use crate::wasm::to_wasm::ToWasmStandardProperties;
 
@@ -13,6 +14,8 @@ use crate::wasm::to_wasm::ToWasmStandardProperties;
 pub struct WasmKeyword {
     #[serde(flatten)]
     pub(crate) additional_properties: AdditionalProperties,
+    pub(crate) key: String,
+    pub(crate) value: String,
 }
 
 to_wasm!(
@@ -21,12 +24,18 @@ to_wasm!(
     original,
     wasm_context,
     { WasmAstNode::Keyword(original) },
-    { "TODO".into() },
+    { "keyword".into() },
     {
+        let additional_properties = original
+            .get_affiliated_keywords()
+            .to_wasm(wasm_context.clone())?;
+
         Ok((
             Vec::new(),
             WasmKeyword {
-                additional_properties: AdditionalProperties::default(),
+                additional_properties,
+                key: original.key.to_owned(),
+                value: original.value.to_owned(),
             },
         ))
     }