d42245d401
This change was automated using:
$ git ls-files | grep .scm | \
xargs sed 's/(getenv "PYTHONPATH")/(getenv "GUIX_PYTHONPATH")/' -i
$ git ls-files | grep .scm | \
xargs sed 's/`("PYTHONPATH"/`("GUIX_PYTHONPATH"/' -i
* gnu/packages/admin.scm (nmap):
(dstat): Wrap using GUIX_PYTHONPATH.
* gnu/packages/audio.scm (jack-2):
(carla): Likewise.
* gnu/packages/benchmark.scm (fio): Likewise.
* gnu/packages/bioinformatics.scm (couger): Likewise.
(gess, find-circ, filtlong, nanopolish): Likewise.
* gnu/packages/cdrom.scm (cdemu-client): Likewise.
* gnu/packages/chemistry.scm (avogadro): Likewise.
* gnu/packages/connman.scm (econnman): Likewise.
* gnu/packages/cups.scm (hplip): Likewise.
* gnu/packages/debug.scm (scanmem): Likewise.
* gnu/packages/display-managers.scm (lightdm): Likewise.
* gnu/packages/ebook.scm (cozy): Likewise.
* gnu/packages/education.scm (anki): Likewise.
* gnu/packages/engineering.scm (kicad, volk, freecad): Likewise.
* gnu/packages/game-development.scm (renpy): Likewise.
* gnu/packages/games.scm (roguebox-adventures)
(seahorse-adventures, kajongg): Likewise.
* gnu/packages/gimp.scm (gimp, glimpse): Likewise.
* gnu/packages/glib.scm (itstool): Likewise.
* gnu/packages/gnome.scm (gnome-music, gtg, rhythmbox): Likewise.
(eolie, d-feet, gedit, caribou, gnome-shell, authenticator)
(gnome-todo, orca, passwordsafe, terminator, setzer)
(libratbag, komikku): Likewise.
* gnu/packages/gps.scm (gpsd): Likewise.
* gnu/packages/gtk.scm (gtk-doc): Likewise.
* gnu/packages/ibus.scm (ibus, ibus-libpinyin, ibus-anthy)
(ibus-libhangul): Likewise.
* gnu/packages/inkscape.scm (inkscape-1.0): Likewise.
* gnu/packages/linux.scm (bcc): Likewise.
* gnu/packages/mail.scm (notifymuch): Likewise.
* gnu/packages/maths.scm (units): Likewise.
* gnu/packages/music.scm (solfege): Likewise.
* gnu/packages/networking.scm (blueman): Likewise.
* gnu/packages/patchutils.scm (patchwork): Likewise.
* gnu/packages/photo.scm (rapid-photo-downloader, entangle): Likewise.
* gnu/packages/plotutils.scm (asymptote): Likewise.
* gnu/packages/presentation.scm (presentty): Likewise.
* gnu/packages/screen.scm (byobu): Likewise.
* gnu/packages/storage.scm (ceph): Likewise.
* gnu/packages/syndication.scm (liferea): Likewise.
* gnu/packages/task-management.scm (blanket): Likewise.
* gnu/packages/text-editors.scm (manuskript): Likewise.
* gnu/packages/version-control.scm (gitless, cgit, git-when-merged)
(git-imerge): Likewise.
* gnu/packages/video.scm (pitivi): Likewise.
* gnu/packages/virtualization.scm (criu): Likewise.
* gnu/packages/xfce.scm (catfish): Likewise.
564 lines
23 KiB
Scheme
564 lines
23 KiB
Scheme
;;; GNU Guix --- Functional package management for GNU
|
|
;;; Copyright © 2015, 2016 Andreas Enge <andreas@enge.fr>
|
|
;;; Copyright © 2016, 2018 Efraim Flashner <efraim@flashner.co.il>
|
|
;;; Copyright © 2016, 2017 Alex Griffin <a@ajgrf.com>
|
|
;;; Copyright © 2017, 2019, 2020 Brendan Tildesley <mail@brendan.scot>
|
|
;;; Copyright © 2017 Roel Janssen <roel@gnu.org>
|
|
;;; Copyright © 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
|
|
;;; Copyright © 2020 Marius Bakke <mbakke@fastmail.com>
|
|
;;; Copyright © 2020, 2021 Vinicius Monego <monego@posteo.net>
|
|
;;; Copyright © 2020 Zheng Junjie <873216071@qq.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 ebook)
|
|
#:use-module ((guix licenses) #:prefix license:)
|
|
#:use-module (guix packages)
|
|
#:use-module (guix download)
|
|
#:use-module (guix utils)
|
|
#:use-module (guix git-download)
|
|
#:use-module (guix build-system cmake)
|
|
#:use-module (guix build-system gnu)
|
|
#:use-module (guix build-system meson)
|
|
#:use-module (guix build-system python)
|
|
#:use-module (gnu packages)
|
|
#:use-module (gnu packages compression)
|
|
#:use-module (gnu packages curl)
|
|
#:use-module (gnu packages databases)
|
|
#:use-module (gnu packages file)
|
|
#:use-module (gnu packages fonts)
|
|
#:use-module (gnu packages fontutils)
|
|
#:use-module (gnu packages freedesktop)
|
|
#:use-module (gnu packages fribidi)
|
|
#:use-module (gnu packages gcc)
|
|
#:use-module (gnu packages gettext)
|
|
#:use-module (gnu packages gtk)
|
|
#:use-module (gnu packages gnome)
|
|
#:use-module (gnu packages glib)
|
|
#:use-module (gnu packages gstreamer)
|
|
#:use-module (gnu packages icu4c)
|
|
#:use-module (gnu packages image)
|
|
#:use-module (gnu packages javascript)
|
|
#:use-module (gnu packages libusb)
|
|
#:use-module (gnu packages libreoffice)
|
|
#:use-module (gnu packages music)
|
|
#:use-module (gnu packages pdf)
|
|
#:use-module (gnu packages pkg-config)
|
|
#:use-module (gnu packages python)
|
|
#:use-module (gnu packages python-web)
|
|
#:use-module (gnu packages python-xyz)
|
|
#:use-module (gnu packages qt)
|
|
#:use-module (gnu packages serialization)
|
|
#:use-module (gnu packages sqlite)
|
|
#:use-module (gnu packages time)
|
|
#:use-module (gnu packages tls)
|
|
#:use-module (gnu packages web)
|
|
#:use-module (gnu packages xml)
|
|
#:use-module (gnu packages xorg)
|
|
#:use-module (gnu packages wxwidgets))
|
|
|
|
(define-public chmlib
|
|
(package
|
|
(name "chmlib")
|
|
(version "0.40")
|
|
(source (origin
|
|
(method url-fetch)
|
|
(uri (string-append "http://www.jedrea.com/chmlib/chmlib-"
|
|
version ".tar.bz2"))
|
|
(sha256
|
|
(base32
|
|
"18zzb4x3z0d7fjh1x5439bs62dmgsi4c1pg3qyr7h5gp1i5xcj9l"))
|
|
(patches (search-patches "chmlib-inttypes.patch"))))
|
|
(build-system gnu-build-system)
|
|
(home-page "http://www.jedrea.com/chmlib/")
|
|
(synopsis "Library for CHM files")
|
|
(description "CHMLIB is a library for dealing with ITSS/CHM format files.")
|
|
(license license:lgpl2.1+)))
|
|
|
|
(define-public calibre
|
|
(package
|
|
(name "calibre")
|
|
(version "4.18.0")
|
|
(source
|
|
(origin
|
|
(method url-fetch)
|
|
(uri (string-append "http://download.calibre-ebook.com/"
|
|
version "/calibre-"
|
|
version ".tar.xz"))
|
|
(sha256
|
|
(base32
|
|
"0w9pcfvskjh4v00vjw3i6hzrafy863pgsmmqdx4lffip3p856brw"))
|
|
(modules '((guix build utils)))
|
|
(snippet
|
|
'(begin
|
|
;; Unbundle python2-odfpy.
|
|
(delete-file-recursively "src/odf")
|
|
;; Disable test that attempts to load it.
|
|
(substitute* "setup/test.py"
|
|
((".*SRC, 'odf'.*")
|
|
""))
|
|
|
|
;; Remove unneeded resources.
|
|
(delete-file "resources/viewer.js")
|
|
(delete-file "resources/viewer.html")
|
|
(delete-file "resources/mozilla-ca-certs.pem")
|
|
(delete-file "resources/calibre-portable.bat")
|
|
(delete-file "resources/calibre-portable.sh")
|
|
#t))
|
|
(patches (search-patches "calibre-no-updates-dialog.patch"
|
|
"calibre-remove-test-sqlite.patch" ; TODO: fix test.
|
|
"calibre-remove-test-unrar.patch"))))
|
|
(build-system python-build-system)
|
|
(native-inputs
|
|
`(("pkg-config" ,pkg-config)
|
|
("qtbase" ,qtbase) ; for qmake
|
|
("python2-flake8" ,python2-flake8)
|
|
("xdg-utils" ,xdg-utils)))
|
|
(inputs
|
|
`(("chmlib" ,chmlib)
|
|
("fontconfig" ,fontconfig)
|
|
("font-liberation" ,font-liberation)
|
|
("glib" ,glib)
|
|
("hunspell" ,hunspell)
|
|
("hyphen" ,hyphen)
|
|
("icu4c" ,icu4c)
|
|
("js-mathjax" ,js-mathjax)
|
|
("libmtp" ,libmtp)
|
|
("libpng" ,libpng)
|
|
("libusb" ,libusb)
|
|
("openssl" ,openssl)
|
|
("optipng" ,optipng)
|
|
("podofo" ,podofo)
|
|
("poppler" ,poppler)
|
|
("python" ,python-2)
|
|
("python2-apsw" ,python2-apsw)
|
|
("python2-beautifulsoup4" ,python2-beautifulsoup4)
|
|
("python2-chardet" ,python2-chardet)
|
|
("python2-cssselect" ,python2-cssselect)
|
|
("python2-css-parser" ,python2-css-parser)
|
|
("python2-dateutil" ,python2-dateutil)
|
|
("python2-dbus" ,python2-dbus)
|
|
("python2-dnspython" ,python2-dnspython-1.16)
|
|
("python2-dukpy" ,python2-dukpy)
|
|
("python2-feedparser" ,python2-feedparser)
|
|
("python2-html2text" ,python2-html2text)
|
|
("python2-html5-parser" ,python2-html5-parser)
|
|
("python2-html5lib" ,python2-html5lib)
|
|
("python2-lxml" ,python2-lxml)
|
|
("python2-markdown" ,python2-markdown)
|
|
("python2-mechanize" ,python2-mechanize)
|
|
;; python2-msgpack is needed for the network content server to work.
|
|
("python2-msgpack" ,python2-msgpack)
|
|
("python2-netifaces" ,python2-netifaces)
|
|
("python2-odfpy" ,python2-odfpy)
|
|
("python2-pillow" ,python2-pillow)
|
|
("python2-psutil" ,python2-psutil)
|
|
("python2-pygments" ,python2-pygments)
|
|
("python2-pyqtwebengine" ,python2-pyqtwebengine)
|
|
("python2-pyqt" ,python2-pyqt)
|
|
("python2-sip" ,python2-sip)
|
|
("python2-regex" ,python2-regex)
|
|
("qtwebengine" ,qtwebengine)
|
|
("sqlite" ,sqlite)))
|
|
(arguments
|
|
`(#:python ,python-2
|
|
;; Calibre is using setuptools by itself, but the setup.py is not
|
|
;; compatible with the shim wrapper (taken from pip) we are using.
|
|
#:use-setuptools? #f
|
|
#:phases
|
|
(modify-phases %standard-phases
|
|
(add-after 'unpack 'patch-source
|
|
(lambda _
|
|
(substitute* "src/calibre/linux.py"
|
|
;; We can't use the uninstaller in Guix. Don't build it.
|
|
(("self\\.create_uninstaller()") ""))
|
|
#t))
|
|
(add-after 'patch-source-shebangs 'patch-more-shebangs
|
|
(lambda _
|
|
;; Patch various inline shebangs.
|
|
(substitute* '("src/calibre/gui2/preferences/tweaks.py"
|
|
"src/calibre/gui2/dialogs/custom_recipes.py"
|
|
"setup/install.py"
|
|
"setup/linux-installer.sh")
|
|
(("#!/usr/bin/env python")
|
|
(string-append "#!" (which "python")))
|
|
(("#!/bin/sh")
|
|
(string-append "#!" (which "sh"))))
|
|
#t))
|
|
(add-after 'unpack 'dont-load-remote-icons
|
|
(lambda _
|
|
(substitute* "setup/plugins_mirror.py"
|
|
(("href=\"//calibre-ebook.com/favicon.ico\"")
|
|
"href=\"favicon.ico\""))
|
|
#t))
|
|
(add-before 'build 'configure
|
|
(lambda* (#:key inputs outputs #:allow-other-keys)
|
|
(let ((podofo (assoc-ref inputs "podofo"))
|
|
(pyqt (assoc-ref inputs "python2-pyqt"))
|
|
(python-sip (assoc-ref inputs "python2-sip"))
|
|
(out (assoc-ref outputs "out")))
|
|
(substitute* "setup/build_environment.py"
|
|
(("= get_sip_dir\\(\\)")
|
|
(string-append "= '" pyqt "/share/sip'")))
|
|
|
|
(substitute* "src/calibre/ebooks/pdf/pdftohtml.py"
|
|
(("PDFTOHTML = 'pdftohtml'")
|
|
(string-append "PDFTOHTML = \"" (assoc-ref inputs "poppler")
|
|
"/bin/pdftohtml\"")))
|
|
|
|
;; Calibre thinks we are installing desktop files into a home
|
|
;; directory, but here we butcher the script in to installing
|
|
;; to calibres /share directory.
|
|
(setenv "XDG_DATA_HOME" (string-append out "/share"))
|
|
(substitute* "src/calibre/linux.py"
|
|
(("'~/.local/share'") "''"))
|
|
|
|
;; 'python setup.py rapydscript' uses QtWebEngine, which
|
|
;; needs to create temporary files in $HOME.
|
|
(setenv "HOME" "/tmp")
|
|
|
|
;; XXX: QtWebEngine will fail if no fonts are available. This
|
|
;; can likely be removed when fontconfig has been patched to
|
|
;; include TrueType fonts by default.
|
|
(symlink (string-append (assoc-ref inputs "font-liberation")
|
|
"/share/fonts")
|
|
"/tmp/.fonts")
|
|
|
|
(setenv "SIP_BIN" (string-append python-sip "/bin/sip"))
|
|
(setenv "PODOFO_INC_DIR" (string-append podofo "/include/podofo"))
|
|
(setenv "PODOFO_LIB_DIR" (string-append podofo "/lib"))
|
|
;; This informs the tests we are a continuous integration
|
|
;; environment and thus have no networking.
|
|
(setenv "CI" "true")
|
|
;; The Qt test complains about being unable to load all image plugins, and I
|
|
;; notice the available plugins list it shows lacks 'svg'. Adding qtsvg doesn't
|
|
;; fix it, so I'm not sure how to fix it. TODO: Fix test and remove this.
|
|
(setenv "SKIP_QT_BUILD_TEST" "true")
|
|
#t)))
|
|
(add-after 'build 'build-extra
|
|
(lambda* (#:key inputs #:allow-other-keys)
|
|
(invoke "python2" "setup.py" "mathjax""--system-mathjax"
|
|
"--path-to-mathjax" (string-append
|
|
(assoc-ref inputs "js-mathjax")
|
|
"/share/javascript/mathjax"))
|
|
(invoke "python2" "setup.py" "rapydscript")
|
|
#t))
|
|
(add-after 'install 'install-man-pages
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
(copy-recursively
|
|
"man-pages"
|
|
(string-append (assoc-ref outputs "out") "/share/man"))
|
|
#t))
|
|
;; The font TTF files are used in some miscellaneous tests, so we
|
|
;; unbundle them here to avoid patching the tests.
|
|
(add-after 'install 'unbundle-font-liberation
|
|
(lambda* (#:key inputs outputs #:allow-other-keys)
|
|
(let ((font-dest (string-append (assoc-ref outputs "out")
|
|
"/share/calibre/fonts/liberation"))
|
|
(font-src (string-append (assoc-ref inputs "font-liberation")
|
|
"/share/fonts/truetype")))
|
|
(delete-file-recursively font-dest)
|
|
(symlink font-src font-dest))
|
|
#t))
|
|
;; Make run-time dependencies available to the binaries.
|
|
(add-after 'wrap 'wrap-program
|
|
(lambda* (#:key inputs outputs #:allow-other-keys)
|
|
(let ((out (assoc-ref outputs "out"))
|
|
(qtwebengine (assoc-ref inputs "qtwebengine")))
|
|
(with-directory-excursion (string-append out "/bin")
|
|
(for-each
|
|
(lambda (binary)
|
|
(wrap-program binary
|
|
;; Make QtWebEngineProcess available.
|
|
`("QTWEBENGINEPROCESS_PATH" =
|
|
,(list (string-append
|
|
qtwebengine
|
|
"/lib/qt5/libexec/QtWebEngineProcess")))))
|
|
;; Wrap all the binaries shipping with the package, except
|
|
;; for the wrappings created during the 'wrap standard
|
|
;; phase. This extends existing .calibre-real wrappers
|
|
;; rather than create ..calibre-real-real-s. For more
|
|
;; information see: https://issues.guix.gnu.org/43249.
|
|
(find-files "." (lambda (file stat)
|
|
(not (wrapper? file)))))))
|
|
#t)))))
|
|
(home-page "https://calibre-ebook.com/")
|
|
(synopsis "E-book library management software")
|
|
(description "Calibre is an e-book library manager. It can view, convert
|
|
and catalog e-books in most of the major e-book formats. It can also talk
|
|
to many e-book reader devices. It can go out to the Internet and fetch
|
|
metadata for books. It can download newspapers and convert them into
|
|
e-books for convenient reading.")
|
|
;; Calibre is largely GPL3+, but includes a number of components covered
|
|
;; by other licenses. See COPYRIGHT for more details.
|
|
(license (list license:gpl3+
|
|
license:gpl2+
|
|
license:lgpl2.1+
|
|
license:lgpl2.1
|
|
license:bsd-3
|
|
license:expat
|
|
license:zpl2.1
|
|
license:asl2.0
|
|
license:public-domain
|
|
license:silofl1.1
|
|
license:cc-by-sa3.0))))
|
|
|
|
(define-public ebook-tools
|
|
(package
|
|
(name "ebook-tools")
|
|
(version "0.2.2")
|
|
(source
|
|
(origin
|
|
(method url-fetch)
|
|
(uri (string-append "mirror://sourceforge/ebook-tools/ebook-tools/"
|
|
version "/ebook-tools-" version ".tar.gz"))
|
|
(sha256
|
|
(base32
|
|
"1bi7wsz3p5slb43kj7lgb3r6lb91lvb6ldi556k4y50ix6b5khyb"))))
|
|
(arguments
|
|
`(#:tests? #f)) ; No 'test' target
|
|
(build-system cmake-build-system)
|
|
(native-inputs
|
|
`(("pkg-config" ,pkg-config)))
|
|
(inputs
|
|
`(("libzip" ,libzip)
|
|
("libxml2" ,libxml2)))
|
|
(home-page "http://ebook-tools.sourceforge.net")
|
|
(synopsis "Tools and library for dealing with various ebook file formats")
|
|
(description "This package provides command-line tools and a library for
|
|
accessing and converting various ebook file formats.")
|
|
(license license:expat)))
|
|
|
|
(define-public liblinebreak
|
|
(package
|
|
(name "liblinebreak")
|
|
(version "2.1")
|
|
(source (origin
|
|
(method url-fetch)
|
|
(uri (string-append "mirror://sourceforge/vimgadgets"
|
|
"/liblinebreak/" version
|
|
"/liblinebreak-" version ".tar.gz"))
|
|
(sha256
|
|
(base32
|
|
"1f36dbq7nc77lln1by2n1yl050g9dc63viawhs3gc3169mavm36x"))))
|
|
(build-system gnu-build-system)
|
|
(home-page "http://vimgadgets.sourceforge.net/liblinebreak/")
|
|
(synopsis "Library for detecting where linebreaks are allowed in text")
|
|
(description "@code{liblinebreak} is an implementation of the line
|
|
breaking algorithm as described in Unicode 6.0.0 Standard Annex 14,
|
|
Revision 26. It breaks lines that contain Unicode characters. It is
|
|
designed to be used in a generic text renderer.")
|
|
(license license:zlib)))
|
|
|
|
(define-public fbreader
|
|
(package
|
|
(name "fbreader")
|
|
(version "0.99.6")
|
|
(source (origin
|
|
(method git-fetch)
|
|
(uri (git-reference
|
|
(url "https://github.com/geometer/FBReader")
|
|
(commit (string-append version "-freebsdport"))))
|
|
(file-name (git-file-name name version))
|
|
(sha256
|
|
(base32
|
|
"0c0s4silpax74kwfz3dfmzn4lkv6jsyb800vfak166vii0hvbv3d"))
|
|
(patches (search-patches "fbreader-curl-7.62.patch"))))
|
|
(build-system gnu-build-system)
|
|
(inputs
|
|
`(("curl" ,curl)
|
|
("expat" ,expat)
|
|
("fribidi" ,fribidi)
|
|
("glib" ,glib)
|
|
("gtk+-2" ,gtk+-2)
|
|
("libjpeg" ,libjpeg-turbo)
|
|
("liblinebreak" ,liblinebreak)
|
|
("libxft" ,libxft)
|
|
("sqlite" ,sqlite)
|
|
("zlib" ,zlib)))
|
|
(native-inputs
|
|
`(("gcc@5" ,gcc-5)
|
|
("pkg-config" ,pkg-config)))
|
|
(arguments
|
|
`(#:tests? #f ; No tests exist.
|
|
#:make-flags `("CC=gcc" "TARGET_ARCH=desktop" "UI_TYPE=gtk"
|
|
"TARGET_STATUS=release"
|
|
,(string-append "INSTALLDIR="
|
|
(assoc-ref %outputs "out"))
|
|
,(string-append "LDFLAGS=-Wl,-rpath="
|
|
(assoc-ref %outputs "out") "/lib"))
|
|
#:phases
|
|
(modify-phases %standard-phases
|
|
(add-after 'set-paths 'augment-CPLUS_INCLUDE_PATH
|
|
(lambda* (#:key inputs #:allow-other-keys)
|
|
;; Hide the default GCC from CPLUS_INCLUDE_PATH to prevent a header
|
|
;; conflict with the GCC provided in native-inputs.
|
|
(let ((gcc (assoc-ref inputs "gcc")))
|
|
(setenv "CPLUS_INCLUDE_PATH"
|
|
(string-join
|
|
(delete (string-append gcc "/include/c++")
|
|
(string-split (getenv "CPLUS_INCLUDE_PATH")
|
|
#\:))
|
|
":"))
|
|
#t)))
|
|
(delete 'configure)
|
|
(add-after 'unpack 'fix-install-locations
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
(let ((out (assoc-ref outputs "out")))
|
|
(substitute* "fbreader/desktop/Makefile"
|
|
(("/usr") out))
|
|
#t))))))
|
|
(home-page "https://fbreader.org/")
|
|
(synopsis "E-Book reader")
|
|
(description "@code{fbreader} is an E-Book reader. It supports the
|
|
following formats:
|
|
|
|
@enumerate
|
|
@item CHM
|
|
@item Docbook
|
|
@item FB2
|
|
@item HTML
|
|
@item OEB
|
|
@item PDB
|
|
@item RTF
|
|
@item TCR
|
|
@item TXT
|
|
@item XHTML
|
|
@end enumerate")
|
|
(license license:gpl2+)))
|
|
|
|
(define-public cozy
|
|
(package
|
|
(name "cozy")
|
|
(version "0.7.8")
|
|
(source
|
|
(origin
|
|
(method git-fetch)
|
|
(uri (git-reference
|
|
(url "https://github.com/geigi/cozy")
|
|
(commit version)))
|
|
(file-name (git-file-name name version))
|
|
(sha256
|
|
(base32 "0z2wj9g32aa5g9pw81q49iv1smb6yvlv9zs0vrzbx6mw8cj3c5d2"))))
|
|
(build-system meson-build-system)
|
|
(arguments
|
|
`(#:glib-or-gtk? #t
|
|
#:phases
|
|
(modify-phases %standard-phases
|
|
(add-after 'unpack 'patch-desktop-file
|
|
(lambda _
|
|
(substitute* "data/com.github.geigi.cozy.desktop"
|
|
(("Exec=com.github.geigi.cozy") "Exec=cozy"))
|
|
#t))
|
|
(add-after 'install 'patch-executable-name
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
(with-directory-excursion
|
|
(string-append (assoc-ref outputs "out") "/bin")
|
|
(rename-file "com.github.geigi.cozy" "cozy"))
|
|
#t))
|
|
(add-after 'wrap 'wrap-libs
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
(let* ((out (assoc-ref outputs "out"))
|
|
(pylib (string-append
|
|
out "/lib/python"
|
|
,(version-major+minor
|
|
(package-version python))
|
|
"/site-packages"))
|
|
(gi-typelib-path (getenv "GI_TYPELIB_PATH"))
|
|
(gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH"))
|
|
(libmagic-path (string-append
|
|
(assoc-ref %build-inputs "file")
|
|
"/lib"))
|
|
(python-path (getenv "GUIX_PYTHONPATH")))
|
|
(wrap-program (string-append out "/bin/cozy")
|
|
`("LD_LIBRARY_PATH" ":" prefix (,libmagic-path))
|
|
`("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))
|
|
`("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))
|
|
`("GUIX_PYTHONPATH" ":" prefix (,python-path ,pylib))))
|
|
#t)))))
|
|
(native-inputs
|
|
`(("desktop-file-utils" ,desktop-file-utils)
|
|
("gettext" ,gettext-minimal)
|
|
("glib:bin" ,glib "bin")
|
|
("gobject-introspection" ,gobject-introspection)
|
|
("gtk+:bin" ,gtk+ "bin")
|
|
("pkg-config" ,pkg-config)
|
|
("python" ,python-wrapper)))
|
|
(inputs
|
|
`(("file" ,file)
|
|
("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
|
|
("gst-libav" ,gst-libav)
|
|
("gst-plugins-bad" ,gst-plugins-bad)
|
|
("gst-plugins-good" ,gst-plugins-good)
|
|
("gst-plugins-ugly" ,gst-plugins-ugly)
|
|
("gtk+" ,gtk+)
|
|
("libhandy" ,libhandy)
|
|
("python-distro" ,python-distro)
|
|
("python-gst" ,python-gst)
|
|
("python-mutagen" ,python-mutagen)
|
|
("python-packaging" ,python-packaging)
|
|
("python-peewee" ,python-peewee)
|
|
("python-pycairo" ,python-pycairo)
|
|
("python-pygobject" ,python-pygobject)
|
|
("python-pytz" ,python-pytz)
|
|
("python-requests" ,python-requests)))
|
|
(home-page "https://cozy.geigi.de/")
|
|
(synopsis "Modern audiobook player using GTK+")
|
|
(description
|
|
"Cozy is a modern audiobook player written in GTK+.
|
|
|
|
Some of the current features:
|
|
|
|
@itemize
|
|
@item Import your audiobooks into Cozy to browse them comfortably
|
|
@item Sort your audio books by author, reader & name
|
|
@item Remembers your playback position
|
|
@item Sleep timer
|
|
@item Playback speed control
|
|
@item Search your library
|
|
@item Offline mode
|
|
@item Add multiple storage locations
|
|
@item Drag & Drop to import new audio books
|
|
@item Support for DRM free mp3, m4a (aac, ALAC, …), flac, ogg, opus, wav files
|
|
@item Mpris integration (Media keys & playback info for desktop environment)
|
|
@end itemize")
|
|
;; TODO: Unbundle python-inject.
|
|
(license (list license:gpl3+ ;cozy
|
|
license:asl2.0)))) ;python-inject (bundled dependency)
|
|
|
|
(define-public xchm
|
|
(package
|
|
(name "xchm")
|
|
(version "1.31")
|
|
(source (origin
|
|
(method url-fetch)
|
|
(uri (string-append "https://github.com/rzvncj/xCHM"
|
|
"/releases/download/"
|
|
version "/xchm-" version ".tar.gz"))
|
|
(sha256
|
|
(base32
|
|
"0aw6bysqiwbw75n3ad229ihlmh7chqs1wlxm0398z3lfp2y6n7qf"))))
|
|
(build-system gnu-build-system)
|
|
(inputs
|
|
`(("wxwidgets" ,wxwidgets)
|
|
("chmlib" ,chmlib)))
|
|
(native-inputs
|
|
`(("pkg-config" ,pkg-config)))
|
|
(home-page "https://github.com/rzvncj/xCHM")
|
|
(synopsis "CHM file viewer")
|
|
(description "xCHM is a graphical CHM file viewer. It is a frontend to
|
|
the CHM library CHMLIB.")
|
|
(license license:gpl2+)))
|