diff options
| author | Teddy Wing | 2023-04-16 15:44:12 +0200 |
|---|---|---|
| committer | Teddy Wing | 2023-04-16 15:44:12 +0200 |
| commit | 3347a25d6abc00f0cbcea893282eef949ca9b25f (patch) | |
| tree | a2c8aade93424b5d47a26a506c7f78fbff593713 /src | |
| download | xfdf-3347a25d6abc00f0cbcea893282eef949ca9b25f.tar.bz2 | |
Scaffold for a library to generate XFDF XML
The library should, given a list of cons cells, generate XFDF data based
on those keys and values.
Diffstat (limited to 'src')
| -rw-r--r-- | src/package.lisp | 2 | ||||
| -rw-r--r-- | src/xfdf.lisp | 13 |
2 files changed, 15 insertions, 0 deletions
diff --git a/src/package.lisp b/src/package.lisp new file mode 100644 index 0000000..d535a24 --- /dev/null +++ b/src/package.lisp @@ -0,0 +1,2 @@ +(defpackage :xfdf + (:use :cl)) diff --git a/src/xfdf.lisp b/src/xfdf.lisp new file mode 100644 index 0000000..315c63c --- /dev/null +++ b/src/xfdf.lisp @@ -0,0 +1,13 @@ +(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 " </fields> +</xfdf>")) |