mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-02-07 19:39:34 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: emacs-exwm: Improve package style.

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

Change-Id: I30f95c19463e54c484f7ad4e473a934af71ff373
This commit is contained in:
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

73
gnu/packages/emacs-xyz.scm
View file

@ -19788,45 +19788,44 @@ 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
#: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"))
(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
#:exec exwm-executable
#:try-exec exwm-executable)
;; Add a shell wrapper to bin
(with-output-to-file exwm-executable
(lambda _
(format #t "#!~a ~@
(list
#:emacs emacs
#:phases
#~(modify-phases %standard-phases
(add-after 'build 'install-xsession
(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
#:exec exwm-executable
#:try-exec exwm-executable)
;; Add a shell wrapper to bin
(with-output-to-file exwm-executable
(lambda _
(format #t "#!~a ~@
~a +SI:localuser:$USER ~@
exec ~a --exit-with-session ~a \"$@\" --eval '~s' ~%"
(search-input-file inputs "/bin/sh")
(search-input-file inputs "/bin/xhost")
(search-input-file inputs "/bin/dbus-launch")
(search-input-file inputs "/bin/emacs")
'(cond
((file-exists-p "~/.exwm")
(load-file "~/.exwm"))
((not (featurep 'exwm))
(require 'exwm)
(require 'exwm-config)
(exwm-config-default)
(message (concat "exwm configuration not found. "
"Falling back to default configuration...")))))))
(chmod exwm-executable #o555)
#t))))))
(search-input-file inputs "/bin/sh")
(search-input-file inputs "/bin/xhost")
(search-input-file inputs "/bin/dbus-launch")
(search-input-file inputs "/bin/emacs")
'(cond
((file-exists-p "~/.exwm")
(load-file "~/.exwm"))
((not (featurep 'exwm))
(require 'exwm)
(require 'exwm-config)
(exwm-config-default)
(message (concat "exwm configuration not found. "
"Falling back to default configuration...")))))))
(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