| blob | c9be839e12bdcf07d49ecc498c3a4d484630f34c |
1 ;;; em-smart.el --- smart display of output
3 ;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007,
4 ;; 2008, 2009, 2010 Free Software Foundation, Inc.
6 ;; Author: John Wiegley <johnw@gnu.org>
8 ;; This file is part of GNU Emacs.
10 ;; GNU Emacs is free software: you can redistribute it and/or modify
11 ;; it under the terms of the GNU General Public License as published by
12 ;; the Free Software Foundation, either version 3 of the License, or
13 ;; (at your option) any later version.
15 ;; GNU Emacs is distributed in the hope that it will be useful,
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 ;; GNU General Public License for more details.
20 ;; You should have received a copy of the GNU General Public License
21 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
23 ;;; Commentary:
25 ;; The best way to get a sense of what this code is trying to do is by
26 ;; using it. Basically, the philosophy represents a blend between the
27 ;; ease of use of modern day shells, and the review-before-you-proceed
28 ;; mentality of Plan 9's 9term.
29 ;;
30 ;; @ When you invoke a command, it is assumed that you want to read
31 ;; the output of that command.
32 ;;
33 ;; @ If the output is not what you wanted, it is assumed that you will
34 ;; want to edit, and then resubmit a refined version of that
35 ;; command.
36 ;;
37 ;; @ If the output is valid, pressing any self-inserting character key
38 ;; will jump to end of the buffer and insert that character, in
39 ;; order to begin entry of a new command.
40 ;;
41 ;; @ If you show an intention to edit the previous command -- by
42 ;; moving around within it -- then the next self-inserting
43 ;; characters will insert *there*, instead of at the bottom of the
44 ;; buffer.
45 ;;
46 ;; @ If you show an intention to review old commands, such as M-p or
47 ;; M-r, point will jump to the bottom of the buffer before invoking
48 ;; that command.
49 ;;
50 ;; @ If none of the above has happened yet (i.e., your point is just
51 ;; sitting on the previous command), you can use SPACE and BACKSPACE
52 ;; (or DELETE) to page forward and backward *through the output of
53 ;; the last command only*. It will constrain the movement of the
54 ;; point and window so that the maximum amount of output is always
55 ;; displayed at all times.
56 ;;
57 ;; @ While output is being generated from a command, the window will
58 ;; be constantly reconfigured (until it would otherwise make no
59 ;; difference) in order to always show you the most output from the
60 ;; command possible. This happens if you change window sizes,
61 ;; scroll, etc.
62 ;;
63 ;; @ Like I said, it's not really comprehensible until you try it! ;)
64 ;;
65 ;; One disadvantage of this module is that it increases Eshell's
66 ;; memory consumption by a factor of two or more. With small commands
67 ;; (such as pwd), where the screen is mostly full, consumption can
68 ;; increase by orders of magnitude.
70 ;;; Code:
74 ;;;###autoload
76 "This module combines the facility of normal, modern shells with
77 some of the edit/review concepts inherent in the design of Plan 9's
78 9term. See the docs for more details.
80 Most likely you will have to turn this option on and play around with
81 it to get a real sense of how it works."
83 ;; :link '(info-link "(eshell)Smart display of output")
86 ;;; User Variables:
89 "*A list of functions to call when loading `eshell-smart'."
99 "*A hook that gets run when `eshell-smart' is unloaded."
104 "*If t, always review commands.
105 Reviewing means keeping point on the text of the command that was just
106 invoked, to allow corrections to be made easily.
108 If set to nil, quick commands won't be reviewed. A quick command is a
109 command that produces no output, and exits successfully.
113 only if that output can be presented in its entirely in the Eshell window."
117 not-even-short-output))
122 mouse-yank-at-click
123 mouse-yank-secondary
124 yank-pop
125 yank-rectangle
126 yank)
127 "*A list of commands which cause Eshell to jump to the end of buffer."
132 "*If non-nil, space will go to end of buffer when point-max is visible.
133 That is, if a command is running and the user presses SPACE at a time
134 when the end of the buffer is visible, point will go to the end of the
135 buffer and smart-display will be turned off (that is, subsequently
136 pressing backspace will not cause the buffer to scroll down).
138 This feature is provided to make it very easy to watch the output of a
139 long-running command, such as make, where it's more desirable to see
140 the output go by than to review it afterward.
142 Setting this variable to nil means that space and backspace will
143 always have a consistent behavior, which is to move back and forth
144 through displayed output. But it also means that enabling output
145 tracking requires the user to manually move point to the end of the
151 "*This variable indicates where point should jump to after a command.
152 The options are `begin', `after' or `end'."
158 ;;; Internal Variables:
164 ;;; Functions:
167 "Setup Eshell smart display."
169 ;; override a few variables, since they would interfere with the
170 ;; smart display functionality.
195 "Scroll the given Eshell window accordingly."
204 "Refresh all visible Eshell buffers."
220 "Set the point to somewhere in the beginning of the last command."
238 "Disable smart display mode if the buffer changes in any way."
244 "Jump to the end of the input buffer.
245 This is done whenever a command exits successfully and both the command
246 and the end of the buffer are still visible."
257 "Display as much output as possible, smartly."
261 ;; trigger the redisplay now, so that we catch any attempted
262 ;; point motion; this is to cover for a redisplay bug
280 "Like `end-of-buffer', but do not push a mark."
285 "Handle self-inserting or movement commands intelligently."
296 eshell-current-command)
326 ;; Local Variables:
327 ;; generated-autoload-file: "esh-groups.el"
328 ;; End:
330 ;; arch-tag: 8c0112c7-379c-4d54-9a1c-204d68786a4b
331 ;;; em-smart.el ends here