Use double newline to separate service definitions.

1 files changed, 22 insertions, 0 deletions

diff --git a/salamina.scm b/salamina.scm
index 7578050..ae56194 100644
--- a/salamina.scm
+++ b/salamina.scm
@@ -60,24 +60,29 @@
   (define list
     (cons item list)))
 
+
 (prepend %services
   (simple-service 'always-forbid-root-login activation-service-type
     #~(system "/run/setuid-programs/passwd -l root > /dev/null")))
 
+
 (prepend %services
   (service dhcp-client-service-type))
 
+
 (prepend %services
   (service web:epicyon-service-type
            (web:epicyon-configuration
             (domain "epicyon.koszko.org")
             (port 7156))))
 
+
 (prepend %services
   (simple-service 'guix-authorize-key guix-service-type
     (guix-extension
      (authorized-keys (list (local-file "guix-signing-key.pub"))))))
 
+
 (prepend %services
   (service web:httpd-service-type
     (web:httpd-configuration
@@ -111,6 +116,7 @@
          ScriptSock /var/run/cgid.sock
          ")))))))
 
+
 (prepend %services
   (simple-service 'acme-challenge-http-virtualhost web:httpd-service-type
     (map (match-lambda
@@ -147,6 +153,7 @@
            ("sheets.koszko.org"             "www.sheets.koszko.org")
            ("smtp.koszko.org")))))
 
+
 (define %cgitrc
   (serialize-cgit-configuration
    (cgit-configuration
@@ -238,6 +245,7 @@
              SSLCertificateKeyFile /etc/certs/git.koszko.org/privkey.pem
              ")))))
 
+
 (prepend %services
   (simple-service 'prepare-cgit-cache-dir activation-service-type
     #~(begin
@@ -297,6 +305,7 @@
                 SSLCertificateKeyFile /etc/certs/koszko.org/privkey.pem
                 "))))))
 
+
 (prepend %services
   (simple-service 'httpd-virtualhost-haketilo web:httpd-service-type
     (list (let ((wsgi (file-append ks:hydrilla-website
@@ -322,6 +331,7 @@
                 SSLCertificateKeyFile /etc/certs/haketilo.koszko.org/privkey.pem
                 "))))))
 
+
 (define %python-path-spec-sexp
    (search-path-specification->sexp
     (guix-pythonpath-search-path (package-version (default-python)))))
@@ -383,6 +393,7 @@
                  /etc/certs/hydrilla.koszko.org/privkey.pem
             ")))))
 
+
 (prepend %services
   (simple-service 'httpd-virtualhost-hydrillabugs web:httpd-service-type
     (list (web:httpd-virtualhost
@@ -437,6 +448,7 @@
                  /etc/certs/hydrillabugs.koszko.org/privkey.pem
              ")))))
 
+
 (prepend %services
   (simple-service 'httpd-virtualhost-sheets web:httpd-service-type
     (map (lambda (what)
@@ -463,6 +475,7 @@
                ")))
          '("pray" "sheets"))))
 
+
 (define %certbot-deploy-hook
   (program-file "httpd-deploy-hook"
     #~(for-each (lambda (pidfile)
@@ -509,6 +522,7 @@
   (simple-service 'prepare-certbot-tokens-dir activation-service-type
     #~(mkdir-p "/var/certbot-validation")))
 
+
 (define (make-koszko-zone-entries domain)
   (dns:define-zone-entries entries
     ;; nameservers
@@ -657,16 +671,19 @@
                            (notify '("1984-axfr-remote"))))
                         '("koszko.org" "koszkonutek-tmp.pl.eu.org")))))))
 
+
 (prepend %services
   (service mail:mail-aliases-service-type
     '(("root" "admin"))))
 
+
 (prepend %services
   (service mail:exim-service-type
            (mail:exim-configuration
             (config-file (local-file "./exim.conf"))
             (setuid-user 0))))
 
+
 (prepend %services
   (simple-service 'make-maildirs-directory activation-service-type
     #~(begin
@@ -677,6 +694,7 @@
           (chown "/var/vmail/maildirs" -1 (group:gid (getgr "vmail")))
           (umask initial-umask)))))
 
+
 (prepend %services
   (service mail:dovecot-service-type
     (mail:dovecot-configuration
@@ -713,6 +731,7 @@
      (mail-gid "vmail")
      (mail-location "maildir:/var/vmail/maildirs/%n"))))
 
+
 (prepend %services
   (service openssh-service-type
     (openssh-configuration
@@ -720,6 +739,7 @@
      (authorized-keys `(("root" ,(local-file "koszko.pub"))))
      (port-number 10022))))
 
+
 (prepend %services
   (service vc:gitolite-service-type
     (vc:gitolite-configuration
@@ -738,10 +758,12 @@
                          "gitweb"
                          "cgit")))))))
 
+
 (prepend %services
   (service postgresql-service-type
     (postgresql-configuration (port 15432))))
 
+
 (operating-system
   (host-name "salamina")
   (timezone "Europe/Warsaw")