me
/
guix
Archived
1
0
Fork 0
Code

gnu: i3-wm: Use new package style. 

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

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
master
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

27
gnu/packages/wm.scm
View File

@ -331,20 +331,19 @@ commands would.")
"0jrya4rhh46sivlmqaqc4n9abpp1yn1ajhi616gn75cxwl8rjqr8"))))
(build-system meson-build-system)
(arguments
`(;; The test suite requires the unpackaged Xephyr X server.
#:tests? #f
#: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")
(("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))))))
(list
;; The test suite requires the unpackaged Xephyr X server.
#:tests? #f
#:phases
#~(modify-phases %standard-phases
(add-after 'install 'patch-session-file
(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 #$output "/share/xsessions/i3-with-shmlog.desktop")
(("Exec=i3-with-shmlog") (string-append "Exec=" i3-with-shmlog)))))))))
(inputs
(list libxcb
xcb-util