02/02: website: manifest: Fix indentation.

[Mathieu Othacehe]

mothacehe pushed a commit to branch master
in repository guix-artwork.

commit b45996c889dc7f40d3f3033b3960dde04e4e1047
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Sat Apr 10 20:48:00 2021 +0200

    website: manifest: Fix indentation.
    
    * website/manifest.scm: Fix indentation.
---
 website/manifest.scm | 86 ++++++++++++++++++++++++++--------------------------
 1 file changed, 43 insertions(+), 43 deletions(-)

diff --git a/website/manifest.scm b/website/manifest.scm
index 6eb9d89..e1c2d5a 100644
--- a/website/manifest.scm
+++ b/website/manifest.scm
@@ -18,49 +18,49 @@
 
 (define locales
   (locale-directory
-    (call-with-input-file "po/LINGUAS"
-      (lambda (port)
-        (let loop ((line (read-line port))
-                   (locales '()))
-          (if (eof-object? line)
-              locales
-              (if (equal? (string-ref line 0) #\#)
-                  (loop (read-line port) locales)
-                  (loop (read-line port)
-                        (cons
-                          (locale-definition
-                            (name (string-append line ".utf8"))
-                            (source line))
-                          locales)))))))
-    #:libcs
-    (list glibc)))
+   (call-with-input-file "po/LINGUAS"
+     (lambda (port)
+       (let loop ((line (read-line port))
+                  (locales '()))
+         (if (eof-object? line)
+             locales
+             (if (equal? (string-ref line 0) #\#)
+                 (loop (read-line port) locales)
+                 (loop (read-line port)
+                       (cons
+                        (locale-definition
+                         (name (string-append line ".utf8"))
+                         (source line))
+                        locales)))))))
+   #:libcs
+   (list glibc)))
 
 (manifest
-  (cons
-    (manifest-entry
-      (name "locales")
-      (version "0")
-      (item (computed-file "locales"
-              (with-imported-modules '((guix build utils))
-                #~(let ((out (string-append #$output "/lib/locale")))
-                    (use-modules (guix build utils))
-                    (mkdir-p out)
-                    (copy-recursively #$locales out)))))
-      (search-paths
-        (list (search-path-specification
-                (variable "GUIX_LOCPATH")
-                (files '("lib/locale"))))))
-    (manifest-entries
-      (packages->manifest
-       (append
-        ;; Guile needs to be compatible
-        (list
-         guix
-         the-good-guile
-         haunt-the-ghost)
+ (cons
+  (manifest-entry
+    (name "locales")
+    (version "0")
+    (item (computed-file "locales"
+                         (with-imported-modules '((guix build utils))
+                           #~(let ((out (string-append #$output 
"/lib/locale")))
+                               (use-modules (guix build utils))
+                               (mkdir-p out)
+                               (copy-recursively #$locales out)))))
+    (search-paths
+     (list (search-path-specification
+            (variable "GUIX_LOCPATH")
+            (files '("lib/locale"))))))
+  (manifest-entries
+   (packages->manifest
+    (append
+     ;; Guile needs to be compatible
+     (list
+      guix
+      the-good-guile
+      haunt-the-ghost)
 
-        ;; Other packages
-        (map specification->package
-             (list
-              "git"
-              "guile-syntax-highlight")))))))
+     ;; Other packages
+     (map specification->package
+          (list
+           "git"
+           "guile-syntax-highlight")))))))