mirror/guix
mirror/guix
1
Fork 0
mirror of https://https.git.savannah.gnu.org/git/guix.git/ synced 2025-07-15 11:30:44 +02:00
Code Releases Activity

gnu: emacs-sly: Skip failing test.

Browse source 
* gnu/packages/emacs-xyz.scm (emacs-sly) [arguments]: Improve style.
{phases}: Add phase patch-tests to ignore a single failing test.
[native-inputs]: Add sbcl.

Signed-off-by: Liliana Marie Prikler <liliana.prikler@gmail.com>
This commit is contained in:
Nicolas Graves 2025-03-20 11:08:46 +01:00 • committed by Liliana Marie Prikler
parent ebd3437bba
commit d26d4bf431
No known key found for this signature in database
GPG key ID: 442A84B8C70E2F87
1 changed files with 40 additions and 35 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -18169,42 +18169,47 @@ e.g., the expression you've just evaluated would briefly flash and so on.")
"15nyr02ykkws4q79jcmxcawddg8sgq9v5l8k7jv7gg3hnpzxjlb2"))))
(build-system emacs-build-system)
(native-inputs
(list texinfo))
(list sbcl texinfo))
(arguments
`(#:include (cons* "^contrib\\/" "^lib\\/" "^slynk\\/" %default-include)
#:phases
;; The package provides autoloads.
(modify-phases %standard-phases
(delete 'make-autoloads)
(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))
(doc-files '( ;; "doc/sly-refcard.pdf" ; See sly-refcard.pdf below.
"README.md" "NEWS.md" "PROBLEMS.md"
"CONTRIBUTING.md")))
(with-directory-excursion "doc"
(substitute* "Makefile"
(("infodir=/usr/local/info")
(string-append "infodir=" info-dir))
;; Don't rebuild contributors.texi since we are not in
;; the git repo.
(("contributors.texi: Makefile texinfo-tabulate.awk")
"contributors.texi:"))
(invoke "make" "html/index.html")
(invoke "make" "sly.info")
;; TODO: We need minimal texlive with "preprint" package
;; (for fullpage.sty). (invoke "make" "sly-refcard.pdf")
(install-file "sly.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")
#t))))))
(list
#:include #~(cons* "^contrib\\/" "^lib\\/" "^slynk\\/" %default-include)
#:phases
#~(modify-phases %standard-phases
(delete 'make-autoloads) ; The package provides autoloads.
(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/sly-refcard.pdf" ; See sly-refcard.pdf below.
"README.md" "NEWS.md" "PROBLEMS.md"
"CONTRIBUTING.md")))
(with-directory-excursion "doc"
(substitute* "Makefile"
(("infodir=/usr/local/info")
(string-append "infodir=" info-dir))
;; Don't rebuild contributors.texi since we are not in
;; the git repo.
(("contributors.texi: Makefile texinfo-tabulate.awk")
"contributors.texi:"))
(invoke "make" "html/index.html")
(invoke "make" "sly.info")
;; TODO: We need minimal texlive with "preprint" package
;; (for fullpage.sty). (invoke "make" "sly-refcard.pdf")
(install-file "sly.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"))))
(add-before 'check 'patch-tests
(lambda _
(setenv "HOME" (dirname (getcwd)))
(substitute* "test/sly-stickers-tests.el"
(("\
\\(define-sly-ert-test stickers-when-invalid-dont-stick .*" all)
(string-append all " (skip-unless nil)\n"))))))))
(home-page "https://github.com/joaotavora/sly")
(synopsis "Sylvester the Cat's Common Lisp IDE")
(description