ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 05:18:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: tipp10: Adjust phases.

Browse source 
* gnu/packages/education.scm (tipp10)[arguments]: Return #t for
"disable-new-version-check"; fix indentation.
This commit is contained in:
Ricardo Wurmus 2017-01-15 12:16:49 +01:00
parent 9e39ac415d
commit 7cc9847324
No known key found for this signature in database
GPG key ID: 197A5888235FACAC
1 changed files with 16 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

31
gnu/packages/education.scm
View file

@ -161,22 +161,23 @@ (define-public tipp10
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'unpack 'disable-new-version-check (add-after 'unpack 'disable-new-version-check
(lambda _ (lambda _
;; Make new version check to default to false. ;; Make new version check to default to false.
;; TODO: Remove the checkbox from the dialog and the check itself ;; TODO: Remove the checkbox from the dialog and the check itself
(substitute* '("widget/settingspages.cpp" "widget/mainwindow.cpp") (substitute* '("widget/settingspages.cpp" "widget/mainwindow.cpp")
(("settings.value(\"check_new_version\", true)") (("settings.value(\"check_new_version\", true)")
"settings.value(\"check_new_version\", false)")))) "settings.value(\"check_new_version\", false)"))
#t))
(replace 'configure (replace 'configure
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))) (let ((out (assoc-ref outputs "out")))
;; Make program honor $PREFIX ;; Make program honor $PREFIX
(substitute* "tipp10.pro" (substitute* "tipp10.pro"
(("\\.path = /usr/") (string-append ".path = " out "/"))) (("\\.path = /usr/") (string-append ".path = " out "/")))
(substitute* "def/defines.h" (substitute* "def/defines.h"
(("\"/usr/") (string-append "\"" out "/"))) (("\"/usr/") (string-append "\"" out "/")))
;; Recreate Makefile ;; Recreate Makefile
(zero? (system* "qmake")))))))) (zero? (system* "qmake"))))))))
(inputs (inputs
`(("qt4" ,qt-4) `(("qt4" ,qt-4)
("sqlite" ,sqlite))) ("sqlite" ,sqlite)))