Lines Matching +defs:set +defs:line
96 (defgroup erc-mode-line-and-header nil
97 "Displaying information in the mode-line and header"
184 You can manually set another nickname with the /NICK command."
199 :set (lambda (sym val)
201 (set sym (funcall val))
202 (set sym val))))
210 "Initial user modes to be set after a connection is established."
221 "Warn the user if they attempt to send a blank line."
226 "If set to non-nil, send lines consisting of only whitespace."
249 (define-widget 'erc-message-type 'set
250 "A set of standard IRC Message types."
286 without arguments, with the current buffer set to the buffer of
616 (set-text-properties 0 (length newstring) nil newstring)
774 set if some hacker is trying to flood you away."
982 "Hook called first when some text is inserted through `erc-display-line'.
985 Filtering functions can set `erc-insert-this' to nil to avoid
991 "Hook called first when some text is sent through `erc-send-current-line'.
994 To change the text that will be sent, set the variable STR which is
995 used in `erc-send-current-line'.
1000 Filtering functions can set `erc-send-this' to nil to avoid sending of
1004 Note that it's useless to set `erc-send-this' to nil and
1012 Functions on `erc-insert-pre-hook' can set this variable to nil
1017 Functions on `erc-send-pre-hook' can set this variable to nil
1094 (define-key map "\C-m" 'erc-send-current-line)
1110 (define-key map "\C-c\C-t" 'erc-set-topic)
1147 (defface erc-header-line
1149 "ERC face used for the header line.
1151 This will only be used if `erc-header-line-face-method' is non-nil."
1198 "When set to t, generate debug messages in a separate debug buffer.")
1394 (set-buffer session-buffer)
1400 (set-buffer erc-dbuf)
1407 (set-buffer cb))
1414 Defaults to the server buffer, and should only be set in the
1426 (defun erc-set-active-buffer (buffer)
1447 (set-syntax-table erc-mode-syntax-table)
1448 (when (boundp 'next-line-add-newlines)
1449 (set (make-local-variable 'next-line-add-newlines) nil))
1450 (setq line-move-ignore-invisible t)
1451 (set (make-local-variable 'paragraph-separate)
1453 (set (make-local-variable 'paragraph-start)
1490 This only has effect when `erc-join-buffer' is set to `frame'."
1795 If you set the value of this without using `customize' remember to call
1801 :set (lambda (sym val)
1810 (set sym val)
1815 '(set
1851 (const :tag "track: Track channel activity in the mode-line" track)
1898 (set-window-dedicated-p (selected-window) t)))
1926 (set-buffer buffer)
1935 ;; go to the end of the buffer and open a new line
1938 (forward-line 0)
1941 (set-marker erc-input-marker
1947 (set-marker erc-insert-marker (point))
1961 ;; clear last incomplete line read
1968 (erc-set-active-buffer buffer)
1985 ;; set up prompt
1991 (set-marker erc-insert-marker (point))
2002 (erc-update-mode-line)
2136 then the server and full-name will be set to those values, whereas
2179 WARNING: Do not set this variable directly! Instead, use the
2204 (dolist (line lines)
2206 " << " line "\n")))
2237 (local-set-key (kbd "RET") 'erc-toggle-debug-irc-protocol))
2269 I.e. any char in it has the `invisible' property set."
2272 (defun erc-display-line-1 (string buffer)
2274 Auxiliary function used in `erc-display-line'. The line gets filtered to
2281 (set-buffer (or buffer (process-buffer erc-server-process)))
2292 (erc-log (concat "erc-display-line: " string
2298 ;; Leave erc-insert-this set to t as much as possible. Fran
2299 ;; Litterio <franl> has seen erc-insert-this set to nil while
2351 (defun erc-display-line (string &optional buffer)
2359 buffer is used. `erc-display-line-1' is used to display STRING.
2377 (erc-display-line-1 string buf)
2381 (erc-display-line-1 string (process-buffer erc-server-process))
2382 (erc-display-line-1 string (current-buffer))))))
2404 See also `erc-format-message' and `erc-display-line'."
2422 (erc-display-line string buffer)
2426 (erc-display-line string buffer)))))
2436 (defvar erc-send-input-line-function 'erc-send-input-line)
2437 (make-variable-buffer-local 'erc-send-input-line-function)
2439 (defun erc-send-input-line (target line &optional force)
2443 (setq line (format "PRIVMSG %s :%s"
2445 ;; If the line is empty, we still want to
2446 ;; send it - i.e. an empty pasted line.
2447 (if (string= line "\n")
2449 line)))
2450 (erc-server-send line force target))
2467 (defun erc-process-input-line (line &optional force no-command)
2476 An optional FORCE argument forces sending the line when flood
2478 this function from interpreting the line as a command."
2479 (let ((command-list (erc-extract-command-from-line line)))
2498 (funcall erc-send-input-line-function r line force)
2506 (defun erc-cmd-AMSG (line)
2509 (setq line (erc-trim-string line))
2513 (erc-send-message line)))
2516 (defun erc-cmd-SAY (line)
2520 that since multi-line messages are never a command, you don't
2522 (if (string-match "^\\s-*$" line)
2524 (string-match "^ ?\\(.*\\)" line)
2525 (erc-process-input-line (match-string 1 line) nil t)))
2528 (defun erc-cmd-SET (line)
2532 ((string-match "^\\s-*\\(\\S-+\\)\\s-+\\(.*\\)$" line)
2533 (let ((var (read (concat "erc-" (match-string 1 line))))
2534 (val (read (match-string 2 line))))
2537 (set var (eval val))
2541 (setq var (read (match-string 1 line)))
2544 (set var (eval val))
2550 ((string-match "^\\s-*$" line)
2551 (erc-display-line
2569 (defun erc-cmd-default (line)
2575 (erc-log (format "cmd: DEFAULT: %s" line))
2576 (erc-server-send (substring line 1))
2588 (erc-display-line
2593 (erc-display-line (erc-make-notice "Ignore list is empty") 'active)
2594 (erc-display-line (erc-make-notice "Ignore list:") 'active)
2596 (erc-display-line (erc-make-notice item)
2611 (erc-display-line
2615 (erc-display-line
2660 (defun erc-cmd-AWAY (line)
2663 (when (string-match "^\\s-*\\(.*\\)$" line)
2664 (let ((reason (match-string 1 line)))
2673 (defun erc-cmd-GAWAY (line)
2678 (erc-cmd-AWAY line)))
2822 (defun erc-cmd-LOAD (line)
2831 ((string-match "^\\s-*\\(\\S-+\\)\\(.*\\)$" line)
2832 (let* ((file-to-find (match-string 1 line))
2833 (erc-script-args (match-string 2 line))
2916 (erc-display-line
2937 (defun erc-cmd-DESCRIBE (line)
2942 "^\\s-*\\(\\S-+\\)\\s-\\(.*\\)$" line)
2943 (let ((dst (match-string 1 line))
2944 (s (match-string 2 line)))
2951 (defun erc-cmd-ME (line)
2954 ((string-match "^\\s-\\(.*\\)$" line)
2955 (let ((s (match-string 1 line)))
2962 (defun erc-cmd-LASTLOG (line)
2973 (occur line)
2977 (defun erc-send-message (line &optional force)
2980 See also `erc-message' and `erc-display-line'."
2981 (erc-message "PRIVMSG" (concat (erc-default-target) " " line) force)
2982 (erc-display-line
2983 (concat (erc-format-my-nick) line)
2988 (defun erc-cmd-MODE (line)
2998 ((string-match "^\\s-\\(.*\\)$" line)
2999 (let ((s (match-string 1 line)))
3001 (erc-server-send (concat "MODE " line)))
3012 (defun erc-cmd-MSG (line)
3016 (erc-message "PRIVMSG" line))
3021 (defun erc-cmd-SQUERY (line)
3025 (erc-message "SQUERY" line))
3038 (erc-set-current-nick nick)
3039 (erc-update-mode-line)
3043 (defun erc-cmd-PART (line)
3047 ((string-match "^\\s-*\\([&#+!]\\S-+\\)\\s-?\\(.*\\)$" line)
3048 (let* ((ch (match-string 1 line))
3049 (msg (match-string 2 line))
3057 ((string-match "^\\s-*\\(.*\\)$" line)
3059 (msg (match-string 1 line))
3081 (defun erc-cmd-QUOTE (line)
3086 ((string-match "^ ?\\(.+\\)$" line)
3087 (erc-server-send (match-string 1 line)))
3178 (erc-set-active-buffer (erc-server-buffer))
3290 (defun erc-cmd-TIME (&optional line)
3293 ((and line (string-match "^\\s-*\\(.*\\)$" line))
3294 (let ((args (match-string 1 line)))
3384 (erc-display-line (erc-make-notice "You're not on a channel\n")
3403 (erc-display-line (erc-make-notice
3419 (erc-display-line
3424 (erc-display-line separator 'active)
3425 (erc-display-line (format fmt "Ban Mask" "Banned By") 'active)
3426 (erc-display-line separator 'active)
3430 (erc-display-line
3439 (erc-display-line (erc-make-notice "End of Ban list")
3454 (erc-display-line
3499 Converts all the IRC text properties in each line of the region
3504 (erc-set-active-buffer (current-buffer))
3510 (set-buffer buf)
3511 (dolist (line lines)
3512 (insert (concat line "\n")))
3513 (set-buffer cb)
3533 (set-buffer buffer))
3555 (set-marker erc-input-marker (point)))
3565 (set-buffer ob)))
3576 (erc-send-current-line)))
3584 (erc-set-active-buffer (current-buffer))
3598 (set-buffer (process-buffer erc-server-process))
3615 (defun erc-set-topic (topic)
3627 (defun erc-set-channel-limit (&optional limit)
3638 (defun erc-set-channel-key (&optional key)
3661 "Move `point' to the beginning of the current line.
3663 This places `point' just after the prompt, or at the beginning of the line."
3665 (forward-line 0)
3671 "Kill current input line using `erc-bol' followed by `kill-line'."
3678 (kill-line)))
3740 (set-buffer server))
3753 (erc-update-mode-line)
3760 set to a symbol, to control how the new query window should
3775 disconnected, you should set this option to t."
4127 (erc-update-mode-line)
4128 (erc-set-initial-user-mode nick buffer)
4132 (defun erc-set-initial-user-mode (nick buffer)
4133 "If `erc-user-mode' is non-nil for NICK, set the user modes.
4356 If nil, set the user as away.
4372 ;; away must be set to NIL BEFORE sending anything to prevent
4376 (set-buffer (erc-active-buffer))
4387 (erc-update-mode-line)))
4395 be called with the current buffer set to the channel buffer.
4404 received. Should be called with the current buffer set to the
4508 last-message-time of the user in the current channel is set
4606 "Find a buffer for CHANNEL and set the TOPIC for it.
4616 (erc-update-mode-line-buffer (current-buffer))))
4618 (defun erc-set-modes (tgt mode-string)
4643 (erc-update-mode-line-buffer buf)))))
4724 (set-buffer buf)
4751 (erc-update-mode-line buf))))
4821 PROPERTY is the text-property set, usually the symbol `face'.
4865 If VALUE-LIST is nil, set each property in PROPERTIES to t, else set
4877 (defun erc-beg-of-input-line ()
4878 "Return the value of `point' at the beginning of the input line.
4886 (defun erc-end-of-input-line ()
4887 "Return the value of `point' at the end of the input line."
4890 (defun erc-send-current-line ()
4891 "Parse current line and send it to IRC."
4896 ((< (point) (erc-beg-of-input-line))
4903 (erc-set-active-buffer (current-buffer))
4909 (delete-region (erc-beg-of-input-line)
4910 (erc-end-of-input-line))
4920 (set-marker (process-mark erc-server-process) (point))
4921 (set-marker erc-insert-marker (point))
4924 (set-buffer-modified-p buffer-modified))))))
4933 (erc-end-of-input-line)))
4949 (message "Blank line - ignoring...")
4961 (lambda (line)
4963 (lambda (line)
4965 (erc-display-msg line)
4966 (erc-process-input-line (concat line "\n")
4968 (or (and erc-flood-protect (erc-split-line line))
4969 (list line))))
4973 (erc-process-input-line (concat str "\n") t nil))
4976 (defun erc-display-command (line)
4984 (insert line)
4988 (set-marker (process-mark erc-server-process) (point))
4989 (set-marker erc-insert-marker (point))
4996 (defun erc-display-msg (line)
5003 (insert line)
5007 (set-marker (process-mark erc-server-process) (point))
5008 (set-marker erc-insert-marker (point))
5020 (defun erc-extract-command-from-line (line)
5024 (when (string-match erc-command-regexp line)
5025 (let* ((cmd (erc-command-symbol (match-string 1 line)))
5032 (format "%s" (match-string 2 line))
5034 (match-string 2 line)) " ")))
5035 line)))
5057 (defun erc-set-current-nick (nick)
5233 (erc-set-active-buffer (current-buffer))
5249 If \"l\" is pressed, `erc-set-channel-limit' gets called.
5250 If \"k\" is pressed, `erc-set-channel-key' gets called.
5252 (interactive "kChannel mode (RET to set more than one): ")
5260 (call-interactively 'erc-set-channel-limit))
5262 (call-interactively 'erc-set-channel-key))
5271 (erc-set-active-buffer (current-buffer))
5285 "Insert the line \"/mode <current target> \" at `point'."
5294 (erc-set-active-buffer (current-buffer))
5304 (set-text-properties start end nil object))))
5350 (defun erc-process-script-line (line &optional args)
5383 (setq tmp (string-match esc-regexp line))
5386 (let* ((hd (substring line 0 tmp))
5389 (tail (substring line tmp)))
5409 (t (erc-log (format "BUG in erc-process-script-line: bad escape sequence: %S\n" esc))
5412 (setq line tail)
5413 (setq tmp (string-match esc-regexp line))
5415 ;;(message "end of while: line=%S, res=%S, tmp=%S" line res tmp)
5417 (setq res (concat res line))
5448 (let ((line (if noexpand s (erc-process-script-line s args))))
5449 (if (and (erc-process-input-line line force)
5452 (erc-put-text-property 0 (length line)
5453 'face 'erc-input-face line)
5454 (erc-display-line (concat sp line) cb)))))
5477 (erc-update-mode-line))
5492 (erc-set-current-nick (erc-compute-nick nick)))
5697 "Return non-nil if the current ERC process is set away.
5699 In particular, the time that we were set away is returned.
5703 ;; Mode line handling
5705 (defcustom erc-mode-line-format "%s %a"
5706 "A string to be formatted and shown in the mode-line in `erc-mode'.
5708 The string is formatted using `format-spec' and the result is set as the value
5709 of `mode-line-buffer-identification'.
5722 :group 'erc-mode-line-and-header
5725 (defcustom erc-header-line-format "%n on %t (%m,%l) %o"
5726 "A string to be formatted and shown in the header-line in `erc-mode'.
5729 Set this to nil if you do not want the header line to be
5732 See `erc-mode-line-format' for which characters are can be used."
5733 :group 'erc-mode-line-and-header
5734 :set (lambda (sym val)
5735 (set sym val)
5736 (when (fboundp 'erc-update-mode-line)
5737 (erc-update-mode-line nil)))
5741 (defcustom erc-header-line-uses-help-echo-p t
5742 "Show the contents of the header line in the echo area or as a tooltip
5743 when you move point into the header line."
5744 :group 'erc-mode-line-and-header
5747 (defcustom erc-header-line-face-method nil
5748 "Determine what method to use when colorizing the header line text.
5752 Otherwise, use the `erc-header-line' face."
5753 :group 'erc-mode-line-and-header
5755 (const :tag "Use the erc-header-line face" t)
5759 "Show the the channel key in the header line."
5768 This variable is used in mode-line display to save screen
5771 :group 'erc-mode-line-and-header
5774 (defcustom erc-mode-line-away-status-format
5776 "When you're away on a server, this is shown in the mode line.
5779 :group 'erc-mode-line-and-header
5816 "Return a formatted `erc-mode-line-away-status-format'
5820 (format-time-string erc-mode-line-away-status-format a)
5847 (defun erc-update-mode-line-buffer (buffer)
5848 "Update the mode line in a single ERC buffer BUFFER."
5866 (face (cond ((eq erc-header-line-face-method nil)
5868 ((functionp erc-header-line-face-method)
5869 (funcall erc-header-line-face-method))
5871 'erc-header-line))))
5874 (list (format-spec erc-mode-line-format spec)))
5877 (setq mode-line-buffer-identification
5878 (list (format-spec erc-mode-line-format spec)))
5879 (setq mode-line-process (list process-status))))
5880 (when (boundp 'header-line-format)
5881 (let ((header (if erc-header-line-format
5882 (format-spec erc-header-line-format spec)
5885 (setq header-line-format nil))
5886 (erc-header-line-uses-help-echo-p
5891 (setq header-line-format
5899 (t (setq header-line-format
5905 (force-mode-line-update))))
5907 (defun erc-update-mode-line (&optional buffer)
5908 "Update the mode line in BUFFER.
5910 If BUFFER is nil, update the mode line in all ERC buffers."
5912 (erc-update-mode-line-buffer buffer)
5915 (erc-update-mode-line-buffer buf)))))
6022 (set (erc-make-message-variable-name catalog entry)
6086 (TOPIC . "%n (%u@%h) has set the topic for %c: \"%T\"")
6110 (s331 . "No topic is set for %c")
6112 (s333 . "%c: topic set by %n, %t")
6117 (s367-set-by . "Ban for %b on %c set by %s on %t")