user.lisp

(in-package:lispkit)


(defunget-xdg-config-dir ()
 (let ((dir (uiop:getenv "XDG_CONFIG_HOME")))
 (if (or (not dir) (string= dir ""))
 (merge-pathnames#p".config/" (user-homedir-pathname))
 dir)))

(defunget-rc-file ()
 (let* ((xdg-config-dir (get-xdg-config-dir))
 (user-rc (probe-file (merge-pathnames (user-homedir-pathname) #p".lispkitrc")))
 (conf-rc (probe-file (merge-pathnames#P"lispkit/config" xdg-config-dir)))
 (etc-rc (probe-file#p"/etc/lispkit")))
 (or user-rc conf-rc etc-rc)))