[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
02/07: gnu: synergy: Use 'modify-phases'.
From: |
Efraim Flashner |
Subject: |
02/07: gnu: synergy: Use 'modify-phases'. |
Date: |
Fri, 27 May 2016 14:22:34 +0000 (UTC) |
efraim pushed a commit to branch master
in repository guix.
commit a3025a449011ebe404e27ebfc28669024d6665b4
Author: Efraim Flashner <address@hidden>
Date: Fri May 27 15:54:10 2016 +0300
gnu: synergy: Use 'modify-phases'.
* gnu/packages/synergy.scm (synergy)[arguments]; Use 'modify-phases'.
---
gnu/packages/synergy.scm | 39 ++++++++++++++++++---------------------
1 file changed, 18 insertions(+), 21 deletions(-)
diff --git a/gnu/packages/synergy.scm b/gnu/packages/synergy.scm
index 8b53660..47fb57f 100644
--- a/gnu/packages/synergy.scm
+++ b/gnu/packages/synergy.scm
@@ -66,25 +66,23 @@
(arguments
`(#:phases
(let ((srcdir (string-append "../synergy-" ,version "-stable")))
- (alist-cons-before
- 'configure 'unpack-aux-src
- ;; TODO: package and use from system
- (lambda* (#:key inputs #:allow-other-keys)
- (let ((unzip (string-append
- (assoc-ref inputs "unzip")
- "/bin/unzip")))
- (with-directory-excursion "ext"
- (for-each
- (lambda (f)
- (system* unzip "-d" f (string-append f ".zip")))
- '("gmock-1.6.0" "gtest-1.6.0")))))
- (alist-replace
- 'check
- ;; Don't run "integtests" as it requires network and X an display.
- (lambda _
- (zero? (system* (string-append srcdir "/bin/unittests"))))
- (alist-replace
- 'install
+ (modify-phases %standard-phases
+ (add-before 'configure 'unpack-aux-src
+ ;; TODO: package and use from system
+ (lambda* (#:key inputs #:allow-other-keys)
+ (let ((unzip (string-append
+ (assoc-ref inputs "unzip")
+ "/bin/unzip")))
+ (with-directory-excursion "ext"
+ (for-each
+ (lambda (f)
+ (system* unzip "-d" f (string-append f ".zip")))
+ '("gmock-1.6.0" "gtest-1.6.0"))))))
+ (replace 'check
+ ;; Don't run "integtests" as it requires network and X an display.
+ (lambda _
+ (zero? (system* (string-append srcdir "/bin/unittests")))))
+ (replace 'install
;; There currently is no installation process, see:
;; http://synergy-project.org/spit/issues/details/3317/
(lambda* (#:key outputs #:allow-other-keys)
@@ -104,8 +102,7 @@
(install-file (string-append srcdir "/doc/" e) ex))
'("synergy.conf.example"
"synergy.conf.example-advanced"
- "synergy.conf.example-basic")))))
- %standard-phases))))))
+ "synergy.conf.example-basic"))))))))))
(home-page "http://symless.com/")
(synopsis "Mouse and keyboard sharing utility")
(description
- branch master updated (ea3d529 -> 9da459f), Efraim Flashner, 2016/05/27
- 06/07: gnu: serf: Update project source., Efraim Flashner, 2016/05/27
- 07/07: gnu: scrot: Add source mirror., Efraim Flashner, 2016/05/27
- 04/07: gnu: t1lib: Add source mirror., Efraim Flashner, 2016/05/27
- 01/07: gnu: synergy: Update project source., Efraim Flashner, 2016/05/27
- 02/07: gnu: synergy: Use 'modify-phases'.,
Efraim Flashner <=
- 05/07: gnu: xlockmore: Update to 5.47., Efraim Flashner, 2016/05/27
- 03/07: gnu: synergy: Update to 1.7.6., Efraim Flashner, 2016/05/27