amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

build-system: emacs: Use native compilation.

Browse source 
* guix/build/emacs-build-system.scm (add-install-to-native-load-path):
New variable.
(build): Replace ‘emacs-byte-compile-directory’ with ‘emacs-compile-directory’.
Delete already compiled files in the working directory prior to compilation.
(%standard-phases): Add ‘add-install-to-native-load-path’ after
‘expand-load-path’.
This commit is contained in:
Liliana Marie Prikler 2022-08-09 20:32:37 +02:00
parent b54724b2ac
commit 630c9b6e01
No known key found for this signature in database
GPG key ID: 442A84B8C70E2F87
1 changed files with 19 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

20
guix/build/emacs-build-system.scm
View file

@ -108,13 +108,29 @@ environment variable\n" source-directory))
(format #t "expanded load paths for ~{~a~^, ~}\n" (format #t "expanded load paths for ~{~a~^, ~}\n"
(map basename diff)))))) (map basename diff))))))
(define* (add-install-to-native-load-path #:key outputs #:allow-other-keys)
"Append the native-site-lisp of OUTPUT to EMACSNATIVELOADPATH."
(let ((native-load-path (or (false-if-exception
(string-split (getenv "EMACSNATIVELOADPATH") #\:))
'()))
(install-directory (string-append (assoc-ref outputs "out")
"/lib/emacs/native-site-lisp")))
(setenv "EMACSNATIVELOADPATH"
;; Emacs pushes these directories in reverse order, so the
;; last one will be the first.
(string-join `(,@native-load-path ,install-directory)
":"))))
(define* (build #:key outputs inputs #:allow-other-keys) (define* (build #:key outputs inputs #:allow-other-keys)
"Compile .el files." "Compile .el files."
;; Ensure that already compiled files in the working directory don't shadow
;; the build. Might happen, because check runs first.
(for-each delete-file (find-files "." "\\.el[cn]$"))
(let* ((emacs (search-input-file inputs "/bin/emacs")) (let* ((emacs (search-input-file inputs "/bin/emacs"))
(out (assoc-ref outputs "out"))) (out (assoc-ref outputs "out")))
(setenv "SHELL" "sh") (setenv "SHELL" "sh")
(parameterize ((%emacs emacs)) (parameterize ((%emacs emacs))
(emacs-byte-compile-directory (elpa-directory out))))) (emacs-compile-directory (elpa-directory out)))))
(define* (patch-el-files #:key outputs #:allow-other-keys) (define* (patch-el-files #:key outputs #:allow-other-keys)
"Substitute the absolute \"/bin/\" directory with the right location in the "Substitute the absolute \"/bin/\" directory with the right location in the
@ -343,6 +359,8 @@ for libraries following the ELPA convention."
(modify-phases gnu:%standard-phases (modify-phases gnu:%standard-phases
(replace 'unpack unpack) (replace 'unpack unpack)
(add-after 'unpack 'expand-load-path expand-load-path) (add-after 'unpack 'expand-load-path expand-load-path)
(add-after 'expand-load-path 'add-install-to-native-load-path
add-install-to-native-load-path)
(delete 'bootstrap) (delete 'bootstrap)
(delete 'configure) (delete 'configure)
(delete 'build) (delete 'build)