From 3347a25d6abc00f0cbcea893282eef949ca9b25f Mon Sep 17 00:00:00 2001
From: Teddy Wing
Date: Sun, 16 Apr 2023 15:44:12 +0200
Subject: 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.
---
 src/package.lisp |  2 ++
 src/xfdf.lisp    | 13 +++++++++++++
 xfdf.asd         | 10 ++++++++++
 3 files changed, 25 insertions(+)
 create mode 100644 src/package.lisp
 create mode 100644 src/xfdf.lisp
 create mode 100644 xfdf.asd

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")))))
-- 
cgit v1.2.3