diff mbox series

[bug#61421] gnu: Add emacs-with-motif

Message ID 20230212235449.10620-1-atai@atai.org
State New
Headers show
Series [bug#61421] gnu: Add emacs-with-motif | expand

Commit Message

Andy Tai Feb. 12, 2023, 11:54 p.m. UTC 
* gnu/packages/text-editors.scm (emacs-with-motif): New variable
---
 gnu/packages/emacs.scm | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
diff mbox series

Patch

diff --git a/gnu/packages/emacs.scm b/gnu/packages/emacs.scm
index 4ce41deb88..08e2361987 100644
--- a/gnu/packages/emacs.scm
+++ b/gnu/packages/emacs.scm
@@ -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)
@@ -475,6 +476,29 @@  (define-public emacs-xwidgets
      (modify-inputs (package-inputs emacs)
        (prepend webkitgtk-with-libsoup2 libxcomposite)))))
 
+(define-public emacs-with-motif
+  (package/inherit emacs
+                   (name "emacs-with-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")