config/guix/system/default: Add emacs-lucid-exwm definition.

.config/guix/system/default.scm

@@ -1,7 +1,10 @@
 ;; To collect the size of a system:
-;; guix size $(guix system build config.scm)
+;; guix size $(guix system build default.scm)
 (define-module (default)
   #:use-module (srfi srfi-1)
+  #:use-module (guix packages)          ; For emacs-lucid
+  #:use-module (guix build-system gnu)  ; For emacs-lucid
+  #:use-module (guix utils)             ; For emacs-lucid
   #:use-module (gnu)
   #:use-module (gnu system nss)
   #:use-module (gnu system mapped-devices))
@@ -16,7 +19,9 @@
  linux                                  ; ntfs-3g
  mtools                                 ; exfat
  nano                                   ; To remove nano.
+ emacs                                  ; For emacs-lucid
  emacs-xyz                              ; EXWM
+ xorg                                   ; For emacs-lucid
  ;; To remove zile:
  zile)
 
@@ -81,13 +86,46 @@ StrictNodes 1")
                                        (list ;; %nitrokey-udev-rule
                                         %ambrevar/cdemu-vhba-udev-rule))))))))
 
+ (define-public emacs-lucid
+   (package
+     (inherit emacs)
+     (name "emacs-lucid")
+     (synopsis "The Emacs text editor with Lucid support")
+     (build-system gnu-build-system)
+     (arguments
+      (substitute-keyword-arguments (package-arguments emacs)
+        ((#:configure-flags flags ''())
+         `(cons "--with-x-toolkit=lucid" ,flags))))
+     (inputs
+      `(("libxaw" ,libxaw)
+        ,@(package-inputs emacs)))))
+
+(define-public emacs-lucid-xelb
+   (package
+     (inherit emacs-xelb)
+     (name "emacs-lucid-xelb")
+     (arguments
+      (substitute-keyword-arguments (package-arguments emacs-xelb)
+        ((#:emacs emacs) `,emacs-lucid)))))
+
+(define-public emacs-lucid-exwm         ; No GTK, but the Slim service drags GTK+ anyways.
+   (package
+     (inherit emacs-exwm)
+     (name "emacs-lucid-exwm")
+     (synopsis "Emacs X window manager (using Lucid toolkit)")
+     (propagated-inputs
+      `(("emacs-lucid-xelb" ,emacs-lucid-xelb)))
+     (arguments
+      (substitute-keyword-arguments (package-arguments emacs-exwm)
+        ((#:emacs emacs) `,emacs-lucid)))))
+
 (define-public %ambrevar/packages
   (cons* nss-certs          ; for HTTPS access
          ;; gvfs            ; TODO: For user mounts?
          ntfs-3g
          ;; exfat-utils        ; TODO: Needed for macOS drives?  Does not seem to work.
          fuse-exfat
-         emacs-exwm         ; Still needs emacs-exwm installed in a user profile.
+         emacs-exwm         ; Still needs emacs-exwm / emacs-lucid-exwm installed in a user profile.
          vhba-module        ; For CDEmu.
          (fold (lambda (package l) (delete package l))
                %base-packages