707 lines
30 KiB
Scheme
707 lines
30 KiB
Scheme
;;; GNU Guix --- Functional package management for GNU
|
|
;;; Copyright © 2013-2017, 2019, 2021-2022 Ludovic Courtès <ludo@gnu.org>
|
|
;;; Copyright © 2013 Andreas Enge <andreas@enge.fr>
|
|
;;; Copyright © 2014 Taylan Ulrich Bayirli/Kammer <taylanbayirli@gmail.com>
|
|
;;; Copyright © 2014, 2015, 2016, 2017, 2018, 2019, 2020 Mark H Weaver <mhw@netris.org>
|
|
;;; Copyright © 2014, 2015, 2016, 2017 Alex Kost <alezost@gmail.com>
|
|
;;; Copyright © 2016, 2018 Arun Isaac <arunisaac@systemreboot.net>
|
|
;;; Copyright © 2016 Federico Beffa <beffa@fbengineering.ch>
|
|
;;; Copyright © 2016 David Thompson <dthompson2@worcester.edu>
|
|
;;; Copyright © 2016 Nikita <nikita@n0.is>
|
|
;;; Copyright © 2017 Marius Bakke <mbakke@fastmail.com>
|
|
;;; Copyright © 2017, 2019, 2020 Maxim Cournoyer <maxim.cournoyer@gmail.com>
|
|
;;; Copyright © 2017 Alex Vong <alexvong1995@gmail.com>
|
|
;;; Copyright © 2017, 2018 Ricardo Wurmus <rekado@elephly.net>
|
|
;;; Copyright © 2017, 2023 Janneke Nieuwenhuizen <janneke@gnu.org>
|
|
;;; Copyright © 2018, 2023 Efraim Flashner <efraim@flashner.co.il>
|
|
;;; Copyright © 2018 Mathieu Othacehe <m.othacehe@gmail.com>
|
|
;;; Copyright © 2018, 2019, 2021 Tobias Geerinckx-Rice <me@tobias.gr>
|
|
;;; Copyright © 2019 Jesse John Gildersleve <jessejohngildersleve@zohomail.eu>
|
|
;;; Copyright © 2019 Valentin Ignatev <valentignatev@gmail.com>
|
|
;;; Copyright © 2019, 2021 Liliana Marie Prikler <liliana.prikler@gmail.com>
|
|
;;; Copyright © 2019 Amin Bandali <bandali@gnu.org>
|
|
;;; Copyright © 2020 Jack Hill <jackhill@jackhill.us>
|
|
;;; Copyright © 2020 Morgan Smith <Morgan.J.Smith@outlook.com>
|
|
;;; Copyright © 2022 Zhu Zihao <all_but_last@163.com>
|
|
;;; Copyright © 2023 Declan Tsien <declantsien@riseup.net>
|
|
;;; Copyright © 2023 Zheng Junjie <873216071@qq.com>
|
|
;;;
|
|
;;; This file is part of GNU Guix.
|
|
;;;
|
|
;;; GNU Guix is free software; you can redistribute it and/or modify it
|
|
;;; under the terms of the GNU General Public License as published by
|
|
;;; the Free Software Foundation; either version 3 of the License, or (at
|
|
;;; your option) any later version.
|
|
;;;
|
|
;;; GNU Guix is distributed in the hope that it will be useful, but
|
|
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
;;; GNU General Public License for more details.
|
|
;;;
|
|
;;; You should have received a copy of the GNU General Public License
|
|
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
(define-module (gnu packages emacs)
|
|
#:use-module ((guix licenses) #:prefix license:)
|
|
#:use-module (guix packages)
|
|
#:use-module (guix gexp)
|
|
#:use-module (guix download)
|
|
#:use-module (guix git-download)
|
|
#:use-module (guix build-system)
|
|
#:use-module (guix build-system gnu)
|
|
#:use-module (guix build-system glib-or-gtk)
|
|
#:use-module (gnu packages)
|
|
#:use-module (gnu packages acl)
|
|
#:use-module (gnu packages autotools)
|
|
#:use-module (gnu packages base)
|
|
#:use-module (gnu packages compression)
|
|
#:use-module (gnu packages fontutils)
|
|
#:use-module (gnu packages freedesktop)
|
|
#:use-module (gnu packages fribidi)
|
|
#:use-module (gnu packages gcc)
|
|
#:use-module (gnu packages gd)
|
|
#:use-module (gnu packages gettext)
|
|
#:use-module (gnu packages ghostscript)
|
|
#:use-module (gnu packages glib)
|
|
#:use-module (gnu packages gnome) ; for librsvg
|
|
#:use-module (gnu packages gtk)
|
|
#:use-module (gnu packages guile)
|
|
#:use-module (gnu packages image)
|
|
#:use-module (gnu packages lesstif) ; motif
|
|
#:use-module (gnu packages linux) ; alsa-lib, gpm
|
|
#:use-module (gnu packages mail) ; for mailutils
|
|
#:use-module (gnu packages multiprecision)
|
|
#:use-module (gnu packages ncurses)
|
|
#:use-module (gnu packages pdf)
|
|
#:use-module (gnu packages pkg-config)
|
|
#:use-module (gnu packages selinux)
|
|
#:use-module (gnu packages sqlite)
|
|
#:use-module (gnu packages texinfo)
|
|
#:use-module (gnu packages tls)
|
|
#:use-module (gnu packages tree-sitter)
|
|
#:use-module (gnu packages web) ; for jansson
|
|
#:use-module (gnu packages webkit)
|
|
#:use-module (gnu packages xml)
|
|
#:use-module (gnu packages xorg)
|
|
#:use-module (guix utils)
|
|
#:use-module (ice-9 match)
|
|
#:use-module (srfi srfi-1))
|
|
|
|
(define (%emacs-modules build-system)
|
|
(let ((which (build-system-name build-system)))
|
|
`((guix build ,(symbol-append which '-build-system))
|
|
(guix build utils)
|
|
(srfi srfi-1)
|
|
(ice-9 ftw))))
|
|
|
|
(define-public emacs
|
|
(package
|
|
(name "emacs")
|
|
(version "28.2")
|
|
(source (origin
|
|
(method url-fetch)
|
|
(uri (string-append "mirror://gnu/emacs/emacs-"
|
|
version ".tar.xz"))
|
|
(sha256
|
|
(base32
|
|
"12144dcaihv2ymfm7g2vnvdl4h71hqnsz1mljzf34cpg6ci1h8gf"))
|
|
(patches (search-patches "emacs-exec-path.patch"
|
|
"emacs-fix-scheme-indent-function.patch"
|
|
"emacs-source-date-epoch.patch"))
|
|
(modules '((guix build utils)))
|
|
(snippet
|
|
'(with-directory-excursion "lisp"
|
|
;; Delete the bundled byte-compiled elisp files and generated
|
|
;; autoloads.
|
|
(for-each delete-file
|
|
(append (find-files "." "\\.elc$")
|
|
(find-files "." "loaddefs\\.el$")
|
|
(find-files "eshell" "^esh-groups\\.el$")))
|
|
|
|
;; Make sure Tramp looks for binaries in the right places on
|
|
;; remote Guix System machines, where 'getconf PATH' returns
|
|
;; something bogus.
|
|
(substitute* "net/tramp.el"
|
|
;; Patch the line after "(defcustom tramp-remote-path".
|
|
(("\\(tramp-default-remote-path")
|
|
(format #f "(tramp-default-remote-path ~s ~s ~s ~s "
|
|
"~/.guix-profile/bin" "~/.guix-profile/sbin"
|
|
"/run/current-system/profile/bin"
|
|
"/run/current-system/profile/sbin")))
|
|
|
|
;; Make sure Man looks for C header files in the right
|
|
;; places.
|
|
(substitute* "man.el"
|
|
(("\"/usr/local/include\"" line)
|
|
(string-join
|
|
(list line
|
|
"\"~/.guix-profile/include\""
|
|
"\"/var/guix/profiles/system/profile/include\"")
|
|
" ")))))))
|
|
(build-system glib-or-gtk-build-system)
|
|
(arguments
|
|
(list
|
|
#:tests? #f ; no check target
|
|
#:modules (%emacs-modules build-system)
|
|
#:configure-flags #~(list "--with-modules"
|
|
"--with-cairo"
|
|
"--with-native-compilation"
|
|
"--disable-build-details")
|
|
#:make-flags #~(list "NATIVE_FULL_AOT=1")
|
|
#:phases
|
|
#~(modify-phases %standard-phases
|
|
(add-after 'set-paths 'set-libgccjit-path
|
|
(lambda* (#:key inputs #:allow-other-keys)
|
|
(define (first-subdirectory/absolute directory)
|
|
(let ((files (scandir
|
|
directory
|
|
(lambda (file)
|
|
(and (not (member file '("." "..")))
|
|
(file-is-directory? (string-append
|
|
directory "/"
|
|
file)))))))
|
|
(and (not (null? files))
|
|
(string-append directory "/" (car files)))))
|
|
(let* ((libgccjit-libdir
|
|
(first-subdirectory/absolute ;; version
|
|
(first-subdirectory/absolute ;; host type
|
|
(search-input-directory inputs "lib/gcc")))))
|
|
(setenv "LIBRARY_PATH"
|
|
(string-append (getenv "LIBRARY_PATH")
|
|
":" libgccjit-libdir)))))
|
|
(add-after 'unpack 'enable-elogind
|
|
(lambda _
|
|
(substitute* "configure.ac"
|
|
(("libsystemd") "libelogind"))
|
|
(when (file-exists? "configure")
|
|
(delete-file "configure"))))
|
|
(add-after 'unpack 'patch-program-file-names
|
|
(lambda* (#:key inputs #:allow-other-keys)
|
|
(substitute* '("src/callproc.c"
|
|
"lisp/term.el"
|
|
"lisp/htmlfontify.el"
|
|
"lisp/textmodes/artist.el"
|
|
"lisp/progmodes/sh-script.el")
|
|
(("\"/bin/sh\"")
|
|
(format #f "~s" (search-input-file inputs "/bin/sh"))))
|
|
(substitute* "lisp/doc-view.el"
|
|
(("\"(gs|dvipdf|ps2pdf|pdftotext)\"" all what)
|
|
(let ((replacement (false-if-exception
|
|
(search-input-file
|
|
inputs
|
|
(string-append "/bin/" what)))))
|
|
(if replacement
|
|
(string-append "\"" replacement "\"")
|
|
all))))
|
|
;; match ".gvfs-fuse-daemon-real" and ".gvfsd-fuse-real"
|
|
;; respectively when looking for GVFS processes.
|
|
(substitute* "lisp/net/tramp-gvfs.el"
|
|
(("\\(tramp-compat-process-running-p \"(.*)\"\\)" all process)
|
|
(format #f "(or ~a (tramp-compat-process-running-p ~s))"
|
|
all (string-append "." process "-real"))))))
|
|
(add-after 'unpack 'patch-compilation-driver
|
|
(lambda _
|
|
(substitute* "lisp/emacs-lisp/comp.el"
|
|
(("\\(defcustom native-comp-driver-options nil")
|
|
(format
|
|
#f "(defcustom native-comp-driver-options '(~@{~s~^ ~})"
|
|
(string-append
|
|
"-B" #$(this-package-input "binutils") "/bin/")
|
|
(string-append
|
|
"-B" #$(this-package-input "glibc") "/lib/")
|
|
(string-append
|
|
"-B" #$(this-package-input "libgccjit") "/lib/")
|
|
(string-append
|
|
"-B" #$(this-package-input "libgccjit") "/lib/gcc/"))))))
|
|
(add-before 'configure 'fix-/bin/pwd
|
|
(lambda _
|
|
;; Use `pwd', not `/bin/pwd'.
|
|
(substitute* (find-files "." "^Makefile\\.in$")
|
|
(("/bin/pwd")
|
|
"pwd"))))
|
|
(add-after 'install 'install-site-start
|
|
;; Use 'guix-emacs' in "site-start.el", which is used autoload the
|
|
;; Elisp packages found in EMACSLOADPATH.
|
|
(lambda* (#:key inputs outputs #:allow-other-keys)
|
|
(let* ((out (assoc-ref outputs "out"))
|
|
(lisp-dir (string-append out "/share/emacs/site-lisp"))
|
|
(emacs (string-append out "/bin/emacs")))
|
|
|
|
;; This is duplicated from emacs-utils to prevent coupling.
|
|
(define* (emacs-byte-compile-directory dir)
|
|
(let ((expr `(progn
|
|
(setq byte-compile-debug t)
|
|
(byte-recompile-directory
|
|
(file-name-as-directory ,dir) 0 1))))
|
|
(invoke emacs "--quick" "--batch"
|
|
(format #f "--eval=~s" expr))))
|
|
|
|
(copy-file #$(local-file
|
|
(search-auxiliary-file "emacs/guix-emacs.el"))
|
|
(string-append lisp-dir "/guix-emacs.el"))
|
|
(with-output-to-file (string-append lisp-dir "/site-start.el")
|
|
(lambda ()
|
|
(display
|
|
(string-append
|
|
"(when (require 'guix-emacs nil t)\n"
|
|
" (guix-emacs-autoload-packages)\n"
|
|
" (advice-add 'package-load-all-descriptors"
|
|
" :after #'guix-emacs-load-package-descriptors))"))))
|
|
;; Remove the extraneous subdirs.el file, as it causes Emacs to
|
|
;; add recursively all the the sub-directories of a profile's
|
|
;; share/emacs/site-lisp union when added to EMACSLOADPATH,
|
|
;; which leads to conflicts.
|
|
(delete-file (string-append lisp-dir "/subdirs.el"))
|
|
;; Byte compile the site-start files.
|
|
(emacs-byte-compile-directory lisp-dir))))
|
|
(add-after 'glib-or-gtk-wrap 'restore-emacs-pdmp
|
|
;; restore the dump file that Emacs installs somewhere in
|
|
;; libexec/ to its original state
|
|
(lambda* (#:key outputs target #:allow-other-keys)
|
|
(let* ((libexec (string-append (assoc-ref outputs "out")
|
|
"/libexec"))
|
|
;; each of these ought to only match a single file,
|
|
;; but even if not (find-files) sorts by string<,
|
|
;; so the Nth element in one maps to the Nth element of
|
|
;; the other
|
|
(pdmp (find-files libexec "\\.pdmp$"))
|
|
(pdmp-real (find-files libexec "\\.pdmp-real$")))
|
|
(for-each rename-file pdmp-real pdmp))))
|
|
(add-after 'glib-or-gtk-wrap 'strip-double-wrap
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
;; Directly copy emacs-X.Y to emacs, so that it is not wrapped
|
|
;; twice. This also fixes a minor issue, where WMs would not be
|
|
;; able to track emacs back to emacs.desktop.
|
|
(with-directory-excursion (assoc-ref outputs "out")
|
|
(copy-file
|
|
(car (find-files "bin" "^emacs-([0-9]+\\.)+[0-9]+$"))
|
|
"bin/emacs"))))
|
|
(add-after 'strip-double-wrap 'wrap-emacs-paths
|
|
(lambda* (#:key inputs outputs #:allow-other-keys)
|
|
(let* ((out (assoc-ref outputs "out"))
|
|
(lisp-dirs (find-files (string-append out "/share/emacs")
|
|
"^lisp$"
|
|
#:directories? #t)))
|
|
(for-each
|
|
(lambda (prog)
|
|
(wrap-program prog
|
|
;; emacs-next and 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"))))
|
|
`("EMACSLOADPATH" suffix ,lisp-dirs)))
|
|
(find-files (string-append out "/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]+)*)?$"))))))))
|
|
(inputs
|
|
(list gnutls
|
|
ncurses
|
|
|
|
;; To "unshadow" ld-wrapper in native builds
|
|
(make-ld-wrapper "ld-wrapper" #:binutils binutils)
|
|
|
|
;; For native compilation
|
|
binutils
|
|
(libc-for-target)
|
|
libgccjit
|
|
|
|
;; Required for "core" functionality, such as dired and compression.
|
|
coreutils
|
|
gzip
|
|
|
|
;; Avoid Emacs's limited movemail substitute that retrieves POP3
|
|
;; email only via insecure channels.
|
|
;; This is not needed for (modern) IMAP.
|
|
mailutils
|
|
|
|
gpm
|
|
libx11
|
|
gtk+
|
|
cairo
|
|
pango
|
|
harfbuzz
|
|
libxft
|
|
libtiff
|
|
giflib
|
|
lcms
|
|
libjpeg-turbo
|
|
libselinux
|
|
acl
|
|
jansson
|
|
gmp
|
|
ghostscript
|
|
poppler
|
|
elogind
|
|
|
|
;; When looking for libpng `configure' links with `-lpng -lz', so we
|
|
;; must also provide zlib as an input.
|
|
libpng
|
|
zlib
|
|
(librsvg-for-system)
|
|
libxpm
|
|
libxml2
|
|
libice
|
|
libsm
|
|
alsa-lib
|
|
dbus
|
|
|
|
;; multilingualization support
|
|
libotf
|
|
m17n-lib))
|
|
(native-inputs
|
|
(list autoconf pkg-config texinfo))
|
|
(native-search-paths
|
|
(list (search-path-specification
|
|
(variable "EMACSLOADPATH")
|
|
(files '("share/emacs/site-lisp")))
|
|
(search-path-specification
|
|
(variable "EMACSNATIVELOADPATH")
|
|
(files '("lib/emacs/native-site-lisp")))
|
|
(search-path-specification
|
|
(variable "INFOPATH")
|
|
(files '("share/info")))
|
|
;; tree-sitter support is not yet available in emacs 28, but this
|
|
;; search path won't harm and also will be beneficial for
|
|
;; emacs-next and other emacs-* packages, which have tree-sitter
|
|
;; support enabled. Please, remove this comment, when emacs
|
|
;; package is updated to 29.
|
|
(search-path-specification
|
|
(variable "TREE_SITTER_GRAMMAR_PATH")
|
|
(files '("lib/tree-sitter")))))
|
|
|
|
(home-page "https://www.gnu.org/software/emacs/")
|
|
(synopsis "The extensible, customizable, self-documenting text editor")
|
|
(description
|
|
"GNU Emacs is an extensible and highly customizable text editor. It is
|
|
based on an Emacs Lisp interpreter with extensions for text editing. Emacs
|
|
has been extended in essentially all areas of computing, giving rise to a
|
|
vast array of packages supporting, e.g., email, IRC and XMPP messaging,
|
|
spreadsheets, remote server editing, and much more. Emacs includes extensive
|
|
documentation on all aspects of the system, from basic editing to writing
|
|
large Lisp programs. It has full Unicode support for nearly all human
|
|
languages.")
|
|
(license license:gpl3+)))
|
|
|
|
(define-public emacs-next
|
|
(package
|
|
(inherit emacs)
|
|
(name "emacs-next")
|
|
(version "29.0.92")
|
|
(source
|
|
(origin
|
|
(inherit (package-source emacs))
|
|
(method git-fetch)
|
|
(uri (git-reference
|
|
(url "https://git.savannah.gnu.org/git/emacs.git/")
|
|
(commit (string-append "emacs-" version))))
|
|
(file-name (git-file-name name version))
|
|
;; emacs-source-date-epoch.patch is no longer necessary
|
|
(patches (search-patches "emacs-exec-path.patch"
|
|
"emacs-fix-scheme-indent-function.patch"
|
|
"emacs-native-comp-driver-options.patch"))
|
|
(sha256
|
|
(base32
|
|
"1h3p325859svcy43iv7wr27dp68049j9d44jq5akcynqdkxz4jjn"))))
|
|
(inputs
|
|
(modify-inputs (package-inputs emacs)
|
|
(prepend sqlite)))
|
|
(native-inputs
|
|
(modify-inputs (package-native-inputs emacs)
|
|
(prepend autoconf)))))
|
|
|
|
(define-public emacs-next-tree-sitter
|
|
(package
|
|
(inherit emacs-next)
|
|
(name "emacs-next-tree-sitter")
|
|
(inputs
|
|
(modify-inputs (package-inputs emacs-next)
|
|
(prepend sqlite tree-sitter)))
|
|
(synopsis "Emacs text editor with @code{tree-sitter} support")
|
|
(description "This Emacs build supports tree-sitter.")))
|
|
|
|
(define-public emacs-next-pgtk
|
|
(package
|
|
(inherit emacs-next-tree-sitter)
|
|
(name "emacs-next-pgtk")
|
|
(source
|
|
(origin
|
|
(inherit (package-source emacs-next-tree-sitter))
|
|
(patches
|
|
(append (search-patches "emacs-pgtk-super-key-fix.patch")
|
|
(origin-patches (package-source emacs-next-tree-sitter))))))
|
|
(arguments
|
|
(substitute-keyword-arguments (package-arguments emacs-next-tree-sitter)
|
|
((#:configure-flags flags #~'())
|
|
#~(cons* "--with-pgtk" #$flags))))
|
|
(synopsis "Emacs text editor with @code{pgtk} and @code{tree-sitter} support")
|
|
(description "This Emacs build implements graphical UI purely in terms
|
|
of GTK and supports tree-sitter.")))
|
|
|
|
(define-public emacs-next-pgtk-xwidgets
|
|
(package
|
|
(inherit emacs-next-pgtk)
|
|
(name "emacs-next-pgtk-xwidgets")
|
|
(synopsis "Emacs text editor with @code{xwidgets} and @code{pgtk} support")
|
|
(arguments
|
|
(substitute-keyword-arguments (package-arguments emacs-next-pgtk)
|
|
((#:configure-flags flags #~'())
|
|
#~(cons "--with-xwidgets" #$flags))))
|
|
(inputs
|
|
(modify-inputs (package-inputs emacs-next-pgtk)
|
|
(prepend gsettings-desktop-schemas webkitgtk-with-libsoup2)))))
|
|
|
|
(define-public emacs-minimal
|
|
;; This is the version that you should use as an input to packages that just
|
|
;; need to byte-compile .el files.
|
|
(package/inherit emacs
|
|
(name "emacs-minimal")
|
|
(synopsis "The extensible text editor (used only for byte-compilation)")
|
|
(build-system gnu-build-system)
|
|
(arguments
|
|
(substitute-keyword-arguments (package-arguments emacs)
|
|
((#:configure-flags flags #~'())
|
|
#~(list "--with-gnutls=no" "--disable-build-details"))
|
|
((#:modules _) (%emacs-modules build-system))
|
|
((#:phases phases)
|
|
#~(modify-phases #$phases
|
|
(delete 'set-libgccjit-path)
|
|
(delete 'patch-compilation-driver)
|
|
(delete 'restore-emacs-pdmp)
|
|
(delete 'strip-double-wrap)))))
|
|
(inputs (list ncurses coreutils gzip))
|
|
(native-inputs (list autoconf pkg-config))))
|
|
|
|
(define-public emacs-xwidgets
|
|
(package/inherit emacs
|
|
(name "emacs-xwidgets")
|
|
(synopsis "The extensible, customizable, self-documenting text
|
|
editor (with xwidgets support)")
|
|
(build-system gnu-build-system)
|
|
(arguments
|
|
(substitute-keyword-arguments (package-arguments emacs)
|
|
((#:configure-flags flags #~'())
|
|
#~(cons "--with-xwidgets" #$flags))
|
|
((#:modules _) (%emacs-modules build-system))
|
|
((#:phases phases)
|
|
#~(modify-phases #$phases
|
|
(delete 'restore-emacs-pdmp)
|
|
(delete 'strip-double-wrap)))))
|
|
(inputs
|
|
(modify-inputs (package-inputs emacs)
|
|
(prepend webkitgtk-with-libsoup2 libxcomposite)))))
|
|
|
|
(define-public emacs-motif
|
|
(package/inherit emacs
|
|
(name "emacs-motif")
|
|
(synopsis
|
|
"The extensible, customizable, self-documenting text editor (with Motif
|
|
toolkit)")
|
|
(build-system gnu-build-system)
|
|
(inputs (modify-inputs (package-inputs emacs)
|
|
(delete "gtk+")
|
|
(prepend inotify-tools motif)))
|
|
(arguments
|
|
(substitute-keyword-arguments
|
|
(package-arguments
|
|
emacs)
|
|
((#:configure-flags flags #~'())
|
|
#~(cons "--with-x-toolkit=motif"
|
|
#$flags))
|
|
((#:modules _)
|
|
(%emacs-modules build-system))
|
|
((#:phases phases)
|
|
#~(modify-phases #$phases
|
|
(delete 'restore-emacs-pdmp)
|
|
(delete 'strip-double-wrap)))))))
|
|
|
|
(define-public emacs-no-x
|
|
(package/inherit emacs
|
|
(name "emacs-no-x")
|
|
(synopsis "The extensible, customizable, self-documenting text
|
|
editor (console only)")
|
|
(build-system gnu-build-system)
|
|
(inputs (modify-inputs (package-inputs emacs)
|
|
(delete "libx11" "gtk+" "libxft" "libtiff" "giflib" "libjpeg"
|
|
"imagemagick" "libpng" "librsvg" "libxpm" "libice"
|
|
"libsm" "cairo" "pango" "harfbuzz"
|
|
;; These depend on libx11, so remove them as well.
|
|
"libotf" "m17n-lib" "dbus")))
|
|
(arguments
|
|
(substitute-keyword-arguments (package-arguments emacs)
|
|
((#:configure-flags flags #~'())
|
|
#~(delete "--with-cairo" #$flags))
|
|
((#:modules _) (%emacs-modules build-system))
|
|
((#:phases phases)
|
|
#~(modify-phases #$phases
|
|
(delete 'restore-emacs-pdmp)
|
|
(delete 'strip-double-wrap)))))))
|
|
|
|
(define-public emacs-no-x-toolkit
|
|
(package/inherit emacs
|
|
(name "emacs-no-x-toolkit")
|
|
(synopsis "The extensible, customizable, self-documenting text
|
|
editor (without an X toolkit)" )
|
|
(build-system gnu-build-system)
|
|
(inputs (modify-inputs (package-inputs emacs)
|
|
(delete "gtk+")
|
|
(prepend inotify-tools)))
|
|
(arguments
|
|
(substitute-keyword-arguments (package-arguments emacs)
|
|
((#:configure-flags flags #~'())
|
|
#~(cons "--with-x-toolkit=no" #$flags))
|
|
((#:modules _) (%emacs-modules build-system))
|
|
((#:phases phases)
|
|
#~(modify-phases #$phases
|
|
(delete 'restore-emacs-pdmp)
|
|
(delete 'strip-double-wrap)))))))
|
|
|
|
(define-public emacs-wide-int
|
|
(package/inherit emacs
|
|
(name "emacs-wide-int")
|
|
(synopsis "The extensible, customizable, self-documenting text
|
|
editor (with wide ints)" )
|
|
(arguments
|
|
(substitute-keyword-arguments (package-arguments emacs)
|
|
((#:configure-flags flags)
|
|
#~(cons "--with-wide-int" #$flags))))))
|
|
|
|
(define-public guile-emacs
|
|
(let ((commit "41120e0f595b16387eebfbf731fff70481de1b4b")
|
|
(revision "0"))
|
|
(package
|
|
(inherit emacs)
|
|
(name "guile-emacs")
|
|
(version (git-version "0.0.0" revision commit))
|
|
(source (origin
|
|
(method git-fetch)
|
|
(uri (git-reference
|
|
(url "https://git.hcoop.net/git/bpt/emacs.git")
|
|
(commit commit)))
|
|
(file-name (git-file-name name version))
|
|
(patches (search-patches "guile-emacs-fix-configure.patch"))
|
|
(sha256
|
|
(base32
|
|
"0lvcvsz0f4mawj04db35p1dvkffdqkz8pkhc0jzh9j9x2i63kcz6"))))
|
|
(native-inputs
|
|
(modify-inputs (package-native-inputs emacs)
|
|
(prepend autoconf automake guile-for-guile-emacs)))
|
|
(arguments
|
|
(substitute-keyword-arguments `(;; Build fails if we allow parallel build.
|
|
#:parallel-build? #f
|
|
;; Tests aren't passing for now.
|
|
#:tests? #f
|
|
,@(package-arguments emacs))
|
|
((#:configure-flags flags ''())
|
|
#~(delete "--with-cairo" #$flags))
|
|
((#:phases phases)
|
|
#~(modify-phases #$phases
|
|
(add-after 'unpack 'autogen
|
|
(lambda _
|
|
(invoke "sh" "autogen.sh")))
|
|
;; Build sometimes fails: deps/dispnew.d: No such file or directory
|
|
(add-before 'build 'make-deps-dir
|
|
(lambda _
|
|
(invoke "mkdir" "-p" "src/deps")))
|
|
(delete 'restore-emacs-pdmp)
|
|
(delete 'strip-double-wrap))))))))
|
|
|
|
(define-public m17n-db
|
|
(package
|
|
(name "m17n-db")
|
|
(version "1.8.0")
|
|
(source
|
|
(origin
|
|
(method url-fetch)
|
|
(uri (string-append "mirror://savannah/m17n/m17n-db-"
|
|
version ".tar.gz"))
|
|
(sha256
|
|
(base32
|
|
"0vfw7z9i2s9np6nmx1d4dlsywm044rkaqarn7akffmb6bf1j6zv5"))))
|
|
(build-system gnu-build-system)
|
|
(native-inputs
|
|
`(("gettext" ,gettext-minimal)))
|
|
(arguments
|
|
`(#:configure-flags
|
|
(list (string-append "--with-charmaps="
|
|
(assoc-ref %build-inputs "libc")
|
|
"/share/i18n/charmaps"))))
|
|
;; With `guix lint' the home-page URI returns a small page saying
|
|
;; that your browser does not handle frames. This triggers the "URI
|
|
;; returns suspiciously small file" warning.
|
|
(home-page "https://www.nongnu.org/m17n/")
|
|
(synopsis "Multilingual text processing library (database)")
|
|
(description "The m17n library realizes multilingualization of
|
|
many aspects of applications. The m17n library represents
|
|
multilingual text as an object named M-text. M-text is a string with
|
|
attributes called text properties, and designed to substitute for
|
|
string in C. Text properties carry any information required to input,
|
|
display and edit the text.
|
|
|
|
This package contains the library database.")
|
|
(license license:lgpl2.1+)))
|
|
|
|
(define-public m17n-lib
|
|
(package
|
|
(name "m17n-lib")
|
|
(version "1.8.0")
|
|
(source
|
|
(origin
|
|
(method url-fetch)
|
|
(uri (string-append "mirror://savannah/m17n/m17n-lib-"
|
|
version ".tar.gz"))
|
|
(sha256
|
|
(base32
|
|
"0jp61y09xqj10mclpip48qlfhniw8gwy8b28cbzxy8hq8pkwmfkq"))
|
|
(patches (search-patches "m17n-lib-1.8.0-use-pkg-config-for-freetype.patch"))))
|
|
(build-system gnu-build-system)
|
|
(native-inputs
|
|
(if (%current-target-system)
|
|
(list pkg-config
|
|
libtool
|
|
gettext-minimal
|
|
autoconf automake)
|
|
'()))
|
|
(inputs
|
|
(list fribidi
|
|
gd
|
|
libotf
|
|
libxft
|
|
libxml2
|
|
m17n-db))
|
|
(arguments
|
|
`(#:parallel-build? #f
|
|
,@(if (%current-target-system)
|
|
'(#:phases
|
|
(modify-phases %standard-phases
|
|
;; AC_FUNC_MALLOC and AC_FUNC_REALLOC usually unneeded
|
|
;; see https://lists.gnu.org/archive/html/autoconf/2003-02/msg00017.html
|
|
(add-after 'unpack 'fix-rpl_malloc
|
|
(lambda _
|
|
(substitute* "configure.ac"
|
|
(("AC_FUNC_MALLOC") "")
|
|
(("AC_FUNC_REALLOC") ""))
|
|
;; let bootstrap phase run.
|
|
(delete-file "./configure")))))
|
|
'())))
|
|
;; With `guix lint' the home-page URI returns a small page saying
|
|
;; that your browser does not handle frames. This triggers the "URI
|
|
;; returns suspiciously small file" warning.
|
|
(home-page "https://www.nongnu.org/m17n/")
|
|
(synopsis "Multilingual text processing library (runtime)")
|
|
(description "The m17n library realizes multilingualization of
|
|
many aspects of applications. The m17n library represents
|
|
multilingual text as an object named M-text. M-text is a string with
|
|
attributes called text properties, and designed to substitute for
|
|
string in C. Text properties carry any information required to input,
|
|
display and edit the text.
|
|
|
|
This package contains the library runtime.")
|
|
(license license:lgpl2.1+)))
|