Attention une mise à jour du service Gitlab va être effectuée le mardi 18 janvier (et non lundi 17 comme annoncé précédemment) entre 18h00 et 18h30. Cette mise à jour va générer une interruption du service dont nous ne maîtrisons pas complètement la durée mais qui ne devrait pas excéder quelques minutes.

Commit 717304a1 authored by Ludovic Courtès's avatar Ludovic Courtès
Browse files

Add the "ogg-vorbis" file set.

* guix.scm (vorbis-file): New procedure.
(vorbis-files, file-set/vorbis): New variables.
(evaluation): Add the "ogg-vorbis" file set.
parent 0926bc9e
......@@ -75,6 +75,48 @@
("lout-3.29.tar.gz"
"0pzplr76wc4rvspv2z8ms1k2khwnfvrm6lcivwrshjw1hdf4hhg9"))))
(define (vorbis-file url hash)
(origin
(method url-fetch)
(uri url)
(sha256 (base32 hash))))
(define vorbis-files
(map (match-lambda
((url sha256)
(vorbis-file url sha256)))
'(("https://archive.org/download/nine_inch_nails_the_slip/01_999999.ogg"
"1hdi917g88rywlzarl0qsi4h4b3kv3akx5s5405gsi7q2yjhsfzf")
("https://archive.org/download/nine_inch_nails_the_slip/02_1000000.ogg"
"1j1qk3fsc5pd2098jalzjhcj3ylgw4bwnlk3bsppf01gww02wf39")
("https://archive.org/download/nine_inch_nails_the_slip/03_letting_you.ogg"
"11fc9hlrzg504kamlcyzz0r66c0grf02yzx9di0dh7bnpq3n4jdi")
("https://archive.org/download/nine_inch_nails_the_slip/04_discipline.ogg"
"0x0gx7aszfaiq038j5k7d0zp413vzmlsn2pr1mn8jridq5sh2wj7")
("https://archive.org/download/nine_inch_nails_the_slip/05_echoplex.ogg"
"0hih1aaql91mndpgfj1qk4bpyzykwd6kynprrd88w4bmfmsdcjqi")
("https://archive.org/download/nine_inch_nails_the_slip/06_head_down.ogg"
"0db42z8j98k9xxfsvrac1g1dqiw51vk4zknx8a4691qs35jm31w7")
("https://archive.org/download/nine_inch_nails_the_slip/07_lights_in_the_sky.ogg"
"07dglqz1slzazgvax59a8bqmq6xrsb436vrbmagkjrwpg293cqwy")
("https://archive.org/download/nine_inch_nails_the_slip/08_corona_radiata.ogg"
"00yb3pywf5qzrm2349b1nv0sln4fdshd1w69gkyzklb7wyvkxhbw")
("https://archive.org/download/nine_inch_nails_the_slip/09_the_four_of_us_are_dying.ogg"
"1vy84ma4q5shjw7qxr7ngpza7w674wampamb5qw5ipnnhl49f9qx")
("https://archive.org/download/nine_inch_nails_the_slip/10_demon_seed.ogg"
"17na7z7byr3qzyjdvdqkh2g324mbq5pk15455drlpq4fx8pf8nqv"))))
(define file-set/vorbis
;; The "ogg-vorbis" file set.
(let ((unzip (specification->package "unzip")))
(computed-file "vorbis"
(with-imported-modules '((guix build utils))
#~(begin
(use-modules (guix build utils))
(for-each (lambda (file)
(install-file file #$output))
'#$vorbis-files))))))
(define file-set-cache
;; Cache for use as ~/.chop-eval/cache/web.
(computed-file "file-set-cache"
......@@ -166,7 +208,10 @@
;; FIXME: For now, limit to these file sets.
(substitute* "run.sh"
(("^file_sets=.*")
"file_sets=\"built-in:gnu-manuals-postscript built-in:lout-distributions\"\n"))
"file_sets=\"built-in:gnu-manuals-postscript \
built-in:lout-distributions ogg-vorbis\"\n")
(("fs=\".*\\.ogg\"")
(string-append "fs=\"" #$file-set/vorbis "/*.ogg\"")))
;; Capture stdout, which contains benchmarking results, for
;; post-processing.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment