Mercurial > emacs

changeset 92752:7f212bec15c4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(doc-view-doc->txt, doc-view-open-text) (doc-view-already-converted-p): New functions. (doc-view-clear-cache): Don't recreate doc-view-cache-directory. (doc-view-mode-map): Bind C-c C-t to doc-view-open-text. (doc-view-dvi->pdf-sentinel, doc-view-dvi->pdf) (doc-view-pdf->txt-sentinel, doc-view-pdf->txt) (doc-view-ps->pdf-sentinel, doc-view-ps->pdf) (doc-view-convert-current-doc): Don't hardwire the functions the sentinels call. Now they're provided by two args CALLBACK and CB-ARGS to the functions. (doc-view-search): Use doc-view-doc->txt. (doc-view-initiate-display): Use doc-view-already-converted-p. Mention new binding C-c C-t if doc-view-mode doesn't work.
author Tassilo Horn <tassilo@member.fsf.org>
date Wed, 12 Mar 2008 12:04:59 +0000
parents 2bb808ae6079
children 3bef33921e01
files lisp/doc-view.el
diffstat 1 files changed, 97 insertions(+), 60 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/doc-view.el	Wed Mar 12 09:31:59 2008 +0000
+++ b/lisp/doc-view.el	Wed Mar 12 12:04:59 2008 +0000
@@ -291,6 +291,8 @@
     (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
     (define-key map (kbd "g")         'revert-buffer)
     (define-key map (kbd "r")         'revert-buffer)
@@ -523,16 +525,14 @@
   (if (not (string-match "finished" event))
       (message "DocView: dvi->pdf process changed status to %s." event)
     (with-current-buffer (process-get proc 'buffer)
-      (setq doc-view-current-converter-process nil
-            mode-line-process nil)
-      ;; Now go on converting this PDF to a set of PNG files.
-      (let* ((pdf (process-get proc 'pdf-file))
-             (png (expand-file-name "page-%d.png"
-                                    (doc-view-current-cache-dir))))
-        (doc-view-pdf/ps->png pdf png)))))
+      (let ((callback (process-get proc 'callback))
+	    (cb-args  (process-get proc 'cb-args)))
+	(setq doc-view-current-converter-process nil
+	      mode-line-process nil)
+	(apply callback cb-args)))))
 
-(defun doc-view-dvi->pdf (dvi pdf)
-  "Convert DVI to PDF asynchronously."
+(defun doc-view-dvi->pdf (dvi pdf callback &rest cb-args)
+  "Convert DVI to PDF asynchronously and call CALLBACK with CB-ARGS when finished."
   (setq doc-view-current-converter-process
 	(start-process "dvi->pdf" doc-view-conversion-buffer
 		       doc-view-dvipdfm-program
@@ -541,7 +541,8 @@
   (set-process-sentinel doc-view-current-converter-process
 			'doc-view-dvi->pdf-sentinel)
   (process-put doc-view-current-converter-process 'buffer   (current-buffer))
-  (process-put doc-view-current-converter-process 'pdf-file pdf))
+  (process-put doc-view-current-converter-process 'callback callback)
+  (process-put doc-view-current-converter-process 'cb-args  cb-args))
 
 (defun doc-view-pdf/ps->png-sentinel (proc event)
   "If PDF/PS->PNG conversion was successful, update the display."
@@ -588,15 +589,17 @@
     (let ((current-buffer (current-buffer))
 	  (proc-buffer    (process-get proc 'buffer)))
       (with-current-buffer proc-buffer
-        (setq doc-view-current-converter-process nil
-              mode-line-process nil)
-        ;; If the user looks at the DocView buffer where the conversion was
-        ;; performed, search anew.  This time it will be queried for a regexp.
-        (when (eq current-buffer proc-buffer)
-          (doc-view-search nil))))))
+        (let ((callback (process-get doc-view-current-converter-process 'callback))
+	      (cb-args  (process-get doc-view-current-converter-process 'cb-args)))
+	  (setq doc-view-current-converter-process nil
+		mode-line-process nil)
+	  ;; If the user looks at the DocView buffer where the conversion was
+	  ;; performed, call callback.
+	  (when (eq current-buffer proc-buffer)
+	    (apply callback cb-args)))))))
 
-(defun doc-view-pdf->txt (pdf txt)
-  "Convert PDF to TXT asynchronously."
+(defun doc-view-pdf->txt (pdf txt callback &rest cb-args)
+  "Convert PDF to TXT asynchronously and call CALLBACK with CB-ARGS when finished."
   (setq doc-view-current-converter-process
 	(start-process "pdf->txt" doc-view-conversion-buffer
 		       doc-view-pdftotext-program "-raw"
@@ -604,21 +607,54 @@
 	mode-line-process (list (format ":%s" doc-view-current-converter-process)))
   (set-process-sentinel doc-view-current-converter-process
 			'doc-view-pdf->txt-sentinel)
-  (process-put doc-view-current-converter-process 'buffer (current-buffer)))
+  (process-put doc-view-current-converter-process 'buffer (current-buffer))
+  (process-put doc-view-current-converter-process 'callback callback)
+  (process-put doc-view-current-converter-process 'cb-args cb-args))
+
+(defun doc-view-doc->txt (callback &rest cb-args)
+  "Convert the current document to text and call CALLBACK with CB-ARGS when done."
+  (make-directory (doc-view-current-cache-dir))
+  (let ((ext (file-name-extension doc-view-buffer-file-name)))
+    (cond
+     ((string= ext "pdf")
+      ;; Doc is a PDF, so convert it to TXT
+      (if cb-args
+	  (doc-view-pdf->txt doc-view-buffer-file-name txt callback cb-args)
+	(doc-view-pdf->txt doc-view-buffer-file-name txt callback)))
+     ((string= ext "ps")
+      ;; Doc is a PS, so convert it to PDF (which will be converted to
+      ;; TXT thereafter).
+      (let ((pdf (expand-file-name "doc.pdf"
+				   (doc-view-current-cache-dir))))
+	(if cb-args
+	    (doc-view-ps->pdf doc-view-buffer-file-name pdf
+			      'doc-view-pdf->txt
+			      pdf txt callback cb-args)
+	  (doc-view-ps->pdf doc-view-buffer-file-name pdf
+			    'doc-view-pdf->txt
+			    pdf txt callback))))
+     ((string= ext "dvi")
+      ;; Doc is a DVI.  This means that a doc.pdf already exists in its
+      ;; cache subdirectory.
+      (if cb-args
+	  (doc-view-pdf->txt (expand-file-name "doc.pdf"
+					       (doc-view-current-cache-dir))
+			     txt callback cb-args)
+	(doc-view-pdf->txt (expand-file-name "doc.pdf"
+					     (doc-view-current-cache-dir))
+			   txt callback)))
+     (t (error "DocView doesn't know what to do")))))
 
 (defun doc-view-ps->pdf-sentinel (proc event)
   (if (not (string-match "finished" event))
       (message "DocView: converter process changed status to %s." event)
     (with-current-buffer (process-get proc 'buffer)
       (setq doc-view-current-converter-process nil
-            mode-line-process nil)
-      ;; Now we can transform to plain text.
-      (doc-view-pdf->txt (process-get proc 'pdf-file)
-                         (expand-file-name "doc.txt"
-                                           (doc-view-current-cache-dir))))))
+	    mode-line-process nil)
+      (apply (process-get proc 'callback) (process-get proc 'cb-args)))))
 
-(defun doc-view-ps->pdf (ps pdf)
-  "Convert PS to PDF asynchronously."
+(defun doc-view-ps->pdf (ps pdf callback &rest cb-args)
+  "Convert PS to PDF asynchronously and call CALLBACK with CB-ARGS when finished."
   (setq doc-view-current-converter-process
 	(start-process "ps->pdf" doc-view-conversion-buffer
 		       doc-view-ps2pdf-program
@@ -631,7 +667,8 @@
   (set-process-sentinel doc-view-current-converter-process
 			'doc-view-ps->pdf-sentinel)
   (process-put doc-view-current-converter-process 'buffer   (current-buffer))
-  (process-put doc-view-current-converter-process 'pdf-file pdf))
+  (process-put doc-view-current-converter-process 'callback callback)
+  (process-put doc-view-current-converter-process 'cb-args  cb-args))
 
 (defun doc-view-convert-current-doc ()
   "Convert `doc-view-buffer-file-name' to a set of png files, one file per page.
@@ -651,9 +688,9 @@
 	(doc-view-pdf/ps->png doc-view-buffer-file-name png-file)
       ;; DVI files have to be converted to PDF before Ghostscript can process
       ;; it.
-      (doc-view-dvi->pdf doc-view-buffer-file-name
-			 (expand-file-name "doc.pdf"
-                                           doc-view-current-cache-dir)))))
+      (let ((pdf (expand-file-name "doc.pdf" doc-view-current-cache-dir)))
+	(doc-view-dvi->pdf doc-view-buffer-file-name
+			   pdf 'doc-view-pdf/ps->png pdf png-file)))))
 
 ;;;; Slicing
 
@@ -796,8 +833,19 @@
   (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-process
+      (message "DocView: please wait till conversion finished.")
+    (let ((txt (expand-file-name "doc.txt" (doc-view-current-cache-dir))))
+      (if (file-readable-p txt)
+	  (find-file txt)
+	(doc-view-doc->txt 'doc-view-open-text)))))
+
 ;;;;; Toggle between editing and viewing
 
+
 (defun doc-view-toggle-display ()
   "Toggle between editing a document as text or viewing it."
   (interactive)
@@ -806,8 +854,8 @@
       (progn
 	(doc-view-kill-proc)
 	(setq buffer-read-only nil)
-        (remove-overlays (point-min) (point-max) 'doc-view t)
-        (set (make-local-variable 'image-mode-winprops-alist) t)
+	(remove-overlays (point-min) (point-max) 'doc-view t)
+	(set (make-local-variable 'image-mode-winprops-alist) t)
 	;; Switch to the previously used major mode or fall back to fundamental
 	;; mode.
 	(if doc-view-previous-major-mode
@@ -822,6 +870,7 @@
 
 ;;;; 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
@@ -837,10 +886,10 @@
 	(when (match-string 2)
 	  (if (/= page lastpage)
 	      (push (cons page
-                          (list (buffer-substring
-                                 (line-beginning-position)
-                                 (line-end-position))))
-                    matches)
+			  (list (buffer-substring
+				 (line-beginning-position)
+				 (line-end-position))))
+		    matches)
 	    (setq matches (cons
 			   (append
 			    (or
@@ -895,24 +944,7 @@
 	;; We must convert to TXT first!
 	(if doc-view-current-converter-process
 	    (message "DocView: please wait till conversion finished.")
-	  (let ((ext (file-name-extension doc-view-buffer-file-name)))
-	    (cond
-	     ((string= ext "pdf")
-	      ;; Doc is a PDF, so convert it to TXT
-	      (doc-view-pdf->txt doc-view-buffer-file-name txt))
-	     ((string= ext "ps")
-	      ;; Doc is a PS, so convert it to PDF (which will be converted to
-	      ;; TXT thereafter).
-	      (doc-view-ps->pdf doc-view-buffer-file-name
-				(expand-file-name "doc.pdf"
-						  (doc-view-current-cache-dir))))
-	     ((string= ext "dvi")
-	      ;; Doc is a DVI.  This means that a doc.pdf already exists in its
-	      ;; cache subdirectory.
-	      (doc-view-pdf->txt (expand-file-name "doc.pdf"
-						   (doc-view-current-cache-dir))
-				 txt))
-	     (t (error "DocView doesn't know what to do")))))))))
+	  (doc-view-doc->txt 'doc-view-search nil))))))
 
 (defun doc-view-search-next-match (arg)
   "Go to the ARGth next matching page."
@@ -946,13 +978,18 @@
 
 ;; (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))
+       (> 0 (length (directory-files (doc-view-current-cache-dir) nil "\\.png$")))))
+
 (defun doc-view-initiate-display ()
   ;; Switch to image display if possible
   (if (doc-view-mode-p (intern (file-name-extension doc-view-buffer-file-name)))
       (progn
 	(doc-view-buffer-message)
 	(setf (doc-view-current-page) (or (doc-view-current-page) 1))
-	(if (file-exists-p (doc-view-current-cache-dir))
+	(if (doc-view-already-converted-p)
 	    (progn
 	      (message "DocView: using cached files!")
 	      (doc-view-display (current-buffer) 'force))
@@ -967,7 +1004,8 @@
      (substitute-command-keys
       (concat "No image (png) support available or some conversion utility for "
 	      (file-name-extension doc-view-buffer-file-name)" files is missing.  "
-	      "Type \\[doc-view-toggle-display] to switch to an editing mode.")))))
+	      "Type \\[doc-view-toggle-display] to switch to an editing mode or "
+	      "\\[doc-view-open-text] to open a buffer showing the doc as text.")))))
 
 (defvar bookmark-make-record-function)
 
@@ -978,7 +1016,7 @@
   ;; 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.
@@ -1037,7 +1075,7 @@
   (add-hook 'image-mode-new-window-functions
             'doc-view-new-window-function nil t)
   (image-mode-setup-winprops)
-  
+
   (set (make-local-variable 'mode-line-position)
        '(" P" (:eval (number-to-string (doc-view-current-page)))
 	 "/" (:eval (number-to-string (length doc-view-current-files)))))
@@ -1071,8 +1109,7 @@
 (defun doc-view-clear-cache ()
   "Delete the whole cache (`doc-view-cache-directory')."
   (interactive)
-  (dired-delete-file doc-view-cache-directory 'always)
-  (make-directory doc-view-cache-directory))
+  (dired-delete-file doc-view-cache-directory 'always))
 
 (defun doc-view-dired-cache ()
   "Open `dired' in `doc-view-cache-directory'."