From 2e1d7561fe1bfb3e97e1205622c5ea5da2b9925b Mon Sep 17 00:00:00 2001 From: Teddy Wing Date: Fri, 21 Apr 2023 21:10:25 +0200 Subject: xfdf.lisp: Remove old code and TODOs for nested fields Nested field handling works now. --- src/xfdf.lisp | 17 ----------------- 1 file changed, 17 deletions(-) (limited to 'src') 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." ") -; (loop for (name . value) in fields -; do -; (let ((value (cond ((eq value t) "Yes") -; ((eq value nil) "Off") -; (t value)))) -; (format output-stream " -; ~A -; -; " -; 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." -- cgit v1.2.3