nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gnu: librecad: Use 'modify-phases'. 

* gnu/packages/engineering.scm (librecad)[arguments]: Use 'modify-phases'.
This commit is contained in:
Efraim Flashner 2016-02-16 09:30:40 +02:00
parent d8a4b93253
commit d694230abe
1 changed files with 17 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
gnu/packages/engineering.scm
View File

@ -69,29 +69,25 @@
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
'(#:phases '(#:phases
(alist-cons-after (modify-phases %standard-phases
'unpack (add-after 'unpack 'patch-paths
'patch-paths (lambda* (#:key outputs #:allow-other-keys)
(lambda* (#:key outputs #:allow-other-keys) (let ((out (assoc-ref outputs "out")))
(let ((out (assoc-ref outputs "out"))) (substitute* "librecad/src/lib/engine/rs_system.cpp"
(substitute* "librecad/src/lib/engine/rs_system.cpp" (("/usr/share") (string-append out "/share"))))))
(("/usr/share") (string-append out "/share"))))) (replace 'configure
(alist-replace
'configure
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(system* "qmake" (string-append "BOOST_DIR=" (system* "qmake" (string-append "BOOST_DIR="
(assoc-ref inputs "boost")))) (assoc-ref inputs "boost")))))
(alist-replace (replace 'install
'install (lambda* (#:key outputs #:allow-other-keys)
(lambda* (#:key outputs #:allow-other-keys) (let ((out (assoc-ref outputs "out")))
(let ((out (assoc-ref outputs "out"))) (mkdir-p (string-append out "/bin"))
(mkdir-p (string-append out "/bin")) (mkdir-p (string-append out "/share/librecad"))
(mkdir-p (string-append out "/share/librecad")) (copy-file "unix/librecad"
(copy-file "unix/librecad" (string-append out "/bin/librecad"))
(string-append out "/bin/librecad")) (copy-recursively "unix/resources"
(copy-recursively "unix/resources" (string-append out "/share/librecad"))))))))
(string-append out "/share/librecad"))))
%standard-phases)))))
(inputs (inputs
`(("boost" ,boost) `(("boost" ,boost)
("muparser" ,muparser) ("muparser" ,muparser)