From c05adaddb14064f0d2817e331fe5d0618f218bb9 Mon Sep 17 00:00:00 2001
Message-Id: <c05adaddb14064f0d2817e331fe5d0618f218bb9.1677701063.git.leirda@disroot.org>
From: Andy Tai <atai@atai.org>
Date: Sun, 12 Feb 2023 15:54:49 -0800
Subject: [PATCH] gnu: Add emacs-motif.
* gnu/packages/text-editors.scm (emacs-motif): New variable.
Signed-off-by: Christopher Baines <mail@cbaines.net>
---
gnu/packages/emacs.scm | 25 +++++++++++++++++++++++++
1 file changed, 25 insertions(+)
@@ -66,6 +66,7 @@ (define-module (gnu packages emacs)
#: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)
@@ -512,6 +513,30 @@ (define-public emacs-xwidgets
(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")
--
2.39.1