branch: externals/doc-toc
commit d5629c71652d80c5c515d30cdafb345f5a0b7595
Author: Daniel Nicolai <dalanico...@gmail.com>
Commit: Daniel Nicolai <dalanico...@gmail.com>
Update djvu ocr to djvu3.el (create ppm instead of svg)
---
toc-mode.el | 18 +++++++++++++-----
1 file changed, 13 insertions(+), 5 deletions(-)
diff --git a/toc-mode.el b/toc-mode.el
index e647df2f37..4de0b3762b 100644
--- a/toc-mode.el
+++ b/toc-mode.el
@@ -545,11 +545,19 @@ unprocessed text."
(number-to-string page)
(pdf-cache-get-image page 600)))
((string= ".djvu" ext)
- (djvu-goto-page page)
- (make-temp-file "pageimage"
- nil
- (number-to-string page)
- (image-property djvu-doc-image
:data))))))
+ ;; new code for djvu3
+ (let ((outfile (format "/tmp/pageimagep%s"
page)))
+ (shell-command (format "ddjvu -page=%s '%s'
%s"
+ page
+ buffer-file-name
+ outfile))
+ outfile)))))
+ ;; old code for original djvu.el
+ ;; (djvu-goto-page page)
+ ;; (make-temp-file "pageimage"
+ ;; nil
+ ;; (number-to-string page)
+ ;; (image-property djvu-doc-image :data))))))
(apply 'call-process
(append (list "tesseract" nil (list buffer nil) nil file)
args))
