forge: Serve project websites under the forge web domain.

1 files changed, 16 insertions, 1 deletions

diff --git a/guix/forge/forge.scm b/guix/forge/forge.scm
index 6a0ec6c..20d534c 100644
--- a/guix/forge/forge.scm
+++ b/guix/forge/forge.scm
@@ -490,7 +490,22 @@ that were built."
 forge configuration @var{config}."
   (cons (nginx-server-configuration
           (server-name (list (forge-configuration-web-domain config)))
-          (root (forge-configuration-web-root config)))
+          (root (forge-configuration-web-root config))
+          (locations
+           ;; Configure location blocks for projects that have a website
+           ;; directory but no web domain.
+           (filter-map (lambda (project)
+                         (match-record project <forge-project>
+                           (name web-domain website-directory)
+                           (and (not web-domain)
+                                website-directory
+                                (nginx-location-configuration
+                                  (uri (string-append "/" name "/"))
+                                  (body
+                                   (list (string-append "alias "
+                                                        (file-name-as-directory website-directory)
+                                                        ";")))))))
+                       (forge-configuration-projects config))))
         ;; Configure nginx server blocks for projects that have a web domain and
         ;; a website directory.
         (filter-map (match-record-lambda <forge-project>