From 2e5415ff7cfd8b8bd176a9206ae8fdc08c364862 Mon Sep 17 00:00:00 2001
From: Teddy Wing
Date: Fri, 21 Apr 2023 20:10:01 +0200
Subject: field-xfdf: Add documentation to these functions

---
 src/xfdf.lisp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/xfdf.lisp b/src/xfdf.lisp
index 5e0be7c..d88c15d 100644
--- a/src/xfdf.lisp
+++ b/src/xfdf.lisp
@@ -33,10 +33,12 @@ list."
 (defconstant +field-base-indentation+ 2)
 
 (defun field-xfdf (name value)
+  "Build an XFDF XML string for a field."
   (field-xfdf* name value 0))
 
 (defun field-xfdf* (name value nesting-level)
-  ""
+  "Build an XFDF XML string for a field. The `nesting-level` specifies the
+amount of indentation to use relative to the +field-base-indentation+."
   (let ((indent (+ +field-base-indentation+ nesting-level)))
     ;; TODO: Add checkbox default values.
     (if (consp value)
-- 
cgit v1.2.3