![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to view.el CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSD / contrib / emacs / lisp|
Return to view.el CVS log | Up to [CSRG BSD Unix] / 43BSD / contrib / emacs / lisp |
1.1 root 1: ;; View: Tour files, buffers without editing.
2: ;; Copyright (C) 1985 Richard M. Stallman and K. Shane Hartman
3:
4: ;; This file is part of GNU Emacs.
5:
6: ;; GNU Emacs is distributed in the hope that it will be useful,
7: ;; but WITHOUT ANY WARRANTY. No author or distributor
8: ;; accepts responsibility to anyone for the consequences of using it
9: ;; or for whether it serves any particular purpose or works at all,
10: ;; unless he says so in writing. Refer to the GNU Emacs General Public
11: ;; License for full details.
12:
13: ;; Everyone is granted permission to copy, modify and redistribute
14: ;; GNU Emacs, but only under the conditions described in the
15: ;; GNU Emacs General Public License. A copy of this license is
16: ;; supposed to have been given to you along with GNU Emacs so you
17: ;; can know your rights and responsibilities. It should be in a
18: ;; file named COPYING. Among other things, the copyright notice
19: ;; and this notice must be preserved on all copies.
20:
21:
22: (provide 'view)
23:
24: (defvar view-mode-map nil)
25: (if view-mode-map
26: nil
27: (setq view-mode-map (make-keymap))
28: (fillarray view-mode-map 'View-undefined)
29: (define-key view-mode-map "\C-c" 'exit-recursive-edit)
30: (define-key view-mode-map "\C-z" 'suspend-emacs)
31: (define-key view-mode-map "q" 'exit-recursive-edit)
32: (define-key view-mode-map "-" 'negative-argument)
33: (define-key view-mode-map "0" 'digit-argument)
34: (define-key view-mode-map "1" 'digit-argument)
35: (define-key view-mode-map "2" 'digit-argument)
36: (define-key view-mode-map "3" 'digit-argument)
37: (define-key view-mode-map "4" 'digit-argument)
38: (define-key view-mode-map "5" 'digit-argument)
39: (define-key view-mode-map "6" 'digit-argument)
40: (define-key view-mode-map "7" 'digit-argument)
41: (define-key view-mode-map "8" 'digit-argument)
42: (define-key view-mode-map "9" 'digit-argument)
43: (define-key view-mode-map "\C-u" 'universal-argument)
44: (define-key view-mode-map "\e" nil)
45: (define-key view-mode-map "\C-x" 'Control-X-prefix)
46: (define-key view-mode-map "\e-" 'negative-argument)
47: (define-key view-mode-map "\e0" 'digit-argument)
48: (define-key view-mode-map "\e1" 'digit-argument)
49: (define-key view-mode-map "\e2" 'digit-argument)
50: (define-key view-mode-map "\e3" 'digit-argument)
51: (define-key view-mode-map "\e4" 'digit-argument)
52: (define-key view-mode-map "\e5" 'digit-argument)
53: (define-key view-mode-map "\e6" 'digit-argument)
54: (define-key view-mode-map "\e7" 'digit-argument)
55: (define-key view-mode-map "\e8" 'digit-argument)
56: (define-key view-mode-map "\e9" 'digit-argument)
57: (define-key view-mode-map "<" 'beginning-of-buffer)
58: (define-key view-mode-map ">" 'end-of-buffer)
59: (define-key view-mode-map "\ev" 'View-scroll-lines-backward)
60: (define-key view-mode-map "\C-v" 'View-scroll-lines-forward)
61: (define-key view-mode-map " " 'View-scroll-lines-forward)
62: (define-key view-mode-map "\177" 'View-scroll-lines-backward)
63: (define-key view-mode-map "\n" 'View-scroll-one-more-line)
64: (define-key view-mode-map "\r" 'View-scroll-one-more-line)
65: (define-key view-mode-map "\C-l" 'recenter)
66: (define-key view-mode-map "z" 'View-scroll-lines-forward-set-scroll-size)
67: (define-key view-mode-map "g" 'View-goto-line)
68: (define-key view-mode-map "=" 'what-line)
69: (define-key view-mode-map "." 'set-mark-command)
70: (define-key view-mode-map "\C-@" 'set-mark-command)
71: (define-key view-mode-map "'" 'View-back-to-mark)
72: (define-key view-mode-map "@" 'View-back-to-mark)
73: (define-key view-mode-map "x" 'exchange-point-and-mark)
74: (define-key view-mode-map "h" 'View-give-help)
75: (define-key view-mode-map "?" 'Helper-describe-bindings)
76: (define-key view-mode-map "\C-h" 'Helper-help)
77: (define-key view-mode-map "\C-n" 'next-line)
78: (define-key view-mode-map "\C-p" 'previous-line)
79: (define-key view-mode-map "\C-s" 'isearch-forward)
80: (define-key view-mode-map "\C-r" 'isearch-backward)
81: (define-key view-mode-map "s" 'isearch-forward)
82: (define-key view-mode-map "r" 'isearch-backward)
83: (define-key view-mode-map "/" 'View-search-regexp-forward)
84: (define-key view-mode-map "\\" 'View-search-regexp-backward)
85: ;; This conflicts with the standard binding of isearch-regexp-forward
86: (define-key view-mode-map "\e\C-s" 'View-search-regexp-forward)
87: (define-key view-mode-map "\e\C-r" 'View-search-regexp-backward)
88: (define-key view-mode-map "n" 'View-search-last-regexp-forward)
89: (define-key view-mode-map "p" 'View-search-last-regexp-backward)
90: )
91:
92:
93: (defun view-file (file-name)
94: "View FILE in View mode, returning to previous buffer when done.
95: The usual Emacs commands are not available; instead,
96: a special set of commands (mostly letters and punctuation)
97: are defined for moving around in the buffer.
98: Space scrolls forward, Delete scrolls backward.
99: For list of all View commands, type ? or h while viewing.
100:
101: Calls the value of view-hook if that is non-nil."
102: (interactive "fView file: ")
103: (view-mode (prog1 (current-buffer)
104: (switch-to-buffer (find-file-noselect file-name) t))))
105:
106: (defun view-buffer (buffer-name)
107: "View BUFFER in View mode, returning to previous buffer when done.
108: The usual Emacs commands are not available; instead,
109: a special set of commands (mostly letters and punctuation)
110: are defined for moving around in the buffer.
111: Space scrolls forward, Delete scrolls backward.
112: For list of all View commands, type ? or h while viewing.
113:
114: Calls the value of view-hook if that is non-nil."
115: (interactive "bView buffer: ")
116: (view-mode (prog1 (current-buffer) (switch-to-buffer buffer-name))))
117:
118: (defun view-mode (&optional view-return-to-buffer)
119: "Major mode for viewing text but not editing it.
120: Letters do not insert themselves. Instead these commands are provided.
121: Most commands take prefix arguments. Commands dealing with lines
122: default to \"scroll size\" lines (initially size of window).
123: Search commands default to a repeat count of one.
124: M-< or < move to beginning of buffer.
125: M-> or > move to end of buffer.
126: C-v or Space scroll forward lines.
127: M-v or DEL scroll backward lines.
128: CR or LF scroll forward one line (backward with prefix argument).
129: z like Space except set number of lines for further
130: scrolling commands to scroll by.
131: C-u and Digits provide prefix arguments. `-' denotes negative argument.
132: = prints the current line number.
133: g goes to line given by prefix argument.
134: / or M-C-s searches forward for regular expression
135: \\ or M-C-r searches backward for regular expression.
136: n searches forward for last regular expression.
137: p searches backward for last regular expression.
138: C-@ or . set the mark.
139: x exchanges point and mark.
140: C-s or s do forward incremental search.
141: C-r or r do reverse incremental search.
142: @ or ' return to mark and pops mark ring.
143: Mark ring is pushed at start of every
144: successful search and when jump to line to occurs.
145: The mark is set on jump to buffer start or end.
146: ? or h provide help message (list of commands).
147: C-h provides help (list of commands or description of a command).
148: C-n moves down lines vertically.
149: C-p moves upward lines vertically.
150: C-l recenters the screen.
151: q or C-c exit view-mode and return to previous buffer.
152:
153: Entry to this mode calls the value of view-hook if non-nil.
154: \\{view-mode-map}"
155: (interactive)
156: (let* ((view-buffer-window (selected-window))
157: (view-scroll-size (1- (window-height view-buffer-window))))
158: (unwind-protect
159: (let ((buffer-read-only t)
160: (mode-line-format (if (buffer-file-name)
161: "--Viewing %f %M ----%p--%-"
162: "--Viewing %b %M ----%p--%-"))
163: (mode-name "View"))
164: (beginning-of-line)
165: (catch 'view-mode-exit (view-mode-command-loop)))
166: (if view-return-to-buffer
167: (switch-to-buffer view-return-to-buffer)))))
168:
169: (defun view-helpful-message ()
170: (message
171: (if (and (eq (key-binding "\C-h") 'Helper-help)
172: (eq (key-binding "?") 'Helper-describe-bindings)
173: (eq (key-binding "\C-c") 'exit-recursive-edit))
174: "Type C-h for help, ? for commands, C-c to quit"
175: (substitute-command-keys
176: "Type \\[Helper-help] for help, \\[Helper-describe-bindings] for commands, \\[exit-recursive-edit] to quit."))))
177:
178: (defun View-undefined ()
179: (interactive)
180: (ding)
181: (view-helpful-message))
182:
183: (defun view-window-size () (1- (window-height view-buffer-window)))
184:
185: (defun view-scroll-size () (min (view-window-size) view-scroll-size))
186:
187: (defvar view-hook nil
188: "If non-nil, its value is called when viewing buffer or file.")
189:
190: (defun view-mode-command-loop ()
191: (push-mark)
192: (let ((old-local-map (current-local-map))
193: (mark-ring)
194: ; (view-last-command)
195: ; (view-last-command-entry)
196: ; (view-last-command-argument)
197: (view-last-regexp)
198: (Helper-mode-name "View")
199: (Helper-major-mode 'view-mode)
200: (Helper-return-blurb
201: (format "continue viewing %s"
202: (if (buffer-file-name)
203: (file-name-nondirectory (buffer-file-name))
204: (buffer-name))))
205: (goal-column 0))
206: (unwind-protect
207: (progn
208: (use-local-map view-mode-map)
209: (run-hooks 'view-hook)
210: (view-helpful-message)
211: (recursive-edit))
212: (use-local-map old-local-map)))
213: (pop-mark))
214:
215: ;(defun view-last-command (&optional who what)
216: ; (setq view-last-command-entry this-command)
217: ; (setq view-last-command who)
218: ; (setq view-last-command-argument what))
219:
220: ;(defun View-repeat-last-command ()
221: ; "Repeat last command issued in View mode."
222: ; (interactive)
223: ; (if (and view-last-command
224: ; (eq view-last-command-entry last-command))
225: ; (funcall view-last-command view-last-command-argument))
226: ; (setq this-command view-last-command-entry))
227:
228: (defun View-goto-line (&optional line)
229: "Move to LINE in View mode.
230: Display is centered at LINE. Sets mark at starting position and pushes
231: mark ring."
232: (interactive "p")
233: (push-mark)
234: (goto-line (or line 1))
235: (recenter (/ (view-window-size) 2)))
236:
237: (defun View-scroll-lines-forward (&optional lines)
238: "Scroll forward in View mode.
239: No arg means whole window full, or number of lines set by \\[View-scroll-lines-forward-set-scroll-size].
240: Arg is number of lines to scroll."
241: (interactive "P")
242: (setq lines
243: (if lines (prefix-numeric-value lines)
244: (view-scroll-size)))
245: ; (view-last-command 'View-scroll-lines-forward lines)
246: (if (>= lines (view-window-size))
247: (scroll-up nil)
248: (if (>= (- lines) (view-window-size))
249: (scroll-down nil)
250: (scroll-up lines)))
251: (cond ((pos-visible-in-window-p (point-max))
252: (goto-char (point-max))
253: (recenter -1)
254: (message (substitute-command-keys
255: "End. Type \\[exit-recursive-edit] to quit viewing."))))
256: (move-to-window-line -1)
257: (beginning-of-line))
258:
259: (defun View-scroll-lines-forward-set-scroll-size (&optional lines)
260: "Scroll forward LINES lines in View mode, setting the \"scroll size\".
261: This is the number of lines which \\[View-scroll-lines-forward] and \\[View-scroll-lines-backward] scroll by default.
262: The absolute value of LINES is used, so this command can be used to scroll
263: backwards (but \"scroll size\" is always positive). If LINES is greater than
264: window height or omitted, then window height is assumed. If LINES is less
265: than window height then scrolling context is provided from previous screen."
266: (interactive "P")
267: (if (not lines)
268: (setq view-scroll-size (view-window-size))
269: (setq lines (prefix-numeric-value lines))
270: (setq view-scroll-size
271: (min (if (> lines 0) lines (- lines)) (view-window-size))))
272: (View-scroll-lines-forward lines))
273:
274: (defun View-scroll-one-more-line (&optional arg)
275: "Scroll one more line up in View mode.
276: With ARG scroll one line down."
277: (interactive "P")
278: (View-scroll-lines-forward (if (not arg) 1 -1)))
279:
280: (defun View-scroll-lines-backward (&optional lines)
281: "Scroll backward in View mode.
282: No arg means whole window full, or number of lines set by \\[View-scroll-lines-forward-set-scroll-size].
283: Arg is number of lines to scroll."
284: (interactive "P")
285: (View-scroll-lines-forward (if lines
286: (- (prefix-numeric-value lines))
287: (- (view-scroll-size)))))
288:
289: (defun View-search-regexp-forward (times regexp)
290: "Search forward for NTH occurrence of REGEXP in View mode.
291: Displays line found at center of window. REGEXP is remembered for
292: searching with \\[View-search-last-regexp-forward] and \\[View-search-last-regexp-backward]. Sets mark at starting position and pushes mark ring."
293: (interactive "p\nsSearch forward (regexp): ")
294: (if (> (length regexp) 0)
295: (progn
296: ;(view-last-command 'View-search-last-regexp-forward times)
297: (view-search times regexp))))
298:
299: (defun View-search-regexp-backward (times regexp)
300: "Search backward from window start for NTH instance of REGEXP in View mode.
301: Displays line found at center of window. REGEXP is remembered for
302: searching with \\[View-search-last-regexp-forward] and \\[View-search-last-regexp-backward]. Sets mark at starting position and pushes mark ring."
303: (interactive "p\nsSearch backward (regexp): ")
304: (View-search-regexp-forward (- times) regexp))
305:
306: (defun View-search-last-regexp-forward (times)
307: "Search forward from window end for NTH instance of last regexp in View mode.
308: Displays line found at center of window. Sets mark at starting position
309: and pushes mark ring."
310: (interactive "p")
311: (View-search-regexp-forward times view-last-regexp))
312:
313: (defun View-search-last-regexp-backward (times)
314: "Search backward from window start for NTH instance of last regexp in View mode.
315: Displays line found at center of window. Sets mark at starting position and
316: pushes mark ring."
317: (interactive "p")
318: (View-search-regexp-backward times view-last-regexp))
319:
320: (defun View-back-to-mark (&optional ignore)
321: "Return to last mark set in View mode, else beginning of file.
322: Displays line at center of window. Pops mark ring so successive
323: invocations return to earlier marks."
324: (interactive)
325: (goto-char (or (mark) (point-min)))
326: (pop-mark)
327: (recenter (/ (view-window-size) 2)))
328:
329: (defun view-search (times regexp)
330: (setq view-last-regexp regexp)
331: (let (where)
332: (save-excursion
333: (move-to-window-line (if (< times 0) 0 -1))
334: (if (re-search-forward regexp nil t times)
335: (setq where (point))))
336: (if where
337: (progn
338: (push-mark)
339: (goto-char where)
340: (beginning-of-line)
341: (recenter (/ (view-window-size) 2)))
342: (message "Can't find occurrence %d of %s" times regexp)
343: (sit-for 4))))
344:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.