diff options
| author | Nicolas Graves <ngraves@ngraves.fr> | 2025-07-14 15:00:13 +0200 |
|---|---|---|
| committer | Liliana Marie Prikler <liliana.prikler@gmail.com> | 2025-07-23 22:01:40 +0200 |
| commit | f1a2e57c52e9068d23c56542c22347c2073919d7 (patch) | |
| tree | 1dc66f529b48f7392cbb8e3decdc31ff3f8ef6b7 | |
| parent | 4df62944e9e4ea85cb5d8a22468d13abbd182577 (diff) | |
gnu: emacs: Build reproducibly.emacs-team
* gnu/packages/emacs.scm (emacs-minimal)[arguments]
<#:make-flags>: Wrap RUN_TEMACS with faketime.
<#:parallel-build?>: Disable.
<#:phases>: Add 'avoid-sysinfo-call-at-build-time.
[native-inputs]: Add libfaketime.
Signed-off-by: Liliana Marie Prikler <liliana.prikler@gmail.com>
| -rw-r--r-- | gnu/packages/emacs.scm | 23 |
1 files changed, 21 insertions, 2 deletions
diff --git a/gnu/packages/emacs.scm b/gnu/packages/emacs.scm index eeb274cf88..b24ff226fc 100644 --- a/gnu/packages/emacs.scm +++ b/gnu/packages/emacs.scm @@ -25,6 +25,7 @@ ;;; Copyright © 2022 Zhu Zihao <all_but_last@163.com> ;;; Copyright © 2023 Declan Tsien <declantsien@riseup.net> ;;; Copyright © 2023, 2024 Zheng Junjie <873216071@qq.com> +;;; Copyright © 2025 Nicolas Graves <ngraves@ngraves.fr> ;;; ;;; This file is part of GNU Guix. ;;; @@ -55,6 +56,7 @@ #:use-module (gnu packages autotools) #:use-module (gnu packages base) #:use-module (gnu packages bash) + #:use-module (gnu packages check) #:use-module (gnu packages compression) #:use-module (gnu packages fontutils) #:use-module (gnu packages freedesktop) @@ -201,7 +203,14 @@ " -Wno-error=incompatible-pointer-types") "--with-gnutls=no" "--disable-build-details") - #:make-flags #~(list (string-append "SELECTOR=" #$%selector)) + #:make-flags + #~(list (string-append "SELECTOR=" #$%selector) + (let ((release-date "2025-02-23 17:41:38")) + (string-append "RUN_TEMACS= " + #$(this-package-native-input "libfaketime") + "/bin/faketime -m -f '" release-date "'" + " ./temacs"))) + #:parallel-build? #f #:phases #~(modify-phases %standard-phases (add-after 'unpack 'enable-elogind @@ -210,6 +219,16 @@ (("libsystemd") "libelogind")) (when (file-exists? "configure") (delete-file "configure")))) + (add-after 'unpack 'avoid-sysinfo-call-at-build-time + (lambda _ + ;; This is a useful trick for reproducibility: when we configured + ;; with --disable-build-details, (system-name) is nil at build + ;; time on the lisp side. + ;; Find those places with strace -k -e sysinfo. + (substitute* "lisp/jit-lock.el" + (("\\(condition-case nil \\(load-average\\) \\(error\\)\\)" + all) + (format #f "(and (system-name) ~a)" all))))) (add-after 'unpack 'patch-program-file-names (lambda* (#:key inputs #:allow-other-keys) ;; Substitute "sh" command. @@ -363,7 +382,7 @@ (car (find-files "bin" "^emacs-([0-9]+\\.)+[0-9]+$")) "bin/emacs"))))))) (inputs (list bash-minimal coreutils findutils gawk gzip ncurses sed)) - (native-inputs (list autoconf pkg-config texinfo)) + (native-inputs (list autoconf libfaketime pkg-config texinfo)) (home-page "https://www.gnu.org/software/emacs/") (synopsis "The extensible text editor (minimal build for byte-compilation)") (description |