aboutsummaryrefslogtreecommitdiff
path: root/gnu/packages
diff options
context:
space:
mode:
authorRicardo Wurmus <rekado@elephly.net>2018-05-30 14:53:23 +0200
committerRicardo Wurmus <rekado@elephly.net>2018-05-30 14:54:53 +0200
commit80c0f69c500349855de6489cfb25e245b01620c2 (patch)
tree51d6c2f1885f2f9ce3d2e6c3d19f2e606ea4bd4a /gnu/packages
parentbc73f673e80e9134ee7620516f2e29c0c46db35f (diff)
downloadguix-80c0f69c500349855de6489cfb25e245b01620c2.tar
guix-80c0f69c500349855de6489cfb25e245b01620c2.tar.gz
gnu: emms: Fix build.
* gnu/packages/emacs.scm (emms)[arguments]: Reset time stamps of files to be gzipped; let post-install phase return #t.
Diffstat (limited to 'gnu/packages')
-rw-r--r--gnu/packages/emacs.scm13
1 files changed, 11 insertions, 2 deletions
diff --git a/gnu/packages/emacs.scm b/gnu/packages/emacs.scm
index 79816e9aaa..9c799aeffe 100644
--- a/gnu/packages/emacs.scm
+++ b/gnu/packages/emacs.scm
@@ -908,7 +908,8 @@ provides an optional IDE-like error list.")
(arguments
`(#:modules ((guix build gnu-build-system)
(guix build utils)
- (guix build emacs-utils))
+ (guix build emacs-utils)
+ (ice-9 ftw))
#:imported-modules (,@%gnu-build-system-modules
(guix build emacs-utils))
@@ -971,13 +972,21 @@ provides an optional IDE-like error list.")
(man1 (string-append out "/share/man/man1")))
(mkdir-p bin)
(mkdir-p man1)
+
+ ;; Ensure that files are not rejected by gzip
+ (let ((early-1980 315619200)) ; 1980-01-02 UTC
+ (ftw "." (lambda (file stat flag)
+ (unless (<= early-1980 (stat:mtime stat))
+ (utime file early-1980 early-1980))
+ #t)))
#t)))
(add-after 'install 'post-install
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(symlink "emms-auto.el"
(string-append out "/share/emacs/site-lisp/"
- "emms-autoloads.el"))))))
+ "emms-autoloads.el")))
+ #t)))
#:tests? #f))
(native-inputs `(("emacs" ,emacs-minimal) ;for (guix build emacs-utils)
("texinfo" ,texinfo)))