diff options
Diffstat (limited to 'src/xfdf.lisp')
| -rw-r--r-- | src/xfdf.lisp | 17 |
1 files changed, 15 insertions, 2 deletions
diff --git a/src/xfdf.lisp b/src/xfdf.lisp index 315c63c..a61fcdd 100644 --- a/src/xfdf.lisp +++ b/src/xfdf.lisp @@ -1,13 +1,26 @@ (in-package :xfdf) (defun write-xfdf (output-stream fields) - (format output-stream "<?xml version=\"1.0\" encoding=\"UTF-8\"?> + (format output-stream "~ +<?xml version=\"1.0\" encoding=\"UTF-8\"?> <xfdf xmlns=\"http://ns.adobe.com/xfdf/\" xml:space=\"preserve\"> <fields> ") ;; TODO ; (loop do) + (format output-stream " <field name=\"checkbox-on\"> + <value>Yes</value> + </field> + <field name=\"checkbox-off\"> + <value>Off</value> + </field> + <field name=\"text\"> + <value>123 Fake Street, Springfield</value> + </field> +") (format output-stream " </fields> -</xfdf>")) +</xfdf>") + + output-stream) |