all messages for Guix-related lists mirrored at yhetil.org

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
 (use-modules (guix packages)
             ((gnu packages package-management) #:select (guix))
             ((gnu packages guile-xyz)          #:select (haunt))
             (gnu system locale)
             (ice-9 rdelim)
             (srfi srfi-1))

(define the-good-guile
  (car (assoc-ref (package-native-inputs guix) "guile")))

(define haunt-the-ghost
  (package
    (inherit haunt)
    (name "haunt-for-guix-website")
    (inputs
     `(("guile" ,the-good-guile)
       ,@(alist-delete "guile" (package-inputs haunt))))))

(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)))

(manifest
  (cons
    (manifest-entry
      (name "locales")
      (version "0")
      (item locales))
    (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")))))))