diff options
| author | Colin Okay <colin@cicadas.surf> | 2022-10-25 07:09:51 -0500 |
|---|---|---|
| committer | Colin Okay <colin@cicadas.surf> | 2022-10-25 07:09:51 -0500 |
| commit | 233153fe50477647f17ba94991dc4ef1444afacc (patch) | |
| tree | 519ba04007bae47191103537341aa4b85ed14ff4 /vampire.lisp | |
| parent | 5a9192938a81037c2f698af5fdb93d248264e401 (diff) | |
Modify: config class to include dl thread info, static dir
Diffstat (limited to 'vampire.lisp')
| -rw-r--r-- | vampire.lisp | 15 |
1 files 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 |