;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2020 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2021 Christopher Baines <mail@cbaines.net>
;;;
;;; 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 stenography)
  #:use-module (guix build-system python)
  #:use-module (guix git-download)
  #:use-module ((guix licenses) #:prefix license:)
  #:use-module (guix packages)
  #:use-module (gnu packages)
  #:use-module (gnu packages qt)
  #:use-module (gnu packages check)
  #:use-module (gnu packages libusb)
  #:use-module (gnu packages python)
  #:use-module (gnu packages python-xyz)
  #:use-module (gnu packages wxwidgets))

(define-public plover
  (package
    (name "plover")
    (version "4.0.0.dev8")
    (source
     (origin
       (method git-fetch)
       (uri (git-reference
             (url "https://github.com/openstenoproject/plover")
             (commit (string-append "v" version))))
       (file-name (git-file-name name version))
       (sha256
        (base32 "1b2ys77bkjsdmyg97i7lq3lj45q56bycvsm06d4rs656kxhvc0a3"))))
    (build-system python-build-system)
    (native-inputs
     `(("python-mock" ,python-mock)
       ("python-pytest" ,python-pytest)
       ("python-setuptools-scm" ,python-setuptools-scm)))
    (inputs
     `(("python-appdirs" ,python-appdirs)
       ("python-pyqt" ,python-pyqt)
       ("python-babel" ,python-babel)
       ("python-dbus" ,python-dbus)
       ("python-hidapi" ,python-hidapi)
       ("python-pyserial" ,python-pyserial)
       ("python-wxpython" ,python-wxpython)
       ("python-xlib" ,python-xlib)))
    (home-page "https://www.openstenoproject.org/plover/")
    (synopsis "Stenography engine")
    (description
     "Plover (rhymes with @emph{lover}) is a desktop application that
allows anyone to use stenography to write on their computer, up to
speeds of 200WPM and beyond.")
    (license license:gpl2+)))

ft'>Author</th></tr>
<tr><td><span title='2021-05-04 11:52:23 +0200'>2021-05-04</span></td><td><a href='/guix/commit/etc/committer.scm.in?id=570b3d32b92fb2220c5ecd9302f4fa85947d4bff'>etc: Break long lines in commit messages.</a><span class='msg-avail'>...<span class='msg-tooltip'>* etc/committer.scm.in (break-string): New procedure.
(change-commit-message): Use it.
</span></span></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2021-04-12 21:42:15 +0200'>2021-04-12</span></td><td><a href='/guix/commit/etc/committer.scm.in?id=a6ac141ebb2efabbd47cbb04dfeb13779b7e50f6'>etc/committer: Add missing newline.</a><span class='msg-avail'>...<span class='msg-tooltip'>* etc/committer.scm.in (main): Add newline to message.

Signed-off-by: Ricardo Wurmus &lt;rekado@elephly.net&gt;
</span></span></td><td>Morgan Smith</td></tr>
<tr><td><span title='2021-04-12 21:42:15 +0200'>2021-04-12</span></td><td><a href='/guix/commit/etc/committer.scm.in?id=d375eddda0b407b29ce0f7d29a582623cef20a89'>etc/committer: Use git plumbing instead of porcelain.</a><span class='msg-avail'>...<span class='msg-tooltip'>* etc/committer.scm.in (diff-info): Use "git diff-files" instead of "git diff".
(old-sexp): Use "git cat-file" instead of "git show".

Signed-off-by: Ricardo Wurmus &lt;rekado@elephly.net&gt;
</span></span></td><td>Morgan Smith</td></tr>
<tr><td><span title='2021-04-08 17:12:06 +0200'>2021-04-08</span></td><td><a href='/guix/commit/etc/committer.scm.in?id=c762df54786fd6f005f3b5307323f1d2df3cbf0b'>etc/committer: Disable diff colors.</a><span class='msg-avail'>...<span class='msg-tooltip'>Reported by: morgansmith on IRC.

* etc/committer.scm.in (diff-info): Invoke "git diff" with "--no-color".
</span></span></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2021-04-08 03:10:14 +0200'>2021-04-08</span></td><td><a href='/guix/commit/etc/committer.scm.in?id=83991a34d5c1d4985e54dd029a81412277ad062a'>etc/committer: Recompute hunks before processing changes.</a><span class='msg-avail'>...<span class='msg-tooltip'>* etc/committer.scm.in (main): Re-evaluate diff-info after processing
insertions.
</span></span></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2021-04-08 03:10:14 +0200'>2021-04-08</span></td><td><a href='/guix/commit/etc/committer.scm.in?id=43fb6b765d82ea5acfdc83f61472d99594ee1cbf'>etc/committer: Record minimal context for hunks to avoid problems.</a><span class='msg-avail'>...<span class='msg-tooltip'>With zero context new definitions would be applied to the wrong location in
the file.  More context lines lead to larger hunks, though, so we use just one
line of context.

* etc/committer.scm.in (diff-info): Invoke "git diff" with one line of
context.
[info]: Merge line break and first line.
(lines-to-first-change): New procedure.
(old-sexp, new-sexp): Use it.
</span></span></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2021-04-08 03:10:14 +0200'>2021-04-08</span></td><td><a href='/guix/commit/etc/committer.scm.in?id=56270c1275d8dcdec80c04c032079b694204052a'>etc/committer: Define delay duration as a variable.</a><span class='msg-avail'>...<span class='msg-tooltip'>* etc/committer.scm.in (%delay): New variable.
(main): Use it.
</span></span></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2021-04-08 03:10:13 +0200'>2021-04-08</span></td><td><a href='/guix/commit/etc/committer.scm.in?id=c8c3afe8485bd614692f13e1e8a4200136da1302'>etc/committer: Handle package additions.</a><span class='msg-avail'>...<span class='msg-tooltip'>* etc/committer.scm.in (&lt;hunk&gt;)[diff]: Rename this field...
[diff-lines]: ...to this.
[definition?]: New field.
(hunk-&gt;patch): Join diff lines.
(diff-info): Do not join diff lines; record whether a hunk is a new
definition.
(commit-message): Rename this procedure...
(change-commit-message): ...to this.
(add-commit-message): New procedure.
(main): Handle new package definitions before changes.
</span></span></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2020-10-06 00:34:59 +0200'>2020-10-06</span></td><td><a href='/guix/commit/etc/committer.scm.in?id=59fe30a3a860212ede0cd3c97e58a5f6bca8b65b'>etc: committer: Use EQUAL? instead of EQ? for differences.</a><span class='msg-avail'>...<span class='msg-tooltip'>* etc/committer.scm.in (commit-message): Use EQUAL? instead of EQ? to compute
differences because not all inputs may be symbols; some could be expressions.
</span></span></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2020-06-16 11:32:53 +0200'>2020-06-16</span></td><td><a href='/guix/commit/etc/committer.scm.in?id=76a841cc8bd091db741758ae5553c714f2c38543'>etc: Add committer script.</a><span class='msg-avail'>...<span class='msg-tooltip'>* etc/committer.scm.in: New file.
* configure.ac: Configure it.
</span></span></td><td>Ricardo Wurmus</td></tr>