[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
02/02: website: manifest: Fix indentation.
From: |
Mathieu Othacehe |
Subject: |
02/02: website: manifest: Fix indentation. |
Date: |
Sat, 10 Apr 2021 14:48:19 -0400 (EDT) |
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")))))))