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 ;; scroll-bar-mode, fringe-mode
;; x-display-pixel-width, x-display-pixel-height ;; x-display-pixel-width, x-display-pixel-height
(arguments (arguments
`(#:emacs ,emacs (list
#:phases #:emacs emacs
(modify-phases %standard-phases #:phases
(add-after 'build 'install-xsession #~(modify-phases %standard-phases
(lambda* (#:key inputs outputs #:allow-other-keys) (add-after 'build 'install-xsession
(let* ((out (assoc-ref outputs "out")) (lambda* (#:key inputs #:allow-other-keys)
(xsessions (string-append out "/share/xsessions")) (let* ((xsessions (string-append #$output "/share/xsessions"))
(bin (string-append out "/bin")) (bin (string-append #$output "/bin"))
(exwm-executable (string-append bin "/exwm"))) (exwm-executable (string-append bin "/exwm")))
;; Add a .desktop file to xsessions ;; Add a .desktop file to xsessions
(mkdir-p xsessions) (mkdir-p xsessions)
(mkdir-p bin) (mkdir-p bin)
(make-desktop-entry-file (make-desktop-entry-file
(string-append xsessions "/exwm.desktop") (string-append xsessions "/exwm.desktop")
#:name ,name #:name #$name
#:comment ,synopsis #:comment #$synopsis
#:exec exwm-executable #:exec exwm-executable
#:try-exec exwm-executable) #:try-exec exwm-executable)
;; Add a shell wrapper to bin ;; Add a shell wrapper to bin
(with-output-to-file exwm-executable (with-output-to-file exwm-executable
(lambda _ (lambda _
(format #t "#!~a ~@ (format #t "#!~a ~@
~a +SI:localuser:$USER ~@ ~a +SI:localuser:$USER ~@
exec ~a --exit-with-session ~a \"$@\" --eval '~s' ~%" exec ~a --exit-with-session ~a \"$@\" --eval '~s' ~%"
(search-input-file inputs "/bin/sh") (search-input-file inputs "/bin/sh")
(search-input-file inputs "/bin/xhost") (search-input-file inputs "/bin/xhost")
(search-input-file inputs "/bin/dbus-launch") (search-input-file inputs "/bin/dbus-launch")
(search-input-file inputs "/bin/emacs") (search-input-file inputs "/bin/emacs")
'(cond '(cond
((file-exists-p "~/.exwm") ((file-exists-p "~/.exwm")
(load-file "~/.exwm")) (load-file "~/.exwm"))
((not (featurep 'exwm)) ((not (featurep 'exwm))
(require 'exwm) (require 'exwm)
(require 'exwm-config) (require 'exwm-config)
(exwm-config-default) (exwm-config-default)
(message (concat "exwm configuration not found. " (message (concat "exwm configuration not found. "
"Falling back to default configuration..."))))))) "Falling back to default configuration...")))))))
(chmod exwm-executable #o555) (chmod exwm-executable #o555)))))))
#t))))))
(home-page "https://github.com/ch11ng/exwm") (home-page "https://github.com/ch11ng/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