summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <mail@nicolasgoaziou.fr>2023-01-27 22:49:06 +0100
committerNicolas Goaziou <mail@nicolasgoaziou.fr>2023-01-27 23:01:00 +0100
commit4e4e9f56f285938c770a4ba1e09326de49b2f614 (patch)
treedf8cf47bb391f71a0c964b78d42af006f865cff9
parent85f72d820609f445c610d24dc9f06aea6654a190 (diff)
gnu: emacs-slime: Update package style.
* gnu/packages/emacs-xyz.scm (emacs-slime)[arguments]: Use G-expressions.
-rw-r--r--gnu/packages/emacs-xyz.scm66
1 files changed, 33 insertions, 33 deletions
diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm
index 89bc7c269f..60430744e6 100644
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -8786,43 +8786,43 @@ in @code{html-mode}.")
(sha256
(base32 "1acmm4w1mv1qzpnkgc4wyiilbx8l0dk16sx8wv815ri5ks289rll"))))
(build-system emacs-build-system)
- (native-inputs
- (list texinfo))
(arguments
- `(#:include '("\\.el$" "\\.lisp$" "\\.asd$" "contrib")
- #:exclude '("^slime-tests.el" "^contrib/test/"
- "^contrib/Makefile$" "^contrib/README.md$")
- #:phases
- (modify-phases %standard-phases
- (add-after 'unpack 'make-git-checkout-writable
- (lambda _
- (for-each make-file-writable (find-files "."))))
- (add-before 'install 'configure
- (lambda* _
- (emacs-substitute-variables "slime.el"
- ("inferior-lisp-program" "sbcl"))))
- (add-before 'install 'install-doc
- (lambda* (#:key outputs #:allow-other-keys)
- (let* ((out (assoc-ref outputs "out"))
- (info-dir (string-append out "/share/info"))
- (doc-dir (string-append out "/share/doc/"
- ,name "-" ,version))
+ (list
+ #:include #~(cons* "\\.lisp$" "\\.asd$" "contrib" %default-include)
+ #:exclude #~(list "^slime-tests.el" "^contrib/test/"
+ "^contrib/Makefile$" "^contrib/README.md$")
+ #:phases
+ #~(modify-phases %standard-phases
+ ;; (add-after 'unpack 'make-git-checkout-writable
+ ;; (lambda _
+ ;; (for-each make-file-writable (find-files "."))))
+ (add-before 'install 'configure
+ (lambda* _
+ (emacs-substitute-variables "slime.el"
+ ("inferior-lisp-program" "sbcl"))))
+ (add-before 'install 'install-doc
+ (lambda _
+ (let ((info-dir (string-append #$output "/share/info"))
+ (doc-dir (string-append #$output "/share/doc/"
+ #$name "-" #$version))
(doc-files '("doc/slime-refcard.pdf"
"README.md" "NEWS" "PROBLEMS"
"CONTRIBUTING.md")))
- (with-directory-excursion "doc"
- (substitute* "Makefile"
- (("infodir=/usr/local/info")
- (string-append "infodir=" info-dir)))
- (invoke "make" "html/index.html")
- (invoke "make" "slime.info")
- (install-file "slime.info" info-dir)
- (copy-recursively "html" (string-append doc-dir "/html")))
- (for-each (lambda (f)
- (install-file f doc-dir)
- (delete-file f))
- doc-files)
- (delete-file-recursively "doc")))))))
+ (with-directory-excursion "doc"
+ (substitute* "Makefile"
+ (("infodir=/usr/local/info")
+ (string-append "infodir=" info-dir)))
+ (invoke "make" "html/index.html")
+ (invoke "make" "slime.info")
+ (install-file "slime.info" info-dir)
+ (copy-recursively "html" (string-append doc-dir "/html")))
+ (for-each (lambda (f)
+ (install-file f doc-dir)
+ (delete-file f))
+ doc-files)
+ (delete-file-recursively "doc")))))))
+ (native-inputs
+ (list texinfo))
(home-page "https://github.com/slime/slime")
(synopsis "Superior Lisp Interaction Mode for Emacs")
(description