diff options
Diffstat (limited to 'src/xfdf.lisp')
| -rw-r--r-- | src/xfdf.lisp | 17 |
1 files changed, 0 insertions, 17 deletions
diff --git a/src/xfdf.lisp b/src/xfdf.lisp index 59a032a..64456ee 100644 --- a/src/xfdf.lisp +++ b/src/xfdf.lisp @@ -9,18 +9,6 @@ list." <fields> ") -; (loop for (name . value) in fields -; do -; (let ((value (cond ((eq value t) "Yes") -; ((eq value nil) "Off") -; (t value)))) -; (format output-stream " <field name=\"~A\"> -; <value>~A</value> -; </field> -; " -; name -; value))) - (loop for (name . value) in fields do (format output-stream "~A" (field-xfdf name value))) @@ -40,16 +28,11 @@ list." "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) - ;; TODO: We need to do something with value - ;; TODO: How to concat results from dolist? (build-xfdf-nested-field name value nesting-level indent) - ;; TODO: Put checkbox stuff here. (let ((value (pdf-checkbox-value value))) (xfdf-field-string name value indent))))) -;; * (format t "~v{~A~:*~}<>~A" 5 '("Hello") "Next") (defun build-xfdf-nested-field (name value nesting-level indent) "Build the XFDF XML for a field containing other fields." |