me/guix
Archived
1
0
Fork 0
Code Activity

gnu: emacs-ert-runner: Fix lisp directory warning.

Browse source 
This fixes the warning message such as: "Warning: Lisp directory
'/tmp/guix-build-emacs-ert-runner-0.7.0-1.90b8fdd.drv-0/source': No such file
or directory" that would be printed upon running ert-runner.

* gnu/packages/emacs-xyz.scm (emacs-ert-runner)[phases]{install-executable}:
Filter out the temporary source directory from the paths composing the
EMACSLOADPATH variable used in the wrapper.
This commit is contained in:
Maxim Cournoyer 2019-01-22 05:33:19 +00:00
parent 8cad7adb59
commit f9dff4f7fa
No known key found for this signature in database
GPG key ID: 1260E46482E63562
1 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
gnu/packages/emacs-xyz.scm
View file

@ -6959,7 +6959,9 @@ Emacs.")
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'install 'install-executable (add-after 'install 'install-executable
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))) (let ((out (assoc-ref outputs "out"))
(source-directory (string-append
(getenv "TMPDIR") "/source")))
(substitute* "bin/ert-runner" (substitute* "bin/ert-runner"
(("ERT_RUNNER=\"\\$\\(dirname \\$\\(dirname \\$0\\)\\)") (("ERT_RUNNER=\"\\$\\(dirname \\$\\(dirname \\$0\\)\\)")
(string-append "ERT_RUNNER=\"" out (string-append "ERT_RUNNER=\"" out
@ -6968,7 +6970,10 @@ Emacs.")
(install-file "bin/ert-runner" (string-append out "/bin")) (install-file "bin/ert-runner" (string-append out "/bin"))
(wrap-program (string-append out "/bin/ert-runner") (wrap-program (string-append out "/bin/ert-runner")
(list "EMACSLOADPATH" ":" 'prefix (list "EMACSLOADPATH" ":" 'prefix
(string-split (getenv "EMACSLOADPATH") #\:))) ;; Do not capture the transient source directory in
;; the wrapper.
(delete source-directory
(string-split (getenv "EMACSLOADPATH") #\:))))
#t)))) #t))))
#:include (cons* "^reporters/.*\\.el$" %default-include))) #:include (cons* "^reporters/.*\\.el$" %default-include)))
(home-page "https://github.com/rejeep/ert-runner.el") (home-page "https://github.com/rejeep/ert-runner.el")