From 233153fe50477647f17ba94991dc4ef1444afacc Mon Sep 17 00:00:00 2001
From: Colin Okay <colin@cicadas.surf>
Date: Tue, 25 Oct 2022 07:09:51 -0500
Subject: Modify: config class to include dl thread info, static dir

---
 vampire.lisp | 15 +++++++++------
 1 file changed, 9 insertions(+), 6 deletions(-)

diff --git a/vampire.lisp b/vampire.lisp
index 4f92b41..03b8830 100644
--- a/vampire.lisp
+++ b/vampire.lisp
@@ -7,12 +7,15 @@
 (defvar *config* nil)
 
 (defclass/std config ()
-  ((datastore-directory :ir
-    :std #P"/srv/parasite/store/")
-   (port :ir
-    :std 4919)
-   (media-directory :ir
-    :std #P"/srv/parasite/media/")))
+  ((datastore-directory :ir :std #P"/srv/parasite/store/")
+   (static-directory :ir :std #P"/srv/parasite/static/")
+   (port :ir :std 4919)
+   (downloader-threads :ir :std 5)))
+
+(defun config-from-file (path)
+  "PATH should be a path to a file containing a PLIST suitable for
+   passing as the keyword arguments to (MAKE-INSTANCE 'CONFIG ...)"
+  (apply #'make-instance 'config (read-from-file path)))
 
 ;;; RESOURCE MODEL
 
-- 
cgit v1.2.3