me/guix
Archived
1
0
Fork 0
Code Activity

gnu: synergy: Use 'modify-phases'.

Browse source 
* gnu/packages/synergy.scm (synergy)[arguments]; Use 'modify-phases'.
This commit is contained in:
Efraim Flashner 2016-05-27 15:54:10 +03:00
parent cecaee420e
commit a3025a4490
No known key found for this signature in database
GPG key ID: F4C1D3917EACEE93
1 changed files with 18 additions and 21 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

39
gnu/packages/synergy.scm
View file

@ -66,25 +66,23 @@
(arguments (arguments
`(#:phases `(#:phases
(let ((srcdir (string-append "../synergy-" ,version "-stable"))) (let ((srcdir (string-append "../synergy-" ,version "-stable")))
(alist-cons-before (modify-phases %standard-phases
'configure 'unpack-aux-src (add-before 'configure 'unpack-aux-src
;; TODO: package and use from system ;; TODO: package and use from system
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(let ((unzip (string-append (let ((unzip (string-append
(assoc-ref inputs "unzip") (assoc-ref inputs "unzip")
"/bin/unzip"))) "/bin/unzip")))
(with-directory-excursion "ext" (with-directory-excursion "ext"
(for-each (for-each
(lambda (f) (lambda (f)
(system* unzip "-d" f (string-append f ".zip"))) (system* unzip "-d" f (string-append f ".zip")))
'("gmock-1.6.0" "gtest-1.6.0"))))) '("gmock-1.6.0" "gtest-1.6.0"))))))
(alist-replace (replace 'check
'check ;; Don't run "integtests" as it requires network and X an display.
;; Don't run "integtests" as it requires network and X an display. (lambda _
(lambda _ (zero? (system* (string-append srcdir "/bin/unittests")))))
(zero? (system* (string-append srcdir "/bin/unittests")))) (replace 'install
(alist-replace
'install
;; There currently is no installation process, see: ;; There currently is no installation process, see:
;; http://synergy-project.org/spit/issues/details/3317/ ;; http://synergy-project.org/spit/issues/details/3317/
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
@ -104,8 +102,7 @@
(install-file (string-append srcdir "/doc/" e) ex)) (install-file (string-append srcdir "/doc/" e) ex))
'("synergy.conf.example" '("synergy.conf.example"
"synergy.conf.example-advanced" "synergy.conf.example-advanced"
"synergy.conf.example-basic"))))) "synergy.conf.example-basic"))))))))))
%standard-phases))))))
(home-page "http://symless.com/") (home-page "http://symless.com/")
(synopsis "Mouse and keyboard sharing utility") (synopsis "Mouse and keyboard sharing utility")
(description (description