[PATCH] gnu: Add synergy.

[PATCH] gnu: Add synergy.

[Eric Bavier]

[-- Attachment #1.1: Type: text/plain, Size: 26 bytes --]

Comments welcome.

`~Eric

[-- Attachment #1.2: Type: text/html, Size: 69 bytes --]

[-- Attachment #2: 0001-gnu-Add-synergy.patch --]
[-- Type: text/x-patch, Size: 4875 bytes --]

From da558e6efa8e2bd7ea9fab9d82cff78c930e1f0c Mon Sep 17 00:00:00 2001
From: Eric Bavier <bavier@member.fsf.org>
Date: Mon, 29 Sep 2014 00:30:36 -0500
Subject: [PATCH] gnu: Add synergy.

* gnu/packages/synergy.scm: New file.
* gnu-system.am (GNU_SYSTEM_MODULES): Add it.
---
 gnu-system.am            |    1 +
 gnu/packages/synergy.scm |   96 ++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 97 insertions(+)
 create mode 100644 gnu/packages/synergy.scm

diff --git a/gnu-system.am b/gnu-system.am
index 126f4e3..70d926d 100644
--- a/gnu-system.am
+++ b/gnu-system.am
@@ -230,6 +230,7 @@ GNU_SYSTEM_MODULES =				\
   gnu/packages/ssh.scm				\
   gnu/packages/stalonetray.scm			\
   gnu/packages/swig.scm				\
+  gnu/packages/synergy.scm			\
   gnu/packages/tcl.scm				\
   gnu/packages/tcsh.scm				\
   gnu/packages/telephony.scm			\
diff --git a/gnu/packages/synergy.scm b/gnu/packages/synergy.scm
new file mode 100644
index 0000000..41f8855
--- /dev/null
+++ b/gnu/packages/synergy.scm
@@ -0,0 +1,96 @@
+;;; GNU Guix --- Functional package management for GNU
+;;; Copyright © 2014 Eric Bavier <bavier@member.fsf.org>
+;;;
+;;; This file is part of GNU Guix.
+;;;
+;;; GNU Guix is free software; you can redistribute it and/or modify it
+;;; under the terms of the GNU General Public License as published by
+;;; the Free Software Foundation; either version 3 of the License, or (at
+;;; your option) any later version.
+;;;
+;;; GNU Guix is distributed in the hope that it will be useful, but
+;;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;;; GNU General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU General Public License
+;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
+
+(define-module (gnu packages synergy)
+  #:use-module (guix packages)
+  #:use-module (guix licenses)
+  #:use-module (guix download)
+  #:use-module (guix build-system cmake)
+  #:use-module (gnu packages)
+  #:use-module (gnu packages curl)
+  #:use-module (gnu packages python)
+  #:use-module (gnu packages xorg)
+  #:use-module (gnu packages zip)
+  #:use-module (srfi srfi-26))
+
+(define-public synergy
+  (package
+    (name "synergy")
+    (version "1.5.1-r2398")
+    (source
+     (origin
+      (method url-fetch)
+      (uri (string-append "http://www.synergy-project.org/files/packages/"
+                          "synergy-" version "-Source.tar.gz"))
+      (sha256
+       (base32
+        "19q8ck15f0jgpbzlm34dzp046wf3iiwa21s1qfyj5sj7xjxwa367"))))
+    (build-system cmake-build-system)
+    (native-inputs `(("unzip" ,unzip)))
+    (inputs
+     `(("python"  ,python-wrapper)
+       ("curl"    ,curl)
+       ("libxi"   ,libxi)
+       ("libx11"  ,libx11)
+       ("libxtst" ,libxtst)
+       ("xinput"  ,xinput)))
+    (arguments
+     `(#:phases
+       (let ((srcdir (string-append
+                      "../synergy-"
+                      (car (string-split ,version #\-))
+                      "-Source")))
+         (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")))
+                 '("cryptopp562" "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
+            ;; There currently is no installation process, see:
+            ;; http://synergy-project.org/spit/issues/details/3317/
+            (lambda* (#:key outputs #:allow-other-keys)
+              (let ((out (assoc-ref outputs "out")))
+                (begin
+                  (mkdir-p (string-append out "/bin"))
+                  (for-each
+                   (lambda (f)
+                     (copy-file (string-append srcdir "/bin/" f)
+                                (string-append out    "/bin/" f)))
+                   '("synergyc" "synergys" "synergyd"
+                     "usynergy" "syntool")))))
+            %standard-phases))))))
+    (home-page "http://www.synergy-project.org")
+    (synopsis "Mouse and keyboard sharing utility")
+    (description
+     "Synergy brings your computers together in one cohesive experience; its
+software for sharing one mouse and keyboard between multiple computers on your
+desk.")
+    (license gpl2)))
-- 
1.7.9.5

Re: [PATCH] gnu: Add synergy.

[Ludovic Courtès]

Eric Bavier <ericbavier@gmail.com> skribis:

> From da558e6efa8e2bd7ea9fab9d82cff78c930e1f0c Mon Sep 17 00:00:00 2001
> From: Eric Bavier <bavier@member.fsf.org>
> Date: Mon, 29 Sep 2014 00:30:36 -0500
> Subject: [PATCH] gnu: Add synergy.
>
> * gnu/packages/synergy.scm: New file.
> * gnu-system.am (GNU_SYSTEM_MODULES): Add it.

LGTM!

Ludo’.