-
Notifications
You must be signed in to change notification settings - Fork 0
/
emacs.scm
94 lines (89 loc) · 3.32 KB
/
emacs.scm
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
(use-modules (gnu packages base)
(gnu packages emacs)
(gnu packages gcc)
(gnu packages xorg)
(guix packages)
(guix gexp)
(guix utils)
(srfi srfi-1)
(srfi srfi-26))
(define libgccjit-11
(package
(inherit libgccjit)
(version (package-version gcc-11))
(source (package-source gcc-11))
(arguments
(substitute-keyword-arguments
(package-arguments libgccjit)
((#:configure-flags flags)
`(cons* "--disable-bootstrap"
"--disable-libatomic"
"--disable-libgomp"
"--disable-libquadmath"
"--disable-libssp"
"--enable-checking=release"
,flags))))
(inputs (modify-inputs (package-inputs libgccjit)
(delete "libstdc++")))
(native-inputs (modify-inputs (package-native-inputs libgccjit)
(prepend gcc-11)))))
(define emacs-local
(package
(inherit emacs-next-pgtk)
(name "emacs-local")
(version "latest")
(source (local-file (string-append (getenv "HOME") "/.emacs.d/src")
"emacs-local-checkout"
#:recursive? #t
#:select? (lambda (file _) (not (any (cute string-suffix? <> (basename file))
'(".git" ".elc" "loaddefs.el" "esh-groups\\.el"))))))
(arguments
(substitute-keyword-arguments
(package-arguments emacs-next-pgtk)
((#:make-flags flags ''())
`(cons* "NATIVE_FULL_AOT=1" ,flags))
((#:configure-flags flags ''())
`(cons* "--with-native-compilation" ,flags))
((#:phases phases)
`(modify-phases
,phases
;; This section Copyright © 2020 Andrew Whatson <whatson@gmail.com> as it is based off of Andrew Whatson's GPLv3 Guix Channel here: https://github.com/flatwhatson/guix-channel.git
;; Add build-time library paths for libgccjit.
(add-before 'configure 'set-libgccjit-path
(lambda* (#:key inputs #:allow-other-keys)
(let ((libgccjit-libdir (string-append (assoc-ref inputs "libgccjit")
"/lib/gcc/" %host-type "/"
,(package-version libgccjit-11) "/")))
(setenv "LIBRARY_PATH" (string-append libgccjit-libdir ":" (getenv "LIBRARY_PATH"))))))
;; Add runtime library paths for libgccjit.
(add-after 'unpack 'patch-driver-options
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "lisp/emacs-lisp/comp.el"
(("\\(defcustom native-comp-driver-options nil")
(format #f "(defcustom native-comp-driver-options '(~s ~s ~s ~s)"
(string-append
"-B" (assoc-ref inputs "binutils") "/bin/")
(string-append
"-B" (assoc-ref inputs "glibc") "/lib/")
(string-append
"-B" (assoc-ref inputs "libgccjit") "/lib/")
(string-append
"-B" (assoc-ref inputs "libgccjit") "/lib/gcc/"))))))))
;; Keep debug symbols:
((#:strip-binaries? _ #f) #f)))
(native-inputs (modify-inputs (package-native-inputs emacs-next-pgtk)
(prepend gcc-11)))
(inputs (modify-inputs (package-inputs emacs-next-pgtk)
(prepend glibc)
(prepend libgccjit-11)
(prepend libxcomposite)))))
(define emacs-latest
(if (access? (string-append (local-file-absolute-file-name (package-source emacs-local)) "/.git") R_OK)
emacs-local
emacs-next ;; Source submodule not yet cloned.
))
(define emacs-initialized
(package
(inherit emacs-latest)
(name (string-append (package-name emacs-latest) "-initialized"))))
emacs-latest