[jackhill/guix/guix.git] / gnu / packages / accessibility.scm

;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2017 Nikita <nikita@n0.is>
;;; Copyright © 2017 Stefan Reichör <stefan@xsteve.at>
;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2019 Andrew Miloradovsky <andrew@interpretmath.pw>
;;;
;;; 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 accessibility)
  #:use-module ((guix licenses) #:prefix license:)
  #:use-module (guix utils)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix git-download)
  #:use-module (guix build-system gnu)
  #:use-module (guix build-system glib-or-gtk)
  #:use-module (gnu packages)
  #:use-module (gnu packages lisp)
  #:use-module (gnu packages base)
  #:use-module (gnu packages ocaml)
  #:use-module (gnu packages pcre)
  #:use-module (gnu packages polkit)
  #:use-module (gnu packages ncurses)
  #:use-module (gnu packages music)
  #:use-module (gnu packages language)
  #:use-module (gnu packages icu4c)
  #:use-module (gnu packages speech)
  #:use-module (gnu packages linux)
  #:use-module (gnu packages documentation)
  #:use-module (gnu packages swig)
  #:use-module (gnu packages libusb)
  #:use-module (gnu packages java)
  #:use-module (gnu packages python)
  #:use-module (gnu packages python-xyz)
  #:use-module (gnu packages tcl)
  #:use-module (gnu packages xml)
  #:use-module (gnu packages gnome)
  #:use-module (gnu packages gstreamer)
  #:use-module (gnu packages gtk)
  #:use-module (gnu packages xorg)
  #:use-module (gnu packages gettext)
  #:use-module (gnu packages glib)
  #:use-module (gnu packages pkg-config)
  #:use-module (gnu packages libusb))

(define-public libbraille
  (package
    (name "libbraille")
    (version "0.19.0")
    (source
     (origin
       (method url-fetch)
       (uri
        (string-append "https://sourceforge.net/projects/" name "/files/" name "/"
                       name "-" version "/" name "-" version ".tar.gz"))
       (sha256
        (base32 "05g8r0ypazqn10i7k48iibs8bzc3scdfcnhcykab8j16lhzd27d0"))))
    (build-system glib-or-gtk-build-system)
    (outputs '("out" "bin"))
    (arguments
     `(#:tests? #f                      ; Tests require drivers
       #:configure-flags
       (list
        "--disable-static"
        "--enable-fake")))
    (native-inputs
     `(("latex2html" ,latex2html)
       ("pkg-config" ,pkg-config)
       ("python" ,python-wrapper)
       ("swig" ,swig)))
    (inputs
     `(("glib" ,glib)
       ("gtk+" ,gtk+-2)
       ("libusb" ,libusb-compat)))
    (synopsis "Portable Braille Library")
    (description "Libbraille is a library to easily access Braille displays and
terminals.")
    (home-page "https://libbraille.org")
    (license license:lgpl2.1+)))

(define-public brltty
  (package
    (name "brltty")
    (version "6.1")
    (source
     (origin
       (method url-fetch)
       (uri
        (string-append "https://brltty.app/archive/"
                       name "-" version ".tar.gz"))
       (sha256
        (base32 "0nk54chr7z2w579vyiak9xk2avhnvrx7x2l5sk8nyw2zplchkx9q"))))
    (build-system glib-or-gtk-build-system)
    (arguments
     `(#:tests? #f                      ; No target
       #:configure-flags
       (list
        (string-append "--with-tcl-config="
                       (assoc-ref %build-inputs "tcl")
                       "/lib/tclConfig.sh")
        (string-append "--with-libbraille="
                       (assoc-ref %build-inputs "libbraille"))
        (string-append "--with-espeak_ng="
                       (assoc-ref %build-inputs "espeak-ng"))
        (string-append "--with-espeak="
                       (assoc-ref %build-inputs "espeak"))
        (string-append "--with-flite="
                       (assoc-ref %build-inputs "flite"))
        ;; Required for RUNPATH validation.
        (string-append "LDFLAGS=-Wl,-rpath="
                       (assoc-ref %outputs "out")
                       "/lib"))
       #:make-flags
       (list
        (string-append "JAVA_JAR_DIR="
                       (assoc-ref %outputs "out"))
        (string-append "JAVA_JNI_DIR="
                       (assoc-ref %outputs "out"))
        (string-append "OCAML_DESTDIR="
                       (assoc-ref %outputs "out")
                       "/lib")
        (string-append "PYTHON_PREFIX="
                       (assoc-ref %outputs "out"))
        "PYTHON_ROOT=/"
        (string-append "TCL_DIR="
                       (assoc-ref %outputs "out")
                       "/lib"))
       #:phases
       (modify-phases %standard-phases
         (add-after 'unpack 'fix-errors
           (lambda* (#:key outputs #:allow-other-keys)
             (substitute* "configure"
               (("/sbin/ldconfig")
                (which "true")))
             ;; Make Python bindings use rpath.
             (substitute* "Bindings/Python/setup.py.in"
               (("extra_compile_args =")
                (string-append "extra_link_args = ['-Wl,-rpath="
                               (assoc-ref outputs "out")
                               "/lib'], "
                               "extra_compile_args = ")))
             #t)))))
    (native-inputs
     `(("clisp" ,clisp)
       ("cython" ,python-cython)
       ("doxygen" ,doxygen)
       ("gettext" ,gettext-minimal)
       ("java" ,icedtea "jdk")
       ;; ("linuxdoc" ,linuxdoc-tools)
       ("ocaml" ,ocaml)
       ("ocamlfind" ,ocaml-findlib)
       ("pkg-config" ,pkg-config)
       ("python" ,python-wrapper)
       ("tcl" ,tcl)))
    (inputs
     `(("alsa" ,alsa-lib)
       ("atspi2" ,at-spi2-core)
       ("bluez" ,bluez)
       ("dbus" ,dbus)
       ("espeak" ,espeak)
       ("espeak-ng" ,espeak-ng)
       ("expat" ,expat)
       ("festival" ,festival)
       ("flite" ,flite)
       ("glib" ,glib)
       ("gpm" ,gpm)
       ("iconv" ,libiconv)
       ("icu" ,icu4c)
       ("libbraille" ,libbraille)
       ("libpcre2" ,pcre2)
       ("linux-headers" ,linux-libre-headers)
       ("louis" ,liblouis)
       ("ncurses" ,ncurses)
       ("polkit" ,polkit)
       ("speech-dispatcher" ,speech-dispatcher)
       ("util-linux" ,util-linux)
       ("util-linux:lib" ,util-linux "lib")
       ("x11" ,libx11)
       ("xaw" ,libxaw)
       ("xaw3d" ,libxaw3d)
       ("xext" ,libxext)
       ("xfixes" ,libxfixes)
       ("xt" ,libxt)
       ("xtst" ,libxtst)))
    (synopsis "Braille TTY")
    (description "BRLTTY is a background process (daemon) which provides access
to the Linux/Unix console (when in text mode) for a blind person using a
refreshable braille display.  It drives the braille display, and provides
complete screen review functionality.  Some speech capability has also been
incorporated.")
    (home-page "https://brltty.app/")
    (license license:lgpl2.1+)))

(define-public florence
  (package
    (name "florence")
    (version "0.6.3")
    (source
     (origin
       (method url-fetch)
       (uri (string-append "mirror://sourceforge/florence/florence/" version
                           "/florence-" version ".tar.bz2"))
       (sha256
        (base32
         "07h9qm22krlwayhzvc391lr23vicw81s48g7rirvx1fj0zyr4aa2"))))
    (build-system glib-or-gtk-build-system)
    (arguments
     `(#:configure-flags (list "--with-xtst"
                               "--without-docs"
                               "--with-notification")))
    (inputs
     `(("libxml2" ,libxml2)
       ("libglade" ,libglade)
       ("librsvg" ,librsvg)
       ("gstreamer" ,gstreamer)
       ("cairo" ,cairo)
       ("gtk+" ,gtk+)
       ("libxtst" ,libxtst)
       ("libxcomposite" ,libxcomposite)
       ("libnotify" ,libnotify)))
    (native-inputs
     `(("gettext-minimal" ,gettext-minimal)
       ("intltool" ,intltool)
       ("pkg-config" ,pkg-config)))
    (home-page "http://florence.sourceforge.net/")
    (synopsis "Extensible, scalable virtual keyboard for X11")
    (description
     "Florence is an extensible scalable virtual keyboard for X11.
It is useful for people who can't use a real hardware keyboard (for
example for people with disabilities), but you must be able to use
a pointing device (as a mouse, a trackball, a touchscreen or opengazer).

Florence stays out of your way when you don't need it: it appears on the
screen only when you need it.  A timer-based auto-click input method is
available to help to click.")
    ;; The documentation is under FDL1.2, but we do not install the
    ;; documentation.
    (license license:gpl2+)))

(define-public footswitch
  (let ((commit "ca43d53fc2002520cc825d119702afc124303e73")
        (revision "2"))
    (package
      (name "footswitch")
      (version (git-version "0.1" revision commit))
      (source (origin
                (method git-fetch)
                (uri (git-reference
                      (url "https://github.com/rgerganov/footswitch")
                      (commit commit)))
                (file-name (git-file-name name version))
                (sha256
                 (base32
                  "14pyzc4ws1mj859xs9n4x83wzxxvd3bh5bdxzr6nv267xwx1mq68"))))
      (build-system gnu-build-system)
      (native-inputs
       `(("pkg-config" ,pkg-config)))
      (inputs
       `(("hidapi" ,hidapi)))
      (arguments
       `(#:tests? #f ; no tests
         #:make-flags (list "CC=gcc")
         #:phases (modify-phases %standard-phases
                    (delete 'configure)
                    ;; Install target in the Makefile does not work for Guix
                    (replace 'install
                      (lambda* (#:key outputs #:allow-other-keys)
                        (let ((bin (string-append (assoc-ref outputs "out")
                                                  "/bin")))
                          (install-file "footswitch" bin)
                          (install-file "scythe" bin)
                          #t))))))
      (home-page "https://github.com/rgerganov/footswitch")
      (synopsis "Command line utility for PCsensor foot switch")
      (description
       "Command line utility for programming foot switches sold by PCsensor.
It works for both single pedal devices and three pedal devices.  All supported
devices have vendorId:productId = 0c45:7403 or 0c45:7404.")
    (license license:expat))))

(define-public xmagnify
  (package
    (name "xmagnify")
    (version "0.1.0")
    (source (origin
              (method git-fetch)
              (uri (git-reference
                    (url "https://gitlab.com/amiloradovsky/magnify.git")
                    (commit version)))
              (file-name (git-file-name name version))
              (sha256
               (base32
                "1ngnp5f5zl3v35vhbdyjpymy6mwrs0476fm5nd7dzkba7n841jdh"))))
    (build-system gnu-build-system)
    (arguments
     `(#:tests? #f ; none included
       #:make-flags
       (list "CC=gcc"
             (string-append "prefix=" (assoc-ref %outputs "out")))
       #:phases
       (modify-phases %standard-phases
         (delete 'configure))))
    (inputs
     `(("libX11" ,libx11)))
    (home-page "https://gitlab.com/amiloradovsky/magnify")
    (synopsis "Tiny screen magnifier for X11")
    (description
     "This program magnifies a screen region by an integer positive factor and
draws the result on a window.  It is useful as an accessibility tool, which
works with every X Window System based GUI (depends only on libX11); or as an
assistant for graphic designers, who need to select individual pixels.")
    ;; Licensed either under Expat or GPLv2+.
    (license (list license:expat license:gpl2+))))
Commit	Line	Data
574e4e16	1	;;; GNU Guix --- Functional package management for GNU
3c986a7d	2	;;; Copyright © 2017 Nikita <nikita@n0.is>
18a26f1c	3	;;; Copyright © 2017 Stefan Reichör <stefan@xsteve.at>
ed36949a	4	;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
16bb27f2	5	;;; Copyright © 2019 Andrew Miloradovsky <andrew@interpretmath.pw>
574e4e16	6	;;;
	7	;;; This file is part of GNU Guix.
	8	;;;
	9	;;; GNU Guix is free software; you can redistribute it and/or modify it
	10	;;; under the terms of the GNU General Public License as published by
	11	;;; the Free Software Foundation; either version 3 of the License, or (at
	12	;;; your option) any later version.
	13	;;;
	14	;;; GNU Guix is distributed in the hope that it will be useful, but
	15	;;; WITHOUT ANY WARRANTY; without even the implied warranty of
	16	;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	17	;;; GNU General Public License for more details.
	18	;;;
	19	;;; You should have received a copy of the GNU General Public License
	20	;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
	21
	22	(define-module (gnu packages accessibility)
	23	#:use-module ((guix licenses) #:prefix license:)
edaa5081	24	#:use-module (guix utils)
574e4e16	25	#:use-module (guix packages)
574e4e16	26	#:use-module (guix download)
18a26f1c SR	27	#:use-module (guix git-download)
18a26f1c SR	28	#:use-module (guix build-system gnu)
574e4e16	29	#:use-module (guix build-system glib-or-gtk)
574e4e16	30	#:use-module (gnu packages)
de3f0ac6 RG	31	#:use-module (gnu packages lisp)
	32	#:use-module (gnu packages base)
	33	#:use-module (gnu packages ocaml)
	34	#:use-module (gnu packages pcre)
	35	#:use-module (gnu packages polkit)
	36	#:use-module (gnu packages ncurses)
	37	#:use-module (gnu packages music)
	38	#:use-module (gnu packages language)
	39	#:use-module (gnu packages icu4c)
	40	#:use-module (gnu packages speech)
	41	#:use-module (gnu packages linux)
edaa5081 RG	42	#:use-module (gnu packages documentation)
	43	#:use-module (gnu packages swig)
	44	#:use-module (gnu packages libusb)
	45	#:use-module (gnu packages java)
	46	#:use-module (gnu packages python)
de3f0ac6	47	#:use-module (gnu packages python-xyz)
edaa5081	48	#:use-module (gnu packages tcl)
574e4e16	49	#:use-module (gnu packages xml)
	50	#:use-module (gnu packages gnome)
	51	#:use-module (gnu packages gstreamer)
	52	#:use-module (gnu packages gtk)
	53	#:use-module (gnu packages xorg)
	54	#:use-module (gnu packages gettext)
	55	#:use-module (gnu packages glib)
18a26f1c SR	56	#:use-module (gnu packages pkg-config)
18a26f1c SR	57	#:use-module (gnu packages libusb))
574e4e16	58
edaa5081 RG	59	(define-public libbraille
	60	(package
	61	(name "libbraille")
	62	(version "0.19.0")
	63	(source
	64	(origin
	65	(method url-fetch)
	66	(uri
	67	(string-append "https://sourceforge.net/projects/" name "/files/" name "/"
	68	name "-" version "/" name "-" version ".tar.gz"))
	69	(sha256
	70	(base32 "05g8r0ypazqn10i7k48iibs8bzc3scdfcnhcykab8j16lhzd27d0"))))
	71	(build-system glib-or-gtk-build-system)
	72	(outputs '("out" "bin"))
	73	(arguments
	74	`(#:tests? #f ; Tests require drivers
	75	#:configure-flags
	76	(list
	77	"--disable-static"
	78	"--enable-fake")))
	79	(native-inputs
	80	`(("latex2html" ,latex2html)
	81	("pkg-config" ,pkg-config)
	82	("python" ,python-wrapper)
	83	("swig" ,swig)))
	84	(inputs
	85	`(("glib" ,glib)
	86	("gtk+" ,gtk+-2)
	87	("libusb" ,libusb-compat)))
	88	(synopsis "Portable Braille Library")
	89	(description "Libbraille is a library to easily access Braille displays and
	90	terminals.")
	91	(home-page "https://libbraille.org")
	92	(license license:lgpl2.1+)))
	93
de3f0ac6 RG	94	(define-public brltty
	95	(package
	96	(name "brltty")
	97	(version "6.1")
	98	(source
	99	(origin
	100	(method url-fetch)
	101	(uri
	102	(string-append "https://brltty.app/archive/"
	103	name "-" version ".tar.gz"))
	104	(sha256
	105	(base32 "0nk54chr7z2w579vyiak9xk2avhnvrx7x2l5sk8nyw2zplchkx9q"))))
	106	(build-system glib-or-gtk-build-system)
	107	(arguments
	108	`(#:tests? #f ; No target
	109	#:configure-flags
	110	(list
	111	(string-append "--with-tcl-config="
	112	(assoc-ref %build-inputs "tcl")
	113	"/lib/tclConfig.sh")
	114	(string-append "--with-libbraille="
	115	(assoc-ref %build-inputs "libbraille"))
	116	(string-append "--with-espeak_ng="
	117	(assoc-ref %build-inputs "espeak-ng"))
	118	(string-append "--with-espeak="
	119	(assoc-ref %build-inputs "espeak"))
	120	(string-append "--with-flite="
	121	(assoc-ref %build-inputs "flite"))
	122	;; Required for RUNPATH validation.
	123	(string-append "LDFLAGS=-Wl,-rpath="
	124	(assoc-ref %outputs "out")
	125	"/lib"))
	126	#:make-flags
	127	(list
	128	(string-append "JAVA_JAR_DIR="
	129	(assoc-ref %outputs "out"))
	130	(string-append "JAVA_JNI_DIR="
	131	(assoc-ref %outputs "out"))
	132	(string-append "OCAML_DESTDIR="
	133	(assoc-ref %outputs "out")
	134	"/lib")
	135	(string-append "PYTHON_PREFIX="
	136	(assoc-ref %outputs "out"))
	137	"PYTHON_ROOT=/"
	138	(string-append "TCL_DIR="
	139	(assoc-ref %outputs "out")
	140	"/lib"))
	141	#:phases
	142	(modify-phases %standard-phases
	143	(add-after 'unpack 'fix-errors
	144	(lambda* (#:key outputs #:allow-other-keys)
	145	(substitute* "configure"
	146	(("/sbin/ldconfig")
	147	(which "true")))
	148	;; Make Python bindings use rpath.
	149	(substitute* "Bindings/Python/setup.py.in"
	150	(("extra_compile_args =")
	151	(string-append "extra_link_args = ['-Wl,-rpath="
	152	(assoc-ref outputs "out")
	153	"/lib'], "
	154	"extra_compile_args = ")))
	155	#t)))))
	156	(native-inputs
	157	`(("clisp" ,clisp)
158	("cython" ,python-cython)
159	("doxygen" ,doxygen)
160	("gettext" ,gettext-minimal)
161	("java" ,icedtea "jdk")
162	;; ("linuxdoc" ,linuxdoc-tools)
163	("ocaml" ,ocaml)
164	("ocamlfind" ,ocaml-findlib)
165	("pkg-config" ,pkg-config)
166	("python" ,python-wrapper)
167	("tcl" ,tcl)))
168	(inputs
169	`(("alsa" ,alsa-lib)
170	("atspi2" ,at-spi2-core)
171	("bluez" ,bluez)
172	("dbus" ,dbus)
173	("espeak" ,espeak)
174	("espeak-ng" ,espeak-ng)
175	("expat" ,expat)
176	("festival" ,festival)
177	("flite" ,flite)
178	("glib" ,glib)
179	("gpm" ,gpm)
180	("iconv" ,libiconv)
181	("icu" ,icu4c)
182	("libbraille" ,libbraille)
183	("libpcre2" ,pcre2)
184	("linux-headers" ,linux-libre-headers)
185	("louis" ,liblouis)
186	("ncurses" ,ncurses)
187	("polkit" ,polkit)
188	("speech-dispatcher" ,speech-dispatcher)
189	("util-linux" ,util-linux)
190	("util-linux:lib" ,util-linux "lib")
191	("x11" ,libx11)
192	("xaw" ,libxaw)
193	("xaw3d" ,libxaw3d)
194	("xext" ,libxext)
195	("xfixes" ,libxfixes)
196	("xt" ,libxt)
197	("xtst" ,libxtst)))
198	(synopsis "Braille TTY")
199	(description "BRLTTY is a background process (daemon) which provides access
200	to the Linux/Unix console (when in text mode) for a blind person using a
201	refreshable braille display. It drives the braille display, and provides
202	complete screen review functionality. Some speech capability has also been
203	incorporated.")
204	(home-page "https://brltty.app/")
205	(license license:lgpl2.1+)))
206
574e4e16	207	(define-public florence
	208	(package
	209	(name "florence")
	210	(version "0.6.3")
	211	(source
	212	(origin
	213	(method url-fetch)
	214	(uri (string-append "mirror://sourceforge/florence/florence/" version
1f6a9705	215	"/florence-" version ".tar.bz2"))
574e4e16	216	(sha256
	217	(base32
	218	"07h9qm22krlwayhzvc391lr23vicw81s48g7rirvx1fj0zyr4aa2"))))
	219	(build-system glib-or-gtk-build-system)
	220	(arguments
	221	`(#:configure-flags (list "--with-xtst"
	222	"--without-docs"
	223	"--with-notification")))
	224	(inputs
	225	`(("libxml2" ,libxml2)
	226	("libglade" ,libglade)
	227	("librsvg" ,librsvg)
	228	("gstreamer" ,gstreamer)
	229	("cairo" ,cairo)
	230	("gtk+" ,gtk+)
	231	("libxtst" ,libxtst)
	232	("libxcomposite" ,libxcomposite)
	233	("libnotify" ,libnotify)))
	234	(native-inputs
	235	`(("gettext-minimal" ,gettext-minimal)
	236	("intltool" ,intltool)
	237	("pkg-config" ,pkg-config)))
	238	(home-page "http://florence.sourceforge.net/")
	239	(synopsis "Extensible, scalable virtual keyboard for X11")
	240	(description
	241	"Florence is an extensible scalable virtual keyboard for X11.
	242	It is useful for people who can't use a real hardware keyboard (for
	243	example for people with disabilities), but you must be able to use
	244	a pointing device (as a mouse, a trackball, a touchscreen or opengazer).
	245
	246	Florence stays out of your way when you don't need it: it appears on the
	247	screen only when you need it. A timer-based auto-click input method is
	248	available to help to click.")
	249	;; The documentation is under FDL1.2, but we do not install the
	250	;; documentation.
	251	(license license:gpl2+)))
18a26f1c SR	252
18a26f1c SR	253	(define-public footswitch
e7ca9859	254	(let ((commit "ca43d53fc2002520cc825d119702afc124303e73")
ed36949a	255	(revision "2"))
18a26f1c SR	256	(package
18a26f1c SR	257	(name "footswitch")
ed36949a	258	(version (git-version "0.1" revision commit))
18a26f1c SR	259	(source (origin
	260	(method git-fetch)
	261	(uri (git-reference
	262	(url "https://github.com/rgerganov/footswitch")
	263	(commit commit)))
	264	(file-name (git-file-name name version))
	265	(sha256
e7ca9859 JL	266	(base32
e7ca9859 JL	267	"14pyzc4ws1mj859xs9n4x83wzxxvd3bh5bdxzr6nv267xwx1mq68"))))
18a26f1c SR	268	(build-system gnu-build-system)
	269	(native-inputs
	270	`(("pkg-config" ,pkg-config)))
	271	(inputs
	272	`(("hidapi" ,hidapi)))
	273	(arguments
	274	`(#:tests? #f ; no tests
	275	#:make-flags (list "CC=gcc")
	276	#:phases (modify-phases %standard-phases
	277	(delete 'configure)
	278	;; Install target in the Makefile does not work for Guix
	279	(replace 'install
	280	(lambda* (#:key outputs #:allow-other-keys)
	281	(let ((bin (string-append (assoc-ref outputs "out")
	282	"/bin")))
18a26f1c	283	(install-file "footswitch" bin)
e7ca9859	284	(install-file "scythe" bin)
18a26f1c SR	285	#t))))))
	286	(home-page "https://github.com/rgerganov/footswitch")
	287	(synopsis "Command line utility for PCsensor foot switch")
	288	(description
	289	"Command line utility for programming foot switches sold by PCsensor.
	290	It works for both single pedal devices and three pedal devices. All supported
	291	devices have vendorId:productId = 0c45:7403 or 0c45:7404.")
	292	(license license:expat))))
16bb27f2 AM	293
	294	(define-public xmagnify
	295	(package
	296	(name "xmagnify")
	297	(version "0.1.0")
	298	(source (origin
	299	(method git-fetch)
	300	(uri (git-reference
	301	(url "https://gitlab.com/amiloradovsky/magnify.git")
	302	(commit version)))
	303	(file-name (git-file-name name version))
	304	(sha256
	305	(base32
	306	"1ngnp5f5zl3v35vhbdyjpymy6mwrs0476fm5nd7dzkba7n841jdh"))))
	307	(build-system gnu-build-system)
	308	(arguments
	309	`(#:tests? #f ; none included
	310	#:make-flags
	311	(list "CC=gcc"
	312	(string-append "prefix=" (assoc-ref %outputs "out")))
	313	#:phases
	314	(modify-phases %standard-phases
	315	(delete 'configure))))
	316	(inputs
	317	`(("libX11" ,libx11)))
	318	(home-page "https://gitlab.com/amiloradovsky/magnify")
	319	(synopsis "Tiny screen magnifier for X11")
	320	(description
	321	"This program magnifies a screen region by an integer positive factor and
	322	draws the result on a window. It is useful as an accessibility tool, which
	323	works with every X Window System based GUI (depends only on libX11); or as an
	324	assistant for graphic designers, who need to select individual pixels.")
	325	;; Licensed either under Expat or GPLv2+.
	326	(license (list license:expat license:gpl2+))))