diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/package.lisp | 4 | ||||
| -rw-r--r-- | src/xfdf.lisp | 17 |
2 files changed, 18 insertions, 3 deletions
diff --git a/src/package.lisp b/src/package.lisp index d535a24..e914975 100644 --- a/src/package.lisp +++ b/src/package.lisp @@ -1,2 +1,4 @@ (defpackage :xfdf - (:use :cl)) + (:use :cl) + + (:export #:write-xfdf)) 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) |