;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il>
;;;
;;; 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 ocr)
  #:use-module ((guix licenses) #:prefix license:)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix build-system gnu)
  #:use-module (gnu packages compression)
  #:use-module (gnu packages image))

(define-public ocrad
  (package
    (name "ocrad")
    (version "0.25")
    (source (origin
             (method url-fetch)
             (uri (string-append "mirror://gnu/ocrad/ocrad-"
                                 version ".tar.lz"))
             (sha256
              (base32
               "1m2dblgvvjs48rsglfdwq0ib9zk8h9n34xsh67ibrg0g0ffbw477"))))
    (build-system gnu-build-system)
    (native-inputs `(("lzip" ,lzip)))
    (home-page "https://www.gnu.org/software/ocrad/")
    (synopsis "Optical character recognition based on feature extraction")
    (description
     "GNU Ocrad is an optical character recognition program based on a
feature extraction method.  It can read images in PBM, PGM or PPM formats and
it produces text in 8-bit or UTF-8 formats.")
    (license license:gpl3+)))

(define-public tesseract-ocr
  (package
    (name "tesseract-ocr")
    (version "3.04.01")
    (source
     (origin
       (method url-fetch)
       (uri (string-append
             "https://github.com/tesseract-ocr/tesseract/archive/"
             version ".tar.gz"))
       (file-name (string-append name "-" version ".tar.gz"))
       (sha256
        (base32 "0snwd8as5i8vx7zkimpd2yg898jl96zf90r65a9w615f2hdkxxjp"))))
    (build-system gnu-build-system)
    (inputs
     `(("leptonica" ,leptonica)))
    (arguments
     '(#:configure-flags
       (let ((leptonica (assoc-ref %build-inputs "leptonica")))
         (list (string-append "LIBLEPT_HEADERSDIR=" leptonica "/include")))))
    (home-page "https://github.com/tesseract-ocr")
    (synopsis "Optical character recognition engine")
    (description
     "Tesseract is an optical character recognition (OCR) engine with very
high accuracy.  It supports many languages, output text formatting, hOCR
positional information and page layout analysis.  Several image formats are
supported through the Leptonica library.  It can also detect whether text is
monospaced or proportional.")
    (license license:asl2.0)))
-18</span></td><td><a href='/guix/commit/.dir-locals.el?id=0e47fcced442d8e7c1b05184fdc1c14f10ed04ec'>Merge branch 'master' into core-updates</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2021-07-11 00:49:14 +0200'>2021-07-11</span></td><td><a href='/guix/commit/.dir-locals.el?id=04b2f3dd80aa4a138e93a6a4a209c1beac5fca88'>packages: Add 'modify-inputs'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2021-06-29 14:53:21 -0400'>2021-06-29</span></td><td><a href='/guix/commit/.dir-locals.el?id=82daab42811a2e3c7684ebdf12af75ff0fa67b99'>pack: Add support for the deb format.</a><span class='msg-avail'>...</span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2021-03-30 22:48:43 +0200'>2021-03-30</span></td><td><a href='/guix/commit/.dir-locals.el?id=7d873f194ca69d6096d28d7a224ab78e83e34fe1'>build-system: Rewrite using gexps.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-12-15 17:32:11 +0100'>2020-12-15</span></td><td><a href='/guix/commit/.dir-locals.el?id=1574bd82bb36ee64574912c3e8855f94a73adc44'>system: 'init' does not recompute the hash of each store item.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-11-17 18:00:28 -0500'>2020-11-17</span></td><td><a href='/guix/commit/.dir-locals.el?id=129b9b16d9b588316cc997cf8f4fefe30961a417'>Merge remote-tracking branch 'origin/version-1.2.0' into master</a><span class='msg-avail'>...</span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2020-11-16 21:48:30 +0100'>2020-11-16</span></td><td><a href='/guix/commit/.dir-locals.el?id=3428c66c5a4d5f1a5fd2f1ad4cd3105993ae8e6d'>.dir-locals.el: Add upstream report link.</a><span class='msg-avail'>...</span></td><td>Miguel Ángel Arruga Vivas</td></tr>
<tr><td><span title='2020-11-16 13:06:27 -0500'>2020-11-16</span></td><td><a href='/guix/commit/.dir-locals.el?id=a895eace116c59aa570b54e3a165eef3fcef26c7'>.dir-locals.el: Use setq-local on guix-directory.</a><span class='msg-avail'>...</span></td><td>Christopher Lemmer Webber</td></tr>
<tr><td><span title='2020-11-16 13:04:38 -0500'>2020-11-16</span></td><td><a href='/guix/commit/.dir-locals.el?id=1d6e7732b163c9e945c9e5b32c726fe3b5f09c3a'>.dir-locals.el: Prevent errors if .dir-locals.el isn't found.</a><span class='msg-avail'>...</span></td><td>Christopher Lemmer Webber</td></tr>
<tr><td><span title='2020-11-12 09:23:27 -0500'>2020-11-12</span></td><td><a href='/guix/commit/.dir-locals.el?id=3de898b43c1388a9244bdedd2d9f11511c9571d2'>maint: update-guix-package: Optionally add sources to store.</a><span class='msg-avail'>...</span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2020-11-01 01:57:02 +0100'>2020-11-01</span></td><td><a href='/guix/commit/.dir-locals.el?id=96d0f0b13819a68480e204716c1af6605cfdcb4c'>.dir-locals.el: Require cl-lib at runtime.</a><span class='msg-avail'>...</span></td><td>Miguel Ángel Arruga Vivas</td></tr>
<tr><td><span title='2020-10-31 00:12:30 -0400'>2020-10-31</span></td><td><a href='/guix/commit/.dir-locals.el?id=0e1b0958bde5ccc34a4fed9a09cf949d5f9c9519'>.dir-locals.el: Automatically set the GEISER-GUILE-LOAD-PATH variable.</a><span class='msg-avail'>...</span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2020-10-19 14:02:53 -0400'>2020-10-19</span></td><td><a href='/guix/commit/.dir-locals.el?id=5800d2aae2490f4192823323b72d17f2645aeb9e'>maint: update-guix-package: Prevent accidentally breaking guix pull.</a><span class='msg-avail'>...</span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2020-09-14 10:51:26 +0200'>2020-09-14</span></td><td><a href='/guix/commit/.dir-locals.el?id=14c422c12c86126cfb5ca7e1641bbcd78d02f711'>deduplication: pass store directory to replace-with-link.</a><span class='msg-avail'>...</span></td><td>Caleb Ristvedt</td></tr>
<tr><td><span title='2020-09-14 10:51:26 +0200'>2020-09-14</span></td><td><a href='/guix/commit/.dir-locals.el?id=1d40e6fdd1898d94d9611b01ebd893aab72dec54'>.dir-locals.el: fix call-with-{retrying-}transaction indenting.</a><span class='msg-avail'>...</span></td><td>Caleb Ristvedt</td></tr>
<tr><td><span title='2020-08-26 00:51:56 +0200'>2020-08-26</span></td><td><a href='/guix/commit/.dir-locals.el?id=8d0e5c2655b17abaf36dbd64491e6b039fb46b49'>.dir-locals.el: Add indentation rule for 'package/inherit'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>