1 ;;; doc-view.el --- View PDF/PostScript/DVI files in Emacs
3 ;; Copyright (C) 2007 Free Software Foundation, Inc.
5 ;; Author: Tassilo Horn <tassilo@member.fsf.org>
6 ;; Maintainer: Tassilo Horn <tassilo@member.fsf.org>
7 ;; Keywords: files, pdf, ps, dvi
8 ;; Version: <2007-10-02 Tue 18:21>
10 ;; This file is part of GNU Emacs.
12 ;; GNU Emacs is free software; you can redistribute it and/or modify
13 ;; it under the terms of the GNU General Public License as published by
14 ;; the Free Software Foundation; either version 3, or (at your option)
17 ;; GNU Emacs is distributed in the hope that it will be useful,
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
20 ;; GNU General Public License for more details.
22 ;; You should have received a copy of the GNU General Public License
23 ;; along with GNU Emacs; see the file COPYING. If not, write to the
24 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
25 ;; Boston, MA 02110-1301, USA.
29 ;; doc-view.el requires GNU Emacs 22.1 or newer. You also need GhostScript,
30 ;; `dvipdfm' which comes with TeTeX and `pdftotext', which comes with poppler
31 ;; (http://poppler.freedesktop.org/).
35 ;; DocView is a document viewer for Emacs. It converts PDF, PS and DVI files
36 ;; to a set of PNG files, one PNG for each page, and displays the PNG images
37 ;; inside an Emacs buffer. This buffer uses `doc-view-mode' which provides
38 ;; convenient key bindings for browsing the document.
40 ;; To use it simply do
44 ;; and you'll be queried for a document to open.
46 ;; Since conversion may take some time all the PNG images are cached in a
47 ;; subdirectory of `doc-view-cache-directory' and reused when you want to view
48 ;; that file again. This reusing can be omitted if you provide a prefx
49 ;; argument to `doc-view'. To delete all cached files use
50 ;; `doc-view-clear-cache'. To open the cache with dired, so that you can tidy
51 ;; it out use `doc-view-dired-cache'.
53 ;; When conversion in underway the first page will be displayed as soon as it
54 ;; is available and the available pages are refreshed every
55 ;; `doc-view-conversion-refresh-interval' seconds. If that variable is nil the
56 ;; pages won't be displayed before conversion of the document finished
59 ;; DocView lets you select a slice of the displayed pages. This slice will be
60 ;; remembered and applied to all pages of the current document. This enables
61 ;; you to cut away the margins of a document to save some space. To select a
62 ;; slice you can use `doc-view-set-slice' (bound to `s s') which will query you
63 ;; for the coordinates of the slice's top-left corner and its width and height.
64 ;; A much more convenient way to do the same is offered by the command
65 ;; `doc-view-set-slice-using-mouse' (bound to `s m'). After invokation you
66 ;; only have to press mouse-1 at the top-left corner and drag it to the
67 ;; bottom-right corner of the desired slice. To reset the slice use
68 ;; `doc-view-reset-slice' (bound to `s r').
70 ;; Dired users should have a look at `doc-view-dired'.
72 ;; You can also search within the document. The command `doc-view-search'
73 ;; (bound to `C-s') queries for a search regexp and initializes a list of all
74 ;; matching pages and messages how many match-pages were found. After that you
75 ;; can jump to the next page containing a match with
76 ;; `doc-view-search-next-match' (bound to `C-S-n') or to the previous matching
77 ;; page with `doc-view-search-previous-match' (bound to `C-S-p'). This works
78 ;; by searching a plain text representation of the document. If that doesn't
79 ;; already exist the first invokation of `doc-view-search' starts the
80 ;; conversion. When that finishes and you're still viewing the document
81 ;; (i.e. you didn't switch to another buffer) you're queried for the regexp
86 ;; Basically doc-view should be quite usable with its standard settings, so
89 ;; (require 'doc-view)
91 ;; into your `user-init-file' should be enough. If the images are too small or
92 ;; too big you should set the "-rXXX" option in `doc-view-ghostscript-options'
93 ;; to another value. (The bigger your screen, the higher the value.)
95 ;; This and all other options can be set with the customization interface.
98 ;; M-x customize-group RET doc-view RET
100 ;; and modify them to your needs.
105 (eval-when-compile (require 'cl
))
107 ;;;; Customization Options
109 (defgroup doc-view nil
110 "In-buffer viewer for PDF, PostScript and DVI files."
111 :link
'(function-link doc-view
)
117 (defcustom doc-view-ghostscript-program
"gs"
118 "Program to convert PS and PDF files to PNG."
122 (defcustom doc-view-ghostscript-options
123 '("-dNOPAUSE" "-sDEVICE=png16m" "-dTextAlphaBits=4"
124 "-dBATCH" "-dGraphicsAlphaBits=4" "-dQUIET"
126 "A list of options to give to ghostview."
130 (defcustom doc-view-dvipdfm-program
"dvipdfm"
131 "Program to convert DVI files to PDF.
133 DVI file will be converted to PDF before the resulting PDF is
138 (defcustom doc-view-ps2pdf-program
"ps2pdf"
139 "Program to convert PS files to PDF.
141 PS files will be converted to PDF before searching is possible."
145 (defcustom doc-view-pdftotext-program
"pdftotext"
146 "Program to convert PDF files to plain text.
148 Needed for searching."
152 (defcustom doc-view-cache-directory
(concat temporary-file-directory
154 "The base directory, where the PNG images will be saved."
158 (defcustom doc-view-conversion-buffer
"*doc-view conversion output*"
159 "The buffer where messages from the converter programs go to."
163 (defcustom doc-view-conversion-refresh-interval
3
164 "Every how much seconds the DocView buffer gets refreshed while conversion.
165 After such an refresh newly converted pages will be available for
166 viewing. If set to nil there won't be any refreshes and the
167 pages won't be displayed before conversion of the whole document
172 ;;;; Internal Variables
174 (defvar doc-view-current-files nil
175 "Only used internally.")
177 (defvar doc-view-current-page nil
178 "Only used internally.")
180 (defvar doc-view-current-doc nil
181 "Only used internally.")
183 (defvar doc-view-current-converter-process nil
184 "Only used internally.")
186 (defvar doc-view-current-timer nil
187 "Only used internally.")
189 (defvar doc-view-current-slice nil
190 "Only used internally.")
192 (defvar doc-view-current-cache-dir nil
193 "Only used internally.")
195 (defvar doc-view-current-search-matches nil
196 "Only used internally.")
198 (defvar doc-view-current-image nil
199 "Only used internally.")
201 (defvar doc-view-current-info nil
202 "Only used internally.")
206 (defvar doc-view-mode-map
207 (let ((map (make-sparse-keymap)))
208 ;; Navigation in the document
209 (define-key map
(kbd "n") 'doc-view-next-page
)
210 (define-key map
(kbd "p") 'doc-view-previous-page
)
211 (define-key map
(kbd "<next>") 'doc-view-next-page
)
212 (define-key map
(kbd "<prior>") 'doc-view-previous-page
)
213 (define-key map
(kbd "SPC") 'doc-view-scroll-up-or-next-page
)
214 (define-key map
(kbd "DEL") 'doc-view-scroll-down-or-previous-page
)
215 (define-key map
(kbd "M-<") 'doc-view-first-page
)
216 (define-key map
(kbd "M->") 'doc-view-last-page
)
217 (define-key map
(kbd "g") 'doc-view-goto-page
)
218 ;; Killing/burying the buffer (and the process)
219 (define-key map
(kbd "q") 'bury-buffer
)
220 (define-key map
(kbd "k") 'doc-view-kill-proc-and-buffer
)
221 (define-key map
(kbd "C-x k") 'doc-view-kill-proc-and-buffer
)
223 (define-key map
(kbd "s s") 'doc-view-set-slice
)
224 (define-key map
(kbd "s m") 'doc-view-set-slice-using-mouse
)
225 (define-key map
(kbd "s r") 'doc-view-reset-slice
)
227 (define-key map
(kbd "C-s") 'doc-view-search
)
228 (define-key map
(kbd "<find>") 'doc-view-search
)
229 (define-key map
(kbd "C-S-n") 'doc-view-search-next-match
)
230 (define-key map
(kbd "C-S-p") 'doc-view-search-previous-match
)
232 (define-key map
(kbd "C-v") 'scroll-up
)
233 (define-key map
(kbd "<mouse-4>") 'mwheel-scroll
)
234 (define-key map
(kbd "<mouse-5>") 'mwheel-scroll
)
235 (define-key map
(kbd "M-v") 'scroll-down
)
237 (define-key map
(kbd "C-t") 'doc-view-show-tooltip
)
238 (suppress-keymap map
)
240 "Keymap used by `doc-view-mode'.")
242 ;;;; Navigation Commands
244 (defun doc-view-goto-page (page)
245 "View the page given by PAGE."
246 (interactive "nPage: ")
247 (let ((len (length doc-view-current-files
)))
252 (setq doc-view-current-page page
253 doc-view-current-info
256 (format "Page %d of %d."
257 doc-view-current-page
259 ;; Tell user if converting isn't finished yet
260 (if doc-view-current-converter-process
261 " (still converting...)\n"
263 ;; Display context infos if this page matches the last search
264 (when (and doc-view-current-search-matches
265 (assq doc-view-current-page
266 doc-view-current-search-matches
))
267 (concat (propertize "Search matches:\n" 'face
'bold
)
269 (dolist (m (cdr (assq doc-view-current-page
270 doc-view-current-search-matches
)))
271 (setq contexts
(concat contexts
" - \"" m
"\"\n")))
274 (setq inhibit-read-only t
)
277 (doc-view-insert-image (nth (1- page
) doc-view-current-files
)
279 (put-text-property beg
(point) 'help-echo doc-view-current-info
))
280 (insert "\n" doc-view-current-info
)
281 (goto-char (point-min))
283 (setq inhibit-read-only nil
)))
285 (defun doc-view-next-page (&optional arg
)
286 "Browse ARG pages forward."
288 (doc-view-goto-page (+ doc-view-current-page
(or arg
1))))
290 (defun doc-view-previous-page (&optional arg
)
291 "Browse ARG pages backward."
293 (doc-view-goto-page (- doc-view-current-page
(or arg
1))))
295 (defun doc-view-first-page ()
296 "View the first page."
298 (doc-view-goto-page 1))
300 (defun doc-view-last-page ()
301 "View the last page."
303 (doc-view-goto-page (length doc-view-current-files
)))
305 (defun doc-view-scroll-up-or-next-page ()
306 "Scroll page up if possible, else goto next page."
310 (error (doc-view-next-page))))
312 (defun doc-view-scroll-down-or-previous-page ()
313 "Scroll page down if possible, else goto previous page."
317 (error (doc-view-previous-page)
318 (goto-char (point-max)))))
320 (defun doc-view-kill-proc-and-buffer ()
321 "Kill the current converter process and buffer."
323 (when (eq major-mode
'doc-view-mode
)
324 (when doc-view-current-converter-process
325 (kill-process doc-view-current-converter-process
))
326 (when doc-view-current-timer
327 (cancel-timer doc-view-current-timer
)
328 (setq doc-view-current-timer nil
))
329 (kill-buffer (current-buffer))))
331 ;;;; Conversion Functions
333 (defun doc-view-file-name-to-directory-name (file)
334 "Return the directory where the png files of FILE should be saved.
336 It'a a subdirectory of `doc-view-cache-directory'."
337 (if doc-view-current-cache-dir
338 doc-view-current-cache-dir
339 (file-name-as-directory
340 (concat (file-name-as-directory doc-view-cache-directory
)
342 (insert-file-contents-literally file
)
343 (md5 (current-buffer)))))))
345 (defun doc-view-dvi->pdf-sentinel
(proc event
)
346 "If DVI->PDF conversion was successful, convert the PDF to PNG now."
347 (if (not (string-match "finished" event
))
348 (message "DocView: dvi->pdf process changed status to %s." event
)
349 (set-buffer (process-get proc
'buffer
))
350 (setq doc-view-current-converter-process nil
)
351 (message "DocView: finished conversion from DVI to PDF!")
352 ;; Now go on converting this PDF to a set of PNG files.
353 (let* ((pdf (process-get proc
'pdf-file
))
354 (png (concat (doc-view-file-name-to-directory-name
355 doc-view-current-doc
)
357 (doc-view-pdf/ps-
>png pdf png
))))
359 (defun doc-view-dvi->pdf
(dvi pdf
)
360 "Convert DVI to PDF asynchrounously."
361 (message "DocView: converting DVI to PDF now!")
362 (setq doc-view-current-converter-process
363 (start-process "doc-view-dvi->pdf" doc-view-conversion-buffer
364 doc-view-dvipdfm-program
366 (set-process-sentinel doc-view-current-converter-process
367 'doc-view-dvi-
>pdf-sentinel
)
368 (process-put doc-view-current-converter-process
'buffer
(current-buffer))
369 (process-put doc-view-current-converter-process
'pdf-file pdf
))
371 (defun doc-view-pdf/ps-
>png-sentinel
(proc event
)
372 "If PDF/PS->PNG conversion was successful, update the display."
373 (if (not (string-match "finished" event
))
374 (message "DocView: converter process changed status to %s." event
)
375 (set-buffer (process-get proc
'buffer
))
376 (setq doc-view-current-converter-process nil
)
377 (when doc-view-current-timer
378 (cancel-timer doc-view-current-timer
)
379 (setq doc-view-current-timer nil
))
380 (message "DocView: finished conversion from PDF/PS to PNG!")
381 ;; Yippie, finished. Update the display!
382 (doc-view-display doc-view-current-doc
)))
384 (defun doc-view-pdf/ps-
>png
(pdf-ps png
)
385 "Convert PDF-PS to PNG asynchrounously."
386 (message "DocView: converting PDF or PS to PNG now!")
387 (setq doc-view-current-converter-process
388 (apply 'start-process
389 (append (list "doc-view-pdf/ps->png" doc-view-conversion-buffer
390 doc-view-ghostscript-program
)
391 doc-view-ghostscript-options
392 (list (concat "-sOutputFile=" png
))
394 (process-put doc-view-current-converter-process
395 'buffer
(current-buffer))
396 (set-process-sentinel doc-view-current-converter-process
397 'doc-view-pdf
/ps-
>png-sentinel
)
398 (when doc-view-conversion-refresh-interval
399 (setq doc-view-current-timer
400 (run-at-time "1 secs" doc-view-conversion-refresh-interval
402 doc-view-current-doc
))))
404 (defun doc-view-pdf->txt-sentinel
(proc event
)
405 (if (not (string-match "finished" event
))
406 (message "DocView: converter process changed status to %s." event
)
407 (let ((current-buffer (current-buffer))
408 (proc-buffer (process-get proc
'buffer
)))
409 (set-buffer proc-buffer
)
410 (setq doc-view-current-converter-process nil
)
411 (message "DocView: finished conversion from PDF to TXT!")
412 ;; If the user looks at the DocView buffer where the conversion was
413 ;; performed, search anew. This time it will be queried for a regexp.
414 (when (eq current-buffer proc-buffer
)
415 (doc-view-search)))))
417 (defun doc-view-pdf->txt
(pdf txt
)
418 "Convert PDF to TXT asynchrounously."
419 (message "DocView: converting PDF to TXT now!")
420 (setq doc-view-current-converter-process
421 (start-process "doc-view-pdf->txt" doc-view-conversion-buffer
422 doc-view-pdftotext-program
"-raw"
424 (set-process-sentinel doc-view-current-converter-process
425 'doc-view-pdf-
>txt-sentinel
)
426 (process-put doc-view-current-converter-process
'buffer
(current-buffer)))
428 (defun doc-view-ps->pdf-sentinel
(proc event
)
429 (if (not (string-match "finished" event
))
430 (message "DocView: converter process changed status to %s." event
)
431 (set-buffer (process-get proc
'buffer
))
432 (setq doc-view-current-converter-process nil
)
433 (message "DocView: finished conversion from PS to PDF!")
434 ;; Now we can transform to plain text.
435 (doc-view-pdf->txt
(process-get proc
'pdf-file
)
436 (concat (doc-view-file-name-to-directory-name
437 doc-view-current-doc
)
440 (defun doc-view-ps->pdf
(ps pdf
)
441 "Convert PS to PDF asynchronously."
442 (message "DocView: converting PS to PDF now!")
443 (setq doc-view-current-converter-process
444 (start-process "doc-view-ps->pdf" doc-view-conversion-buffer
445 doc-view-ps2pdf-program
447 (set-process-sentinel doc-view-current-converter-process
448 'doc-view-ps-
>pdf-sentinel
)
449 (process-put doc-view-current-converter-process
'buffer
(current-buffer))
450 (process-put doc-view-current-converter-process
'pdf-file pdf
))
452 (defun doc-view-convert-doc (doc)
453 "Convert DOC to a set of png files, one file per page.
455 Those files are saved in the directory given by
456 `doc-view-file-name-to-directory-name'."
458 (let* ((dir (doc-view-file-name-to-directory-name doc
))
459 (png-file (concat (file-name-as-directory dir
) "page-%d.png")))
460 (when (file-exists-p dir
)
461 (dired-delete-file dir
'always
))
462 (make-directory dir t
)
463 (if (not (string= (file-name-extension doc
) "dvi"))
464 ;; Convert to PNG images.
465 (doc-view-pdf/ps-
>png doc png-file
)
466 ;; DVI files have to be converted to PDF before GhostScript can process
468 (doc-view-dvi->pdf doc
469 (concat (file-name-as-directory dir
)
474 (define-derived-mode doc-view-mode nil
"DocView"
475 "Major mode in DocView buffers.
477 \\{doc-view-mode-map}"
479 (setq buffer-read-only t
)
480 (make-local-variable 'doc-view-current-files
)
481 (make-local-variable 'doc-view-current-doc
)
482 (make-local-variable 'doc-view-current-image
)
483 (make-local-variable 'doc-view-current-page
)
484 (make-local-variable 'doc-view-current-converter-process
)
485 (make-local-variable 'doc-view-current-timer
)
486 (make-local-variable 'doc-view-current-slice
)
487 (make-local-variable 'doc-view-current-cache-dir
)
488 (make-local-variable 'doc-view-current-info
)
489 (make-local-variable 'doc-view-current-search-matches
))
493 (defun doc-view-set-slice (x y width height
)
494 "Set the slice of the images that should be displayed.
495 You can use this function to tell doc-view not to display the
496 margins of the document. It prompts for the top-left corner (X
497 and Y) of the slice to display and its WIDTH and HEIGHT.
499 See `doc-view-set-slice-using-mouse' for a more convenient way to
500 do that. To reset the slice use `doc-view-reset-slice'."
502 (let* ((size (image-size doc-view-current-image t
))
503 (a (read-number (format "Top-left X (0..%d): " (car size
))))
504 (b (read-number (format "Top-left Y (0..%d): " (cdr size
))))
505 (c (read-number (format "Width (0..%d): " (- (car size
) a
))))
506 (d (read-number (format "Height (0..%d): " (- (cdr size
) b
)))))
508 (setq doc-view-current-slice
(list x y width height
))
510 (doc-view-goto-page doc-view-current-page
))
512 (defun doc-view-set-slice-using-mouse ()
513 "Set the slice of the images that should be displayed.
514 You set the slice by pressing mouse-1 at its top-left corner and
515 dragging it to its bottom-right corner. See also
516 `doc-view-set-slice' and `doc-view-reset-slice'."
521 (concat "Press mouse-1 at the top-left corner and "
522 "drag it to the bottom-right corner!"))))
523 (when (eq (car e
) 'drag-mouse-1
)
524 (setq x
(car (posn-object-x-y (event-start e
))))
525 (setq y
(cdr (posn-object-x-y (event-start e
))))
526 (setq w
(- (car (posn-object-x-y (event-end e
))) x
))
527 (setq h
(- (cdr (posn-object-x-y (event-end e
))) y
))
529 (doc-view-set-slice x y w h
)))
531 (defun doc-view-reset-slice ()
532 "Reset the current slice.
533 After calling this function the whole pages will be visible
536 (setq doc-view-current-slice nil
)
538 (doc-view-goto-page doc-view-current-page
))
542 (defun doc-view-insert-image (file &rest args
)
543 "Insert the given png FILE.
544 ARGS is a list of image descriptors."
545 (let ((image (apply 'create-image file
'png nil args
)))
546 (setq doc-view-current-image image
)
547 (insert-image image
(concat "[" file
"]") nil doc-view-current-slice
)))
549 (defun doc-view-sort (a b
)
550 "Return non-nil if A should be sorted before B.
551 Predicate for sorting `doc-view-current-files'."
552 (if (< (length a
) (length b
))
554 (if (> (length a
) (length b
))
558 (defun doc-view-display (doc)
559 "Start viewing the document DOC."
560 (let ((dir (doc-view-file-name-to-directory-name doc
)))
561 (set-buffer (format "*DocView: %s*" doc
))
562 (setq doc-view-current-files
563 (sort (directory-files dir t
"page-[0-9]+\\.png" t
)
565 (when (> (length doc-view-current-files
) 0)
566 (doc-view-goto-page doc-view-current-page
))))
568 (defun doc-view-buffer-message ()
569 (setq inhibit-read-only t
)
571 (insert (propertize "Welcome to DocView!" 'face
'bold
)
574 If you see this buffer it means that the document you want to
575 view gets converted to PNG now and the conversion of the first
576 page hasn't finished yet or
577 `doc-view-conversion-refresh-interval' is set to nil.
579 For now these keys are useful:
581 `q' : Bury this buffer. Conversion will go on in background.
582 `k' : Kill the conversion process and this buffer.\n")
583 (setq inhibit-read-only nil
))
585 (defun doc-view-show-tooltip ()
587 (tooltip-show doc-view-current-info
))
591 (defun doc-view-search-internal (regexp file
)
592 "Return a list of FILE's pages that contain text matching REGEXP.
593 The value is an alist of the form (PAGE CONTEXTS) where PAGE is
594 the pagenumber and CONTEXTS are all lines of text containing a match."
596 (insert-file-contents file
)
600 (while (re-search-forward (concat "\\(?:\\([\f]\\)\\|\\("
601 regexp
"\\)\\)") nil t
)
602 (when (match-string 1) (incf page
))
603 (when (match-string 2)
604 (if (/= page lastpage
)
605 (setq matches
(push (cons page
606 (list (buffer-substring
607 (line-beginning-position)
608 (line-end-position))))
613 ;; This page already is a match.
615 ;; This is the first match on page.
617 (list (buffer-substring
618 (line-beginning-position)
619 (line-end-position))))
621 (setq lastpage page
)))
622 (nreverse matches
))))
624 (defun doc-view-search-no-of-matches (list)
625 "Extract the number of matches from the search result LIST."
628 (setq no
(+ no
(1- (length p
)))))
631 (defun doc-view-search ()
632 "Query for a regexp and search the current document.
633 If the current document hasn't been transformed to plain text
634 till now do that first. You should try searching anew when the
635 conversion finished."
637 ;; New search, so forget the old results.
638 (setq doc-view-current-search-matches nil
)
639 (let ((txt (concat (doc-view-file-name-to-directory-name
640 doc-view-current-doc
)
642 (if (file-readable-p txt
)
644 (setq doc-view-current-search-matches
645 (doc-view-search-internal
646 (read-from-minibuffer "Regexp: ")
648 (message "DocView: search yielded %d matches."
649 (doc-view-search-no-of-matches
650 doc-view-current-search-matches
)))
651 ;; We must convert to TXT first!
652 (if doc-view-current-converter-process
653 (message "DocView: please wait till conversion finished.")
654 (let ((ext (file-name-extension doc-view-current-doc
)))
657 ;; Doc is a PDF, so convert it to TXT
658 (doc-view-pdf->txt doc-view-current-doc txt
))
660 ;; Doc is a PS, so convert it to PDF (which will be converted to
662 (doc-view-ps->pdf doc-view-current-doc
663 (concat (doc-view-file-name-to-directory-name
664 doc-view-current-doc
)
667 ;; Doc is a DVI. This means that a doc.pdf already exists in its
668 ;; cache subdirectory.
669 (doc-view-pdf->txt
(concat (doc-view-file-name-to-directory-name
670 doc-view-current-doc
)
673 (t (error "DocView doesn't know what to do"))))))))
675 (defun doc-view-search-next-match (arg)
676 "Go to the ARGth next matching page."
678 (let* ((next-pages (remove-if (lambda (i) (<= (car i
) doc-view-current-page
))
679 doc-view-current-search-matches
))
680 (page (car (nth (1- arg
) next-pages
))))
682 (doc-view-goto-page page
)
684 doc-view-current-search-matches
685 (y-or-n-p "No more matches after current page. Wrap to first match? "))
686 (doc-view-goto-page (caar doc-view-current-search-matches
))))))
688 (defun doc-view-search-previous-match (arg)
689 "Go to the ARGth previous matching page."
691 (let* ((prev-pages (remove-if (lambda (i) (>= (car i
) doc-view-current-page
))
692 doc-view-current-search-matches
))
693 (page (car (nth (1- arg
) (nreverse prev-pages
)))))
695 (doc-view-goto-page page
)
697 doc-view-current-search-matches
698 (y-or-n-p "No more matches before current page. Wrap to last match? "))
699 (doc-view-goto-page (caar (last doc-view-current-search-matches
)))))))
701 ;;;; User Interface Commands
704 (defun doc-view (no-cache &optional file
)
705 "Convert FILE to png and start viewing it.
706 If no FILE is given, query for on.
707 If this FILE is still in the cache, don't convert and use the
708 existing page files. With prefix arg NO-CACHE, don't use the
709 cached files and convert anew."
711 (if (not (and (image-type-available-p 'png
)
713 (message "DocView: your emacs or display doesn't support png images.")
716 (let ((completion-ignored-extensions
717 ;; Don't hide files doc-view can display
718 (remove-if (lambda (str)
719 (string-match "\\.\\(ps\\|pdf\\|dvi\\)$"
721 completion-ignored-extensions
)))
722 (read-file-name "File: " nil nil t
)))))
723 (buffer (get-buffer-create (format "*DocView: %s*" doc
)))
724 (dir (doc-view-file-name-to-directory-name doc
)))
725 (switch-to-buffer buffer
)
726 (doc-view-buffer-message)
728 (setq doc-view-current-doc doc
)
729 (setq doc-view-current-page
1)
730 (if (not (and (file-exists-p dir
)
733 (setq doc-view-current-cache-dir nil
)
734 (doc-view-convert-doc doc-view-current-doc
))
735 (message "DocView: using cached files!")
736 (doc-view-display doc-view-current-doc
)))))
738 (defun doc-view-dired (no-cache)
739 "View the current dired file with doc-view.
740 NO-CACHE is the same as in `doc-view'.
742 You might want to bind this command to a dired key, e.g.
744 (define-key dired-mode-map (kbd \"C-c d\") 'doc-view-dired)"
746 (doc-view no-cache
(dired-get-file-for-visit)))
748 (defun doc-view-clear-cache ()
749 "Delete the whole cache (`doc-view-cache-directory')."
751 (dired-delete-file doc-view-cache-directory
'always
)
752 (make-directory doc-view-cache-directory
))
754 (defun doc-view-dired-cache ()
755 "Open `dired' in `doc-view-cache-directory'."
757 (dired doc-view-cache-directory
))
762 ;; mode: outline-minor
765 ;; arch-tag: 5d6e5c5e-095f-489e-b4e4-1ca90a7d79be
766 ;;; doc-view.el ends here