;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2015 David Thompson <davet@gnu.org>
;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
;;;
;;; 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 pumpio)
  #:use-module (guix licenses)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix git-download)
  #:use-module (guix build-system gnu)
  #:use-module (gnu packages aspell)
  #:use-module (gnu packages qt)
  #:use-module (gnu packages web))

(define-public pumpa
  (package
    (name "pumpa")
    (version "0.9.3")
    (source (origin
              (method git-fetch) ; no source tarballs
              (uri (git-reference
                    (url "https://source.pumpa.branchable.com/")
                    (commit (string-append "v" version))))
              (sha256
               (base32
                "14072vis539zjgryjr5a77j2cprxii5znyg3p01qbb11lijk9nj7"))
              (file-name (string-append name "-" version "-checkout"))))
    (build-system gnu-build-system)
    (arguments
     '(#:phases
       (modify-phases %standard-phases
         (replace 'configure
           (lambda* (#:key inputs outputs #:allow-other-keys)
             (substitute* "src/util.cpp"
               (("buffio\\.h") "tidybuffio.h"))
             ;; Fix dependency tests.
             (substitute* "pumpa.pro"
               (("/usr/include/tidy\\.h")
                (search-input-file inputs "/include/tidy.h"))
               (("/usr/include/aspell.h")
                (search-input-file inputs "/include/aspell.h")))
             ;; Run qmake with proper installation prefix.
             (let ((prefix (string-append "PREFIX="
                                          (assoc-ref outputs "out"))))
               (invoke "qmake" prefix))
             #t)))))
    (inputs
     (list aspell qtbase-5 tidy-html))
    (synopsis "Qt-based pump.io client")
    (description "Pumpa is a simple pump.io client written in C++ and Qt.")
    (home-page "https://pumpa.branchable.com/")
    (license gpl3+)))
rface aliases are present.</a><span class='msg-avail'>...<span class='msg-tooltip'>Fixes &lt;https://bugs.gnu.org/42111&gt;.

* tests/syscalls.scm ("network-interface-names"): Filter interface names with
a colon.
</span></span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2020-06-05 19:20:23 +0200'>2020-06-05</span></td><td><a href='/guix/commit/tests/syscalls.scm?id=ea924134f819eef072ba7df9080d39de97fd73e6'>tests: syscall: Support file-systems without extended attributes.</a><span class='msg-avail'>...<span class='msg-tooltip'>* tests/syscalls.scm (setxattr): Catch ENOTSUP that can be raised if the
file-system does not support extended user attributes.
</span></span></td><td>Mathieu Othacehe</td></tr>
<tr><td><span title='2020-06-02 10:24:03 +0200'>2020-06-02</span></td><td><a href='/guix/commit/tests/syscalls.scm?id=cb21c14b0ae1f4c9fcad4927e3b2eb0c06d7b018'>tests: Allow passing on systems without support for swap devices.</a><span class='msg-avail'>...<span class='msg-tooltip'>* tests/syscalls.scm ("swapon", "swapoff"): Accept ENOSYS as a valid result.

Signed-off-by: Mathieu Othacehe &lt;othacehe@gnu.org&gt;
</span></span></td><td>Simon South</td></tr>
<tr><td><span title='2020-05-14 00:48:12 +0200'>2020-05-14</span></td><td><a href='/guix/commit/tests/syscalls.scm?id=df05842332be80ed7f53022402b95cf711163b41'>syscalls: Add 'getxattr'.</a><span class='msg-avail'>...<span class='msg-tooltip'>* guix/build/syscalls.scm (getxattr): New procedure.
* tests/syscalls.scm ("getxattr, setxattr"): Test it, together with setxattr.
</span></span></td><td>Jan (janneke) Nieuwenhuizen</td></tr>
<tr><td><span title='2020-02-11 12:33:35 +0100'>2020-02-11</span></td><td><a href='/guix/commit/tests/syscalls.scm?id=1deca767be1b84b96633e317f3fcdd5165f95df3'>syscalls: Re-enable 'pivot-root' test.</a><span class='msg-avail'>...<span class='msg-tooltip'>Fixes &lt;https://bugs.gnu.org/25476&gt;.
Reported by Paul Garlick &lt;pgarlick@tourbillion-technology.com&gt;.

* tests/syscalls.scm ("pivot-root"): Skip only when
PERFORM-CONTAINER-TESTS? is true.  Rewrite to use a socket pair instead
of a pipe.  Synchronize parent and child so that the parent can
initialize the child's UID and GID mappings before continuing.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-10-05 22:05:02 +0200'>2019-10-05</span></td><td><a href='/guix/commit/tests/syscalls.scm?id=5e5f7167943b408ae55736a44908a82056c87780'>syscalls: Add 'add-to-entropy-count'.</a><span class='msg-avail'>...<span class='msg-tooltip'>* guix/build/syscalls.scm (RNDADDTOENTCNT): New variable.
(add-to-entropy-count): New procedure.
* tests/syscalls.scm ("add-to-entropy-count"): New test.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-06-27 11:14:40 +0200'>2019-06-27</span></td><td><a href='/guix/commit/tests/syscalls.scm?id=4593f5a654b4e59c5025cc4f99914e24e82515a4'>syscalls: Add 'terminal-rows'.</a><span class='msg-avail'>...<span class='msg-tooltip'>* guix/build/syscalls.scm (terminal-dimension): New procedure.
(terminal-columns): Rewrite in terms of 'terminal-dimension'.
(terminal-rows): New procedure.
* tests/syscalls.scm ("terminal-rows"): New test.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2018-07-03 17:50:04 +0200'>2018-07-03</span></td><td><a href='/guix/commit/tests/syscalls.scm?id=25c7ff6a3ecbaa1e93b38d35c8cbff40b7f4edb8'>syscalls: Define AT_SYMLINK_NOFOLLOW et al.</a><span class='msg-avail'>...<span class='msg-tooltip'>* guix/build/syscalls.scm (AT_FDCWD, AT_SYMLINK_NOFOLLOW, AT_REMOVEDIR)
(AT_SYMLINK_FOLLOW, AT_NO_AUTOMOUNT, AT_EMPTY_PATH): New variables.
* tests/syscalls.scm ("utime with AT_SYMLINK_NOFOLLOW"): New test.
</span></span></td><td>Ludovic Courtès</td></tr>