nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gnu: emms: Fix build. 

* gnu/packages/emacs.scm (emms)[arguments]: Reset time stamps of files to be
gzipped; let post-install phase return #t.
This commit is contained in:
Ricardo Wurmus 2018-05-30 14:53:23 +02:00
parent bc73f673e8
commit 80c0f69c50
No known key found for this signature in database
GPG Key ID: 197A5888235FACAC
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
gnu/packages/emacs.scm
View File

@ -908,7 +908,8 @@ provides an optional IDE-like error list.")
(arguments (arguments
`(#:modules ((guix build gnu-build-system) `(#:modules ((guix build gnu-build-system)
(guix build utils) (guix build utils)
(guix build emacs-utils)) (guix build emacs-utils)
(ice-9 ftw))
#:imported-modules (,@%gnu-build-system-modules #:imported-modules (,@%gnu-build-system-modules
(guix build emacs-utils)) (guix build emacs-utils))
@ -971,13 +972,21 @@ provides an optional IDE-like error list.")
(man1 (string-append out "/share/man/man1"))) (man1 (string-append out "/share/man/man1")))
(mkdir-p bin) (mkdir-p bin)
(mkdir-p man1) (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))) #t)))
(add-after 'install 'post-install (add-after 'install 'post-install
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))) (let ((out (assoc-ref outputs "out")))
(symlink "emms-auto.el" (symlink "emms-auto.el"
(string-append out "/share/emacs/site-lisp/" (string-append out "/share/emacs/site-lisp/"
"emms-autoloads.el")))))) "emms-autoloads.el")))
#t)))
#:tests? #f)) #:tests? #f))
(native-inputs `(("emacs" ,emacs-minimal) ;for (guix build emacs-utils) (native-inputs `(("emacs" ,emacs-minimal) ;for (guix build emacs-utils)
("texinfo" ,texinfo))) ("texinfo" ,texinfo)))