[chore] fix lint errors in mail.

1 files changed, 42 insertions, 29 deletions

diff --git a/yellowsquid/packages/mail.scm b/yellowsquid/packages/mail.scm
index 3c40e66..6d0ae73 100644
--- a/yellowsquid/packages/mail.scm
+++ b/yellowsquid/packages/mail.scm
@@ -1,11 +1,13 @@
 (define-module (yellowsquid packages mail)
   #:use-module (gnu packages autotools)
-  #:use-module ((gnu packages mail) #:prefix gnu:)
+  #:use-module ((gnu packages mail)
+                #:prefix gnu:)
   #:use-module (gnu packages tls)
   #:use-module (guix build-system gnu)
   #:use-module (guix git-download)
   #:use-module (guix gexp)
-  #:use-module ((guix licenses) #:prefix license:)
+  #:use-module ((guix licenses)
+                #:prefix license:)
   #:use-module (guix packages)
   #:use-module (guix utils)
   #:use-module (yellowsquid packages))
@@ -16,7 +18,8 @@
         (revision "2"))
     (package
       (name "libspf2")
-      (version (string-append version "-" revision "." (string-take commit 7)))
+      (version (string-append version "-" revision "."
+                              (string-take commit 7)))
       (source
        (origin
          (method git-fetch)
@@ -24,25 +27,25 @@
                (url "https://github.com/shevek/libspf2")
                (commit commit)))
          (file-name (git-file-name name commit))
-         (patches
-          (search-patches "libspf2-undefined.patch"))
+         (patches (search-patches "libspf2-undefined.patch"))
          (sha256
           (base32 "0q8kh2yzsfp16xlnmc32xfyg1mdycyfs2nsjvz95sqwimqjbicxs"))))
       (native-inputs (list autoconf automake libtool))
       (build-system gnu-build-system)
       (arguments
-       '(#:phases
-         (modify-phases %standard-phases
-           (add-before 'bootstrap 'remove-configure
-             (lambda _ (delete-file "configure"))))))
+       '(#:phases (modify-phases %standard-phases
+                    (add-before 'bootstrap 'remove-configure
+                      (lambda _
+                        (delete-file "configure"))))))
       (synopsis "Library to check SPF records")
-      (description "libspf2 implements the Sender Policy Framework, a part of the
+      (description
+       "libspf2 implements the Sender Policy Framework, a part of the
 SPF/SRS protocol pair. libspf2 is a library which allows email systems such as
 Sendmail, Postfix, Exim, Zmailer and MS Exchange to check SPF records and make
 sure that the email is authorized by the domain name that it is coming from.
 This prevents email forgery, commonly used by spammers, scammers and email
 viruses/worms.")
-      (home-page "https://www.libspf2.org/index.html")
+      (home-page "https://www.libspf2.net/index.html")
       (license (list license:lgpl2.1+ license:bsd-2)))))
 
 (define-public opendmarc-1.4
@@ -56,23 +59,25 @@ viruses/worms.")
              (url "https://github.com/trusteddomainproject/OpenDMARC")
              (commit "rel-opendmarc-1-4-2")))
        (file-name (git-file-name name version))
-       (sha256 (base32 "0xqzgjqw8hv8wkkw5lamzd3dzb6g01y3gazyxjfjgk71y57asxdy"))))
+       (sha256
+        (base32 "0xqzgjqw8hv8wkkw5lamzd3dzb6g01y3gazyxjfjgk71y57asxdy"))))
     (native-inputs (list autoconf automake libtool))
     (build-system gnu-build-system)
     (arguments
      '(#:configure-flags '("--disable-filter")
-       #:phases
-       (modify-phases %standard-phases
-         (add-before 'bootstrap 'remove-make-docs
-           (lambda _
-             (substitute* "configure.ac"
-               (("[\t]+docs/Makefile") "")))))))
-    (synopsis "DMARC record checking and policy enforcement.")
-    (description "A package providing DMARC report generation and policy
+       #:phases (modify-phases %standard-phases
+                  (add-before 'bootstrap 'remove-make-docs
+                    (lambda _
+                      (substitute* "configure.ac"
+                        (("[\t]+docs/Makefile")
+                         "")))))))
+    (synopsis "DMARC record checking and policy enforcement")
+    (description
+     "A package providing DMARC report generation and policy
 enforcement services. It includes a library for handling DMARC record parsing, a
 database schema and tools for aggregating and processing transaction history to
 produce DMARC reports.")
-    (home-page "http://www.trusteddomain.org/opendmarc")
+    (home-page "http://www.trusteddomain.org/opendmarc/")
     (license license:bsd-3)))
 
 (define-public exim
@@ -92,24 +97,32 @@ produce DMARC reports.")
                     ;; Needs two paths to prevent automatic installation.
                     ;; /etc/exim.conf has to be first or it is never used.
                     (("(CONFIGURE_FILE=).*" all var)
-                     (string-append var "/etc/exim.conf:" out "/etc/exim.conf\n"))
+                     (string-append var "/etc/exim.conf:" out
+                                    "/etc/exim.conf\n"))
                     ;; Use openssl instead of gnutls
                     (("USE_GNUTLS(|_PC)=.*" all)
                      (string-append "# " all "\n"))
                     (("# (USE_OPENSSL(|_PC)=.*)" all line)
                      (string-append line "\n"))
                     ;; Enable LMTP
-                    (("# (TRANSPORT_LMTP=yes)" all line) line)
+                    (("# (TRANSPORT_LMTP=yes)" all line)
+                     line)
                     ;; Enable SPF
-                    (("# (SUPPORT_SPF=yes)" all line) line)
-                    (("# (LDFLAGS.*spf2)" all line) line)
+                    (("# (SUPPORT_SPF=yes)" all line)
+                     line)
+                    (("# (LDFLAGS.*spf2)" all line)
+                     line)
                     ;; Enable DMARC
-                    (("# (SUPPORT_DMARC=yes)" all line) line)
-                    (("# (LDFLAGS.*opendmarc)" all line) line)))))
+                    (("# (SUPPORT_DMARC=yes)" all line)
+                     line)
+                    (("# (LDFLAGS.*opendmarc)" all line)
+                     line)))))
             (add-after 'install 'install-config
               (lambda* (#:key outputs #:allow-other-keys)
                 (let ((out (assoc-ref outputs "out")))
                   (mkdir-p (string-append out "/etc"))
-                  (copy-file "src/configure.default" (string-append out "/etc/exim.conf"))
+                  (copy-file "src/configure.default"
+                             (string-append out "/etc/exim.conf"))
                   (substitute* (string-append out "/etc/exim.conf")
-                    (("SYSTEM_ALIASES_FILE") "/etc/aliases")))))))))))
+                    (("SYSTEM_ALIASES_FILE")
+                     "/etc/aliases")))))))))))