mirror/guix
mirror/guix
1
Fork 0
mirror of https://https.git.savannah.gnu.org/git/guix.git/ synced 2025-07-13 02:20:53 +02:00
Code Releases Activity

gnu: Remove guile-emacs.

Browse source 
guile-emacs appears to be unmaintained, and the website that was hosting its
git repository is no longer active.

* gnu/packages/emacs.scm (guile-emacs): Delete variable.

Change-Id: I949762074acf7d9b8a3b219b26b3848db8220946
Signed-off-by: Arun Isaac <arunisaac@systemreboot.net>
This commit is contained in:
Ada Stevenson 2024-07-08 15:40:08 +08:00 • committed by Arun Isaac
parent b155223c05
commit 17c9472cde
No known key found for this signature in database
GPG key ID: 2E25EE8B61802BB3
1 changed files with 0 additions and 93 deletions
Download patch file Download diff file Expand all files Collapse all files

93
gnu/packages/emacs.scm
View file

@ -637,99 +637,6 @@ editor (with wide ints)" )
(define-public emacs-next-tree-sitter
(deprecated-package "emacs-next-tree-sitter" emacs-next))
(define-public guile-emacs
(let ((upstream-version "31.0.50")
(commit "8f87cbc1dae6a9e77368afc5736df8c342e9153d")
(revision "0"))
(package
(inherit emacs)
(name "guile-emacs")
(version (git-version upstream-version revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://codeberg.org/lyrra/guilemacs")
(commit commit)))
(file-name (git-file-name name version))
(patches (search-patches "guile-emacs-build-fixes.patch"))
(sha256
(base32
"1yhxy6d5i673y35i66d2x975zih3cw6p59ylsb8xk68wds6s7xrl"))))
(native-inputs
(modify-inputs (package-native-inputs emacs)
(prepend autoconf automake guile-for-guile-emacs)))
(home-page "https://guile-emacs.org")
(arguments
(substitute-keyword-arguments `(;; Tests aren't passing for now.
#:tests? #f
#:strip-binaries? #f
,@(package-arguments emacs))
((#:configure-flags flags ''())
#~`("CFLAGS=-Og -ggdb3"
"--with-native-compilation=no"
"--without-modules"
"--without-threads"
"--with-jpeg=no"
"--without-cairo"
"--without-tree-sitter"
,@(fold delete #$flags '("--with-cairo"
"--with-modules"
"--with-native-compilation=aot"))))
((#:make-flags flags #~'())
#~(list "V=1"))
((#:phases phases)
#~(modify-phases #$phases
(add-after 'unpack 'autogen
(lambda _
(invoke "sh" "autogen.sh")))
(delete 'patch-compilation-driver)
(delete 'set-libgccjit-path)
(delete 'validate-comp-integrity)
(delete 'restore-emacs-pdmp)
(delete 'build-trampolines)
(delete 'install-site-start)
(replace 'wrap-emacs-paths
;; Restrict EMACSLOADPATH to builtin packages.
(lambda _
(let ((lisp-dirs (list (string-append
#$output "/share/emacs/"
#$upstream-version "/lisp")))
(inputs '#$(map (match-lambda
((name directory)
#~(#$name . #$directory)))
(package-inputs this-package))))
(for-each
(lambda (prog)
(wrap-program prog
;; Some variants rely on uname being in PATH for Tramp.
;; Tramp paths can't be hardcoded, because they need to
;; be portable.
`("PATH" suffix
,(map dirname
(list (search-input-file inputs "/bin/gzip")
;; for coreutils
(search-input-file inputs "/bin/yes"))))
;; We use "=" because loading non-builtin packages is
;; currently not supported and prevents guile-emacs
;; from running.
`("EMACSLOADPATH" = ,lisp-dirs)))
(find-files
(string-append #$output "/bin")
;; Matches versioned and unversioned emacs binaries.
;; We don't patch emacsclient, because it takes its
;; environment variables from emacs.
;; Likewise, we don't need to patch helper binaries
;; like etags, ctags or ebrowse.
"^emacs(-[0-9]+(\\.[0-9]+)*)?$")))))
(add-after 'unpack 'help-patch-progam-file-names
(lambda _
(call-with-output-file "lisp/obsolete/terminal.el"
(lambda (port) (display port)))))
(add-after 'configure 'touch-lisp/finder-inf.el
(lambda _
(call-with-output-file "lisp/finder-inf.el"
(lambda (port) (display port))))))))))))
(define-public m17n-db
(package
(name "m17n-db")