comparison lisp/doc-view.el @ 87842:3a98637489f5

(doc-view-pdf/ps->png): Make sure we a have a valid cwd. (doc-view-insert-image): Do something if the image is missing. (doc-view-mode): Don't use file-remote-p.

87841:f76850f6a776

;; and modify them to your needs.

;;; Todo:

;; - better menu.
;; - don't use `find-file'.
;; - Bind slicing to a drag event.
;; - doc-view-fit-doc-to-window and doc-view-fit-window-to-doc.
;; - zoom a 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

      (doc-view-display buffer-file-name 'force))))

(defun doc-view-pdf/ps->png (pdf-ps png)
  "Convert PDF-PS to PNG asynchronously."
  (setq doc-view-current-converter-process
	(apply 'start-process
	       (append (list "pdf/ps->png" doc-view-conversion-buffer
			     doc-view-ghostscript-program)
		       doc-view-ghostscript-options
                       (list (format "-r%d" (round doc-view-resolution)))
		       (list (concat "-sOutputFile=" png))
		       (list pdf-ps)))
	mode-line-process (list (format ":%s" doc-view-current-converter-process)))
  (process-put doc-view-current-converter-process
	       'buffer (current-buffer))
  (set-process-sentinel doc-view-current-converter-process
			'doc-view-pdf/ps->png-sentinel)

  "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 ((image (apply 'create-image file 'png nil args)))
    (setq doc-view-current-image image)
    (move-overlay doc-view-current-overlay (point-min) (point-max))
    (overlay-put doc-view-current-overlay 'display
                 (if doc-view-current-slice
                     (list (cons 'slice doc-view-current-slice) image)
                   image))))

(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))

	(jka-compr-really-do-compress
	 (expand-file-name
	  (file-name-nondirectory
	   (file-name-sans-extension buffer-file-name))
	  doc-view-cache-directory))
	((or
	  (not (file-exists-p buffer-file-name))
	  (file-remote-p buffer-file-name))
	 (expand-file-name
	  (file-name-nondirectory buffer-file-name)
	  doc-view-cache-directory))
	(t buffer-file-name)))
  (when (not (string= doc-view-buffer-file-name buffer-file-name))

87842:3a98637489f5

;; and modify them to your needs.

;;; Todo:

;; - better menu.
;; - Bind slicing to a drag event.
;; - doc-view-fit-doc-to-window and doc-view-fit-window-to-doc.
;; - 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

      (doc-view-display buffer-file-name 'force))))

(defun doc-view-pdf/ps->png (pdf-ps png)
  "Convert PDF-PS to PNG asynchronously."
  (setq doc-view-current-converter-process
        ;; Make sure the process is started in an existing directory,
        ;; (rather than some file-name-handler-managed dir, for example).
        (let ((default-directory (file-name-directory pdf-ps)))
          (apply 'start-process
                 (append (list "pdf/ps->png" doc-view-conversion-buffer
                               doc-view-ghostscript-program)
                         doc-view-ghostscript-options
                         (list (format "-r%d" (round doc-view-resolution)))
                         (list (concat "-sOutputFile=" png))
                         (list pdf-ps))))
	mode-line-process (list (format ":%s" doc-view-current-converter-process)))
  (process-put doc-view-current-converter-process
	       'buffer (current-buffer))
  (set-process-sentinel doc-view-current-converter-process
			'doc-view-pdf/ps->png-sentinel)

  "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))
  (if (null file)
      ;; We're trying to display a page that doesn't exist.  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.
      (progn
        (setq doc-view-current-image nil)
        (move-overlay doc-view-current-overlay (point-min) (point-max))
        (overlay-put doc-view-current-overlay 'display
                     "Cannot display this page!  Probably a conversion failure!"))
    (let ((image (apply 'create-image file 'png nil args)))
      (setq doc-view-current-image image)
      (move-overlay doc-view-current-overlay (point-min) (point-max))
      (overlay-put doc-view-current-overlay 'display
                   (if doc-view-current-slice
                       (list (cons 'slice doc-view-current-slice) image)
                     image)))))

(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))

	(jka-compr-really-do-compress
	 (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 (file-readable-p buffer-file-name)))
	 (expand-file-name
	  (file-name-nondirectory buffer-file-name)
	  doc-view-cache-directory))
	(t buffer-file-name)))
  (when (not (string= doc-view-buffer-file-name buffer-file-name))