me
/
guix
Archived
1
0
Fork 0
Code

build-system: emacs: Use native compilation. 

* 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’.
master
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
Show Stats 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"
(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)
"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"))
(out (assoc-ref outputs "out")))
(setenv "SHELL" "sh")
(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)
"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
(replace 'unpack unpack)
(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 'configure)
(delete 'build)