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 +++++++++++++
 2 files changed, 15 insertions(+)
 create mode 100644 src/package.lisp
 create mode 100644 src/xfdf.lisp

(limited to 'src')

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