|
22
|
1 ;; -*-Emacs-Lisp-*-
|
|
|
2 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
3 ;;
|
|
|
4 ;; File: dired-vir.el
|
|
|
5 ;; Dired Version: $Revision: 1.1 $
|
|
|
6 ;; RCS:
|
|
|
7 ;; Description: Virtual dired mode for browsing ls -lR listings.
|
|
|
8 ;; Author: Sebastian Kremer <sk@thp.uni-koeln.de>
|
|
|
9 ;; Created: 7-Mar-1991 16:00
|
|
|
10 ;;
|
|
|
11 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
12
|
|
|
13 ;;; Requirements and provisions
|
|
|
14 (provide 'dired-vir)
|
|
|
15 (require 'dired)
|
|
|
16
|
|
|
17 (defun dired-virtual (dirname &optional switches)
|
|
|
18 "Put this buffer into Virtual Dired mode.
|
|
|
19
|
|
|
20 In Virtual Dired mode, all commands that do not actually consult the
|
|
|
21 filesystem will work.
|
|
|
22
|
|
|
23 This is useful if you want to peruse and move around in an ls -lR
|
|
|
24 output file, for example one you got from an ftp server. With
|
|
|
25 efs, you can even dired a directory containing an ls-lR file,
|
|
|
26 visit that file and turn on virtual dired mode. But don't try to save
|
|
|
27 this file, as dired-virtual indents the listing and thus changes the
|
|
|
28 buffer.
|
|
|
29
|
|
|
30 If you have save a Dired buffer in a file you can use \\[dired-virtual] to
|
|
|
31 resume it in a later session.
|
|
|
32
|
|
|
33 Type \\<dired-mode-map>\\[revert-buffer] in the
|
|
|
34 Virtual Dired buffer and answer `y' to convert the virtual to a real
|
|
|
35 dired buffer again. You don't have to do this, though: you can relist
|
|
|
36 single subdirs using \\[dired-do-redisplay].
|
|
|
37 "
|
|
|
38
|
|
|
39 ;; DIRNAME is the top level directory of the buffer. It will become
|
|
|
40 ;; its `default-directory'. If nil, the old value of
|
|
|
41 ;; default-directory is used.
|
|
|
42
|
|
|
43 ;; Optional SWITCHES are the ls switches to use.
|
|
|
44
|
|
|
45 ;; Shell wildcards will be used if there already is a `wildcard'
|
|
|
46 ;; line in the buffer (thus it is a saved Dired buffer), but there
|
|
|
47 ;; is no other way to get wildcards. Insert a `wildcard' line by
|
|
|
48 ;; hand if you want them.
|
|
|
49
|
|
|
50 (interactive
|
|
|
51 (list (read-string "Virtual Dired directory: " (dired-virtual-guess-dir))))
|
|
|
52 (goto-char (point-min))
|
|
|
53 (or (looking-at " ")
|
|
|
54 ;; if not already indented, do it now:
|
|
|
55 (indent-region (point-min) (point-max) 2))
|
|
|
56 (or dirname (setq dirname default-directory))
|
|
|
57 (setq dirname (expand-file-name (file-name-as-directory dirname)))
|
|
|
58 (setq default-directory dirname) ; contains no wildcards
|
|
|
59 (let ((wildcard (save-excursion
|
|
|
60 (goto-char (point-min))
|
|
|
61 (forward-line 1)
|
|
|
62 (and (looking-at "^ wildcard ")
|
|
|
63 (buffer-substring (match-end 0)
|
|
|
64 (progn (end-of-line) (point)))))))
|
|
|
65 (if wildcard
|
|
|
66 (setq dirname (expand-file-name wildcard default-directory))))
|
|
|
67 ;; If raw ls listing (not a saved old dired buffer), give it a
|
|
|
68 ;; decent subdir headerline:
|
|
|
69 (goto-char (point-min))
|
|
|
70 (or (looking-at dired-subdir-regexp)
|
|
|
71 (dired-insert-headerline default-directory))
|
|
|
72 (dired-mode dirname (or switches dired-listing-switches))
|
|
|
73 (setq mode-name "Virtual Dired"
|
|
|
74 revert-buffer-function 'dired-virtual-revert)
|
|
|
75 (set (make-local-variable 'dired-subdir-alist) nil)
|
|
|
76 (dired-build-subdir-alist)
|
|
|
77 (goto-char (point-min))
|
|
|
78 (dired-initial-position dirname))
|
|
|
79
|
|
|
80 (defun dired-virtual-guess-dir ()
|
|
|
81
|
|
|
82 ;; Guess and return appropriate working directory of this buffer,
|
|
|
83 ;; assumed to be in Dired or ls -lR format.
|
|
|
84 ;; The guess is based upon buffer contents.
|
|
|
85 ;; If nothing could be guessed, returns nil.
|
|
|
86
|
|
|
87 (let ((regexp "^\\( \\)?\\([^ \n\r]*\\)\\(:\\)[\n\r]")
|
|
|
88 (subexpr 2))
|
|
|
89 (goto-char (point-min))
|
|
|
90 (cond ((looking-at regexp)
|
|
|
91 ;; If a saved dired buffer, look to which dir and
|
|
|
92 ;; perhaps wildcard it belongs:
|
|
|
93 (let ((dir (buffer-substring (match-beginning subexpr)
|
|
|
94 (match-end subexpr))))
|
|
|
95 (file-name-as-directory dir)))
|
|
|
96 ;; Else no match for headerline found. It's a raw ls listing.
|
|
|
97 ;; In raw ls listings the directory does not have a headerline
|
|
|
98 ;; try parent of first subdir, if any
|
|
|
99 ((re-search-forward regexp nil t)
|
|
|
100 (file-name-directory
|
|
|
101 (directory-file-name
|
|
|
102 (file-name-as-directory
|
|
|
103 (buffer-substring (match-beginning subexpr)
|
|
|
104 (match-end subexpr))))))
|
|
|
105 (t ; if all else fails
|
|
|
106 nil))))
|
|
|
107
|
|
|
108
|
|
|
109 (defun dired-virtual-revert (&optional arg noconfirm)
|
|
|
110 (if (not
|
|
|
111 (y-or-n-p "Cannot revert a Virtual Dired buffer - switch to Real Dired mode? "))
|
|
|
112 (error "Cannot revert a Virtual Dired buffer.")
|
|
|
113 (setq mode-name "Dired"
|
|
|
114 revert-buffer-function 'dired-revert)
|
|
|
115 (revert-buffer)))
|
|
|
116
|
|
|
117 ;; A zero-arg version of dired-virtual.
|
|
|
118 ;; You need my modified version of set-auto-mode for the
|
|
|
119 ;; `buffer-contents-mode-alist'.
|
|
|
120 ;; Or you use infer-mode.el and infer-mode-alist, same syntax.
|
|
|
121 (defun dired-virtual-mode ()
|
|
|
122 "Put current buffer into virtual dired mode (see `dired-virtual').
|
|
|
123 Useful on `buffer-contents-mode-alist' (which see) with the regexp
|
|
|
124
|
|
|
125 \"^ \\(/[^ /]+\\)/?+:$\"
|
|
|
126
|
|
|
127 to put saved dired buffers automatically into virtual dired mode.
|
|
|
128
|
|
|
129 Also useful for `auto-mode-alist' (which see) like this:
|
|
|
130
|
|
|
131 \(setq auto-mode-alist (cons '(\"[^/]\\.dired$\" . dired-virtual-mode)
|
|
|
132 auto-mode-alist)\)
|
|
|
133 "
|
|
|
134 (interactive)
|
|
|
135 (dired-virtual (dired-virtual-guess-dir)))
|
|
|
136
|
|
|
137 ;;; end of dired-vir.el
|
