Lines Matching +defs:new +defs:prompt
89 "Creating new ERC buffers"
180 (defcustom erc-try-new-nick-p t
207 prompt you for it.")
215 (defcustom erc-prompt-for-password t
216 "Asks before using the default password, or whether to enter a new one."
230 (defcustom erc-hide-prompt nil
231 "If non-nil, do not display the prompt for commands.
235 See also the variables `erc-prompt' and `erc-command-indicator'."
287 the new channel.
416 (defun erc-change-user-nickname (user new-nick)
423 (setf (erc-server-user-nickname user) new-nick)
426 (puthash (erc-downcase new-nick) user erc-server-users))
432 (puthash (erc-downcase new-nick) cdata
606 "The place where insertion of new text in erc buffers should happen.")
619 (defcustom erc-prompt "ERC>"
624 (defun erc-prompt ()
625 "Return the input prompt as a string.
627 See also the variable `erc-prompt'."
628 (let ((prompt (if (functionp erc-prompt)
629 (funcall erc-prompt)
630 erc-prompt)))
631 (if (> (length prompt) 0)
632 (concat prompt " ")
633 prompt)))
641 If nil, the prompt will be constructed from the variable `erc-prompt'."
646 "Return the command indicator prompt as a string.
650 (let ((prompt (if (functionp erc-command-indicator)
653 (if (> (length prompt) 0)
654 (concat prompt " ")
655 prompt))))
783 (defcustom erc-prompt-for-channel-key nil
1158 (defface erc-prompt-face
1160 "ERC face for the prompt."
1208 "Define a new minor mode using ERC conventions.
1452 (concat "\C-l\\|\\(^" (regexp-quote (erc-prompt)) "\\)"))
1454 (concat "\\(" (regexp-quote (erc-prompt)) "\\)"))
1471 'bury - bury it in a new buffer,
1504 "*If nil, create new buffers on joining a channel/query.
1505 If non-nil, a new buffer will only be created when you join
1547 (defun erc-generate-new-buffer-name (server port target &optional proc)
1548 "Create a new buffer name based on the arguments."
1569 (generate-new-buffer-name buf-name))))
1572 "Create a new buffer based on the arguments."
1573 (get-buffer-create (erc-generate-new-buffer-name server port target proc)))
1685 "Use `iswitchb-read-buffer' to prompt for a ERC buffer to switch to.
1783 "Migrate old names of ERC modules to new ones."
1785 ;; each item is in the format '(old . new)
1909 already connected and just create a separate buffer for the new
1935 ;; go to the end of the buffer and open a new line
1939 (when (get-text-property (point) 'erc-prompt)
1942 (or (next-single-property-change (point) 'erc-prompt)
1985 ;; set up prompt
1992 (erc-display-prompt)
2043 (defun read-passwd (prompt)
2045 (read-from-minibuffer prompt)))
2093 (setq passwd (if erc-prompt-for-password
2303 (save-excursion ;; to restore point in the new buffer
2363 new-bufs)
2378 (add-to-list 'new-bufs buf)))
2379 (when (null new-bufs)
2768 (defvar erc-channel-new-member-names nil
2773 (make-variable-buffer-local 'erc-channel-new-member-names)
3507 (buf (generate-new-buffer erc-grab-buffer-name))
3518 (defun erc-display-prompt (&optional buffer pos prompt face)
3520 Display an ERC prompt in BUFFER.
3522 If PROMPT is nil, one is constructed with the function `erc-prompt'.
3525 If FACE is non-nil, it will be used to propertize the prompt. If it is nil,
3526 `erc-prompt-face' will be used."
3527 (let* ((prompt (or prompt (erc-prompt)))
3528 (l (length prompt))
3542 ;; of the prompt, but stuff typed in front of the prompt
3543 ;; shall remain part of the prompt.
3544 (setq prompt (erc-propertize prompt
3547 'erc-prompt t
3550 (erc-put-text-property 0 (1- (length prompt))
3551 'face (or face 'erc-prompt-face)
3552 prompt)
3553 (insert prompt))
3557 ;; Now we are back at the old position. If the prompt was
3559 ;; the prompt.
3601 (when erc-prompt-for-channel-key
3606 "Part from the current channel and prompt for a REASON."
3663 This places `point' just after the prompt, or at the beginning of the line."
3666 (when (get-text-property (point) 'erc-prompt)
3729 These vectors can be helpful when adding new server message handlers to ERC.
3760 set to a symbol, to control how the new query window should
3818 (if (or (not erc-try-new-nick-p)
4398 (setq erc-channel-new-member-names (make-hash-table :test 'equal)))
4409 (if (null (gethash nick erc-channel-new-member-names))
4412 (setq erc-channel-new-member-names nil))
4438 erc-channel-new-member-names)
4449 (defun erc-update-user-nick (nick &optional new-nick
4455 (erc-update-user (erc-get-server-user nick) new-nick
4458 (defun erc-update-user (user &optional new-nick
4470 (when (and new-nick
4472 new-nick)))
4474 (erc-change-user-nickname user new-nick))
4500 (nick new-nick &optional add op voice host login full-name info
4544 (erc-update-user user new-nick
4576 (defun erc-update-channel-member (channel nick new-nick
4585 (erc-update-current-channel-member nick new-nick add op voice host
4908 ;; Kill the input and the prompt
4923 (erc-display-prompt)
4940 and the prompt is already deleted.
4971 ;; Insert the prompt along with the command.
4979 (unless erc-hide-prompt
4980 (erc-display-prompt nil nil (erc-command-indicator)
5437 (sp (or (erc-command-indicator) (erc-prompt)))
5441 ;; prepare the prompt string for echo
6000 (let ((buffer-name (generate-new-buffer-name "*ERC input*"))
6053 (nick-in-use . "%n is in use. Choose new nickname: ")
6081 (NICK-you . "Your new nickname is %N")