02/02: services: nginx: Allow to add raw content to the server blocks.

[Clément Lassieur]

snape pushed a commit to branch master
in repository guix.

commit b05e8ee1205bc10f2ab33045f257170d4ce1999b
Author: Clément Lassieur <address@hidden>
Date:   Sat Dec 9 22:47:53 2017 +0100

    services: nginx: Allow to add raw content to the server blocks.
    
    * doc/guix.texi (Web Services): Document 'raw-content'.
    * gnu/services/web.scm (<nginx-server-configuration>)[raw-content]: New 
field.
    (emit-nginx-server-config): Add it.
---
 doc/guix.texi        | 3 +++
 gnu/services/web.scm | 9 +++++++--
 2 files changed, 10 insertions(+), 2 deletions(-)

diff --git a/doc/guix.texi b/doc/guix.texi
index e44478c..68f3a88 100644
--- a/doc/guix.texi
+++ b/doc/guix.texi
@@ -14979,6 +14979,9 @@ you don't have a key or you don't want to use HTTPS.
 @item @code{server-tokens?} (default: @code{#f})
 Whether the server should add its configuration to response.
 
address@hidden @code{raw-content} (default: @code{'()})
+A list of raw lines added to the server block.
+
 @end table
 @end deftp
 
diff --git a/gnu/services/web.scm b/gnu/services/web.scm
index 8a16f50..2371ddb 100644
--- a/gnu/services/web.scm
+++ b/gnu/services/web.scm
@@ -58,6 +58,7 @@
             nginx-server-configuration-ssl-certificate
             nginx-server-configuration-ssl-certificate-key
             nginx-server-configuration-server-tokens?
+            nginx-server-configuration-raw-content
 
             <nginx-upstream-configuration>
             nginx-upstream-configuration
@@ -152,7 +153,9 @@
   (ssl-certificate-key nginx-server-configuration-ssl-certificate-key
                        (default #f))
   (server-tokens?      nginx-server-configuration-server-tokens?
-                       (default #f)))
+                       (default #f))
+  (raw-content         nginx-server-configuration-raw-content
+                       (default '())))
 
 (define-record-type* <nginx-upstream-configuration>
   nginx-upstream-configuration make-nginx-upstream-configuration
@@ -232,7 +235,8 @@ of index files."
         (index (nginx-server-configuration-index server))
         (try-files (nginx-server-configuration-try-files server))
         (server-tokens? (nginx-server-configuration-server-tokens? server))
-        (locations (nginx-server-configuration-locations server)))
+        (locations (nginx-server-configuration-locations server))
+        (raw-content (nginx-server-configuration-raw-content server)))
     (define-syntax-parameter <> (syntax-rules ()))
     (define-syntax-rule (and/l x tail ...)
       (let ((x* x))
@@ -255,6 +259,7 @@ of index files."
      "\n"
      (map emit-nginx-location-config locations)
      "\n"
+     (map (lambda (x) (list "      " x "\n")) raw-content)
      "    }\n")))
 
 (define (emit-nginx-upstream-config upstream)