emacs-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: isearch for doc-view.el


From: Tassilo Horn
Subject: Re: isearch for doc-view.el
Date: Mon, 05 Nov 2007 22:01:10 +0100
User-agent: Gnus/5.110007 (No Gnus v0.7) Emacs/23.0.50 (gnu/linux)

Stefan Monnier <address@hidden> writes:

> Don't know.  It seems to work more or less here.

After spending quite some time to make isearch working I have given up.
It seems to be rather complicated, so I only changed the current search
facility to use an isearch-like UI.  Now you hit C-s and enter the
regexp and each additional C-s or C-r jumps to the next/previous match.
To enter a new regexp, you have to provide a prefix arg to C-s or C-r.

Then I tried fixing the auto-compression-mode bug Reiner poined out in
<address@hidden>.  Because I could not find
an elegant solution to work with compressed files transparently I took a
trivial approach:  doc-view-mode now offers to save the uncompressed
file somewhere and then this file is viewed.

Here's the ChangeLog entry:

--8<---------------cut here---------------start------------->8---
2007-11-05  Tassilo Horn  <address@hidden>

        * doc-view.el (doc-view-mode-map, doc-view-menu)
        (doc-view-pdf->txt-sentinel): Adapt to new search UI.
        (doc-view-search-backward): New function.
        (doc-view-search): Query new regexp if prefix arg is given, else
        jump to next/previous match.
        (doc-view-mode): Handle compressed files.
--8<---------------cut here---------------end--------------->8---

And here's the patch:

--8<---------------cut here---------------start------------->8---
Index: lisp/doc-view.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/doc-view.el,v
retrieving revision 1.18
diff -u -r1.18 doc-view.el
--- lisp/doc-view.el    1 Nov 2007 03:53:32 -0000       1.18
+++ lisp/doc-view.el    5 Nov 2007 21:00:08 -0000
@@ -71,14 +71,14 @@
 ;; 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
-;; `doc-view-search-next-match' (bound to `C-S-n') or to the previous matching
-;; page with `doc-view-search-previous-match' (bound to `C-S-p').  This works
-;; by searching a plain text representation of the document.  If that doesn't
-;; already exist the first invokation of `doc-view-search' 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.
+;; 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 invokation 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'.
@@ -239,8 +239,7 @@
     ;; Searching
     (define-key map (kbd "C-s")       'doc-view-search)
     (define-key map (kbd "<find>")    'doc-view-search)
-    (define-key map (kbd "C-S-n")     'doc-view-search-next-match)
-    (define-key map (kbd "C-S-p")     'doc-view-search-previous-match)
+    (define-key map (kbd "C-r")       'doc-view-search-backward)
     ;; Scrolling
     (define-key map [remap forward-char]  'image-forward-hscroll)
     (define-key map [remap backward-char] 'image-backward-hscroll)
@@ -264,6 +263,7 @@
     ["Reset Slice"             doc-view-reset-slice]
     "---"
     ["Search"                  doc-view-search]
+    ["Search Backwards"         doc-view-search-backward]
     ["Toggle display"          doc-view-toggle-display]
     ))
 
@@ -502,7 +502,7 @@
       ;; 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)))))
+       (doc-view-search nil)))))
 
 (defun doc-view-pdf->txt (pdf txt)
   "Convert PDF to TXT asynchronously."
@@ -733,46 +733,56 @@
       (setq no (+ no (1- (length p)))))
     no))
 
-(defun doc-view-search ()
+(defun doc-view-search-backward (arg)
+  "Call `doc-view-search' for backward search."
+  (interactive "P")
+  (doc-view-search arg t))
+
+(defun doc-view-search (arg &optional backward)
   "Query for a regexp and search the current document.
 If the current document hasn't been transformed to plain text
 till now do that first.  You should try searching anew when the
 conversion finished."
-  (interactive)
-  ;; 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-process
-         (message "DocView: please wait till conversion finished.")
-       (let ((ext (file-name-extension buffer-file-name)))
-         (cond
-          ((string= ext "pdf")
-           ;; Doc is a PDF, so convert it to TXT
-           (doc-view-pdf->txt 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 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"))))))))
+  (interactive "P")
+  (if (and (not arg)
+          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-process
+           (message "DocView: please wait till conversion finished.")
+         (let ((ext (file-name-extension buffer-file-name)))
+           (cond
+            ((string= ext "pdf")
+             ;; Doc is a PDF, so convert it to TXT
+             (doc-view-pdf->txt 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 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")))))))))
 
 (defun doc-view-search-next-match (arg)
   "Go to the ARGth next matching page."
@@ -835,36 +845,47 @@
 You can use \\<doc-view-mode-map>\\[doc-view-toggle-display] to
 toggle between displaying the document or editing it as text."
   (interactive)
-  (let* ((prev-major-mode (if (eq major-mode 'doc-view-mode)
-                             doc-view-previous-major-mode
-                           major-mode)))
-    (kill-all-local-variables)
-    (set (make-local-variable 'doc-view-previous-major-mode) prev-major-mode))
-  (make-local-variable 'doc-view-current-files)
-  (make-local-variable 'doc-view-current-image)
-  (make-local-variable 'doc-view-current-page)
-  (make-local-variable 'doc-view-current-converter-process)
-  (make-local-variable 'doc-view-current-timer)
-  (make-local-variable 'doc-view-current-slice)
-  (make-local-variable 'doc-view-current-cache-dir)
-  (make-local-variable 'doc-view-current-info)
-  (make-local-variable 'doc-view-current-search-matches)
-  (set (make-local-variable 'doc-view-current-overlay)
-       (make-overlay (point-min) (point-max) nil t))
-  (add-hook 'change-major-mode-hook
-            (lambda () (delete-overlay doc-view-current-overlay))
-            nil t)
-  (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)))))
-  (set (make-local-variable 'cursor-type) nil)
-  (use-local-map doc-view-mode-map)
-  (set (make-local-variable 'after-revert-hook) 'doc-view-reconvert-doc)
-  (setq mode-name "DocView"
-       buffer-read-only t
-       major-mode 'doc-view-mode)
-  (doc-view-initiate-display)
-  (run-mode-hooks 'doc-view-mode-hook))
+  (if jka-compr-really-do-compress
+      ;; This is a compressed file uncompressed by auto-compression-mode.
+      (when (y-or-n-p (concat "DocView: Cannot convert compressed file.  "
+                             "Save it uncompressed first? "))
+       (let ((file (read-file-name
+                    "File: "
+                    (file-name-directory buffer-file-name))))
+         (write-region (point-min) (point-max) file)
+         (kill-buffer nil)
+         (find-file file)
+         (doc-view-mode)))
+    (let* ((prev-major-mode (if (eq major-mode 'doc-view-mode)
+                               doc-view-previous-major-mode
+                             major-mode)))
+      (kill-all-local-variables)
+      (set (make-local-variable 'doc-view-previous-major-mode) 
prev-major-mode))
+    (make-local-variable 'doc-view-current-files)
+    (make-local-variable 'doc-view-current-image)
+    (make-local-variable 'doc-view-current-page)
+    (make-local-variable 'doc-view-current-converter-process)
+    (make-local-variable 'doc-view-current-timer)
+    (make-local-variable 'doc-view-current-slice)
+    (make-local-variable 'doc-view-current-cache-dir)
+    (make-local-variable 'doc-view-current-info)
+    (make-local-variable 'doc-view-current-search-matches)
+    (set (make-local-variable 'doc-view-current-overlay)
+        (make-overlay (point-min) (point-max) nil t))
+    (add-hook 'change-major-mode-hook
+             (lambda () (delete-overlay doc-view-current-overlay))
+             nil t)
+    (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)))))
+    (set (make-local-variable 'cursor-type) nil)
+    (use-local-map doc-view-mode-map)
+    (set (make-local-variable 'after-revert-hook) 'doc-view-reconvert-doc)
+    (setq mode-name "DocView"
+         buffer-read-only t
+         major-mode 'doc-view-mode)
+    (doc-view-initiate-display)
+    (run-mode-hooks 'doc-view-mode-hook)))
 
 ;;;###autoload
 (define-minor-mode doc-view-minor-mode
--8<---------------cut here---------------end--------------->8---

Bye,
Tassilo




reply via email to

[Prev in Thread] Current Thread [Next in Thread]