TakeV/guix
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

gnu: xfe: Fix few more FHS directories.

Browse source 
* gnu/packages/disk.scm (xfe): Fix /bin and /share paths in
st/config.h and src/xfedefs.h, respectively.

Signed-off-by: Nicolas Goaziou <mail@nicolasgoaziou.fr>
This commit is contained in:
Raghav Gururajan 2020-05-10 04:49:25 -04:00 committed by Nicolas Goaziou
parent d8ccff833d
commit 705a5dcb87
No known key found for this signature in database
GPG key ID: DA00B4F048E92F2D
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
gnu/packages/disk.scm
View file

@ -990,7 +990,8 @@ (define-public xfe
(file-prog (assoc-ref inputs "file")))
(with-directory-excursion "src"
(substitute* '("FilePanel.cpp" "help.h" "SearchPanel.cpp"
"startupnotification.cpp" "xfeutils.cpp")
"startupnotification.cpp" "xfeutils.cpp"
"../st/config.h")
(("/bin/sh" file) (string-append bash file))
(("/bin/ls" file) (string-append coreutils file))
(("/usr(/bin/du)" _ file) (string-append coreutils file))
@ -1002,11 +1003,13 @@ (define-public xfe
(add-after 'unpack 'patch-share-dirs
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(share (string-append out "/share")))
(share (string-append out "/share"))
(xfe (string-append share "/xfe")))
(with-directory-excursion "src"
(substitute* '("foxhacks.cpp" "help.h" "xfedefs.h"
"XFileExplorer.cpp")
(("/(usr|opt)(/local)?/share") share)))
(("/(usr|opt)(/local)?/share") share)
(("~/.config/xfe") xfe)))
#t))))))
(native-inputs
`(("intltool" ,intltool)