branch: externals/doc-toc
commit 36fe728f387ab2087e4096cb4734a8642dd7f880
Author: Daniel Nicolai <dalanico...@gmail.com>
Commit: Daniel Nicolai <dalanico...@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"))))
