diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-06-24 11:39:10 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-06-25 16:10:57 -0700 |
| commit | 67b0fea82ecef2e3d527bec3a16745d91dd7b0ef (patch) | |
| tree | c09a5d54776df5a72d1ffb86c494d905a161d734 /src/property/lets-encrypt.lisp | |
| parent | 84b710f18b752f30137bade5a12fa2e729853b87 (diff) | |
| download | consfigurator-67b0fea82ecef2e3d527bec3a16745d91dd7b0ef.tar.gz | |
add instantiation macro and PRINT-OBJECT for LETS-ENCRYPT:AGREE-TOS
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property/lets-encrypt.lisp')
| -rw-r--r-- | src/property/lets-encrypt.lisp | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/property/lets-encrypt.lisp b/src/property/lets-encrypt.lisp index 37c0933..b87224c 100644 --- a/src/property/lets-encrypt.lisp +++ b/src/property/lets-encrypt.lisp @@ -32,6 +32,12 @@ Let's Encrypt client. Supply an e-mail address so that Let's Encrypt can contact you for things like certificate expiry, planned outage notifications etc.")) +(define-print-object-for-structlike agree-tos) + +(defmacro agree-tos (&key (email-address nil email-address-supplied-p)) + `(make-instance 'agree-tos ,@(and email-address-supplied-p + `(:email-address ,email-address)))) + ;; Based on Propellor's LetsEncrypt.letsEncrypt' property. (defprop %obtained :posix (agree-tos htdocs domains) (:apply |