TakeV/guix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

gnu: emacs-sly-stepper: Adjust to changes in emacs-build-system.

Browse source 
* gnu/packages/emacs-xyz.scm (emacs-sly-stepper)[#:phases]:
<add-contrib-to-emacs-load-path>: Rename to...
<expand-sly-contrib>: ... this.  Use find-files to find contrib directory.
<install>: Find slynk-stepper.lisp in elpa-directory.
This commit is contained in:
Leo Prikler 2021-04-17 19:06:29 +02:00
parent 93d0124a09
commit 2c010c1ba0
No known key found for this signature in database
GPG key ID: 442A84B8C70E2F87
1 changed files with 10 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -10485,24 +10485,26 @@ (define-public emacs-sly-stepper
(propagated-inputs
`(("emacs-sly" ,emacs-sly)))
(arguments
'(#:include (cons* "\\.lisp$" "\\.asd$" %default-include)
`(#:include (cons* "\\.lisp$" "\\.asd$" %default-include)
#:phases
(modify-phases %standard-phases
;; The package provides autoloads.
(delete 'make-autoloads)
(delete 'enable-autoloads-compilation)
(add-after 'add-source-to-load-path 'add-contrib-to-emacs-load-path
(add-after 'expand-load-path 'expand-sly-contrib
(lambda* (#:key inputs #:allow-other-keys)
(let ((sly (assoc-ref inputs "emacs-sly")))
(let* ((sly (assoc-ref inputs "emacs-sly"))
(contrib (find-files sly "^contrib$" #:directories? #t)))
(setenv "EMACSLOADPATH"
(string-append sly "/share/emacs/site-lisp/contrib:"
(getenv "EMACSLOADPATH"))))
#t))
(string-append (string-join contrib ":")
":"
(getenv "EMACSLOADPATH")))
#t)))
(add-after 'install 'find-agnostic-lizard
(lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(file (string-append out "/share/emacs/site-lisp/"
"slynk-stepper.lisp"))
(file (string-append (elpa-directory out)
"/slynk-stepper.lisp"))
(asd (string-append
(assoc-ref inputs "cl-agnostic-lizard")
"/share/common-lisp/systems/agnostic-lizard.asd")))