diff options
| -rw-r--r-- | src/package.lisp | 2 | ||||
| -rw-r--r-- | src/xfdf.lisp | 13 | ||||
| -rw-r--r-- | xfdf.asd | 10 |
3 files changed, 25 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>")) diff --git a/xfdf.asd b/xfdf.asd new file mode 100644 index 0000000..aedf49e --- /dev/null +++ b/xfdf.asd @@ -0,0 +1,10 @@ +(asdf:defsystem xfdf + :description "Convert data to XFDF for PDF forms" + :version "0.0.1" + :license "GPL-3.0-or-later" + :author "Teddy Wing" + + :components ((:module "src" + :serial t + :components ((:file "package") + (:file "xfdf"))))) |