lilyp pushed a commit to branch emacs-team
in repository guix.

commit 701bd8dd1df02ceb219de067bfab64823e9c3f3c
Author: Morgan Smith <morgan.j.sm...@outlook.com>
AuthorDate: Sun Mar 2 17:15:13 2025 -0500

    gnu: emacs-know-your-http-well: Use '#:lisp-directory'.
    
    * gnu/packages/emacs-xyz.scm (emacs-know-your-http-well): Use
    '#:lisp-directory'.
    
    Change-Id: I401730ca43726880edf2e67e21fbc21455197587
    Signed-off-by: Liliana Marie Prikler <liliana.prik...@gmail.com>
---
 gnu/packages/emacs-xyz.scm | 13 +++++--------
 1 file changed, 5 insertions(+), 8 deletions(-)

diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm
index 93f47985c7..f0f274fc8c 100644
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -27896,20 +27896,17 @@ regions which @code{hideshow} can hide.")
        (sha256
         (base32 "1p4ibx0qgznv8ard4a9m7345ay8ij2qzmqdqiqlllndqq6mz62x5"))))
     (arguments
-     `(#:phases
+     `(#:lisp-directory "emacs"
+       #:phases
        (modify-phases %standard-phases
          (add-after 'unpack 'install-json-files
            (lambda* (#:key outputs #:allow-other-keys)
              (for-each (lambda (directory)
-                         (copy-recursively directory
+                         (copy-recursively (string-append "../" directory)
                                            (string-append
-                                            (assoc-ref outputs "out")
+                                            (assoc-ref outputs "out") "/"
                                             directory)))
-                       '("js" "json"))))
-         (add-after 'unpack 'chdir-elisp
-           ;; Elisp directory is not in root of the source.
-           (lambda _
-             (chdir "emacs"))))))
+                       '("js" "json")))))))
     (build-system emacs-build-system)
     (home-page "https://github.com/for-GET/know-your-http-well";)
     (synopsis "Meaning of HTTP headers codes")

Reply via email to