amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: emacs-slime: Update package style.

Browse source 
* gnu/packages/emacs-xyz.scm (emacs-slime)[arguments]: Use G-expressions.
This commit is contained in:
Nicolas Goaziou 2023-01-27 22:49:06 +01:00
parent 85f72d8206
commit 4e4e9f56f2
No known key found for this signature in database
GPG key ID: DA00B4F048E92F2D
1 changed files with 33 additions and 33 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -8786,27 +8786,25 @@ in @code{html-mode}.")
(sha256 (sha256
(base32 "1acmm4w1mv1qzpnkgc4wyiilbx8l0dk16sx8wv815ri5ks289rll")))) (base32 "1acmm4w1mv1qzpnkgc4wyiilbx8l0dk16sx8wv815ri5ks289rll"))))
(build-system emacs-build-system) (build-system emacs-build-system)
(native-inputs
(list texinfo))
(arguments (arguments
`(#:include '("\\.el$" "\\.lisp$" "\\.asd$" "contrib") (list
#:exclude '("^slime-tests.el" "^contrib/test/" #:include #~(cons* "\\.lisp$" "\\.asd$" "contrib" %default-include)
#:exclude #~(list "^slime-tests.el" "^contrib/test/"
"^contrib/Makefile$" "^contrib/README.md$") "^contrib/Makefile$" "^contrib/README.md$")
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'unpack 'make-git-checkout-writable ;; (add-after 'unpack 'make-git-checkout-writable
(lambda _ ;; (lambda _
(for-each make-file-writable (find-files ".")))) ;; (for-each make-file-writable (find-files "."))))
(add-before 'install 'configure (add-before 'install 'configure
(lambda* _ (lambda* _
(emacs-substitute-variables "slime.el" (emacs-substitute-variables "slime.el"
("inferior-lisp-program" "sbcl")))) ("inferior-lisp-program" "sbcl"))))
(add-before 'install 'install-doc (add-before 'install 'install-doc
(lambda* (#:key outputs #:allow-other-keys) (lambda _
(let* ((out (assoc-ref outputs "out")) (let ((info-dir (string-append #$output "/share/info"))
(info-dir (string-append out "/share/info")) (doc-dir (string-append #$output "/share/doc/"
(doc-dir (string-append out "/share/doc/" #$name "-" #$version))
,name "-" ,version))
(doc-files '("doc/slime-refcard.pdf" (doc-files '("doc/slime-refcard.pdf"
"README.md" "NEWS" "PROBLEMS" "README.md" "NEWS" "PROBLEMS"
"CONTRIBUTING.md"))) "CONTRIBUTING.md")))
@ -8823,6 +8821,8 @@ in @code{html-mode}.")
(delete-file f)) (delete-file f))
doc-files) doc-files)
(delete-file-recursively "doc"))))))) (delete-file-recursively "doc")))))))
(native-inputs
(list texinfo))
(home-page "https://github.com/slime/slime") (home-page "https://github.com/slime/slime")
(synopsis "Superior Lisp Interaction Mode for Emacs") (synopsis "Superior Lisp Interaction Mode for Emacs")
(description (description