gunicorn: Use <environment-variable> records.

* guix/forge/gunicorn.scm: Import (forge environment).
(gunicorn-shepherd-services): Use <environment-variable> record.
* doc/forge.skb (Services)[Specialized application deployment
services]{gunicorn service}: Document it.
* guix/forge/klaus.scm: Import (forge environment).
(klaus-gunicorn-app): Use <environment-variable> record.

1 files changed, 9 insertions, 4 deletions

diff --git a/guix/forge/klaus.scm b/guix/forge/klaus.scm
index 5227b74..b6222c3 100644
--- a/guix/forge/klaus.scm
+++ b/guix/forge/klaus.scm
@@ -18,6 +18,7 @@
 ;;; <https://www.gnu.org/licenses/>.
 
 (define-module (forge klaus)
+  #:use-module (forge environment)
   #:use-module (forge gunicorn)
   #:use-module (forge socket)
   #:use-module ((gnu packages check) #:select (python-nose python-pytest))
@@ -145,10 +146,14 @@ banner."
    (package klaus)
    (wsgi-app-module "klaus.contrib.wsgi_autoreload")
    (sockets sockets)
-   (environment-variables `(("KLAUS_REPOS_ROOT" . ,repository-directory)
-                            ,@(if site-name
-                                  `(("KLAUS_SITE_NAME" . ,site-name))
-                                  '())))
+   (environment-variables (cons (environment-variable
+                                 (name "KLAUS_REPOS_ROOT")
+                                 (value repository-directory))
+                                (if site-name
+                                    (list (environment-variable
+                                           (name "KLAUS_SITE_NAME")
+                                           (value site-name)))
+                                    (list))))
    (mappings (list (file-system-mapping
                     (source repository-directory)
                     (target source))))))