summaryrefslogtreecommitdiff
path: root/gnu/packages/djvu.scm
diff options
context:
space:
mode:
authorGuillaume Le Vaillant <glv@posteo.net>2020-11-29 14:29:45 +0100
committerGuillaume Le Vaillant <glv@posteo.net>2020-11-29 14:36:57 +0100
commit7c2e67400ffaef8eb6f30ef7126c976ee3d7e36c (patch)
tree2b68e6b2b94b55f006cde59a9755a4acacd722a0 /gnu/packages/djvu.scm
parente7fb2c6e7b1caa90bd346292b1325ab8f0d8a4d7 (diff)
gnu: Add ocrodjvu.
* gnu/packages/djvu.scm (ocrodjvu): New variable.
Diffstat (limited to 'gnu/packages/djvu.scm')
-rw-r--r--gnu/packages/djvu.scm89
1 files changed, 89 insertions, 0 deletions
diff --git a/gnu/packages/djvu.scm b/gnu/packages/djvu.scm
index 2a94862c3b..6423eb124f 100644
--- a/gnu/packages/djvu.scm
+++ b/gnu/packages/djvu.scm
@@ -39,12 +39,15 @@
#:use-module (gnu packages imagemagick)
#:use-module (gnu packages linux)
#:use-module (gnu packages ncurses)
+ #:use-module (gnu packages ocr)
#: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 wxwidgets)
+ #:use-module (gnu packages xml)
#:use-module (gnu packages xorg))
(define-public djvulibre
@@ -398,3 +401,89 @@ It is able to:
and background layers of images, which can then be encoded into a DjVu file.")
(home-page "https://jwilk.net/software/didjvu")
(license license:gpl2)))
+
+(define-public ocrodjvu
+ (package
+ (name "ocrodjvu")
+ (version "0.12")
+ (source
+ (origin
+ (method url-fetch)
+ (uri (string-append
+ "https://github.com/jwilk/ocrodjvu/releases/download/" version
+ "/ocrodjvu-" version ".tar.xz"))
+ (sha256
+ (base32 "09w9rqr7z2jd5kwp178zz2yrsc82mxs7gksipg92znxzgzhmw2ng"))))
+ (build-system gnu-build-system)
+ (native-inputs
+ `(("libxml2" ,libxml2)
+ ("python2-nose" ,python2-nose)
+ ("python2-pillow" ,python2-pillow)))
+ (inputs
+ `(("djvulibre" ,djvulibre)
+ ("ocrad" ,ocrad)
+ ("python" ,python-2)
+ ("python2-djvulibre" ,python2-djvulibre)
+ ("python2-html5lib" ,python2-html5lib)
+ ("python2-lxml" ,python2-lxml)
+ ("python2-pyicu" ,python2-pyicu)
+ ("python2-subprocess32" ,python2-subprocess32)
+ ("tesseract-ocr" ,tesseract-ocr)))
+ (arguments
+ `(#:modules ((guix build gnu-build-system)
+ ((guix build python-build-system) #:prefix python:)
+ (guix build utils))
+ #:imported-modules (,@%gnu-build-system-modules
+ (guix build python-build-system))
+ #:test-target "test"
+ #:phases
+ (modify-phases %standard-phases
+ (delete 'configure)
+ (add-before 'check 'disable-failing-test
+ (lambda _
+ (substitute* "tests/test_ipc.py"
+ ;; test_wait_signal gets stuck forever
+ (("yield self\\._test_signal, name")
+ "return True")
+ ;; test_path fails to find a file it should have created
+ (("path = os\\.getenv\\('PATH'\\)\\.split\\(':'\\)")
+ "return True"))
+ ;; Disable tests with tesseract. They can't work without
+ ;; the language files that must downloaded by the final user
+ ;; as they are not packaged in Guix.
+ (substitute* "tests/ocrodjvu/test.py"
+ (("engines = stdout\\.getvalue\\(\\)\\.splitlines\\(\\)")
+ "engines = ['ocrad']"))
+ (substitute* "tests/ocrodjvu/test_integration.py"
+ (("engines = 'tesseract', 'cuneiform', 'gocr', 'ocrad'")
+ "engines = 'ocrad'"))))
+ (replace 'install
+ (lambda* (#:key outputs #:allow-other-keys)
+ (let ((out (assoc-ref outputs "out")))
+ (invoke "make"
+ "DESTDIR="
+ (string-append "PREFIX=" out)
+ "install"))))
+ (add-after 'install 'wrap-python
+ (assoc-ref python:%standard-phases 'wrap))
+ (add-after 'wrap-python 'wrap-path
+ (lambda* (#:key inputs outputs #:allow-other-keys)
+ (let ((out (assoc-ref outputs "out"))
+ (djvulibre (assoc-ref inputs "djvulibre"))
+ (ocrad (assoc-ref inputs "ocrad"))
+ (tesseract (assoc-ref inputs "tesseract-ocr")))
+ (for-each (lambda (file)
+ (wrap-program (string-append out "/bin/" file)
+ `("PATH" ":" prefix
+ (,(string-append djvulibre "/bin:"
+ ocrad "/bin:"
+ tesseract "/bin")))))
+ '("djvu2hocr"
+ "hocr2djvused"
+ "ocrodjvu"))))))))
+ (synopsis "Program to perform OCR on DjVu files")
+ (description
+ "@code{ocrodjvu} is a wrapper for OCR systems, that allows you to perform
+OCR on DjVu files.")
+ (home-page "https://jwilk.net/software/ocrodjvu")
+ (license license:gpl2)))