futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

gnu: emacs-flycheck-grammalecte: Improve package style.

Browse Source 
* gnu/packages/emacs-xyz.scm (emacs-flycheck-grammalecte)[arguments]Use
G-expressions.
<#:exclude>: Remove non-existing excluded file.
<#:emacs>: Use EMACS-NO-X.
<#:phases>: Use G-expressions.

Change-Id: Ic5a3c5e3f5271e75cd369cdd40ce210d7c2b859b
This commit is contained in:
Nicolas Goaziou 2023-11-14 13:02:45 +01:00
parent a572e55ea5
commit b5d419b4ab
No known key found for this signature in database
GPG Key ID: DA00B4F048E92F2D
1 changed files with 30 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

60
gnu/packages/emacs-xyz.scm
View File

@ -8360,36 +8360,36 @@ for Flow files.")
(base32 "0vsf0zsqqfaarwq1k34kg5sqgywzr6dklqv093imm9q6ys18p8c4")))) (base32 "0vsf0zsqqfaarwq1k34kg5sqgywzr6dklqv093imm9q6ys18p8c4"))))
(build-system emacs-build-system) (build-system emacs-build-system)
(arguments (arguments
`(#:include (cons "\\.py$" %default-include) (list
#:exclude '("^test-profile.el$") #:include #~(cons "\\.py$" %default-include)
#:emacs ,emacs ;need libxml support #:emacs emacs-no-x ;need libxml support
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'unpack 'specify-python-location (add-after 'unpack 'specify-python-location
;; Hard-code python3 executable location in the library. ;; Hard-code python3 executable location in the library.
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(let ((python3 (search-input-file inputs "/bin/python3"))) (let ((python3 (search-input-file inputs "/bin/python3")))
(substitute* '("flycheck-grammalecte.el" "grammalecte.el") (substitute* '("flycheck-grammalecte.el" "grammalecte.el")
(("\"python3") (string-append "\"" python3))) (("\"python3") (string-append "\"" python3)))
(substitute* '("conjugueur.py" "flycheck_grammalecte.py") (substitute* '("conjugueur.py" "flycheck_grammalecte.py")
(("/usr/bin/env python3?") python3))))) (("/usr/bin/env python3?") python3)))))
(add-after 'unpack 'specify-grammalecte-location (add-after 'unpack 'specify-grammalecte-location
;; Use our own Grammalecte. ;; Use our own Grammalecte.
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(make-file-writable "grammalecte.el") (make-file-writable "grammalecte.el")
(emacs-substitute-variables "grammalecte.el" (emacs-substitute-variables "grammalecte.el"
("grammalecte-python-package-directory" ("grammalecte-python-package-directory"
(search-input-directory (search-input-directory
inputs inputs
(string-append "lib/python" (string-append "lib/python"
,(version-major+minor (package-version python)) #$(version-major+minor (package-version python))
"/site-packages/grammalecte")))))) "/site-packages/grammalecte"))))))
(add-after 'unpack 'do-not-phone-home (add-after 'unpack 'do-not-phone-home
;; Do not check for Grammalecte updates, ever. ;; Do not check for Grammalecte updates, ever.
(lambda _ (lambda _
(make-file-writable "grammalecte.el") (make-file-writable "grammalecte.el")
(emacs-substitute-variables "grammalecte.el" (emacs-substitute-variables "grammalecte.el"
("grammalecte-check-upstream-version-delay" 0))))))) ("grammalecte-check-upstream-version-delay" 0)))))))
(inputs (inputs
(list grammalecte python)) (list grammalecte python))
(propagated-inputs (propagated-inputs