diff --git a/coleslaw-conf.asd b/coleslaw-conf.asd deleted file mode 100644 index c294d66..0000000 --- a/coleslaw-conf.asd +++ /dev/null @@ -1,12 +0,0 @@ -(in-package #:asdf-user) - -(defsystem #:coleslaw-conf - :name "coleslaw-conf" - :description "Configuration variable for Coleslaw, Flexible Lisp Blogware" - :version "0.9.7" - :license "BSD" - :author "Brit Butler " - :pathname "src/" - :depends-on () - :serial t - :components ((:file "coleslaw-conf"))) diff --git a/coleslaw.asd b/coleslaw.asd index 4dc4579..037c6ba 100644 --- a/coleslaw.asd +++ b/coleslaw.asd @@ -7,8 +7,7 @@ :license "BSD" :author "Brit Butler " :pathname "src/" - :depends-on (:coleslaw-conf - :closure-template + :depends-on (:closure-template :3bmd :3bmd-ext-code-blocks :alexandria @@ -17,9 +16,11 @@ :cl-fad :cl-ppcre :closer-mop - :cl-unicode) + :cl-unicode + :uiop) :serial t - :components ((:file "packages") + :components ((:file "coleslaw-conf") + (:file "packages") (:file "util") (:file "config") (:file "themes") @@ -30,7 +31,3 @@ (:file "feeds") (:file "coleslaw")) :in-order-to ((test-op (test-op coleslaw-test)))) - -(defmethod perform :before ((op load-op) - (system (eql (find-system :coleslaw)))) - (uiop:symbol-call "COLESLAW-CONF" 'set-basedir #.*load-truename*)) diff --git a/src/coleslaw-conf.lisp b/src/coleslaw-conf.lisp index 6d363a9..116d113 100644 --- a/src/coleslaw-conf.lisp +++ b/src/coleslaw-conf.lisp @@ -1,12 +1,10 @@ (defpackage #:coleslaw-conf (:use #:cl) - (:export #:*basedir* - #:set-basedir)) + (:export #:*basedir*)) (in-package #:coleslaw-conf) -(defvar *basedir*) - -(defun set-basedir (pathname) - (setf coleslaw-conf:*basedir* - (make-pathname :name nil :type nil :defaults pathname))) +(defparameter *basedir* + (uiop/pathname:pathname-parent-directory-pathname + #.(or *compile-file-truename* *load-truename*)) + "A pathname pointing to Coleslaw's top level directory.")