ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-24 03:29:40 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: librecad: Ensure that icons are found at runtime.

Browse source 
* gnu/packages/engineering.scm (librecad)[arguments]: Add phase
"wrap-executable".
This commit is contained in:
Ricardo Wurmus 2017-11-27 12:10:38 +01:00
parent 35e78aaa25
commit 9cc51d16cb
No known key found for this signature in database
GPG key ID: 197A5888235FACAC
1 changed files with 13 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
gnu/packages/engineering.scm
View file

@ -127,7 +127,19 @@ (define-public librecad
(install-file "unix/librecad" bin)
(mkdir-p share)
(copy-recursively "unix/resources" share))
#t)))))
#t))
;; Ensure that icons are found at runtime
(add-after 'install 'wrap-executable
(lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(qt '("qtbase" "qtsvg")))
(wrap-program (string-append out "/bin/librecad")
`("QT_PLUGIN_PATH" ":" prefix
,(map (lambda (label)
(string-append (assoc-ref inputs label)
"/lib/qt5/plugins/"))
qt)))
#t))))))
(inputs
`(("boost" ,boost)
("muparser" ,muparser)