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

gnu: leocad: Update phase style. 

* gnu/packages/lego.scm (leocad)[arguments]: Substitute INVOKE for
SYSTEM* and end all phases with an explicit #t.
master
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 @@ restrictions that stem from limitations of the standard RCX firmware.")
"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 @@ restrictions that stem from limitations of the standard RCX firmware.")
(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 @@ restrictions that stem from limitations of the standard RCX firmware.")
(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