[elpa] externals/doc-toc 36fe728f38 72/84: Make tesseract psm code configurable via universal arg

[ELPA Syncer]

branch: externals/doc-toc
commit 36fe728f387ab2087e4096cb4734a8642dd7f880
Author: Daniel Nicolai <dalanicolai@gmail.com>
Commit: Daniel Nicolai <dalanicolai@gmail.com>

    Make tesseract psm code configurable via universal arg
---
 README.org  | 24 ++++++++++++++++--------
 toc-mode.el | 16 +++++++++++++---
 2 files changed, 29 insertions(+), 11 deletions(-)

diff --git a/README.org b/README.org
index 141ac1aabd..00aaadaccd 100644
--- a/README.org
+++ b/README.org
@@ -68,12 +68,17 @@ the [[https://krasjet.com/voice/pdf.tocgen/][pdf.tocgen]] 
functionality describe
 
 Otherwise, start with opening some pdf or djvu file in Emacs (pdf-tools and 
djvu
 package recommended). Find the pagenumbers for the TOC. Then type =M-x
-toc-extract-pages=, or =M-x toc-extract-pages-ocr= if doc has no text layer or 
text
-layer is bad, and answer the subsequent prompts by entering the pagenumbers for
-the first and the last page each followed by =RET=. *For PDF extraction with 
OCR,
-currently it is required* *to view all contents pages once before extraction*
-(toc-mode uses the cached file data). Also the languages used for tesseract OCR
-can be customized via the ~toc-ocr-languages~ variable.
+toc-extract-pages=, or =M-x toc-extract-pages-ocr= if doc has no text layer or
+the text layer is bad, and answer the subsequent prompts by entering the
+pagenumbers for the first and the last page each followed by =RET=. *For PDF
+extraction with OCR, currently it is required* *to view all contents pages once
+before extraction* (toc-mode uses the cached file data). For TOC's that are
+formatted as two columns per page, prepend the =toc-extract-pages-ocr= command
+with two universal arguments. Then after you are asked for the start and finish
+pagenumbers, a third question asks you to set the tesseract psm code. For the
+double column layout it is best (as far as I know) to use psm code =1=. Also 
the
+languages used for tesseract OCR can be customized via the ~toc-ocr-languages~
+variable.
 
 [[toc-mode-extract.gif]]
 
@@ -153,6 +158,9 @@ all level 0 sections correspond to the page numbers in the 
document). The
 =S-up/S-down= in the tablist window will just scroll page up/down in the 
document
 window and, =C-up/C-down= will scroll smoothly in that window.
 
+If you discover some small error in some field, then you put the cursor on that
+field and press =C-r= to correct the text in that field.
+
 Type =C-c C-c= when done.
 
 ** 4. TOC-mode (add outline to document)
@@ -196,7 +204,8 @@ toc-mode (tablist)
 | ~S-right/S-left~ | in/decrease pagenumber current entry                      
           |
 | ~C-down/C-up~    | scroll document other window (only when other buffer 
shows document) |
 | ~S-down/S-up~    | full page scroll document other window ( idem )           
           |
-| =C-j=            | toc--jump-to-next-entry-by-level                          
                                           |
+| =C-j=            | toc--jump-to-next-entry-by-level                          
           |
+| =C-r=            | toc--replace-input                                        
           |
 
 
 * Alternatives
@@ -204,7 +213,6 @@ toc-mode (tablist)
 - For adding TOC to document (pdf and djvu): 
[[http://handyoutlinerfo.sourceforge.net/][HandyOutliner]]
 
 *** Donate
-
 
[[https://www.paypal.com/cgi-bin/webscr?cmd=_s-xclick&hosted_button_id=6BHLS7H9ARJXE&source=url][Buy
 me a coffee (PayPal donate)]]
 
 # <form action="https://www.paypal.com/cgi-bin/webscr"; method="post" 
target="_top">
diff --git a/toc-mode.el b/toc-mode.el
index bf799e44c1..a9d539e68b 100644
--- a/toc-mode.el
+++ b/toc-mode.el
@@ -82,6 +82,12 @@
 ;; `https://tesseract-ocr.github.io/tessdoc/Command-Line-Usage.html' might be
 ;; useful.
 
+;; For TOC's that are formatted as two columns per page, prepend the
+;; `toc-extract-pages-ocr' command with two universal arguments. Then after you
+;; are asked for the start and finish pagenumbers, a third question asks you to
+;; set the tesseract psm code. For the double column layout it is best (as far
+;; as I know) to use psm code '1'.
+
 ;; Software-generated PDF's with pdf.tocgen
 ;; For 'software-generated' (i.e. PDF's not created from scans) PDF-files it is
 ;; sometimes easier to use `toc-extract-with-pdf-tocgen'. To use this function
@@ -352,6 +358,7 @@ rename this new file."
     (forward-line 1)))
 
 (defun toc--cleanup-dots-ocr ()
+  (interactive)
   "Remove dots between heading its title and page number.
 Like `toc--cleanup-dots' but more suited for use after OCR"
   (goto-char (point-min))
@@ -514,7 +521,7 @@ For use in `toc-ocr-languages'."
 Extract from STARTPAGE to ENDPAGE. Use with the universal
 ARG (\\[universal-argument]) omits cleanup to get the
 unprocessed text."
-  (interactive "P")
+  (interactive "p")
   (let ((mode (derived-mode-p 'pdf-view-mode 'djvu-read-mode)))
     (if mode
         (let* ((startpage (string-to-number
@@ -525,7 +532,10 @@ unprocessed text."
                (source-buffer (current-buffer))
                (ext (url-file-extension (buffer-file-name (current-buffer))))
                (buffer (file-name-sans-extension (buffer-name)))
-               (args (list "stdout" "--psm" "6")))
+               (psm (if (= arg 16)
+                        (read-string "Enter code (interger) for tesseract psm: 
")
+                      "6"))
+               (args (list "stdout" "--psm" psm)))
           (when toc-ocr-languages
             (setq args (append args (list "-l" toc-ocr-languages))))
           (while (<= page (+ endpage))
@@ -549,7 +559,7 @@ unprocessed text."
           (when (fboundp 'flyspell-mode)
             (flyspell-mode))
           (setq-local doc-buffer source-buffer)
-          (unless arg
+          (unless (or (= arg 4) (= arg 16))
             (toc--cleanup startpage t)))
       (message "Buffer not in pdf-view- or djvu-read-mode"))))