From 8063f5533d66b487c9db5c83d12404647fc0c1ef Mon Sep 17 00:00:00 2001
From: Teddy Wing
Date: Fri, 21 Apr 2023 02:14:23 +0200
Subject: xfdf.lisp: Extract '2' magic number to constant

---
 src/xfdf.lisp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/xfdf.lisp b/src/xfdf.lisp
index 2dfb493..83ada74 100644
--- a/src/xfdf.lisp
+++ b/src/xfdf.lisp
@@ -30,12 +30,14 @@ list."
 
   output-stream)
 
+(defconstant +field-base-indentation+ 2)
+
 (defun field-xfdf (name value)
   (field-xfdf* name value 0))
 
 (defun field-xfdf* (name value nesting-level)
   ""
-  (let ((indent (+ 2 nesting-level)))
+  (let ((indent (+ +field-base-indentation+ nesting-level)))
     ;; TODO: Add checkbox default values.
     (format t "debug1: n'~A' : v'~A' : n'~A'~%" name value nesting-level)
     (if (consp value)
-- 
cgit v1.2.3