mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-12-20 10:23:57 +00:00
e7a1c32dda
(doc-view-fallback-mode): Remove overlays here. (doc-view-toggle-display): Instead of here. Don't throw away image-mode-winprops-alist. (doc-view-goto-page): Don't mess with hscroll.
1810 lines
70 KiB
EmacsLisp
1810 lines
70 KiB
EmacsLisp
;;; doc-view.el --- View PDF/PostScript/DVI files in Emacs -*- lexical-binding: t -*-
|
||
|
||
|
||
;; Copyright (C) 2007-2013 Free Software Foundation, Inc.
|
||
;;
|
||
;; Author: Tassilo Horn <tsdh@gnu.org>
|
||
;; Maintainer: Tassilo Horn <tsdh@gnu.org>
|
||
;; Keywords: files, pdf, ps, dvi
|
||
|
||
;; This file is part of GNU Emacs.
|
||
|
||
;; GNU Emacs 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 Emacs 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 Emacs. If not, see <http://www.gnu.org/licenses/>.
|
||
|
||
;;; Requirements:
|
||
|
||
;; doc-view.el requires GNU Emacs 22.1 or newer. You also need Ghostscript,
|
||
;; `dvipdf' (comes with Ghostscript) or `dvipdfm' (comes with teTeX or TeXLive)
|
||
;; and `pdftotext', which comes with xpdf (http://www.foolabs.com/xpdf/) or
|
||
;; poppler (http://poppler.freedesktop.org/).
|
||
|
||
;;; Commentary:
|
||
|
||
;; DocView is a document viewer for Emacs. It converts PDF, PS and DVI files
|
||
;; to a set of PNG files, one PNG for each page, and displays the PNG images
|
||
;; inside an Emacs buffer. This buffer uses `doc-view-mode' which provides
|
||
;; convenient key bindings for browsing the document.
|
||
;;
|
||
;; To use it simply open a document file with
|
||
;;
|
||
;; C-x C-f ~/path/to/document RET
|
||
;;
|
||
;; and the document will be converted and displayed, if your emacs supports png
|
||
;; images. With `C-c C-c' you can toggle between the rendered images
|
||
;; representation and the source text representation of the document.
|
||
;;
|
||
;; Since conversion may take some time all the PNG images are cached in a
|
||
;; subdirectory of `doc-view-cache-directory' and reused when you want to view
|
||
;; that file again. To reconvert a document hit `g' (`doc-view-reconvert-doc')
|
||
;; when displaying the document. To delete all cached files use
|
||
;; `doc-view-clear-cache'. To open the cache with dired, so that you can tidy
|
||
;; it out use `doc-view-dired-cache'.
|
||
;;
|
||
;; When conversion in underway the first page will be displayed as soon as it
|
||
;; is available and the available pages are refreshed every
|
||
;; `doc-view-conversion-refresh-interval' seconds. If that variable is nil the
|
||
;; pages won't be displayed before conversion of the document finished
|
||
;; completely.
|
||
;;
|
||
;; DocView lets you select a slice of the displayed pages. This slice
|
||
;; will be remembered and applied to all pages of the current
|
||
;; document. This enables you to cut away the margins of a document
|
||
;; to save some space. To select a slice you can use
|
||
;; `doc-view-set-slice' (bound to `s s') which will query you for the
|
||
;; coordinates of the slice's top-left corner and its width and
|
||
;; height. A much more convenient way to do the same is offered by
|
||
;; the command `doc-view-set-slice-using-mouse' (bound to `s m').
|
||
;; After invocation you only have to press mouse-1 at the top-left
|
||
;; corner and drag it to the bottom-right corner of the desired slice.
|
||
;; Even more accurate and convenient is to use
|
||
;; `doc-view-set-slice-from-bounding-box' (bound to `s b') which uses
|
||
;; the BoundingBox information of the current page to set an optimal
|
||
;; slice. To reset the slice use `doc-view-reset-slice' (bound to `s
|
||
;; r').
|
||
;;
|
||
;; You can also search within the document. The command `doc-view-search'
|
||
;; (bound to `C-s') queries for a search regexp and initializes a list of all
|
||
;; matching pages and messages how many match-pages were found. After that you
|
||
;; can jump to the next page containing a match with an additional `C-s'. With
|
||
;; `C-r' you can do the same, but backwards. To search for a new regexp give a
|
||
;; prefix arg to one of the search functions, e.g. by typing `C-u C-s'. The
|
||
;; searching works by using a plain text representation of the document. If
|
||
;; that doesn't already exist the first invocation of `doc-view-search' (or
|
||
;; `doc-view-search-backward') starts the conversion. When that finishes and
|
||
;; you're still viewing the document (i.e. you didn't switch to another buffer)
|
||
;; you're queried for the regexp then.
|
||
;;
|
||
;; Dired users can simply hit `v' on a document file. If it's a PS, PDF or DVI
|
||
;; it will be opened using `doc-view-mode'.
|
||
;;
|
||
|
||
;;; Configuration:
|
||
|
||
;; If the images are too small or too big you should set the "-rXXX" option in
|
||
;; `doc-view-ghostscript-options' to another value. (The bigger your screen,
|
||
;; the higher the value.)
|
||
;;
|
||
;; This and all other options can be set with the customization interface.
|
||
;; Simply do
|
||
;;
|
||
;; M-x customize-group RET doc-view RET
|
||
;;
|
||
;; and modify them to your needs.
|
||
|
||
;;; Todo:
|
||
|
||
;; - add print command.
|
||
;; - share more code with image-mode.
|
||
;; - better menu.
|
||
;; - Bind slicing to a drag event.
|
||
;; - zoom the region around the cursor (like xdvi).
|
||
;; - get rid of the silly arrow in the fringe.
|
||
;; - improve anti-aliasing (pdf-utils gets it better).
|
||
|
||
;;;; About isearch support
|
||
|
||
;; I tried implementing isearch by setting
|
||
;; `isearch-search-fun-function' buffer-locally, but that didn't
|
||
;; work too good. The function doing the real search was called
|
||
;; endlessly somehow. But even if we'd get that working no real
|
||
;; isearch feeling comes up due to the missing match highlighting.
|
||
;; Currently I display all lines containing a match in a tooltip and
|
||
;; each C-s or C-r jumps directly to the next/previous page with a
|
||
;; match. With isearch we could only display the current match. So
|
||
;; we had to decide if another C-s jumps to the next page with a
|
||
;; match (thus only the first match in a page will be displayed in a
|
||
;; tooltip) or to the next match, which would do nothing visible
|
||
;; (except the tooltip) if the next match is on the same page.
|
||
|
||
;; And it's much slower than the current search facility, because
|
||
;; isearch really searches for each step forward or backward whereas
|
||
;; the current approach searches once and then it knows to which
|
||
;; pages to jump.
|
||
|
||
;; Anyway, if someone with better isearch knowledge wants to give it a try,
|
||
;; feel free to do it. --Tassilo
|
||
|
||
;;; Code:
|
||
|
||
(eval-when-compile (require 'cl-lib))
|
||
(require 'dired)
|
||
(require 'image-mode)
|
||
(require 'jka-compr)
|
||
|
||
;;;; Customization Options
|
||
|
||
(defgroup doc-view nil
|
||
"In-buffer viewer for PDF, PostScript, DVI, and DJVU files."
|
||
:link '(function-link doc-view)
|
||
:version "22.2"
|
||
:group 'applications
|
||
:group 'data
|
||
:group 'multimedia
|
||
:prefix "doc-view-")
|
||
|
||
(defcustom doc-view-ghostscript-program "gs"
|
||
"Program to convert PS and PDF files to PNG."
|
||
:type 'file
|
||
:group 'doc-view)
|
||
|
||
(defcustom doc-view-pdfdraw-program
|
||
(cond
|
||
((executable-find "pdfdraw") "pdfdraw")
|
||
(t "mudraw"))
|
||
"Name of MuPDF's program to convert PDF files to PNG."
|
||
:type 'file
|
||
:version "24.4")
|
||
|
||
(defcustom doc-view-pdf->png-converter-function
|
||
(if (executable-find doc-view-pdfdraw-program)
|
||
#'doc-view-pdf->png-converter-mupdf
|
||
#'doc-view-pdf->png-converter-ghostscript)
|
||
"Function to call to convert a PDF file into a PNG file."
|
||
:type '(radio
|
||
(function-item doc-view-pdf->png-converter-ghostscript
|
||
:doc "Use ghostscript")
|
||
(function-item doc-view-pdf->png-converter-mupdf
|
||
:doc "Use mupdf")
|
||
function)
|
||
:version "24.4")
|
||
|
||
(defcustom doc-view-ghostscript-options
|
||
'("-dSAFER" ;; Avoid security problems when rendering files from untrusted
|
||
;; sources.
|
||
"-dNOPAUSE" "-sDEVICE=png16m" "-dTextAlphaBits=4"
|
||
"-dBATCH" "-dGraphicsAlphaBits=4" "-dQUIET")
|
||
"A list of options to give to ghostscript."
|
||
:type '(repeat string)
|
||
:group 'doc-view)
|
||
|
||
(defcustom doc-view-resolution 100
|
||
"Dots per inch resolution used to render the documents.
|
||
Higher values result in larger images."
|
||
:type 'number
|
||
:group 'doc-view)
|
||
|
||
(defcustom doc-view-scale-internally t
|
||
"Whether we should try to rescale images ourselves.
|
||
If nil, the document is re-rendered every time the scaling factor is modified.
|
||
This only has an effect if the image libraries linked with Emacs support
|
||
scaling."
|
||
:type 'boolean)
|
||
|
||
(defcustom doc-view-image-width 850
|
||
"Default image width.
|
||
Has only an effect if `doc-view-scale-internally' is non-nil and support for
|
||
scaling is compiled into emacs."
|
||
:version "24.1"
|
||
:type 'number
|
||
:group 'doc-view)
|
||
|
||
(defcustom doc-view-dvipdfm-program "dvipdfm"
|
||
"Program to convert DVI files to PDF.
|
||
|
||
DVI file will be converted to PDF before the resulting PDF is
|
||
converted to PNG.
|
||
|
||
If this and `doc-view-dvipdf-program' are set,
|
||
`doc-view-dvipdf-program' will be preferred."
|
||
:type 'file
|
||
:group 'doc-view)
|
||
|
||
(defcustom doc-view-dvipdf-program "dvipdf"
|
||
"Program to convert DVI files to PDF.
|
||
|
||
DVI file will be converted to PDF before the resulting PDF is
|
||
converted to PNG.
|
||
|
||
If this and `doc-view-dvipdfm-program' are set,
|
||
`doc-view-dvipdf-program' will be preferred."
|
||
:type 'file
|
||
:group 'doc-view)
|
||
|
||
(define-obsolete-variable-alias 'doc-view-unoconv-program
|
||
'doc-view-odf->pdf-converter-program
|
||
"24.4")
|
||
|
||
(defcustom doc-view-odf->pdf-converter-program
|
||
(cond
|
||
((executable-find "soffice") "soffice")
|
||
((executable-find "unoconv") "unoconv")
|
||
(t "soffice"))
|
||
"Program to convert any file type readable by OpenOffice.org to PDF.
|
||
|
||
Needed for viewing OpenOffice.org (and MS Office) files."
|
||
:version "24.4"
|
||
:type 'file
|
||
:group 'doc-view)
|
||
|
||
(defcustom doc-view-odf->pdf-converter-function
|
||
(cond
|
||
((string-match "unoconv\\'" doc-view-odf->pdf-converter-program)
|
||
#'doc-view-odf->pdf-converter-unoconv)
|
||
((string-match "soffice\\'" doc-view-odf->pdf-converter-program)
|
||
#'doc-view-odf->pdf-converter-soffice))
|
||
"Function to call to convert a ODF file into a PDF file."
|
||
:type '(radio
|
||
(function-item doc-view-odf->pdf-converter-unoconv
|
||
:doc "Use unoconv")
|
||
(function-item doc-view-odf->pdf-converter-soffice
|
||
:doc "Use LibreOffice")
|
||
function)
|
||
:version "24.4")
|
||
|
||
(defcustom doc-view-ps2pdf-program "ps2pdf"
|
||
"Program to convert PS files to PDF.
|
||
|
||
PS files will be converted to PDF before searching is possible."
|
||
:type 'file
|
||
:group 'doc-view)
|
||
|
||
(defcustom doc-view-pdftotext-program "pdftotext"
|
||
"Program to convert PDF files to plain text.
|
||
|
||
Needed for searching."
|
||
:type 'file
|
||
:group 'doc-view)
|
||
|
||
(defcustom doc-view-cache-directory
|
||
(expand-file-name (format "docview%d" (user-uid))
|
||
temporary-file-directory)
|
||
"The base directory, where the PNG images will be saved."
|
||
:type 'directory
|
||
:group 'doc-view)
|
||
|
||
(defvar doc-view-conversion-buffer " *doc-view conversion output*"
|
||
"The buffer where messages from the converter programs go to.")
|
||
|
||
(defcustom doc-view-conversion-refresh-interval 1
|
||
"Interval in seconds between refreshes of the DocView buffer while converting.
|
||
After such a refresh newly converted pages will be available for
|
||
viewing. If set to nil there won't be any refreshes and the
|
||
pages won't be displayed before conversion of the whole document
|
||
has finished."
|
||
:type 'integer
|
||
:group 'doc-view)
|
||
|
||
(defcustom doc-view-continuous nil
|
||
"In Continuous mode reaching the page edge advances to next/previous page.
|
||
When non-nil, scrolling a line upward at the bottom edge of the page
|
||
moves to the next page, and scrolling a line downward at the top edge
|
||
of the page moves to the previous page."
|
||
:type 'boolean
|
||
:group 'doc-view
|
||
:version "23.2")
|
||
|
||
;;;; Internal Variables
|
||
|
||
(defun doc-view-new-window-function (winprops)
|
||
;; (message "New window %s for buf %s" (car winprops) (current-buffer))
|
||
(cl-assert (or (eq t (car winprops))
|
||
(eq (window-buffer (car winprops)) (current-buffer))))
|
||
(let ((ol (image-mode-window-get 'overlay winprops)))
|
||
(if ol
|
||
(progn
|
||
(setq ol (copy-overlay ol))
|
||
;; `ol' might actually be dead.
|
||
(move-overlay ol (point-min) (point-max)))
|
||
(setq ol (make-overlay (point-min) (point-max) nil t))
|
||
(overlay-put ol 'doc-view t))
|
||
(overlay-put ol 'window (car winprops))
|
||
(unless (windowp (car winprops))
|
||
;; It's a pseudo entry. Let's make sure it's not displayed (the
|
||
;; `window' property is only effective if its value is a window).
|
||
(cl-assert (eq t (car winprops)))
|
||
(delete-overlay ol))
|
||
(image-mode-window-put 'overlay ol winprops)))
|
||
|
||
(defvar doc-view-current-files nil
|
||
"Only used internally.")
|
||
(make-variable-buffer-local 'doc-view-current-files)
|
||
|
||
(defvar doc-view-current-converter-processes nil
|
||
"Only used internally.")
|
||
(make-variable-buffer-local 'doc-view-current-converter-processes)
|
||
|
||
(defvar doc-view-current-timer nil
|
||
"Only used internally.")
|
||
(make-variable-buffer-local 'doc-view-current-timer)
|
||
|
||
(defvar doc-view-current-cache-dir nil
|
||
"Only used internally.")
|
||
(make-variable-buffer-local 'doc-view-current-cache-dir)
|
||
|
||
(defvar doc-view-current-search-matches nil
|
||
"Only used internally.")
|
||
(make-variable-buffer-local 'doc-view-current-search-matches)
|
||
|
||
(defvar doc-view-pending-cache-flush nil
|
||
"Only used internally.")
|
||
|
||
(defvar doc-view-previous-major-mode nil
|
||
"Only used internally.")
|
||
|
||
(defvar doc-view-buffer-file-name nil
|
||
"Only used internally.
|
||
The file name used for conversion. Normally it's the same as
|
||
`buffer-file-name', but for remote files, compressed files and
|
||
files inside an archive it is a temporary copy of
|
||
the (uncompressed, extracted) file residing in
|
||
`doc-view-cache-directory'.")
|
||
|
||
(defvar doc-view-doc-type nil
|
||
"The type of document in the current buffer.
|
||
Can be `dvi', `pdf', or `ps'.")
|
||
|
||
(defvar doc-view-single-page-converter-function nil
|
||
"Function to call to convert a single page of the document to a bitmap file.
|
||
May operate on the source document or on some intermediate (typically PDF)
|
||
conversion of it.")
|
||
|
||
(defvar-local doc-view--image-type nil
|
||
"The type of image in the current buffer.
|
||
Can be `png' or `tiff'.")
|
||
|
||
(defvar-local doc-view--image-file-pattern nil
|
||
"The `format' pattern of image file names.
|
||
Typically \"page-%s.png\".")
|
||
|
||
;;;; DocView Keymaps
|
||
|
||
(defvar doc-view-mode-map
|
||
(let ((map (make-sparse-keymap)))
|
||
(set-keymap-parent map image-mode-map)
|
||
;; Navigation in the document
|
||
(define-key map (kbd "n") 'doc-view-next-page)
|
||
(define-key map (kbd "p") 'doc-view-previous-page)
|
||
(define-key map (kbd "<next>") 'forward-page)
|
||
(define-key map (kbd "<prior>") 'backward-page)
|
||
(define-key map [remap forward-page] 'doc-view-next-page)
|
||
(define-key map [remap backward-page] 'doc-view-previous-page)
|
||
(define-key map (kbd "SPC") 'doc-view-scroll-up-or-next-page)
|
||
(define-key map (kbd "S-SPC") 'doc-view-scroll-down-or-previous-page)
|
||
(define-key map (kbd "DEL") 'doc-view-scroll-down-or-previous-page)
|
||
(define-key map (kbd "C-n") 'doc-view-next-line-or-next-page)
|
||
(define-key map (kbd "<down>") 'doc-view-next-line-or-next-page)
|
||
(define-key map (kbd "C-p") 'doc-view-previous-line-or-previous-page)
|
||
(define-key map (kbd "<up>") 'doc-view-previous-line-or-previous-page)
|
||
(define-key map (kbd "M-<") 'doc-view-first-page)
|
||
(define-key map (kbd "M->") 'doc-view-last-page)
|
||
(define-key map [remap goto-line] 'doc-view-goto-page)
|
||
(define-key map (kbd "RET") 'image-next-line)
|
||
;; Zoom in/out.
|
||
(define-key map "+" 'doc-view-enlarge)
|
||
(define-key map "-" 'doc-view-shrink)
|
||
;; Fit the image to the window
|
||
(define-key map "W" 'doc-view-fit-width-to-window)
|
||
(define-key map "H" 'doc-view-fit-height-to-window)
|
||
(define-key map "P" 'doc-view-fit-page-to-window)
|
||
;; Killing the buffer (and the process)
|
||
(define-key map (kbd "k") 'doc-view-kill-proc-and-buffer)
|
||
(define-key map (kbd "K") 'doc-view-kill-proc)
|
||
;; Slicing the image
|
||
(define-key map (kbd "s s") 'doc-view-set-slice)
|
||
(define-key map (kbd "s m") 'doc-view-set-slice-using-mouse)
|
||
(define-key map (kbd "s b") 'doc-view-set-slice-from-bounding-box)
|
||
(define-key map (kbd "s r") 'doc-view-reset-slice)
|
||
;; Searching
|
||
(define-key map (kbd "C-s") 'doc-view-search)
|
||
(define-key map (kbd "<find>") 'doc-view-search)
|
||
(define-key map (kbd "C-r") 'doc-view-search-backward)
|
||
;; Show the tooltip
|
||
(define-key map (kbd "C-t") 'doc-view-show-tooltip)
|
||
;; Toggle between text and image display or editing
|
||
(define-key map (kbd "C-c C-c") 'doc-view-toggle-display)
|
||
;; Open a new buffer with doc's text contents
|
||
(define-key map (kbd "C-c C-t") 'doc-view-open-text)
|
||
;; Reconvert the current document. Don't just use revert-buffer
|
||
;; because that resets the scale factor, the page number, ...
|
||
(define-key map (kbd "g") 'doc-view-revert-buffer)
|
||
(define-key map (kbd "r") 'doc-view-revert-buffer)
|
||
map)
|
||
"Keymap used by `doc-view-mode' when displaying a doc as a set of images.")
|
||
|
||
(defun doc-view-revert-buffer (&optional ignore-auto noconfirm)
|
||
"Like `revert-buffer', but preserves the buffer's current modes."
|
||
;; FIXME: this should probably be moved to files.el and used for
|
||
;; most/all "g" bindings to revert-buffer.
|
||
(interactive (list (not current-prefix-arg)))
|
||
(revert-buffer ignore-auto noconfirm 'preserve-modes))
|
||
|
||
|
||
(easy-menu-define doc-view-menu doc-view-mode-map
|
||
"Menu for Doc View mode."
|
||
'("DocView"
|
||
["Toggle display" doc-view-toggle-display]
|
||
("Continuous"
|
||
["Off" (setq doc-view-continuous nil)
|
||
:style radio :selected (eq doc-view-continuous nil)]
|
||
["On" (setq doc-view-continuous t)
|
||
:style radio :selected (eq doc-view-continuous t)]
|
||
"---"
|
||
["Save as Default"
|
||
(customize-save-variable 'doc-view-continuous doc-view-continuous) t]
|
||
)
|
||
"---"
|
||
["Set Slice" doc-view-set-slice-using-mouse]
|
||
["Set Slice (BoundingBox)" doc-view-set-slice-from-bounding-box]
|
||
["Set Slice (manual)" doc-view-set-slice]
|
||
["Reset Slice" doc-view-reset-slice]
|
||
"---"
|
||
["Search" doc-view-search]
|
||
["Search Backwards" doc-view-search-backward]
|
||
))
|
||
|
||
(defvar doc-view-minor-mode-map
|
||
(let ((map (make-sparse-keymap)))
|
||
;; Toggle between text and image display or editing
|
||
(define-key map (kbd "C-c C-c") 'doc-view-toggle-display)
|
||
map)
|
||
"Keymap used by `doc-minor-view-mode'.")
|
||
|
||
;;;; Navigation Commands
|
||
|
||
(defmacro doc-view-current-page (&optional win)
|
||
`(image-mode-window-get 'page ,win))
|
||
(defmacro doc-view-current-info () `(image-mode-window-get 'info))
|
||
(defmacro doc-view-current-overlay () `(image-mode-window-get 'overlay))
|
||
(defmacro doc-view-current-image () `(image-mode-window-get 'image))
|
||
(defmacro doc-view-current-slice () `(image-mode-window-get 'slice))
|
||
|
||
(defun doc-view-last-page-number ()
|
||
(length doc-view-current-files))
|
||
|
||
(defun doc-view-goto-page (page)
|
||
"View the page given by PAGE."
|
||
(interactive "nPage: ")
|
||
(let ((len (doc-view-last-page-number)))
|
||
(if (< page 1)
|
||
(setq page 1)
|
||
(when (and (> page len)
|
||
;; As long as the converter is running, we don't know
|
||
;; how many pages will be available.
|
||
(null doc-view-current-converter-processes))
|
||
(setq page len)))
|
||
(setf (doc-view-current-page) page
|
||
(doc-view-current-info)
|
||
(concat
|
||
(propertize
|
||
(format "Page %d of %d." page len) 'face 'bold)
|
||
;; Tell user if converting isn't finished yet
|
||
(if doc-view-current-converter-processes
|
||
" (still converting...)\n"
|
||
"\n")
|
||
;; Display context infos if this page matches the last search
|
||
(when (and doc-view-current-search-matches
|
||
(assq page doc-view-current-search-matches))
|
||
(concat (propertize "Search matches:\n" 'face 'bold)
|
||
(let ((contexts ""))
|
||
(dolist (m (cdr (assq page
|
||
doc-view-current-search-matches)))
|
||
(setq contexts (concat contexts " - \"" m "\"\n")))
|
||
contexts)))))
|
||
;; Update the buffer
|
||
;; We used to find the file name from doc-view-current-files but
|
||
;; that's not right if the pages are not generated sequentially
|
||
;; or if the page isn't in doc-view-current-files yet.
|
||
(let ((file (expand-file-name
|
||
(format doc-view--image-file-pattern page)
|
||
(doc-view-current-cache-dir))))
|
||
(doc-view-insert-image file :pointer 'arrow)
|
||
(when (and (not (file-exists-p file))
|
||
doc-view-current-converter-processes)
|
||
;; The PNG file hasn't been generated yet.
|
||
(funcall doc-view-single-page-converter-function
|
||
doc-view-buffer-file-name file page
|
||
(let ((win (selected-window)))
|
||
(lambda ()
|
||
(and (eq (current-buffer) (window-buffer win))
|
||
;; If we changed page in the mean
|
||
;; time, don't mess things up.
|
||
(eq (doc-view-current-page win) page)
|
||
;; Make sure we don't infloop.
|
||
(file-readable-p file)
|
||
(with-selected-window win
|
||
(doc-view-goto-page page))))))))
|
||
(overlay-put (doc-view-current-overlay)
|
||
'help-echo (doc-view-current-info))))
|
||
|
||
(defun doc-view-next-page (&optional arg)
|
||
"Browse ARG pages forward."
|
||
(interactive "p")
|
||
(doc-view-goto-page (+ (doc-view-current-page) (or arg 1))))
|
||
|
||
(defun doc-view-previous-page (&optional arg)
|
||
"Browse ARG pages backward."
|
||
(interactive "p")
|
||
(doc-view-goto-page (- (doc-view-current-page) (or arg 1))))
|
||
|
||
(defun doc-view-first-page ()
|
||
"View the first page."
|
||
(interactive)
|
||
(doc-view-goto-page 1))
|
||
|
||
(defun doc-view-last-page ()
|
||
"View the last page."
|
||
(interactive)
|
||
(doc-view-goto-page (doc-view-last-page-number)))
|
||
|
||
(defun doc-view-scroll-up-or-next-page (&optional arg)
|
||
"Scroll page up ARG lines if possible, else goto next page.
|
||
When `doc-view-continuous' is non-nil, scrolling upward
|
||
at the bottom edge of the page moves to the next page.
|
||
Otherwise, goto next page only on typing SPC (ARG is nil)."
|
||
(interactive "P")
|
||
(if (or doc-view-continuous (null arg))
|
||
(let ((hscroll (window-hscroll))
|
||
(cur-page (doc-view-current-page)))
|
||
(when (= (window-vscroll) (image-scroll-up arg))
|
||
(doc-view-next-page)
|
||
(when (/= cur-page (doc-view-current-page))
|
||
(image-bob)
|
||
(image-bol 1))
|
||
(set-window-hscroll (selected-window) hscroll)))
|
||
(image-scroll-up arg)))
|
||
|
||
(defun doc-view-scroll-down-or-previous-page (&optional arg)
|
||
"Scroll page down ARG lines if possible, else goto previous page.
|
||
When `doc-view-continuous' is non-nil, scrolling downward
|
||
at the top edge of the page moves to the previous page.
|
||
Otherwise, goto previous page only on typing DEL (ARG is nil)."
|
||
(interactive "P")
|
||
(if (or doc-view-continuous (null arg))
|
||
(let ((hscroll (window-hscroll))
|
||
(cur-page (doc-view-current-page)))
|
||
(when (= (window-vscroll) (image-scroll-down arg))
|
||
(doc-view-previous-page)
|
||
(when (/= cur-page (doc-view-current-page))
|
||
(image-eob)
|
||
(image-bol 1))
|
||
(set-window-hscroll (selected-window) hscroll)))
|
||
(image-scroll-down arg)))
|
||
|
||
(defun doc-view-next-line-or-next-page (&optional arg)
|
||
"Scroll upward by ARG lines if possible, else goto next page.
|
||
When `doc-view-continuous' is non-nil, scrolling a line upward
|
||
at the bottom edge of the page moves to the next page."
|
||
(interactive "p")
|
||
(if doc-view-continuous
|
||
(let ((hscroll (window-hscroll))
|
||
(cur-page (doc-view-current-page)))
|
||
(when (= (window-vscroll) (image-next-line arg))
|
||
(doc-view-next-page)
|
||
(when (/= cur-page (doc-view-current-page))
|
||
(image-bob)
|
||
(image-bol 1))
|
||
(set-window-hscroll (selected-window) hscroll)))
|
||
(image-next-line 1)))
|
||
|
||
(defun doc-view-previous-line-or-previous-page (&optional arg)
|
||
"Scroll downward by ARG lines if possible, else goto previous page.
|
||
When `doc-view-continuous' is non-nil, scrolling a line downward
|
||
at the top edge of the page moves to the previous page."
|
||
(interactive "p")
|
||
(if doc-view-continuous
|
||
(let ((hscroll (window-hscroll))
|
||
(cur-page (doc-view-current-page)))
|
||
(when (= (window-vscroll) (image-previous-line arg))
|
||
(doc-view-previous-page)
|
||
(when (/= cur-page (doc-view-current-page))
|
||
(image-eob)
|
||
(image-bol 1))
|
||
(set-window-hscroll (selected-window) hscroll)))
|
||
(image-previous-line arg)))
|
||
|
||
;;;; Utility Functions
|
||
|
||
(defun doc-view-kill-proc ()
|
||
"Kill the current converter process(es)."
|
||
(interactive)
|
||
(while (consp doc-view-current-converter-processes)
|
||
(ignore-errors ;; Some entries might not be processes, and maybe
|
||
;; some are dead already?
|
||
(kill-process (pop doc-view-current-converter-processes))))
|
||
(when doc-view-current-timer
|
||
(cancel-timer doc-view-current-timer)
|
||
(setq doc-view-current-timer nil))
|
||
(setq mode-line-process nil))
|
||
|
||
(defun doc-view-kill-proc-and-buffer ()
|
||
"Kill the current converter process and buffer."
|
||
(interactive)
|
||
(doc-view-kill-proc)
|
||
(when (eq major-mode 'doc-view-mode)
|
||
(kill-buffer (current-buffer))))
|
||
|
||
(defun doc-view-make-safe-dir (dir)
|
||
(condition-case nil
|
||
(let ((umask (default-file-modes)))
|
||
(unwind-protect
|
||
(progn
|
||
;; Create temp files with strict access rights. It's easy to
|
||
;; loosen them later, whereas it's impossible to close the
|
||
;; time-window of loose permissions otherwise.
|
||
(set-default-file-modes #o0700)
|
||
(make-directory dir))
|
||
;; Reset the umask.
|
||
(set-default-file-modes umask)))
|
||
(file-already-exists
|
||
(when (file-symlink-p dir)
|
||
(error "Danger: %s points to a symbolic link" dir))
|
||
;; In case it was created earlier with looser rights.
|
||
;; We could check the mode info returned by file-attributes, but it's
|
||
;; a pain to parse and it may not tell you what we want under
|
||
;; non-standard file-systems. So let's just say what we want and let
|
||
;; the underlying C code and file-system figure it out.
|
||
;; This also ends up checking a bunch of useful conditions: it makes
|
||
;; sure we have write-access to the directory and that we own it, thus
|
||
;; closing a bunch of security holes.
|
||
(condition-case error
|
||
(set-file-modes dir #o0700)
|
||
(file-error
|
||
(error
|
||
(format "Unable to use temporary directory %s: %s"
|
||
dir (mapconcat 'identity (cdr error) " "))))))))
|
||
|
||
(defun doc-view-current-cache-dir ()
|
||
"Return the directory where the png files of the current doc should be saved.
|
||
It's a subdirectory of `doc-view-cache-directory'."
|
||
(if doc-view-current-cache-dir
|
||
doc-view-current-cache-dir
|
||
;; Try and make sure doc-view-cache-directory exists and is safe.
|
||
(doc-view-make-safe-dir doc-view-cache-directory)
|
||
;; Now compute the subdirectory to use.
|
||
(setq doc-view-current-cache-dir
|
||
(file-name-as-directory
|
||
(expand-file-name
|
||
(concat (subst-char-in-string ?% ?_ ;; bug#13679
|
||
(file-name-nondirectory doc-view-buffer-file-name))
|
||
"-"
|
||
(let ((file doc-view-buffer-file-name))
|
||
(with-temp-buffer
|
||
(set-buffer-multibyte nil)
|
||
(insert-file-contents-literally file)
|
||
(md5 (current-buffer)))))
|
||
doc-view-cache-directory)))))
|
||
|
||
(defun doc-view-remove-if (predicate list)
|
||
"Return LIST with all items removed that satisfy PREDICATE."
|
||
(let (new-list)
|
||
(dolist (item list)
|
||
(when (not (funcall predicate item))
|
||
(setq new-list (cons item new-list))))
|
||
(nreverse new-list)))
|
||
|
||
;;;###autoload
|
||
(defun doc-view-mode-p (type)
|
||
"Return non-nil if document type TYPE is available for `doc-view'.
|
||
Document types are symbols like `dvi', `ps', `pdf', or `odf' (any
|
||
OpenDocument format)."
|
||
(and (display-graphic-p)
|
||
(or (image-type-available-p 'imagemagick)
|
||
(image-type-available-p 'png))
|
||
(cond
|
||
((eq type 'dvi)
|
||
(and (doc-view-mode-p 'pdf)
|
||
(or (and doc-view-dvipdf-program
|
||
(executable-find doc-view-dvipdf-program))
|
||
(and doc-view-dvipdfm-program
|
||
(executable-find doc-view-dvipdfm-program)))))
|
||
((memq type '(postscript ps eps pdf))
|
||
;; FIXME: allow mupdf here
|
||
(and doc-view-ghostscript-program
|
||
(executable-find doc-view-ghostscript-program)))
|
||
((eq type 'odf)
|
||
(and doc-view-odf->pdf-converter-program
|
||
(executable-find doc-view-odf->pdf-converter-program)
|
||
(doc-view-mode-p 'pdf)))
|
||
((eq type 'djvu)
|
||
(executable-find "ddjvu"))
|
||
(t ;; unknown image type
|
||
nil))))
|
||
|
||
;;;; Conversion Functions
|
||
|
||
(defvar doc-view-shrink-factor 1.125)
|
||
|
||
(defun doc-view-enlarge (factor)
|
||
"Enlarge the document by FACTOR."
|
||
(interactive (list doc-view-shrink-factor))
|
||
(if (and doc-view-scale-internally
|
||
(eq (plist-get (cdr (doc-view-current-image)) :type)
|
||
'imagemagick))
|
||
;; ImageMagick supports on-the-fly-rescaling.
|
||
(let ((new (ceiling (* factor doc-view-image-width))))
|
||
(unless (equal new doc-view-image-width)
|
||
(setq-local doc-view-image-width new)
|
||
(doc-view-insert-image
|
||
(plist-get (cdr (doc-view-current-image)) :file)
|
||
:width doc-view-image-width)))
|
||
(let ((new (ceiling (* factor doc-view-resolution))))
|
||
(unless (equal new doc-view-resolution)
|
||
(setq-local doc-view-resolution new)
|
||
(doc-view-reconvert-doc)))))
|
||
|
||
(defun doc-view-shrink (factor)
|
||
"Shrink the document."
|
||
(interactive (list doc-view-shrink-factor))
|
||
(doc-view-enlarge (/ 1.0 factor)))
|
||
|
||
(defun doc-view-fit-width-to-window ()
|
||
"Fit the image width to the window width."
|
||
(interactive)
|
||
(let ((win-width (- (nth 2 (window-inside-pixel-edges))
|
||
(nth 0 (window-inside-pixel-edges))))
|
||
(slice (doc-view-current-slice)))
|
||
(if (not slice)
|
||
(let ((img-width (car (image-display-size
|
||
(image-get-display-property) t))))
|
||
(doc-view-enlarge (/ (float win-width) (float img-width))))
|
||
|
||
;; If slice is set
|
||
(let* ((slice-width (nth 2 slice))
|
||
(scale-factor (/ (float win-width) (float slice-width)))
|
||
(new-slice (mapcar (lambda (x) (ceiling (* scale-factor x))) slice)))
|
||
|
||
(doc-view-enlarge scale-factor)
|
||
(setf (doc-view-current-slice) new-slice)
|
||
(doc-view-goto-page (doc-view-current-page))))))
|
||
|
||
(defun doc-view-fit-height-to-window ()
|
||
"Fit the image height to the window height."
|
||
(interactive)
|
||
(let ((win-height (- (nth 3 (window-inside-pixel-edges))
|
||
(nth 1 (window-inside-pixel-edges))))
|
||
(slice (doc-view-current-slice)))
|
||
(if (not slice)
|
||
(let ((img-height (cdr (image-display-size
|
||
(image-get-display-property) t))))
|
||
;; When users call 'doc-view-fit-height-to-window',
|
||
;; they might want to go to next page by typing SPC
|
||
;; ONLY once. So I used '(- win-height 1)' instead of
|
||
;; 'win-height'
|
||
(doc-view-enlarge (/ (float (- win-height 1)) (float img-height))))
|
||
|
||
;; If slice is set
|
||
(let* ((slice-height (nth 3 slice))
|
||
(scale-factor (/ (float (- win-height 1)) (float slice-height)))
|
||
(new-slice (mapcar (lambda (x) (ceiling (* scale-factor x))) slice)))
|
||
|
||
(doc-view-enlarge scale-factor)
|
||
(setf (doc-view-current-slice) new-slice)
|
||
(doc-view-goto-page (doc-view-current-page))))))
|
||
|
||
(defun doc-view-fit-page-to-window ()
|
||
"Fit the image to the window.
|
||
More specifically, this function enlarges image by:
|
||
|
||
min {(window-width / image-width), (window-height / image-height)} times."
|
||
(interactive)
|
||
(let ((win-width (- (nth 2 (window-inside-pixel-edges))
|
||
(nth 0 (window-inside-pixel-edges))))
|
||
(win-height (- (nth 3 (window-inside-pixel-edges))
|
||
(nth 1 (window-inside-pixel-edges))))
|
||
(slice (doc-view-current-slice)))
|
||
(if (not slice)
|
||
(let ((img-width (car (image-display-size
|
||
(image-get-display-property) t)))
|
||
(img-height (cdr (image-display-size
|
||
(image-get-display-property) t))))
|
||
(doc-view-enlarge (min (/ (float win-width) (float img-width))
|
||
(/ (float (- win-height 1))
|
||
(float img-height)))))
|
||
;; If slice is set
|
||
(let* ((slice-width (nth 2 slice))
|
||
(slice-height (nth 3 slice))
|
||
(scale-factor (min (/ (float win-width) (float slice-width))
|
||
(/ (float (- win-height 1))
|
||
(float slice-height))))
|
||
(new-slice (mapcar (lambda (x) (ceiling (* scale-factor x))) slice)))
|
||
(doc-view-enlarge scale-factor)
|
||
(setf (doc-view-current-slice) new-slice)
|
||
(doc-view-goto-page (doc-view-current-page))))))
|
||
|
||
(defun doc-view-reconvert-doc ()
|
||
"Reconvert the current document.
|
||
Should be invoked when the cached images aren't up-to-date."
|
||
(interactive)
|
||
(doc-view-kill-proc)
|
||
;; Clear the old cached files
|
||
(when (file-exists-p (doc-view-current-cache-dir))
|
||
(delete-directory (doc-view-current-cache-dir) 'recursive))
|
||
(kill-local-variable 'doc-view-last-page-number)
|
||
(doc-view-initiate-display))
|
||
|
||
(defun doc-view-sentinel (proc event)
|
||
"Generic sentinel for doc-view conversion processes."
|
||
(if (not (string-match "finished" event))
|
||
(message "DocView: process %s changed status to %s."
|
||
(process-name proc)
|
||
(if (string-match "\\(.+\\)\n?\\'" event)
|
||
(match-string 1 event)
|
||
event))
|
||
(when (buffer-live-p (process-get proc 'buffer))
|
||
(with-current-buffer (process-get proc 'buffer)
|
||
(setq doc-view-current-converter-processes
|
||
(delq proc doc-view-current-converter-processes))
|
||
(setq mode-line-process
|
||
(if doc-view-current-converter-processes
|
||
(format ":%s" (car doc-view-current-converter-processes))))
|
||
(funcall (process-get proc 'callback))))))
|
||
|
||
(defun doc-view-start-process (name program args callback)
|
||
;; Make sure the process is started in an existing directory, (rather than
|
||
;; some file-name-handler-managed dir, for example).
|
||
(let* ((default-directory (if (file-readable-p default-directory)
|
||
default-directory
|
||
(expand-file-name "~/")))
|
||
(proc (apply 'start-process name doc-view-conversion-buffer
|
||
program args)))
|
||
(push proc doc-view-current-converter-processes)
|
||
(setq mode-line-process (list (format ":%s" proc)))
|
||
(set-process-sentinel proc 'doc-view-sentinel)
|
||
(process-put proc 'buffer (current-buffer))
|
||
(process-put proc 'callback callback)))
|
||
|
||
(defun doc-view-dvi->pdf (dvi pdf callback)
|
||
"Convert DVI to PDF asynchronously and call CALLBACK when finished."
|
||
;; Prefer dvipdf over dvipdfm, because the latter has problems if the DVI
|
||
;; references and includes other PS files.
|
||
(if (and doc-view-dvipdf-program
|
||
(executable-find doc-view-dvipdf-program))
|
||
(doc-view-start-process "dvi->pdf" doc-view-dvipdf-program
|
||
(list dvi pdf)
|
||
callback)
|
||
(doc-view-start-process "dvi->pdf" doc-view-dvipdfm-program
|
||
(list "-o" pdf dvi)
|
||
callback)))
|
||
|
||
(defun doc-view-pdf->png-converter-ghostscript (pdf png page callback)
|
||
(doc-view-start-process
|
||
"pdf/ps->png" doc-view-ghostscript-program
|
||
`(,@doc-view-ghostscript-options
|
||
,(format "-r%d" (round doc-view-resolution))
|
||
,@(if page `(,(format "-dFirstPage=%d" page)))
|
||
,@(if page `(,(format "-dLastPage=%d" page)))
|
||
,(concat "-sOutputFile=" png)
|
||
,pdf)
|
||
callback))
|
||
|
||
(defalias 'doc-view-ps->png-converter-ghostscript
|
||
'doc-view-pdf->png-converter-ghostscript)
|
||
|
||
(defun doc-view-djvu->tiff-converter-ddjvu (djvu tiff page callback)
|
||
"Convert PAGE of a DJVU file to bitmap(s) asynchronously.
|
||
Call CALLBACK with no arguments when done.
|
||
If PAGE is nil, convert the whole document."
|
||
(doc-view-start-process
|
||
"djvu->tiff" "ddjvu"
|
||
`("-format=tiff"
|
||
;; ddjvu only accepts the range 1-999.
|
||
,(format "-scale=%d" (round doc-view-resolution))
|
||
;; -eachpage was only added after djvulibre-3.5.25.3!
|
||
,@(unless page '("-eachpage"))
|
||
,@(if page `(,(format "-page=%d" page)))
|
||
,djvu
|
||
,tiff)
|
||
callback))
|
||
|
||
(defun doc-view-pdf->png-converter-mupdf (pdf png page callback)
|
||
(doc-view-start-process
|
||
"pdf->png" doc-view-pdfdraw-program
|
||
`(,(concat "-o" png)
|
||
,(format "-r%d" (round doc-view-resolution))
|
||
,pdf
|
||
,@(if page `(,(format "%d" page))))
|
||
callback))
|
||
|
||
(defun doc-view-odf->pdf-converter-unoconv (odf callback)
|
||
"Convert ODF to PDF asynchronously and call CALLBACK when finished.
|
||
The converted PDF is put into the current cache directory, and it
|
||
is named like ODF with the extension turned to pdf."
|
||
(doc-view-start-process "odf->pdf" doc-view-odf->pdf-converter-program
|
||
(list "-f" "pdf" "-o" (doc-view-current-cache-dir) odf)
|
||
callback))
|
||
|
||
(defun doc-view-odf->pdf-converter-soffice (odf callback)
|
||
"Convert ODF to PDF asynchronously and call CALLBACK when finished.
|
||
The converted PDF is put into the current cache directory, and it
|
||
is named like ODF with the extension turned to pdf."
|
||
;; FIXME: soffice doesn't work when there's another running
|
||
;; LibreOffice instance, in which case it returns success without
|
||
;; actually doing anything. See LibreOffice bug
|
||
;; https://bugs.freedesktop.org/show_bug.cgi?id=37531. A workaround
|
||
;; is to start soffice with a separate UserInstallation directory.
|
||
(let ((tmp-user-install-dir (make-temp-file "libreoffice-docview" t)))
|
||
(doc-view-start-process "odf->pdf" doc-view-odf->pdf-converter-program
|
||
(list
|
||
(concat "-env:UserInstallation=file://"
|
||
tmp-user-install-dir)
|
||
"--headless" "--convert-to" "pdf"
|
||
"--outdir" (doc-view-current-cache-dir) odf)
|
||
(lambda ()
|
||
(delete-directory tmp-user-install-dir t)
|
||
(funcall callback)))))
|
||
|
||
(defun doc-view-pdf/ps->png (pdf-ps png)
|
||
;; FIXME: Fix name and docstring to account for djvu&tiff.
|
||
"Convert PDF-PS to PNG asynchronously."
|
||
(funcall
|
||
(pcase doc-view-doc-type
|
||
(`pdf doc-view-pdf->png-converter-function)
|
||
(`djvu #'doc-view-djvu->tiff-converter-ddjvu)
|
||
(_ #'doc-view-ps->png-converter-ghostscript))
|
||
pdf-ps png nil
|
||
(let ((resolution doc-view-resolution))
|
||
(lambda ()
|
||
;; Only create the resolution file when it's all done, so it also
|
||
;; serves as a witness that the conversion is complete.
|
||
(write-region (prin1-to-string resolution) nil
|
||
(expand-file-name "resolution.el"
|
||
(doc-view-current-cache-dir))
|
||
nil 'silently)
|
||
(when doc-view-current-timer
|
||
(cancel-timer doc-view-current-timer)
|
||
(setq doc-view-current-timer nil))
|
||
(doc-view-display (current-buffer) 'force))))
|
||
|
||
;; Update the displayed pages as soon as they're done generating.
|
||
(when doc-view-conversion-refresh-interval
|
||
(setq doc-view-current-timer
|
||
(run-at-time "1 secs" doc-view-conversion-refresh-interval
|
||
'doc-view-display
|
||
(current-buffer)))))
|
||
|
||
(declare-function clear-image-cache "image.c" (&optional filter))
|
||
|
||
(defun doc-view-document->bitmap (pdf png pages)
|
||
"Convert a document file to bitmap images asynchronously.
|
||
Start by converting PAGES, and then the rest."
|
||
(if (null pages)
|
||
(doc-view-pdf/ps->png pdf png)
|
||
;; We could render several `pages' with a single process if they're
|
||
;; (almost) consecutive, but since in 99% of the cases, there'll be only
|
||
;; a single page anyway, and of the remaining 1%, few cases will have
|
||
;; consecutive pages, it's not worth the trouble.
|
||
(let ((rest (cdr pages)))
|
||
(funcall doc-view-single-page-converter-function
|
||
pdf (format png (car pages)) (car pages)
|
||
(lambda ()
|
||
(if rest
|
||
(doc-view-document->bitmap pdf png rest)
|
||
;; Yippie, the important pages are done, update the display.
|
||
(clear-image-cache)
|
||
;; For the windows that have a message (like "Welcome to
|
||
;; DocView") display property, clearing the image cache is
|
||
;; not sufficient.
|
||
(dolist (win (get-buffer-window-list (current-buffer) nil 'visible))
|
||
(with-selected-window win
|
||
(when (stringp (get-char-property (point-min) 'display))
|
||
(doc-view-goto-page (doc-view-current-page)))))
|
||
;; Convert the rest of the pages.
|
||
(doc-view-pdf/ps->png pdf png)))))))
|
||
|
||
(defun doc-view-pdf->txt (pdf txt callback)
|
||
"Convert PDF to TXT asynchronously and call CALLBACK when finished."
|
||
(or (executable-find doc-view-pdftotext-program)
|
||
(error "You need the `pdftotext' program to convert a PDF to text"))
|
||
(doc-view-start-process "pdf->txt" doc-view-pdftotext-program
|
||
(list "-raw" pdf txt)
|
||
callback))
|
||
|
||
(defun doc-view-current-cache-doc-pdf ()
|
||
"Return the name of the doc.pdf in the current cache dir.
|
||
This file exists only if the current document isn't a PDF or PS file already."
|
||
(expand-file-name "doc.pdf" (doc-view-current-cache-dir)))
|
||
|
||
(defun doc-view-doc->txt (txt callback)
|
||
"Convert the current document to text and call CALLBACK when done."
|
||
(make-directory (doc-view-current-cache-dir) t)
|
||
(pcase doc-view-doc-type
|
||
(`pdf
|
||
;; Doc is a PDF, so convert it to TXT
|
||
(doc-view-pdf->txt doc-view-buffer-file-name txt callback))
|
||
(`ps
|
||
;; Doc is a PS, so convert it to PDF (which will be converted to
|
||
;; TXT thereafter).
|
||
(let ((pdf (doc-view-current-cache-doc-pdf)))
|
||
(doc-view-ps->pdf doc-view-buffer-file-name pdf
|
||
(lambda () (doc-view-pdf->txt pdf txt callback)))))
|
||
(`dvi
|
||
;; Doc is a DVI. This means that a doc.pdf already exists in its
|
||
;; cache subdirectory.
|
||
(doc-view-pdf->txt (doc-view-current-cache-doc-pdf) txt callback))
|
||
(`odf
|
||
;; Doc is some ODF (or MS Office) doc. This means that a doc.pdf
|
||
;; already exists in its cache subdirectory.
|
||
(doc-view-pdf->txt (doc-view-current-cache-doc-pdf) txt callback))
|
||
(_ (error "DocView doesn't know what to do"))))
|
||
|
||
(defun doc-view-ps->pdf (ps pdf callback)
|
||
"Convert PS to PDF asynchronously and call CALLBACK when finished."
|
||
(or (executable-find doc-view-ps2pdf-program)
|
||
(error "You need the `ps2pdf' program to convert PS to PDF"))
|
||
(doc-view-start-process "ps->pdf" doc-view-ps2pdf-program
|
||
(list
|
||
;; Avoid security problems when rendering files from
|
||
;; untrusted sources.
|
||
"-dSAFER"
|
||
;; in-file and out-file
|
||
ps pdf)
|
||
callback))
|
||
|
||
(defun doc-view-active-pages ()
|
||
(let ((pages ()))
|
||
(dolist (win (get-buffer-window-list (current-buffer) nil 'visible))
|
||
(let ((page (image-mode-window-get 'page win)))
|
||
(unless (memq page pages) (push page pages))))
|
||
pages))
|
||
|
||
(defun doc-view-convert-current-doc ()
|
||
"Convert `doc-view-buffer-file-name' to a set of png files, one file per page.
|
||
Those files are saved in the directory given by the function
|
||
`doc-view-current-cache-dir'."
|
||
;; Let stale files still display while we recompute the new ones, so only
|
||
;; flush the cache when the conversion is over. One of the reasons why it
|
||
;; is important to keep displaying the stale page is so that revert-buffer
|
||
;; preserves the horizontal/vertical scroll settings (which are otherwise
|
||
;; resets during the redisplay).
|
||
(setq doc-view-pending-cache-flush t)
|
||
(let ((png-file (expand-file-name
|
||
(format doc-view--image-file-pattern "%d")
|
||
(doc-view-current-cache-dir))))
|
||
(make-directory (doc-view-current-cache-dir) t)
|
||
(pcase doc-view-doc-type
|
||
(`dvi
|
||
;; DVI files have to be converted to PDF before Ghostscript can process
|
||
;; it.
|
||
(let ((pdf (doc-view-current-cache-doc-pdf)))
|
||
(doc-view-dvi->pdf doc-view-buffer-file-name pdf
|
||
(lambda () (doc-view-pdf/ps->png pdf png-file)))))
|
||
(`odf
|
||
;; ODF files have to be converted to PDF before Ghostscript can
|
||
;; process it.
|
||
(let ((pdf (doc-view-current-cache-doc-pdf))
|
||
(opdf (expand-file-name
|
||
(concat (file-name-base doc-view-buffer-file-name)
|
||
".pdf")
|
||
doc-view-current-cache-dir))
|
||
(png-file png-file))
|
||
;; The unoconv tool only supports an output directory, but no
|
||
;; file name. It's named like the input file with the
|
||
;; extension replaced by pdf.
|
||
(funcall doc-view-odf->pdf-converter-function doc-view-buffer-file-name
|
||
(lambda ()
|
||
;; Rename to doc.pdf
|
||
(rename-file opdf pdf)
|
||
(doc-view-pdf/ps->png pdf png-file)))))
|
||
((or `pdf `djvu)
|
||
(let ((pages (doc-view-active-pages)))
|
||
;; Convert doc to bitmap images starting with the active pages.
|
||
(doc-view-document->bitmap doc-view-buffer-file-name png-file pages)))
|
||
(_
|
||
;; Convert to PNG images.
|
||
(doc-view-pdf/ps->png doc-view-buffer-file-name png-file)))))
|
||
|
||
;;;; Slicing
|
||
|
||
(declare-function image-size "image.c" (spec &optional pixels frame))
|
||
|
||
(defun doc-view-set-slice (x y width height)
|
||
"Set the slice of the images that should be displayed.
|
||
You can use this function to tell doc-view not to display the
|
||
margins of the document. It prompts for the top-left corner (X
|
||
and Y) of the slice to display and its WIDTH and HEIGHT.
|
||
|
||
See `doc-view-set-slice-using-mouse' and
|
||
`doc-view-set-slice-from-bounding-box' for more convenient ways
|
||
to do that. To reset the slice use `doc-view-reset-slice'."
|
||
(interactive
|
||
(let* ((size (image-size (doc-view-current-image) t))
|
||
(a (read-number (format "Top-left X (0..%d): " (car size))))
|
||
(b (read-number (format "Top-left Y (0..%d): " (cdr size))))
|
||
(c (read-number (format "Width (0..%d): " (- (car size) a))))
|
||
(d (read-number (format "Height (0..%d): " (- (cdr size) b)))))
|
||
(list a b c d)))
|
||
(setf (doc-view-current-slice) (list x y width height))
|
||
;; Redisplay
|
||
(doc-view-goto-page (doc-view-current-page)))
|
||
|
||
(defun doc-view-set-slice-using-mouse ()
|
||
"Set the slice of the images that should be displayed.
|
||
You set the slice by pressing mouse-1 at its top-left corner and
|
||
dragging it to its bottom-right corner. See also
|
||
`doc-view-set-slice' and `doc-view-reset-slice'."
|
||
(interactive)
|
||
(let (x y w h done)
|
||
(while (not done)
|
||
(let ((e (read-event
|
||
(concat "Press mouse-1 at the top-left corner and "
|
||
"drag it to the bottom-right corner!"))))
|
||
(when (eq (car e) 'drag-mouse-1)
|
||
(setq x (car (posn-object-x-y (event-start e))))
|
||
(setq y (cdr (posn-object-x-y (event-start e))))
|
||
(setq w (- (car (posn-object-x-y (event-end e))) x))
|
||
(setq h (- (cdr (posn-object-x-y (event-end e))) y))
|
||
(setq done t))))
|
||
(doc-view-set-slice x y w h)))
|
||
|
||
(defun doc-view-get-bounding-box ()
|
||
"Get the BoundingBox information of the current page."
|
||
(let* ((page (doc-view-current-page))
|
||
(doc (let ((cache-doc (doc-view-current-cache-doc-pdf)))
|
||
(if (file-exists-p cache-doc)
|
||
cache-doc
|
||
doc-view-buffer-file-name)))
|
||
(o (shell-command-to-string
|
||
(concat doc-view-ghostscript-program
|
||
" -dSAFER -dBATCH -dNOPAUSE -q -sDEVICE=bbox "
|
||
(format "-dFirstPage=%s -dLastPage=%s %s"
|
||
page page doc)))))
|
||
(save-match-data
|
||
(when (string-match (concat "%%BoundingBox: "
|
||
"\\([[:digit:]]+\\) \\([[:digit:]]+\\) "
|
||
"\\([[:digit:]]+\\) \\([[:digit:]]+\\)") o)
|
||
(mapcar #'string-to-number
|
||
(list (match-string 1 o)
|
||
(match-string 2 o)
|
||
(match-string 3 o)
|
||
(match-string 4 o)))))))
|
||
|
||
(defvar doc-view-paper-sizes
|
||
'((a4 595 842)
|
||
(a4-landscape 842 595)
|
||
(letter 612 792)
|
||
(letter-landscape 792 612)
|
||
(legal 612 1008)
|
||
(legal-landscape 1008 612)
|
||
(a3 842 1191)
|
||
(a3-landscape 1191 842)
|
||
(tabloid 792 1224)
|
||
(ledger 1224 792))
|
||
"An alist from paper size names to dimensions.")
|
||
|
||
(defun doc-view-guess-paper-size (iw ih)
|
||
"Guess the paper size according to the aspect ratio."
|
||
(cl-labels ((div (x y)
|
||
(round (/ (* 100.0 x) y))))
|
||
(let ((ar (div iw ih))
|
||
(al (mapcar (lambda (l)
|
||
(list (div (nth 1 l) (nth 2 l)) (car l)))
|
||
doc-view-paper-sizes)))
|
||
(cadr (assoc ar al)))))
|
||
|
||
(defun doc-view-scale-bounding-box (ps iw ih bb)
|
||
(list (/ (* (nth 0 bb) iw) (nth 1 (assoc ps doc-view-paper-sizes)))
|
||
(/ (* (nth 1 bb) ih) (nth 2 (assoc ps doc-view-paper-sizes)))
|
||
(/ (* (nth 2 bb) iw) (nth 1 (assoc ps doc-view-paper-sizes)))
|
||
(/ (* (nth 3 bb) ih) (nth 2 (assoc ps doc-view-paper-sizes)))))
|
||
|
||
(defun doc-view-set-slice-from-bounding-box (&optional force-paper-size)
|
||
"Set the slice from the document's BoundingBox information.
|
||
The result is that the margins are almost completely cropped,
|
||
much more accurate than could be done manually using
|
||
`doc-view-set-slice-using-mouse'."
|
||
(interactive "P")
|
||
(let ((bb (doc-view-get-bounding-box)))
|
||
(if (not bb)
|
||
(message "BoundingBox couldn't be determined")
|
||
(let* ((is (image-size (doc-view-current-image) t))
|
||
(iw (car is))
|
||
(ih (cdr is))
|
||
(ps (or (and (null force-paper-size)
|
||
(doc-view-guess-paper-size iw ih))
|
||
(intern (completing-read "Paper size: "
|
||
doc-view-paper-sizes
|
||
nil t))))
|
||
(bb (doc-view-scale-bounding-box ps iw ih bb))
|
||
(x1 (nth 0 bb))
|
||
(y1 (nth 1 bb))
|
||
(x2 (nth 2 bb))
|
||
(y2 (nth 3 bb)))
|
||
;; We keep a 2 pixel margin.
|
||
(doc-view-set-slice (- x1 2) (- ih y2 2)
|
||
(+ (- x2 x1) 4) (+ (- y2 y1) 4))))))
|
||
|
||
(defun doc-view-reset-slice ()
|
||
"Reset the current slice.
|
||
After calling this function whole pages will be visible again."
|
||
(interactive)
|
||
(setf (doc-view-current-slice) nil)
|
||
;; Redisplay
|
||
(doc-view-goto-page (doc-view-current-page)))
|
||
|
||
;;;; Display
|
||
|
||
(defun doc-view-insert-image (file &rest args)
|
||
"Insert the given png FILE.
|
||
ARGS is a list of image descriptors."
|
||
(when doc-view-pending-cache-flush
|
||
(clear-image-cache)
|
||
(setq doc-view-pending-cache-flush nil))
|
||
(let ((ol (doc-view-current-overlay))
|
||
(image (if (and file (file-readable-p file))
|
||
(if (not (and doc-view-scale-internally
|
||
(fboundp 'imagemagick-types)))
|
||
(apply 'create-image file doc-view--image-type nil args)
|
||
(unless (member :width args)
|
||
(setq args `(,@args :width ,doc-view-image-width)))
|
||
(apply 'create-image file 'imagemagick nil args))))
|
||
(slice (doc-view-current-slice)))
|
||
(setf (doc-view-current-image) image)
|
||
(move-overlay ol (point-min) (point-max))
|
||
(overlay-put ol 'display
|
||
(cond
|
||
(image
|
||
(if slice
|
||
(list (cons 'slice slice) image)
|
||
image))
|
||
;; We're trying to display a page that doesn't exist.
|
||
(doc-view-current-converter-processes
|
||
;; Maybe the page doesn't exist *yet*.
|
||
"Cannot display this page (yet)!")
|
||
(t
|
||
;; Typically happens if the conversion process somehow
|
||
;; failed. Better not signal an error here because it
|
||
;; could prevent a subsequent reconversion from fixing
|
||
;; the problem.
|
||
(concat "Cannot display this page!\n"
|
||
"Maybe because of a conversion failure!"))))
|
||
(let ((win (overlay-get ol 'window)))
|
||
(if (stringp (overlay-get ol 'display))
|
||
(progn ;Make sure the text is not scrolled out of view.
|
||
(set-window-hscroll win 0)
|
||
(set-window-vscroll win 0))
|
||
(let ((hscroll (image-mode-window-get 'hscroll win))
|
||
(vscroll (image-mode-window-get 'vscroll win)))
|
||
;; Reset scroll settings, in case they were changed.
|
||
(if hscroll (set-window-hscroll win hscroll))
|
||
(if vscroll (set-window-vscroll win vscroll)))))))
|
||
|
||
(defun doc-view-sort (a b)
|
||
"Return non-nil if A should be sorted before B.
|
||
Predicate for sorting `doc-view-current-files'."
|
||
(or (< (length a) (length b))
|
||
(and (= (length a) (length b))
|
||
(string< a b))))
|
||
|
||
(defun doc-view-display (buffer &optional force)
|
||
"Start viewing the document in BUFFER.
|
||
If FORCE is non-nil, start viewing even if the document does not
|
||
have the page we want to view."
|
||
(with-current-buffer buffer
|
||
(let ((prev-pages doc-view-current-files))
|
||
(setq doc-view-current-files
|
||
(sort (directory-files (doc-view-current-cache-dir) t
|
||
(format doc-view--image-file-pattern
|
||
"[0-9]+")
|
||
t)
|
||
'doc-view-sort))
|
||
(unless (eq (length prev-pages) (length doc-view-current-files))
|
||
(force-mode-line-update))
|
||
(dolist (win (or (get-buffer-window-list buffer nil t)
|
||
(list t)))
|
||
(let* ((page (doc-view-current-page win))
|
||
(pagefile (expand-file-name
|
||
(format doc-view--image-file-pattern page)
|
||
(doc-view-current-cache-dir))))
|
||
(when (or force
|
||
(and (not (member pagefile prev-pages))
|
||
(member pagefile doc-view-current-files)))
|
||
(if (windowp win)
|
||
(with-selected-window win
|
||
(cl-assert (eq (current-buffer) buffer) t)
|
||
(doc-view-goto-page page))
|
||
(doc-view-goto-page page))))))))
|
||
|
||
(defun doc-view-buffer-message ()
|
||
;; Only show this message initially, not when refreshing the buffer (in which
|
||
;; case it's better to keep displaying the "stale" page while computing
|
||
;; the fresh new ones).
|
||
(unless (overlay-get (doc-view-current-overlay) 'display)
|
||
(overlay-put (doc-view-current-overlay) 'display
|
||
(concat (propertize "Welcome to DocView!" 'face 'bold)
|
||
"\n"
|
||
"
|
||
If you see this buffer it means that the document you want to view is being
|
||
converted to PNG and the conversion of the first page hasn't finished yet or
|
||
`doc-view-conversion-refresh-interval' is set to nil.
|
||
|
||
For now these keys are useful:
|
||
|
||
`q' : Bury this buffer. Conversion will go on in background.
|
||
`k' : Kill the conversion process and this buffer.
|
||
`K' : Kill the conversion process.\n"))))
|
||
|
||
(declare-function tooltip-show "tooltip" (text &optional use-echo-area))
|
||
|
||
(defun doc-view-show-tooltip ()
|
||
(interactive)
|
||
(tooltip-show (doc-view-current-info)))
|
||
|
||
(defun doc-view-open-text ()
|
||
"Open a buffer with the current doc's contents as text."
|
||
(interactive)
|
||
(if doc-view-current-converter-processes
|
||
(message "DocView: please wait till conversion finished.")
|
||
(let ((txt (expand-file-name "doc.txt" (doc-view-current-cache-dir))))
|
||
(if (file-readable-p txt)
|
||
(let ((name (concat "Text contents of "
|
||
(file-name-nondirectory buffer-file-name)))
|
||
(dir (file-name-directory buffer-file-name)))
|
||
(with-current-buffer (find-file txt)
|
||
(rename-buffer name)
|
||
(setq default-directory dir)))
|
||
(doc-view-doc->txt txt 'doc-view-open-text)))))
|
||
|
||
;;;;; Toggle between editing and viewing
|
||
|
||
(defvar-local doc-view-saved-settings nil
|
||
"Doc-view settings saved while in some other mode.")
|
||
(put 'doc-view-saved-settings 'permanent-local t)
|
||
|
||
(defun doc-view-toggle-display ()
|
||
"Toggle between editing a document as text or viewing it."
|
||
(interactive)
|
||
(if (eq major-mode 'doc-view-mode)
|
||
;; Switch to editing mode
|
||
(progn
|
||
(doc-view-kill-proc)
|
||
(setq buffer-read-only nil)
|
||
;; Switch to the previously used major mode or fall back to
|
||
;; normal mode.
|
||
(doc-view-fallback-mode)
|
||
(doc-view-minor-mode 1))
|
||
;; Switch to doc-view-mode
|
||
(when (and (buffer-modified-p)
|
||
(y-or-n-p "The buffer has been modified. Save the changes? "))
|
||
(save-buffer))
|
||
(doc-view-mode)))
|
||
|
||
;;;; Searching
|
||
|
||
|
||
(defun doc-view-search-internal (regexp file)
|
||
"Return a list of FILE's pages that contain text matching REGEXP.
|
||
The value is an alist of the form (PAGE CONTEXTS) where PAGE is
|
||
the pagenumber and CONTEXTS are all lines of text containing a match."
|
||
(with-temp-buffer
|
||
(insert-file-contents file)
|
||
(let ((page 1)
|
||
(lastpage 1)
|
||
matches)
|
||
(while (re-search-forward (concat "\\(?:\\([ ]\\)\\|\\("
|
||
regexp "\\)\\)") nil t)
|
||
(when (match-string 1) (setq page (1+ page)))
|
||
(when (match-string 2)
|
||
(if (/= page lastpage)
|
||
(push (cons page
|
||
(list (buffer-substring
|
||
(line-beginning-position)
|
||
(line-end-position))))
|
||
matches)
|
||
(setq matches (cons
|
||
(append
|
||
(or
|
||
;; This page already is a match.
|
||
(car matches)
|
||
;; This is the first match on page.
|
||
(list page))
|
||
(list (buffer-substring
|
||
(line-beginning-position)
|
||
(line-end-position))))
|
||
(cdr matches))))
|
||
(setq lastpage page)))
|
||
(nreverse matches))))
|
||
|
||
(defun doc-view-search-no-of-matches (list)
|
||
"Extract the number of matches from the search result LIST."
|
||
(let ((no 0))
|
||
(dolist (p list)
|
||
(setq no (+ no (1- (length p)))))
|
||
no))
|
||
|
||
(defun doc-view-search-backward (new-query)
|
||
"Call `doc-view-search' for backward search.
|
||
If prefix NEW-QUERY is given, ask for a new regexp."
|
||
(interactive "P")
|
||
(doc-view-search new-query t))
|
||
|
||
(defun doc-view-search (new-query &optional backward)
|
||
"Jump to the next match or initiate a new search if NEW-QUERY is given.
|
||
If the current document hasn't been transformed to plain text
|
||
till now do that first.
|
||
If BACKWARD is non-nil, jump to the previous match."
|
||
(interactive "P")
|
||
(if (and (not new-query)
|
||
doc-view-current-search-matches)
|
||
(if backward
|
||
(doc-view-search-previous-match 1)
|
||
(doc-view-search-next-match 1))
|
||
;; New search, so forget the old results.
|
||
(setq doc-view-current-search-matches nil)
|
||
(let ((txt (expand-file-name "doc.txt"
|
||
(doc-view-current-cache-dir))))
|
||
(if (file-readable-p txt)
|
||
(progn
|
||
(setq doc-view-current-search-matches
|
||
(doc-view-search-internal
|
||
(read-from-minibuffer "Regexp: ")
|
||
txt))
|
||
(message "DocView: search yielded %d matches."
|
||
(doc-view-search-no-of-matches
|
||
doc-view-current-search-matches)))
|
||
;; We must convert to TXT first!
|
||
(if doc-view-current-converter-processes
|
||
(message "DocView: please wait till conversion finished.")
|
||
(doc-view-doc->txt txt (lambda () (doc-view-search nil))))))))
|
||
|
||
(defun doc-view-search-next-match (arg)
|
||
"Go to the ARGth next matching page."
|
||
(interactive "p")
|
||
(let* ((next-pages (doc-view-remove-if
|
||
(lambda (i) (<= (car i) (doc-view-current-page)))
|
||
doc-view-current-search-matches))
|
||
(page (car (nth (1- arg) next-pages))))
|
||
(if page
|
||
(doc-view-goto-page page)
|
||
(when (and
|
||
doc-view-current-search-matches
|
||
(y-or-n-p "No more matches after current page. Wrap to first match? "))
|
||
(doc-view-goto-page (caar doc-view-current-search-matches))))))
|
||
|
||
(defun doc-view-search-previous-match (arg)
|
||
"Go to the ARGth previous matching page."
|
||
(interactive "p")
|
||
(let* ((prev-pages (doc-view-remove-if
|
||
(lambda (i) (>= (car i) (doc-view-current-page)))
|
||
doc-view-current-search-matches))
|
||
(page (car (nth (1- arg) (nreverse prev-pages)))))
|
||
(if page
|
||
(doc-view-goto-page page)
|
||
(when (and
|
||
doc-view-current-search-matches
|
||
(y-or-n-p "No more matches before current page. Wrap to last match? "))
|
||
(doc-view-goto-page (caar (last doc-view-current-search-matches)))))))
|
||
|
||
;;;; User interface commands and the mode
|
||
|
||
(put 'doc-view-mode 'mode-class 'special)
|
||
|
||
(defun doc-view-already-converted-p ()
|
||
"Return non-nil if the current doc was already converted."
|
||
(and (file-exists-p (doc-view-current-cache-dir))
|
||
;; Check that the resolution info is there, otherwise it means
|
||
;; the conversion is incomplete.
|
||
(file-readable-p (expand-file-name "resolution.el"
|
||
(doc-view-current-cache-dir)))
|
||
(> (length (directory-files
|
||
(doc-view-current-cache-dir)
|
||
nil (format doc-view--image-file-pattern "[0-9]+")))
|
||
0)))
|
||
|
||
(defun doc-view-initiate-display ()
|
||
;; Switch to image display if possible.
|
||
(if (doc-view-mode-p doc-view-doc-type)
|
||
(progn
|
||
(doc-view-buffer-message)
|
||
(setf (doc-view-current-page) (or (doc-view-current-page) 1))
|
||
(if (doc-view-already-converted-p)
|
||
(progn
|
||
(message "DocView: using cached files!")
|
||
;; Load the saved resolution.
|
||
(let* ((res-file (expand-file-name "resolution.el"
|
||
(doc-view-current-cache-dir)))
|
||
(res
|
||
(with-temp-buffer
|
||
(when (file-readable-p res-file)
|
||
(insert-file-contents res-file)
|
||
(read (current-buffer))))))
|
||
(when (numberp res)
|
||
(setq-local doc-view-resolution res)))
|
||
(doc-view-display (current-buffer) 'force))
|
||
(doc-view-convert-current-doc))
|
||
(message
|
||
"%s"
|
||
(substitute-command-keys
|
||
(concat "Type \\[doc-view-toggle-display] to toggle between "
|
||
"editing or viewing the document."))))
|
||
(message
|
||
"%s"
|
||
(concat "No PNG support is available, or some conversion utility for "
|
||
(file-name-extension doc-view-buffer-file-name)
|
||
" files is missing."))
|
||
(when (and (executable-find doc-view-pdftotext-program)
|
||
(y-or-n-p
|
||
"Unable to render file. View extracted text instead? "))
|
||
(doc-view-open-text))
|
||
(doc-view-toggle-display)))
|
||
|
||
(defvar bookmark-make-record-function)
|
||
|
||
(defun doc-view-clone-buffer-hook ()
|
||
;; FIXME: There are several potential problems linked with reconversion
|
||
;; and auto-revert when we have indirect buffers because they share their
|
||
;; /tmp cache directory. This sharing is good (you'd rather not reconvert
|
||
;; for each clone), but that means that clones need to collaborate a bit.
|
||
;; I guess it mostly means: detect when a reconversion process is already
|
||
;; running, and run the sentinel in all clones.
|
||
;;
|
||
;; Maybe the clones should really have a separate /tmp directory
|
||
;; so they could have a different resolution and you could use clones
|
||
;; for zooming.
|
||
(remove-overlays (point-min) (point-max) 'doc-view t)
|
||
(if (consp image-mode-winprops-alist) (setq image-mode-winprops-alist nil)))
|
||
|
||
(defun doc-view-intersection (l1 l2)
|
||
(let ((l ()))
|
||
(dolist (x l1) (if (memq x l2) (push x l)))
|
||
l))
|
||
|
||
(defun doc-view-set-doc-type ()
|
||
"Figure out the current document type (`doc-view-doc-type')."
|
||
(let ((name-types
|
||
(when buffer-file-name
|
||
(cdr (assoc (file-name-extension buffer-file-name)
|
||
'(
|
||
;; DVI
|
||
("dvi" dvi)
|
||
;; PDF
|
||
("pdf" pdf) ("epdf" pdf)
|
||
;; PostScript
|
||
("ps" ps) ("eps" ps)
|
||
;; DjVu
|
||
("djvu" djvu)
|
||
;; OpenDocument formats
|
||
("odt" odf) ("ods" odf) ("odp" odf) ("odg" odf)
|
||
("odc" odf) ("odi" odf) ("odm" odf) ("ott" odf)
|
||
("ots" odf) ("otp" odf) ("otg" odf)
|
||
;; Microsoft Office formats (also handled
|
||
;; by the odf conversion chain)
|
||
("doc" odf) ("docx" odf) ("xls" odf) ("xlsx" odf)
|
||
("ppt" odf) ("pptx" odf))))))
|
||
(content-types
|
||
(save-excursion
|
||
(goto-char (point-min))
|
||
(cond
|
||
((looking-at "%!") '(ps))
|
||
((looking-at "%PDF") '(pdf))
|
||
((looking-at "\367\002") '(dvi))
|
||
((looking-at "AT&TFORM") '(djvu))))))
|
||
(setq-local doc-view-doc-type
|
||
(car (or (doc-view-intersection name-types content-types)
|
||
(when (and name-types content-types)
|
||
(error "Conflicting types: name says %s but content says %s"
|
||
name-types content-types))
|
||
name-types content-types
|
||
(error "Cannot determine the document type"))))))
|
||
|
||
(defun doc-view-set-up-single-converter ()
|
||
"Find the right single-page converter for the current document type"
|
||
(pcase-let ((`(,conv-function ,type ,extension)
|
||
(pcase doc-view-doc-type
|
||
(`djvu (list #'doc-view-djvu->tiff-converter-ddjvu 'tiff "tif"))
|
||
(_ (list doc-view-pdf->png-converter-function 'png "png")))))
|
||
(setq-local doc-view-single-page-converter-function conv-function)
|
||
(setq-local doc-view--image-type type)
|
||
(setq-local doc-view--image-file-pattern (concat "page-%s." extension))))
|
||
|
||
;;;###autoload
|
||
(defun doc-view-mode ()
|
||
"Major mode in DocView buffers.
|
||
|
||
DocView Mode is an Emacs document viewer. It displays PDF, PS
|
||
and DVI files (as PNG images) in Emacs buffers.
|
||
|
||
You can use \\<doc-view-mode-map>\\[doc-view-toggle-display] to
|
||
toggle between displaying the document or editing it as text.
|
||
\\{doc-view-mode-map}"
|
||
(interactive)
|
||
|
||
(if (= (point-min) (point-max))
|
||
;; The doc is empty or doesn't exist at all, so fallback to
|
||
;; another mode. We used to also check file-exists-p, but this
|
||
;; returns nil for tar members.
|
||
(doc-view-fallback-mode)
|
||
|
||
(let* ((prev-major-mode (if (derived-mode-p 'doc-view-mode)
|
||
doc-view-previous-major-mode
|
||
(unless (eq major-mode 'fundamental-mode)
|
||
major-mode))))
|
||
(kill-all-local-variables)
|
||
(setq-local doc-view-previous-major-mode prev-major-mode))
|
||
|
||
(dolist (var doc-view-saved-settings)
|
||
(set (make-local-variable (car var)) (cdr var)))
|
||
|
||
;; Figure out the document type.
|
||
(unless doc-view-doc-type
|
||
(doc-view-set-doc-type))
|
||
(doc-view-set-up-single-converter)
|
||
|
||
(doc-view-make-safe-dir doc-view-cache-directory)
|
||
;; Handle compressed files, remote files, files inside archives
|
||
(setq-local doc-view-buffer-file-name
|
||
(cond
|
||
(jka-compr-really-do-compress
|
||
;; FIXME: there's a risk of name conflicts here.
|
||
(expand-file-name
|
||
(file-name-nondirectory
|
||
(file-name-sans-extension buffer-file-name))
|
||
doc-view-cache-directory))
|
||
;; Is the file readable by local processes?
|
||
;; We used to use `file-remote-p' but it's unclear what it's
|
||
;; supposed to return nil for things like local files accessed via
|
||
;; `su' or via file://...
|
||
((let ((file-name-handler-alist nil))
|
||
(not (and buffer-file-name (file-readable-p buffer-file-name))))
|
||
;; FIXME: there's a risk of name conflicts here.
|
||
(expand-file-name
|
||
(if buffer-file-name
|
||
(file-name-nondirectory buffer-file-name)
|
||
(buffer-name))
|
||
doc-view-cache-directory))
|
||
(t buffer-file-name)))
|
||
(when (not (string= doc-view-buffer-file-name buffer-file-name))
|
||
(write-region nil nil doc-view-buffer-file-name))
|
||
|
||
(add-hook 'change-major-mode-hook
|
||
(lambda ()
|
||
(doc-view-kill-proc)
|
||
(remove-overlays (point-min) (point-max) 'doc-view t))
|
||
nil t)
|
||
(add-hook 'clone-indirect-buffer-hook 'doc-view-clone-buffer-hook nil t)
|
||
(add-hook 'kill-buffer-hook 'doc-view-kill-proc nil t)
|
||
|
||
(remove-overlays (point-min) (point-max) 'doc-view t) ;Just in case.
|
||
;; Keep track of display info ([vh]scroll, page number, overlay,
|
||
;; ...) for each window in which this document is shown.
|
||
(add-hook 'image-mode-new-window-functions
|
||
'doc-view-new-window-function nil t)
|
||
(image-mode-setup-winprops)
|
||
|
||
(setq-local mode-line-position
|
||
'(" P" (:eval (number-to-string (doc-view-current-page)))
|
||
"/" (:eval (number-to-string (doc-view-last-page-number)))))
|
||
;; Don't scroll unless the user specifically asked for it.
|
||
(setq-local auto-hscroll-mode nil)
|
||
(setq-local mwheel-scroll-up-function #'doc-view-scroll-up-or-next-page)
|
||
(setq-local mwheel-scroll-down-function
|
||
#'doc-view-scroll-down-or-previous-page)
|
||
(setq-local cursor-type nil)
|
||
(use-local-map doc-view-mode-map)
|
||
(add-hook 'after-revert-hook 'doc-view-reconvert-doc nil t)
|
||
(setq-local bookmark-make-record-function
|
||
#'doc-view-bookmark-make-record)
|
||
(setq mode-name "DocView"
|
||
buffer-read-only t
|
||
major-mode 'doc-view-mode)
|
||
(doc-view-initiate-display)
|
||
;; Switch off view-mode explicitly, because doc-view-mode is the
|
||
;; canonical view mode for PDF/PS/DVI files. This could be
|
||
;; switched on automatically depending on the value of
|
||
;; `view-read-only'.
|
||
(setq-local view-read-only nil)
|
||
(run-mode-hooks 'doc-view-mode-hook)))
|
||
|
||
(defun doc-view-fallback-mode ()
|
||
"Fallback to the previous or next best major mode."
|
||
(let ((vars (if (derived-mode-p 'doc-view-mode)
|
||
(mapcar (lambda (var) (cons var (symbol-value var)))
|
||
'(doc-view-resolution
|
||
image-mode-winprops-alist)))))
|
||
(remove-overlays (point-min) (point-max) 'doc-view t)
|
||
(if doc-view-previous-major-mode
|
||
(funcall doc-view-previous-major-mode)
|
||
(let ((auto-mode-alist
|
||
(rassq-delete-all
|
||
'doc-view-mode-maybe
|
||
(rassq-delete-all 'doc-view-mode
|
||
(copy-alist auto-mode-alist)))))
|
||
(normal-mode)))
|
||
(when vars
|
||
(setq-local doc-view-saved-settings vars))))
|
||
|
||
;;;###autoload
|
||
(defun doc-view-mode-maybe ()
|
||
"Switch to `doc-view-mode' if possible.
|
||
If the required external tools are not available, then fallback
|
||
to the next best mode."
|
||
(condition-case nil
|
||
(doc-view-set-doc-type)
|
||
(error (doc-view-fallback-mode)))
|
||
(if (doc-view-mode-p doc-view-doc-type)
|
||
(doc-view-mode)
|
||
(doc-view-fallback-mode)))
|
||
|
||
;;;###autoload
|
||
(define-minor-mode doc-view-minor-mode
|
||
"Toggle displaying buffer via Doc View (Doc View minor mode).
|
||
With a prefix argument ARG, enable Doc View minor mode if ARG is
|
||
positive, and disable it otherwise. If called from Lisp, enable
|
||
the mode if ARG is omitted or nil.
|
||
|
||
See the command `doc-view-mode' for more information on this mode."
|
||
nil " DocView" doc-view-minor-mode-map
|
||
:group 'doc-view
|
||
(when doc-view-minor-mode
|
||
(add-hook 'change-major-mode-hook (lambda () (doc-view-minor-mode -1)) nil t)
|
||
(message
|
||
"%s"
|
||
(substitute-command-keys
|
||
"Type \\[doc-view-toggle-display] to toggle between editing or viewing the document."))))
|
||
|
||
(defun doc-view-clear-cache ()
|
||
"Delete the whole cache (`doc-view-cache-directory')."
|
||
(interactive)
|
||
(dired-delete-file doc-view-cache-directory 'always))
|
||
|
||
(defun doc-view-dired-cache ()
|
||
"Open `dired' in `doc-view-cache-directory'."
|
||
(interactive)
|
||
(dired doc-view-cache-directory))
|
||
|
||
|
||
;;;; Bookmark integration
|
||
|
||
(declare-function bookmark-make-record-default
|
||
"bookmark" (&optional no-file no-context posn))
|
||
(declare-function bookmark-prop-get "bookmark" (bookmark prop))
|
||
(declare-function bookmark-default-handler "bookmark" (bmk))
|
||
|
||
(defun doc-view-bookmark-make-record ()
|
||
(nconc (bookmark-make-record-default)
|
||
`((page . ,(doc-view-current-page))
|
||
(handler . doc-view-bookmark-jump))))
|
||
|
||
|
||
;;;###autoload
|
||
(defun doc-view-bookmark-jump (bmk)
|
||
;; This implements the `handler' function interface for record type
|
||
;; returned by `doc-view-bookmark-make-record', which see.
|
||
(prog1 (bookmark-default-handler bmk)
|
||
(let ((page (bookmark-prop-get bmk 'page)))
|
||
(when (not (eq major-mode 'doc-view-mode))
|
||
(doc-view-toggle-display))
|
||
(with-selected-window
|
||
(or (get-buffer-window (current-buffer) 0)
|
||
(selected-window))
|
||
(doc-view-goto-page page)))))
|
||
|
||
|
||
(provide 'doc-view)
|
||
|
||
;; Local Variables:
|
||
;; eval: (outline-minor-mode 1)
|
||
;; End:
|
||
|
||
;;; doc-view.el ends here
|