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

gnu: emacs: Build reproducibly.

Browse source 
* 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>
This commit is contained in:
Nicolas Graves 2025-07-14 15:00:13 +02:00 • committed by Liliana Marie Prikler
parent 1f5907e947
commit fcd191dfc0
No known key found for this signature in database
GPG key ID: 442A84B8C70E2F87
1 changed files with 21 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

23
gnu/packages/emacs.scm
View file

@ -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