blob: a61fcddbb4bb0b580306b33c73e4e827697bb894 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
(in-package :xfdf)
(defun write-xfdf (output-stream fields)
(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>")
output-stream)
|
