ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-12 14:16:55 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: leocad: Update phase style.

Browse source 
* gnu/packages/lego.scm (leocad)[arguments]: Substitute INVOKE for
SYSTEM* and end all phases with an explicit #t.
This commit is contained in:
Tobias Geerinckx-Rice 2018-03-20 06:14:28 +01:00
parent b5df3e266b
commit 84775d65a8
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 10 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
gnu/packages/lego.scm
View file

@ -84,7 +84,7 @@ (define-public leocad
"189wj221fn08bnsfwy8050bxkjgjwinkn19qdcvb6c2ry2lnfra9")))) "189wj221fn08bnsfwy8050bxkjgjwinkn19qdcvb6c2ry2lnfra9"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(native-inputs (native-inputs
`(("qttools" ,qttools))) ;for lrelease `(("qttools" ,qttools))) ; for lrelease
(inputs (inputs
`(("mesa" ,mesa) `(("mesa" ,mesa)
("qtbase" ,qtbase) ("qtbase" ,qtbase)
@ -96,12 +96,13 @@ (define-public leocad
(replace 'configure (replace 'configure
(lambda* (#:key outputs inputs #:allow-other-keys) (lambda* (#:key outputs inputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))) (let ((out (assoc-ref outputs "out")))
(zero? (system* "qmake" (invoke "qmake"
(string-append "INSTALL_PREFIX=" out) (string-append "INSTALL_PREFIX=" out)
;; Otherwise looks for lrelease-qt4 ;; Otherwise looks for lrelease-qt4.
"QMAKE_LRELEASE=lrelease" "QMAKE_LRELEASE=lrelease"
;; Don't pester users about updates ;; Don't pester users about updates.
"DISABLE_UPDATE_CHECK=1"))))) "DISABLE_UPDATE_CHECK=1")
#t)))
(add-after 'configure 'reset-resource-timestamps (add-after 'configure 'reset-resource-timestamps
(lambda _ (lambda _
;; The contents of build/release/.qrc/qrc_leocad.cpp generated by ;; The contents of build/release/.qrc/qrc_leocad.cpp generated by
@ -114,7 +115,8 @@ (define-public leocad
(src (string-append base ".ts")) (src (string-append base ".ts"))
(st (stat src))) (st (stat src)))
(set-file-time file st))) (set-file-time file st)))
(find-files "." "leocad_.*\\.qm")))))))) (find-files "." "leocad_.*\\.qm")))
#t)))))
(home-page "http://www.leocad.org") (home-page "http://www.leocad.org")
(synopsis "Create virtual Lego models") (synopsis "Create virtual Lego models")
(description (description