me/guix
Archived
1
0
Fork 0
Code Activity

build: emacs: Fix `store-file->elisp-source-file'.

Browse source 
This prevents a ".el.el" extension for source files with no version number in
their file name.

* guix/build/emacs-build-system.scm (store-file->elisp-source-file): Remove
  ".el" extension from file name before splitting to name and version.
This commit is contained in:
Arun Isaac 2017-05-17 21:39:27 +05:30
parent 5ae59eb6d9
commit d0a26f3a68
No known key found for this signature in database
GPG key ID: 2E25EE8B61802BB3
1 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
guix/build/emacs-build-system.scm
View file

@ -47,10 +47,12 @@
(define (store-file->elisp-source-file file) (define (store-file->elisp-source-file file)
"Convert FILE, a store file name for an Emacs Lisp source file, into a file "Convert FILE, a store file name for an Emacs Lisp source file, into a file
name that has been stripped of the hash and version number." name that has been stripped of the hash and version number."
(let ((suffix ".el"))
(let-values (((name version) (let-values (((name version)
(package-name->name+version (package-name->name+version
(strip-store-file-name file)))) (basename
(string-append name ".el"))) (strip-store-file-name file) suffix))))
(string-append name suffix))))
(define* (unpack #:key source #:allow-other-keys) (define* (unpack #:key source #:allow-other-keys)
"Unpack SOURCE into the build directory. SOURCE may be a compressed "Unpack SOURCE into the build directory. SOURCE may be a compressed