05/08: gnu: Add qsyncthingtray.

[Efraim Flashner]

efraim pushed a commit to branch master
in repository guix.

commit cf3504c69c8d58ad5db6ed17083e7bee1e9acd0b
Author: Efraim Flashner <address@hidden>
Date:   Mon Nov 21 22:23:13 2016 +0200

    gnu: Add qsyncthingtray.
    
    * gnu/packages/sync.scm (qsyncthingtray): New variable.
---
 gnu/packages/sync.scm |   55 +++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 55 insertions(+)

diff --git a/gnu/packages/sync.scm b/gnu/packages/sync.scm
index 186914d..a4fdfd3 100644
--- a/gnu/packages/sync.scm
+++ b/gnu/packages/sync.scm
@@ -103,3 +103,58 @@ to and a server to synchronize to.  You can configure more 
computers to
 synchronize to the same server and any change to the files on one computer will
 silently and reliably flow across to every other.")
     (license license:gpl2+)))
+
+(define-public qsyncthingtray
+  (package
+    (name "qsyncthingtray")
+    (version "0.5.6")
+    (source
+      (origin
+        (method url-fetch)
+        (uri (string-append
+               "https://github.com/sieren/QSyncthingTray/archive/";
+               version ".tar.gz"))
+        (file-name (string-append name "-" version ".tar.gz"))
+        (sha256
+         (base32
+          "0py3593pv3iz0vds82wzbjy1ykc96qaaji1ldd9dlr50kb1840c3"))))
+    (build-system cmake-build-system)
+    (arguments
+     `(#:configure-flags '("-DQST_BUILD_WEBKIT=1")
+       #:phases
+       (modify-phases %standard-phases
+         ;; The program is meant to be run from the git repo or source tarball.
+         (replace 'install
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let* ((out (assoc-ref outputs "out"))
+                    (bin (string-append out "/bin")))
+               (install-file "QSyncthingTray" bin)
+               (install-file (string-append
+                               "../QSyncthingTray-"
+                               ,(package-version qsyncthingtray)
+                               "/resources/images/Icon1024.png")
+                             (string-append
+                               out "/share/pixmaps/QSyncthingTray.png"))
+               #t))))
+       #:tests? #f)) ; no test target
+    (inputs
+     `(("qtbase" ,qtbase)
+       ("qtwebkit" ,qtwebkit)))
+    (home-page "https://github.com/sieren/QSyncthingTray";)
+    (synopsis "Traybar Application for Syncthing")
+    (description
+     "A traybar application for syncthing.
address@hidden
address@hidden Shows number of connections at a glance.
address@hidden Traffic statistics about incoming, outgoing and total throughput.
address@hidden Launches Syncthing and Syncthing-iNotifier if specified.
address@hidden Quickly pause Syncthing with one click.
address@hidden Last Synced Files - Quickly see the recently synchronised files 
and open
+their folder.
address@hidden Quick Access to all shared folders.
address@hidden Presents Syncthing UI in a separate view instead of using the 
browser.
address@hidden Supports authenticated HTTPS connections.
address@hidden Uses System Notifications about current connection status.
address@hidden Toggle for monochrome icon.
address@hidden enumerate\n")
+    (license license:lgpl3+)))