gnu: emacs-exwm: Preparatory cleanup.

To the future update.

* gnu/packages/emacs-xyz.scm (emacs-exwm): Preparatory cleanup.
[source] <origin>: Use source from git repository instead of tarball from elpa.
[propagated-inputs]: Include missing emacs-compat.
[arguments] <tests>: Set to #f.
<phases>: Rework message for exwm-executable in install-xsession.

Change-Id: I45b1fa1e4c690205be2039ea874013d149d33cf6
Signed-off-by: Hilton Chain <hako@ultrarare.space>
This commit is contained in:
Anderson Torres 2025-06-29 20:01:59 -03:00 committed by Hilton Chain
parent 1beeaed371
commit de7022b512
No known key found for this signature in database
GPG key ID: ACC66D09CA528292

View file

@ -22516,14 +22516,17 @@ It should enable you to implement low-level X11 applications.")
(synopsis "Emacs X window manager") (synopsis "Emacs X window manager")
(source (source
(origin (origin
(method url-fetch) (method git-fetch)
(uri (string-append "https://elpa.gnu.org/packages/" (uri (git-reference
"exwm-" version ".tar")) (url "https://github.com/emacs-exwm/exwm")
(commit version)))
(file-name (git-file-name name version))
(sha256 (sha256
(base32 "13wywayvdxpr2z14lri3ggni1wj20r452a0gxnx0cpgif3c1l2sx")))) (base32
"1p2b5dvq0i3100wfqgag7qrcvi99q6b42ij53bz4vljv7pcrcrhh"))))
(build-system emacs-build-system) (build-system emacs-build-system)
(propagated-inputs (propagated-inputs
(list emacs-xelb)) (list emacs-compat emacs-xelb))
(inputs (inputs
(list xhost dbus)) (list xhost dbus))
;; The following functions and variables needed by emacs-exwm are ;; The following functions and variables needed by emacs-exwm are
@ -22533,6 +22536,7 @@ It should enable you to implement low-level X11 applications.")
(arguments (arguments
(list (list
#:emacs emacs #:emacs emacs
#:tests? #f ;No test suite.
#:phases #:phases
#~(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'build 'install-xsession (add-after 'build 'install-xsession
@ -22565,13 +22569,13 @@ It should enable you to implement low-level X11 applications.")
((not (featurep 'exwm)) ((not (featurep 'exwm))
(require 'exwm) (require 'exwm)
(exwm-enable) (exwm-enable)
(message (concat "exwm configuration not found. " (message
"Falling back to minimal configuration. " "exwm configuration not found.
"An example configuration can be found here " Falling back to minimal configuration.
"https://github.com/emacs-exwm/exwm" An example configuration can be found here:
"/wiki/Configuration-Example"))))))) https://github.com/emacs-exwm/exwm/wiki/Configuration-Example"))))))
(chmod exwm-executable #o555))))))) (chmod exwm-executable #o555)))))))
(home-page "https://github.com/ch11ng/exwm") (home-page "https://github.com/emacs-exwm/exwm")
(description (description
"EXWM is a full-featured tiling X window manager for Emacs built on top "EXWM is a full-featured tiling X window manager for Emacs built on top
of XELB.") of XELB.")