ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-12 14:16:55 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: ratpoison: Use gexps and remove input labels.

Browse source 
* gnu/packages/ratpoison.scm (ratpoison) [phases]: Use gexps.
[inputs, native-inputs]: Remove input labels.
This commit is contained in:
Maxim Cournoyer 2022-10-10 20:32:57 -04:00
parent 64e8ed1061
commit a664f453d5
No known key found for this signature in database
GPG key ID: 1260E46482E63562
1 changed files with 31 additions and 29 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

60
gnu/packages/ratpoison.scm
View file

@ -2,6 +2,7 @@
;;; Copyright © 2013, 2014, 2019 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2015 Mathieu Lirzin <mthl@openmailbox.org>
;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com>
;;; Copyright © 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -19,8 +20,9 @@
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
(define-module (gnu packages ratpoison)
#:use-module (guix packages)
#:use-module (guix download)
#:use-module (guix gexp)
#:use-module (guix packages)
#:use-module (guix build-system gnu)
#:use-module ((guix licenses) #:select (gpl2+))
#:use-module (gnu packages)
@ -44,42 +46,42 @@ (define-public ratpoison
(patches (search-patches "ratpoison-shell.patch"))))
(build-system gnu-build-system)
(arguments
`(#:modules ((ice-9 format)
(list
#:modules `((ice-9 format)
,@%gnu-build-system-modules)
#:phases
(modify-phases %standard-phases
(add-after 'install 'install-xsession
(lambda* (#:key outputs #:allow-other-keys)
;; Add a .desktop file to xsessions.
(let* ((output (assoc-ref outputs "out"))
(xsessions (string-append output "/share/xsessions")))
(mkdir-p xsessions)
(call-with-output-file (string-append xsessions
"/ratpoison.desktop")
(lambda (port)
(format port
"[Desktop Entry]~@
#:phases
#~(modify-phases %standard-phases
(add-after 'install 'install-xsession
(lambda _
;; Add a .desktop file to xsessions.
(let ((xsessions (string-append #$output "/share/xsessions")))
(mkdir-p xsessions)
(call-with-output-file (string-append xsessions
"/ratpoison.desktop")
(lambda (port)
(format port
"[Desktop Entry]~@
Name=ratpoison~@
Comment=Tiling window manager: say goodbye to the rodent!~@
Exec=~a/bin/ratpoison~@
TryExec=~@*~a/bin/ratpoison~@
Type=Application~%"
output)))
#t))))))
#$output)))))))))
(inputs
`(("fontconfig" ,fontconfig)
("freetype" ,freetype)
("libXft" ,libxft)
("libXi" ,libxi)
("libxrandr" ,libxrandr)
("libXpm" ,libxpm)
("libXt" ,libxt)
("libXtst" ,libxtst)
("libX11" ,libx11)
("readline" ,readline)
("xorgproto" ,xorgproto)))
(list fontconfig
freetype
libxft
libxi
libxrandr
libxpm
libxt
libxtst
libx11
readline
xorgproto))
(native-inputs
(list perl pkg-config))
(list perl
pkg-config))
(home-page "https://www.nongnu.org/ratpoison/")
(synopsis "Simple mouse-free tiling window manager")
(description