blob: 5ddd23adc5c7dea379582fe264bf367ced5a50f1 (
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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
|
(in-package :xfdf)
(defun write-xfdf (output-stream fields)
"Write an XFDF document to `output-stream` using cons cells in the `fields`
list."
(format output-stream "~
<?xml version=\"1.0\" encoding=\"UTF-8\"?>
<xfdf xmlns=\"http://ns.adobe.com/xfdf/\" xml:space=\"preserve\">
<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)))
(format output-stream " </fields>
</xfdf>")
output-stream)
(defun field-xfdf (name value)
(field-xfdf* name value 0))
(defun field-xfdf* (name value nesting-level)
""
(let ((indent (+ 2 nesting-level)))
;; TODO: Add checkbox default values.
(if (listp value)
(field-xfdf* name value (1+ nesting-level))
;; TODO: Put checkbox stuff here.
(format nil "~
~v{~A~:*~}<field name=\"~A\"
~v{~A~:*~} <value>~A</value>
~v{~A~:*~}</field>
"
indent
name
indent
value
indent))))
;; * (format t "~v{~A~:*~}<>~A" 5 '("Hello") "Next")
|
