diff options
Diffstat (limited to 'src/property/lets-encrypt.lisp')
-rw-r--r-- | src/property/lets-encrypt.lisp | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/src/property/lets-encrypt.lisp b/src/property/lets-encrypt.lisp index 93f4bca..37c0933 100644 --- a/src/property/lets-encrypt.lisp +++ b/src/property/lets-encrypt.lisp @@ -68,3 +68,19 @@ web server-specific properties in a DEFPROPLIST/DEFPROPSPEC." (:desc (format nil "Let's Encrypt for ~{~A~^, ~}" domains)) (installed) (%obtained agree-tos htdocs (flatten domains))) + +(defun dir-for (domain) + (ensure-directory-pathname + (merge-pathnames domain #P"/etc/letsencrypt/live/"))) + +(defun fullchain-for (domain) + (merge-pathnames "fullchain.pem" (dir-for domain))) + +(defun chain-for (domain) + (merge-pathnames "chain.pem" (dir-for domain))) + +(defun certificate-for (domain) + (merge-pathnames "cert.pem" (dir-for domain))) + +(defun privkey-for (domain) + (merge-pathnames "privkey.pem" (dir-for domain))) |