From 35c09f45bd0734fcc8350fa2afcb5340a33c4d5d Mon Sep 17 00:00:00 2001
From: Javier Olaechea <pirata@gmail.com>
Date: Fri, 23 Sep 2016 23:50:32 -0500
Subject: [PATCH 1/2] Simplify the setting of COLESLAW-CONF:*BASEDIR*

No need to use a before method specializing in the LOAD-OP. Use uiop's
pathname-parent-directory-pathname instead
---
 coleslaw-conf.asd      | 12 ------------
 coleslaw.asd           | 13 +++++--------
 src/coleslaw-conf.lisp | 12 +++++-------
 3 files changed, 10 insertions(+), 27 deletions(-)
 delete mode 100644 coleslaw-conf.asd

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 <redline6561@gmail.com>"
-  :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 <redline6561@gmail.com>"
   :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..b1436da 100644
--- a/src/coleslaw-conf.lisp
+++ b/src/coleslaw-conf.lisp
@@ -1,12 +1,10 @@
 (defpackage #:coleslaw-conf
   (:use #:cl)
-  (:export #:*basedir*
-           #:set-basedir))
+  (:import-from #:uiop/pathname
+                #:pathname-parent-directory-pathname)
+  (: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* (pathname-parent-directory-pathname (make-pathname :name nil :type nil :defaults *load-truename*))
+  "A pathname pointing to Coleslaw's top level directory.")

From 5fd748be8b1b90d7d9a4201442f942d0d0414661 Mon Sep 17 00:00:00 2001
From: Masataro Asai <guicho2.71828@gmail.com>
Date: Sun, 27 Oct 2019 15:36:20 -0400
Subject: [PATCH 2/2] *load-truename* does not work, it may point to the cached
 fasl file.

---
 src/coleslaw-conf.lisp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/coleslaw-conf.lisp b/src/coleslaw-conf.lisp
index b1436da..116d113 100644
--- a/src/coleslaw-conf.lisp
+++ b/src/coleslaw-conf.lisp
@@ -1,10 +1,10 @@
 (defpackage #:coleslaw-conf
   (:use #:cl)
-  (:import-from #:uiop/pathname
-                #:pathname-parent-directory-pathname)
   (:export #:*basedir*))
 
 (in-package #:coleslaw-conf)
 
-(defparameter *basedir* (pathname-parent-directory-pathname (make-pathname :name nil :type nil :defaults *load-truename*))
+(defparameter *basedir*
+  (uiop/pathname:pathname-parent-directory-pathname
+   #.(or *compile-file-truename* *load-truename*))
   "A pathname pointing to Coleslaw's top level directory.")