From c9cd2319ceaa349cfb2fb62bcbe6463ef32831bb Mon Sep 17 00:00:00 2001 From: Vivien Kraus Date: Fri, 16 Feb 2024 22:29:42 +0100 Subject: Call bindtextdomain at initialization time. --- guile/email-key-rotation.scm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/guile/email-key-rotation.scm b/guile/email-key-rotation.scm index 2c5d5f6..6810cf9 100644 --- a/guile/email-key-rotation.scm +++ b/guile/email-key-rotation.scm @@ -38,7 +38,7 @@ (define (G_ msg) (gettext msg "email-key-rotation")) (define-immutable-record-type - (make-configuration dkim-state srs-state private-opensmtpd-config-file dkim-current-selector-file dkim-current-key-file gandi-configuration) + (make-configuration/uninitialized dkim-state srs-state private-opensmtpd-config-file dkim-current-selector-file dkim-current-key-file gandi-configuration) configuration? (dkim-state dkim-state set-dkim-state) (srs-state srs-state set-srs-state) @@ -47,6 +47,10 @@ (dkim-current-key-file dkim-current-key-file set-dkim-current-key-file) (gandi-configuration gandi-configuration set-gandi-configuration)) +(define (make-configuration . args) + (bindtextdomain "email-key-rotation" "/usr/local/share/locale") + (apply make-configuration/uninitialized args)) + (define (refine-configuration/one subtree config) (sxml-match subtree -- cgit v1.2.3