me
/
guix
Archived
1
0
Fork 0
Code

gnu: emacs-exwm: Improve package style. 

* gnu/packages/emacs-xyz.scm (emacs-exwm)[arguments]: Use G-expressions.
Remove trailing #T from phases.

Change-Id: I30f95c19463e54c484f7ad4e473a934af71ff373
master
Nicolas Goaziou 2024-06-18 22:26:28 +02:00
parent e8712d609c
commit fff1cc2886
No known key found for this signature in database
GPG Key ID: DA00B4F048E92F2D
1 changed files with 36 additions and 37 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
gnu/packages/emacs-xyz.scm
View File

@ -19788,22 +19788,22 @@ It should enable you to implement low-level X11 applications.")
;; scroll-bar-mode, fringe-mode
;; x-display-pixel-width, x-display-pixel-height
(arguments
`(#:emacs ,emacs
(list
#:emacs emacs
#:phases
(modify-phases %standard-phases
#~(modify-phases %standard-phases
(add-after 'build 'install-xsession
(lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(xsessions (string-append out "/share/xsessions"))
(bin (string-append out "/bin"))
(lambda* (#:key inputs #:allow-other-keys)
(let* ((xsessions (string-append #$output "/share/xsessions"))
(bin (string-append #$output "/bin"))
(exwm-executable (string-append bin "/exwm")))
;; Add a .desktop file to xsessions
(mkdir-p xsessions)
(mkdir-p bin)
(make-desktop-entry-file
(string-append xsessions "/exwm.desktop")
#:name ,name
#:comment ,synopsis
#:name #$name
#:comment #$synopsis
#:exec exwm-executable
#:try-exec exwm-executable)
;; Add a shell wrapper to bin
@ -19825,8 +19825,7 @@ It should enable you to implement low-level X11 applications.")
(exwm-config-default)
(message (concat "exwm configuration not found. "
"Falling back to default configuration...")))))))
(chmod exwm-executable #o555)
#t))))))
(chmod exwm-executable #o555)))))))
(home-page "https://github.com/ch11ng/exwm")
(description
"EXWM is a full-featured tiling X window manager for Emacs built on top