diff options
| -rw-r--r-- | src/xfdf.lisp | 4 |
1 files changed, 3 insertions, 1 deletions
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) |