me/guix
Archived
1
0
Fork 0
Code Activity

gnu: i3-wm: Add missing inputs for i3-save-tree.

Browse source 
* gnu/packages/wm.scm (i3-wm)[inputs]: Add perl, perl-anyevent-i3,
perl-json-xs, perl-common-sense, and perl-types-serialiser.
[arguments]: Add phase to wrap i3-save-tree to use perl inputs listed above.

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

25
gnu/packages/wm.scm
View file

@ -338,12 +338,26 @@ commands would.")
#~(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'install 'patch-session-file (add-after 'install 'patch-session-file
(lambda _ (lambda _
(let* ((i3 (string-append #$output "/bin/i3")) (let ((i3 (string-append #$output "/bin/i3"))
(i3-with-shmlog (string-append #$output "/bin/i3-with-shmlog"))) (i3-with-shmlog (string-append #$output "/bin/i3-with-shmlog")))
(substitute* (string-append #$output "/share/xsessions/i3.desktop") (substitute* (string-append #$output "/share/xsessions/i3.desktop")
(("Exec=i3") (string-append "Exec=" i3))) (("Exec=i3") (string-append "Exec=" i3)))
(substitute* (string-append #$output "/share/xsessions/i3-with-shmlog.desktop") (substitute* (string-append #$output "/share/xsessions/i3-with-shmlog.desktop")
(("Exec=i3-with-shmlog") (string-append "Exec=" i3-with-shmlog))))))))) (("Exec=i3-with-shmlog") (string-append "Exec=" i3-with-shmlog))))))
(add-after 'patch-session-file 'wrap-perl-bin
(lambda* (#:key inputs #:allow-other-keys)
(let* ((i3-save-tree (string-append #$output "/bin/i3-save-tree"))
(perl-lib-names '("perl-anyevent"
"perl-anyevent-i3"
"perl-json-xs"
"perl-common-sense"
"perl-types-serialiser"))
(perl-lib-paths
(map (lambda (name)
(string-append (assoc-ref inputs name) "/lib/perl5/site_perl"))
perl-lib-names)))
(wrap-program i3-save-tree
`("PERL5LIB" ":" prefix ,perl-lib-paths))))))))
(inputs (inputs
(list libxcb (list libxcb
xcb-util xcb-util
@ -355,6 +369,11 @@ commands would.")
libev libev
yajl yajl
xmlto xmlto
perl
perl-anyevent-i3
perl-json-xs
perl-common-sense
perl-types-serialiser
perl-pod-simple perl-pod-simple
libx11 libx11
pcre2 pcre2