diff options
| author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2022-09-13 23:23:22 +0200 |
|---|---|---|
| committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2022-09-13 23:23:22 +0200 |
| commit | ac17d6ebf8629109949a68df5857c54e872562c0 (patch) | |
| tree | 151c1ffd922bdf8c0e352f9366b678f7980309c5 | |
| parent | 2f0b3b2d2298c4ca620227689ee3e9569e776467 (diff) | |
| download | guix-ac17d6ebf8629109949a68df5857c54e872562c0.tar.gz guix-ac17d6ebf8629109949a68df5857c54e872562c0.zip | |
gnu: emacs-libyaml: Improve package style.
* gnu/packages/emacs-xyz.scm (emacs-libyaml)[arguments]: Use G-expressions.
Remove trailing #T from phases. Prefer MAKE-FILE-WRITABLE over CHMOD.
| -rw-r--r-- | gnu/packages/emacs-xyz.scm | 43 |
1 files changed, 21 insertions, 22 deletions
diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm index 159d19d673..6ac95d03e2 100644 --- a/gnu/packages/emacs-xyz.scm +++ b/gnu/packages/emacs-xyz.scm @@ -25822,31 +25822,30 @@ utilities.") (base32 "1c85583r47yjbpzbjgjzrwzqdlmy229xx9az2r18smcyd9da92c3")))) (build-system emacs-build-system) (arguments - `(#:tests? #f ;no test - #:modules ((guix build emacs-build-system) + (list + #:tests? #f ;no test + #:modules '((guix build emacs-build-system) (guix build emacs-utils) (guix build utils)) - #:imported-modules (,@%emacs-build-system-modules + #:imported-modules `(,@%emacs-build-system-modules (guix build gnu-build-system)) - #:phases - (modify-phases %standard-phases - (add-after 'unpack 'substitute-libyaml-core-path - (lambda* (#:key outputs #:allow-other-keys) - (chmod "libyaml.el" #o644) - (substitute* "libyaml.el" - (("^\\(require 'libyaml-core\\)") - (string-append "(module-load \"" (assoc-ref outputs "out") - "/lib/libyaml-core.so\")"))) - #t)) - (add-after 'check 'make - ;; Run make. - (lambda* (#:key (make-flags '()) outputs #:allow-other-keys) - ;; Compile the shared object file. - (apply invoke "make" "all" "CPPFLAGS=" make-flags) - ;; Move the file into /lib. - (install-file "libyaml-core.so" - (string-append (assoc-ref outputs "out") "/lib")) - #t))))) + #:phases + #~(modify-phases %standard-phases + (add-after 'unpack 'substitute-libyaml-core-path + (lambda _ + (make-file-writable "libyaml.el") + (substitute* "libyaml.el" + (("^\\(require 'libyaml-core\\)") + (string-append "(module-load \"" #$output + "/lib/libyaml-core.so\")"))))) + (add-after 'check 'make + ;; Run make. + (lambda* (#:key (make-flags '()) #:allow-other-keys) + ;; Compile the shared object file. + (apply invoke "make" "all" "CPPFLAGS=" make-flags) + ;; Move the file into /lib. + (install-file "libyaml-core.so" + (string-append #$output "/lib"))))))) (native-inputs (list libyaml)) (home-page "https://github.com/syohex/emacs-libyaml") (synopsis "Libyaml bindings for Emacs") |