Mercurial > emacs
annotate lisp/eshell/em-prompt.el @ 70166:1204092d4458
*** empty log message ***
author | Kim F. Storm <storm@cua.dk> |
---|---|
date | Fri, 21 Apr 2006 14:06:42 +0000 |
parents | 067115a6e738 |
children | f7702c5f335d c5406394f567 |
rev | line source |
---|---|
38414
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
32526
diff
changeset
|
1 ;;; em-prompt.el --- command prompts |
29876 | 2 |
64701
34bd8e434dd7
Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
64085
diff
changeset
|
3 ;; Copyright (C) 1999, 2000, 2002, 2003, 2004, |
68648
067115a6e738
Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
64701
diff
changeset
|
4 ;; 2005, 2006 Free Software Foundation, Inc. |
29876 | 5 |
32526 | 6 ;; Author: John Wiegley <johnw@gnu.org> |
7 | |
29876 | 8 ;; This file is part of GNU Emacs. |
9 | |
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 2, or (at your option) | |
13 ;; any later version. | |
14 | |
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. | |
19 | |
20 ;; You should have received a copy of the GNU General Public License | |
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the | |
64085 | 22 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
23 ;; Boston, MA 02110-1301, USA. | |
29876 | 24 |
25 (provide 'em-prompt) | |
26 | |
27 (eval-when-compile (require 'esh-maint)) | |
28 | |
29 (defgroup eshell-prompt nil | |
30 "This module provides command prompts, and navigation between them, | |
31 as is common with most shells." | |
32 :tag "Command prompts" | |
33 :group 'eshell-module) | |
34 | |
35 ;;; Commentary: | |
36 | |
37 ;; Most of the prompt navigation commands of `comint-mode' are | |
38 ;; supported, such as C-c C-n, C-c C-p, etc. | |
39 | |
40 ;;; User Variables: | |
41 | |
42 (defcustom eshell-prompt-load-hook '(eshell-prompt-initialize) | |
43 "*A list of functions to call when loading `eshell-prompt'." | |
44 :type 'hook | |
45 :group 'eshell-prompt) | |
46 | |
47 (defcustom eshell-prompt-function | |
48 (function | |
49 (lambda () | |
50 (concat (eshell/pwd) | |
51 (if (= (user-uid) 0) " # " " $ ")))) | |
52 "*A function that returns the Eshell prompt string. | |
53 Make sure to update `eshell-prompt-regexp' so that it will match your | |
54 prompt." | |
55 :type 'function | |
56 :group 'eshell-prompt) | |
57 | |
58 (defcustom eshell-prompt-regexp "^[^#$\n]* [#$] " | |
59 "*A regexp which fully matches your eshell prompt. | |
60 This setting is important, since it affects how eshell will interpret | |
61 the lines that are passed to it. | |
62 If this variable is changed, all Eshell buffers must be exited and | |
63 re-entered for it to take effect." | |
64 :type 'regexp | |
65 :group 'eshell-prompt) | |
66 | |
67 (defcustom eshell-highlight-prompt t | |
68 "*If non-nil, Eshell should highlight the prompt." | |
69 :type 'boolean | |
70 :group 'eshell-prompt) | |
71 | |
63533
b7ea6515f1ba
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-431
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
72 (defface eshell-prompt |
29876 | 73 '((((class color) (background light)) (:foreground "Red" :bold t)) |
74 (((class color) (background dark)) (:foreground "Pink" :bold t)) | |
75 (t (:bold t))) | |
76 "*The face used to highlight prompt strings. | |
77 For highlighting other kinds of strings -- similar to shell mode's | |
78 behavior -- simply use an output filer which changes text properties." | |
79 :group 'eshell-prompt) | |
63533
b7ea6515f1ba
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-431
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
80 ;; backward-compatibility alias |
b7ea6515f1ba
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-431
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
81 (put 'eshell-prompt-face 'face-alias 'eshell-prompt) |
29876 | 82 |
83 (defcustom eshell-before-prompt-hook nil | |
84 "*A list of functions to call before outputting the prompt." | |
85 :type 'hook | |
86 :options '(eshell-begin-on-new-line) | |
87 :group 'eshell-prompt) | |
88 | |
89 (defcustom eshell-after-prompt-hook nil | |
90 "*A list of functions to call after outputting the prompt. | |
91 Note that if `eshell-scroll-show-maximum-output' is non-nil, then | |
92 setting `eshell-show-maximum-output' here won't do much. It depends | |
93 on whether the user wants the resizing to happen while output is | |
94 arriving, or after." | |
95 :type 'hook | |
96 :options '(eshell-show-maximum-output) | |
97 :group 'eshell-prompt) | |
98 | |
99 ;;; Functions: | |
100 | |
101 (defun eshell-prompt-initialize () | |
102 "Initialize the prompting code." | |
103 (unless eshell-non-interactive-p | |
104 (add-hook 'eshell-post-command-hook 'eshell-emit-prompt nil t) | |
105 | |
106 (make-local-variable 'eshell-prompt-regexp) | |
107 (if eshell-prompt-regexp | |
108 (set (make-local-variable 'paragraph-start) eshell-prompt-regexp)) | |
109 | |
110 (set (make-local-variable 'eshell-skip-prompt-function) | |
111 'eshell-skip-prompt) | |
112 | |
113 (define-key eshell-command-map [(control ?n)] 'eshell-next-prompt) | |
114 (define-key eshell-command-map [(control ?p)] 'eshell-previous-prompt))) | |
115 | |
116 (defun eshell-emit-prompt () | |
117 "Emit a prompt if eshell is being used interactively." | |
118 (run-hooks 'eshell-before-prompt-hook) | |
119 (if (not eshell-prompt-function) | |
120 (set-marker eshell-last-output-end (point)) | |
121 (let ((prompt (funcall eshell-prompt-function))) | |
122 (and eshell-highlight-prompt | |
123 (add-text-properties 0 (length prompt) | |
124 '(read-only t | |
63533
b7ea6515f1ba
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-431
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
125 face eshell-prompt |
29876 | 126 rear-nonsticky (face read-only)) |
127 prompt)) | |
128 (eshell-interactive-print prompt))) | |
129 (run-hooks 'eshell-after-prompt-hook)) | |
130 | |
131 (defun eshell-backward-matching-input (regexp arg) | |
132 "Search backward through buffer for match for REGEXP. | |
133 Matches are searched for on lines that match `eshell-prompt-regexp'. | |
134 With prefix argument N, search for Nth previous match. | |
135 If N is negative, find the next or Nth next match." | |
136 (interactive (eshell-regexp-arg "Backward input matching (regexp): ")) | |
137 (let* ((re (concat eshell-prompt-regexp ".*" regexp)) | |
138 (pos (save-excursion (end-of-line (if (> arg 0) 0 1)) | |
139 (if (re-search-backward re nil t arg) | |
140 (point))))) | |
141 (if (null pos) | |
142 (progn (message "Not found") | |
143 (ding)) | |
144 (goto-char pos) | |
145 (eshell-bol)))) | |
146 | |
147 (defun eshell-forward-matching-input (regexp arg) | |
148 "Search forward through buffer for match for REGEXP. | |
149 Matches are searched for on lines that match `eshell-prompt-regexp'. | |
150 With prefix argument N, search for Nth following match. | |
151 If N is negative, find the previous or Nth previous match." | |
152 (interactive (eshell-regexp-arg "Forward input matching (regexp): ")) | |
153 (eshell-backward-matching-input regexp (- arg))) | |
154 | |
155 (defun eshell-next-prompt (n) | |
156 "Move to end of Nth next prompt in the buffer. | |
157 See `eshell-prompt-regexp'." | |
158 (interactive "p") | |
159 (forward-paragraph n) | |
160 (eshell-skip-prompt)) | |
161 | |
162 (defun eshell-previous-prompt (n) | |
163 "Move to end of Nth previous prompt in the buffer. | |
164 See `eshell-prompt-regexp'." | |
165 (interactive "p") | |
166 (eshell-next-prompt (- (1+ n)))) | |
167 | |
168 (defun eshell-skip-prompt () | |
169 "Skip past the text matching regexp `eshell-prompt-regexp'. | |
170 If this takes us past the end of the current line, don't skip at all." | |
171 (let ((eol (line-end-position))) | |
172 (if (and (looking-at eshell-prompt-regexp) | |
173 (<= (match-end 0) eol)) | |
174 (goto-char (match-end 0))))) | |
175 | |
176 ;;; Code: | |
177 | |
52401 | 178 ;;; arch-tag: 01c1574b-ce70-4e89-bc38-e6619f61e208 |
29876 | 179 ;;; em-prompt.el ends here |