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

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

@ -8786,43 +8786,43 @@ 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)
"^contrib/Makefile$" "^contrib/README.md$") #:exclude #~(list "^slime-tests.el" "^contrib/test/"
#:phases "^contrib/Makefile$" "^contrib/README.md$")
(modify-phases %standard-phases #:phases
(add-after 'unpack 'make-git-checkout-writable #~(modify-phases %standard-phases
(lambda _ ;; (add-after 'unpack 'make-git-checkout-writable
(for-each make-file-writable (find-files ".")))) ;; (lambda _
(add-before 'install 'configure ;; (for-each make-file-writable (find-files "."))))
(lambda* _ (add-before 'install 'configure
(emacs-substitute-variables "slime.el" (lambda* _
("inferior-lisp-program" "sbcl")))) (emacs-substitute-variables "slime.el"
(add-before 'install 'install-doc ("inferior-lisp-program" "sbcl"))))
(lambda* (#:key outputs #:allow-other-keys) (add-before 'install 'install-doc
(let* ((out (assoc-ref outputs "out")) (lambda _
(info-dir (string-append out "/share/info")) (let ((info-dir (string-append #$output "/share/info"))
(doc-dir (string-append out "/share/doc/" (doc-dir (string-append #$output "/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")))
(with-directory-excursion "doc" (with-directory-excursion "doc"
(substitute* "Makefile" (substitute* "Makefile"
(("infodir=/usr/local/info") (("infodir=/usr/local/info")
(string-append "infodir=" info-dir))) (string-append "infodir=" info-dir)))
(invoke "make" "html/index.html") (invoke "make" "html/index.html")
(invoke "make" "slime.info") (invoke "make" "slime.info")
(install-file "slime.info" info-dir) (install-file "slime.info" info-dir)
(copy-recursively "html" (string-append doc-dir "/html"))) (copy-recursively "html" (string-append doc-dir "/html")))
(for-each (lambda (f) (for-each (lambda (f)
(install-file f doc-dir) (install-file f doc-dir)
(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