11 lines
448 B
Common Lisp
11 lines
448 B
Common Lisp
(uiop:define-package :sextant/files/paths
|
|
(:use :cl)
|
|
(:export #:config-filepath
|
|
#:cache-filepath))
|
|
(in-package :sextant/files/paths)
|
|
|
|
(defun config-home () (merge-pathnames "sextant/" (uiop:xdg-config-home)))
|
|
(defun config-filepath (filename) (merge-pathnames filename (config-home)))
|
|
|
|
(defun cache-home () (merge-pathnames "sextant/" (uiop:xdg-cache-home)))
|
|
(defun cache-filepath (filename) (merge-pathnames filename (cache-home)))
|