ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-13 06:36:37 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: i3-wm: Use new package style.

Browse source 
* gnu/packages/wm.scm (i3-wm)[arguments]: Use gexps.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
SeerLite 2023-03-07 00:44:57 -03:00 committed by Ludovic Courtès
parent 1259786194
commit a863b5de8d
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 13 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
gnu/packages/wm.scm
View file

@ -331,20 +331,19 @@ (define-public i3-wm
"0jrya4rhh46sivlmqaqc4n9abpp1yn1ajhi616gn75cxwl8rjqr8"))))
(build-system meson-build-system)
(arguments
`(;; The test suite requires the unpackaged Xephyr X server.
(list
;; The test suite requires the unpackaged Xephyr X server.
#:tests? #f
#:phases
(modify-phases %standard-phases
#~(modify-phases %standard-phases
(add-after 'install 'patch-session-file
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(i3 (string-append out "/bin/i3"))
(i3-with-shmlog (string-append out "/bin/i3-with-shmlog")))
(substitute* (string-append out "/share/xsessions/i3.desktop")
(lambda _
(let* ((i3 (string-append #$output "/bin/i3"))
(i3-with-shmlog (string-append #$output "/bin/i3-with-shmlog")))
(substitute* (string-append #$output "/share/xsessions/i3.desktop")
(("Exec=i3") (string-append "Exec=" i3)))
(substitute* (string-append out "/share/xsessions/i3-with-shmlog.desktop")
(("Exec=i3-with-shmlog") (string-append "Exec=" i3-with-shmlog)))
#t))))))
(substitute* (string-append #$output "/share/xsessions/i3-with-shmlog.desktop")
(("Exec=i3-with-shmlog") (string-append "Exec=" i3-with-shmlog)))))))))
(inputs
(list libxcb
xcb-util