;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2015 Andreas Enge <andreas@enge.fr>
;;;
;;; 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) #:select (gpl3 lgpl2.1+))
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix build-system gnu)
  #:use-module (gnu packages)
  #:use-module (guix build-system python)
  #:use-module (gnu packages)
  #:use-module (gnu packages databases)
  #:use-module (gnu packages ebook)
  #:use-module (gnu packages fontutils)
  #:use-module (gnu packages freedesktop)
  #:use-module (gnu packages glib)
  #:use-module (gnu packages icu4c)
  #:use-module (gnu packages image)
  #:use-module (gnu packages imagemagick)
  #:use-module (gnu packages libusb)
  #:use-module (gnu packages pdf)
  #:use-module (gnu packages pkg-config)
  #:use-module (gnu packages python)
  #:use-module (gnu packages qt)
  #:use-module (gnu packages xorg))

(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 (list (search-patch "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 lgpl2.1+)))

(define-public calibre
  (package
    (name "calibre")
    (version "2.20.0")
    (source
      (origin
        (method url-fetch)
        (uri (string-append "http://download.calibre-ebook.com/"
                            version "/calibre-"
                            version ".tar.xz"))
        (sha256
          (base32
           "13246f4vxz4ps3c549hrnwdkwic5jsf7g1faham38z1ixd094lkd"))
        ;; Remove non-free or doubtful code, see
        ;; https://lists.gnu.org/archive/html/guix-devel/2015-02/msg00478.html
        (modules '((guix build utils)))
        (snippet
          '(begin
            (delete-file-recursively "src/unrar")
            (delete-file "src/odf/thumbnail.py")))
        (patches (list (search-patch "calibre-drop-unrar.patch")))))
    (build-system python-build-system)
    (native-inputs
     `(("pkg-config" ,pkg-config)
       ("qt" ,qt) ; for qmake
       ;; xdg-utils is supposed to be used for desktop integration, but it
       ;; also creates lots of messages
       ;; mkdir: cannot create directory '/homeless-shelter': Permission denied
       ("xdg-utils" ,xdg-utils)))
    ;; FIXME: The following are missing inputs according to the documentation,
    ;; but the package can apparently be used without them,
    ;; They may need to be added if a deficiency is detected.
    ;; BeautifulSoup >= 3.0.5
    ;; dnspython >= 1.6.0
    ;; poppler >= 0.20.2
    ;; libwmf >= 0.2.8
    ;; psutil >= 0.6.1
    ;; python-pygments >= 2.0.1 ; used for ebook editing
    (inputs
     `(("chmlib" ,chmlib)
       ("fontconfig" ,fontconfig)
       ("gl宋文武</td></tr>
<tr><td><span title='2015-02-05 16:11:23 +0800'>2015-02-05</span></td><td><a href='/guix/commit/gnu/packages/gstreamer.scm?id=195857b0f75332898b7531b85d2c36bd8c0f325b'>gnu: Add orc.</a><span class='msg-avail'>...</span></td><td>宋文武</td></tr>
<tr><td><span title='2014-11-19 23:42:28 +0100'>2014-11-19</span></td><td><a href='/guix/commit/gnu/packages/gstreamer.scm?id=a4d891361327a47352429c751198210c0f8fc3b1'>gnu: gst-plugins-good: Enable more plugins</a><span class='msg-avail'>...</span></td><td>John Darrington</td></tr>
<tr><td><span title='2014-11-19 07:08:34 +0100'>2014-11-19</span></td><td><a href='/guix/commit/gnu/packages/gstreamer.scm?id=1fcf67f461834bc460dba97b74b00b9dde4772ce'>gnu: Add some more gstreamer plugins</a><span class='msg-avail'>...</span></td><td>John Darrington</td></tr>
<tr><td><span title='2014-07-02 11:42:17 +0200'>2014-07-02</span></td><td><a href='/guix/commit/gnu/packages/gstreamer.scm?id=44add1ce19473990654b399c2a83707b3b76034b'>gnu: Adjust more packages to GLib "bin" split.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2014-06-30 18:05:57 +0200'>2014-06-30</span></td><td><a href='/guix/commit/gnu/packages/gstreamer.scm?id=426adbe82731b8b4968cad8d474545d3e8b55c65'>gnu: glib: Add "bin" output.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2014-02-10 23:36:42 +0100'>2014-02-10</span></td><td><a href='/guix/commit/gnu/packages/gstreamer.scm?id=93bfe3e27c42a60a3e6fa24278734e73d7386307'>gnu: gstreamer 1.0.10: Temporarily disable tests.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2013-12-15 22:31:19 +0100'>2013-12-15</span></td><td><a href='/guix/commit/gnu/packages/gstreamer.scm?id=c4c4cc05979f2a2d0212963c5fe1b940d63a0958'>gnu: Move numerous "inputs" which should be "native-inputs".</a><span class='