diff options
Diffstat (limited to 'guile/email-key-rotation.scm')
-rw-r--r-- | guile/email-key-rotation.scm | 19 |
1 files changed, 11 insertions, 8 deletions
diff --git a/guile/email-key-rotation.scm b/guile/email-key-rotation.scm index de6fdec..2c5d5f6 100644 --- a/guile/email-key-rotation.scm +++ b/guile/email-key-rotation.scm @@ -7,6 +7,7 @@ #:use-module (ice-9 exceptions) #:use-module (ice-9 match) #:use-module (ice-9 receive) + #:use-module (ice-9 i18n) #:use-module (srfi srfi-9 gnu) #:use-module (sxml match) #:use-module (sxml simple) @@ -34,6 +35,8 @@ materialize) #:declarative? #t) +(define (G_ msg) (gettext msg "email-key-rotation")) + (define-immutable-record-type <configuration> (make-configuration dkim-state srs-state private-opensmtpd-config-file dkim-current-selector-file dkim-current-key-file gandi-configuration) configuration? @@ -111,7 +114,7 @@ (make-exception-with-origin 'sxml->configuration) (make-exception-with-irritants (list sxml)) (make-exception-with-message - "cannot read the XML fragment as a configuration.") + (G_ "cannot read the XML fragment as a configuration.")) exn))) (lambda () (receive (essential extra-state) @@ -127,7 +130,7 @@ (make-exception-with-origin 'xml->configuration) (make-exception-with-irritants (list port)) (make-exception-with-message - "cannot read a configuration from file.") + (G_ "cannot read a configuration from file.")) exn))) (lambda () (sxml->configuration @@ -141,7 +144,7 @@ (make-exception-with-origin 'configuration->sxml) (make-exception-with-irritants (list config)) (make-exception-with-message - "when converting a configuration to SXML:") + (G_ "when converting a configuration to SXML:")) exn))) (lambda () (match config @@ -172,7 +175,7 @@ (make-exception (make-exception-with-irritants (list config-file)) (make-exception-with-message - (format #f "when materializing the configuration file:")) + (format #f (G_ "when materializing the configuration file:"))) exn))) (lambda () (when (and (dkim-state config-file) @@ -195,7 +198,7 @@ (make-exception (make-exception-with-irritants (list dns-record)) (make-exception-with-message - (format #f "when publishing ~a record for ~a:" + (format #f (G_ "when publishing ~a record for ~a:") (dns:type dns-record) (dns:name dns-record))) exn))) @@ -212,7 +215,7 @@ (make-exception (make-exception-with-irritants (list config-file)) (make-exception-with-message - (format #f "when writing the private opensmtpd configuration file:")) + (format #f (G_ "when writing the private opensmtpd configuration file:"))) exn))) (lambda () (call-with-output-file @@ -237,7 +240,7 @@ (make-exception-with-origin 'initialize) (make-exception-with-irritants (list selectors private-opensmtpd-config-file dkim-current-selector-file dkim-current-key-file gandi-api-key gandi-domain)) (make-exception-with-message - "when creating a new config file") + (G_ "when creating a new config file")) exn))) (lambda () (parameterize @@ -259,7 +262,7 @@ (make-exception-with-origin 'rotate) (make-exception-with-irritants (list configuration)) (make-exception-with-message - "when rotating a config file") + (G_ "when rotating a config file")) exn))) (lambda () (parameterize |