;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2014, 2015, 2016 Eric Bavier <bavier@member.fsf.org>
;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2017 Vasile Dumitrascu <va511e@yahoo.com>
;;;
;;; 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)
  </td></tr></table>
<table class='tabs'><tr><td>
<a href='/guix/about/'>about</a><a href='/guix/'>summary</a><a href='/guix/refs/?id=09be6a5f122e0f898fb9e157fbcfb04af553ec57'>refs</a><a class='active' href='/guix/log/config-daemon.ac'>log</a><a href='/guix/tree/config-daemon.ac?id=09be6a5f122e0f898fb9e157fbcfb04af553ec57'>tree</a><a href='/guix/commit/config-daemon.ac?id=09be6a5f122e0f898fb9e157fbcfb04af553ec57'>commit</a><a href='/guix/diff/config-daemon.ac?id=09be6a5f122e0f898fb9e157fbcfb04af553ec57'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/config-daemon.ac'>
<input type='hidden' name='id' value='09be6a5f122e0f898fb9e157fbcfb04af553ec57'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=09be6a5f122e0f898fb9e157fbcfb04af553ec57'>root</a>/<a href='/guix/log/config-daemon.ac?id=09be6a5f122e0f898fb9e157fbcfb04af553ec57'>config-daemon.ac</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/config-daemon.ac?id=09be6a5f122e0f898fb9e157fbcfb04af553ec57&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>

       ("libxtst" ,libxtst)
       ("xinput"  ,xinput)))
    (arguments
     `(#:phases
       (let ((srcdir (string-append "../synergy-core-" ,version "-stable")))
         (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"))))
               #t))
          (replace 'check
            ;; Don't run "integtests" as it requires network and an X 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)
              (let* ((out (assoc-ref outputs "out"))
                     (bin (string-append out "/bin"))
                     (ex  (string-append out "/share/doc/synergy-"
                                         ,version "/examples")))
                (begin
                  (for-each
                   (lambda (f)
                     (install-file (string-append srcdir "/bin/" f) bin))
                   '("synergyc" "synergys" "synergyd"
                     "usynergy" "syntool"))
                  ;; Install example configuration files
                  (for-each
                   (lambda (e)
                     (install-file (string-append srcdir "/doc/" e) ex))
                   '("synergy.conf.example"
                     "synergy.conf.example-advanced"
                     "synergy.conf.example-basic"))))
              #t))))))
    (home-page "https://symless.com/synergy")
    (synopsis "Mouse and keyboard sharing utility")
    (description
     "Synergy brings your computers together in one cohesive experience; it's
software for sharing one mouse and keyboard between multiple computers on your
desk.")
    (license gpl2)))