Do not create a service

1 files changed, 3 insertions, 29 deletions

diff --git a/copirate/services/copirate-site.scm b/copirate/modules/copirate-site.scm
index ce7cec5..bc689bf 100644
--- a/copirate/services/copirate-site.scm
+++ b/copirate/modules/copirate-site.scm
@@ -1,17 +1,14 @@
 (define-module (copirate services copirate-site)
   #:use-module (guix gexp)
   #:use-module (guix modules)
-  #:use-module (guix git)
-  #:use-module (gnu services)
-  #:use-module (gnu services web)
   #:use-module (gnu packages music)
   #:use-module (gnu packages imagemagick)
   #:export
   (
-   copirate-site-service-type
+   build-copirate-site
    ))
 
-(define latest-copirate-site
+(define (build-copirate-site source)
   (computed-file
    "copirate-site"
    (with-imported-modules
@@ -19,10 +16,7 @@
     #~(begin
         (use-modules (guix build utils) (ice-9 ftw))
         (mkdir-p #$output)
-        (copy-recursively
-         #$(git-checkout
-            (url "file:///srv/git/copirate-site.git"))
-         #$output)
+        (copy-recursively #$(source) #$output)
         (with-directory-excursion
          #$output
          (let ((enter? (lambda (name stat result) #t))
@@ -50,23 +44,3 @@
                (skip (lambda (name stat result) #t))
                (error (lambda (name stat errno result) #t)))
            (file-system-fold enter? leaf down up skip error #t ".")))))))
-
-(define copirate-site-service-type
-  (service-type
-   (name 'copirate)
-   (extensions
-    (list
-     (service-extension
-      nginx-service-type
-      (const
-       (list
-        (nginx-server-configuration
-         (server-name '("copirate.planete-kraus.eu"))
-         (listen '("443 ssl" "[::]:443 ssl"))
-	 (ssl-certificate
-	  "/etc/letsencrypt/live/planete-kraus.eu/fullchain.pem")
-	 (ssl-certificate-key
-	  "/etc/letsencrypt/live/planete-kraus.eu/privkey.pem")
-         (root latest-copirate-site)))))))
-   (description
-    (format #f "The Copirate editions main website."))))