diff options
Diffstat (limited to 'guile/email-key-rotation/gandi.scm')
-rw-r--r-- | guile/email-key-rotation/gandi.scm | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/guile/email-key-rotation/gandi.scm b/guile/email-key-rotation/gandi.scm index ae9cc84..0c41955 100644 --- a/guile/email-key-rotation/gandi.scm +++ b/guile/email-key-rotation/gandi.scm @@ -4,6 +4,7 @@ #:use-module (ice-9 optargs) #:use-module (ice-9 exceptions) #:use-module (ice-9 match) + #:use-module (ice-9 i18n) #:use-module (sxml match) #:use-module (web client) #:use-module (web uri) @@ -17,6 +18,8 @@ gandi-livedns-request) #:declarative? #t) +(define (G_ msg) (gettext msg "email-key-rotation")) + (define-immutable-record-type <gandi-configuration> (make-gandi-configuration api-key domain) gandi-configuration? @@ -41,7 +44,7 @@ headers body)) (make-exception-with-message - "cannot request Gandi livedns.") + (G_ "cannot request Gandi livedns.")) exn))) (lambda () (unless (list? path-under-domain) @@ -50,7 +53,7 @@ (make-error) (make-exception-with-irritants (list path-under-domain)) (make-exception-with-message - "the PATH-UNDER-DOMAIN argument must be a list of path items.")))) + (G_ "the PATH-UNDER-DOMAIN argument must be a list of path items."))))) (let ((uri (build-uri 'https #:host "api.gandi.net" @@ -81,7 +84,7 @@ (make-exception-with-origin 'sxml->configuration) (make-exception-with-irritants (list sxml)) (make-exception-with-message - "cannot read the XML fragment as a gandi configuration.") + (G_ "cannot read the XML fragment as a gandi configuration.")) exn))) (lambda () (sxml-match @@ -99,7 +102,7 @@ (make-exception-with-origin 'configuration->sxml) (make-exception-with-irritants (list gandi)) (make-exception-with-message - "when converting a gandi configuration to SXML:") + (G_ "when converting a gandi configuration to SXML:")) exn))) (lambda () (match gandi |