me/guix
Archived
1
0
Fork 0
Code 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 @@ inside the source file.")
(propagated-inputs (propagated-inputs
`(("emacs-sly" ,emacs-sly))) `(("emacs-sly" ,emacs-sly)))
(arguments (arguments
'(#:include (cons* "\\.lisp$" "\\.asd$" %default-include) `(#:include (cons* "\\.lisp$" "\\.asd$" %default-include)
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
;; The package provides autoloads. ;; The package provides autoloads.
(delete 'make-autoloads) (delete 'make-autoloads)
(delete 'enable-autoloads-compilation) (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) (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" (setenv "EMACSLOADPATH"
(string-append sly "/share/emacs/site-lisp/contrib:" (string-append (string-join contrib ":")
(getenv "EMACSLOADPATH")))) ":"
#t)) (getenv "EMACSLOADPATH")))
#t)))
(add-after 'install 'find-agnostic-lizard (add-after 'install 'find-agnostic-lizard
(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"))
(file (string-append out "/share/emacs/site-lisp/" (file (string-append (elpa-directory out)
"slynk-stepper.lisp")) "/slynk-stepper.lisp"))
(asd (string-append (asd (string-append
(assoc-ref inputs "cl-agnostic-lizard") (assoc-ref inputs "cl-agnostic-lizard")
"/share/common-lisp/systems/agnostic-lizard.asd"))) "/share/common-lisp/systems/agnostic-lizard.asd")))