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

build-system: emacs: Install only a subset of files. 

* guix/build/emacs-build-system.scm (install): Install files matching
  #:include while excluding files matching #:exclude.
* guix/build-system/emacs.scm (emacs-build): Add keyword arguments #:include
  and #:exclude.
master
Arun Isaac 2017-04-19 12:59:11 +05:30
parent 0dc4a498a3
commit d879685176
No known key found for this signature in database
GPG Key ID: 2E25EE8B61802BB3
2 changed files with 25 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
guix/build-system/emacs.scm
View File

@ -83,6 +83,8 @@
(phases '(@ (guix build emacs-build-system)
%standard-phases))
(outputs '("out"))
(include ''("^[^/]*\\.el$" "^[^/]*\\.info$" "^doc/.*\\.info$"))
(exclude ''("^\\.dir-locals\\.el$" "-pkg\\.el$" "^[^/]*tests?\\.el$"))
(search-paths '())
(system (%current-system))
(guile #f)
@ -108,6 +110,8 @@
#:tests? ,tests?
#:phases ,phases
#:outputs %outputs
#:include ,include
#:exclude ,exclude
#:search-paths ',(map search-path-specification->sexp
search-paths)
#:inputs %build-inputs)))

26
guix/build/emacs-build-system.scm
View File

@ -95,14 +95,30 @@ store in '.el' files."
(substitute-cmd))))
#t))
(define* (install #:key outputs #:allow-other-keys)
(define* (install #:key outputs
(include '("^[^/]*\\.el$" "^[^/]*\\.info$" "^doc/.*\\.info$"))
(exclude '("^\\.dir-locals\\.el$" "-pkg\\.el$" "^[^/]*tests?\\.el$"))
#:allow-other-keys)
"Install the package contents."
(define source (getcwd))
(define (install-file? file stat)
(let ((stripped-file (string-trim (string-drop file (string-length source)) #\/)))
(and (any (cut string-match <> stripped-file) include)
(not (any (cut string-match <> stripped-file) exclude)))))
(let* ((out (assoc-ref outputs "out"))
(elpa-name-ver (store-directory->elpa-name-version out))
(src-dir (getcwd))
(tgt-dir (string-append out %install-suffix "/" elpa-name-ver)))
(copy-recursively src-dir tgt-dir)
#t))
(target-directory (string-append out %install-suffix "/" elpa-name-ver)))
(for-each
(lambda (file)
(let* ((stripped-file (string-drop file (string-length source)))
(target-file (string-append target-directory stripped-file)))
(format #t "`~a' -> `~a'~%" file target-file)
(install-file file (dirname target-file))))
(find-files source install-file?)))
#t)
(define* (move-doc #:key outputs #:allow-other-keys)
"Move info files from the ELPA package directory to the info directory."