Lines Matching +defs:face +defs:or +defs:list
18 ;; GNU Emacs is free software; you can redistribute it and/or modify
20 ;; the Free Software Foundation; either version 2, or (at your option)
25 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
61 ;; After you are connected to a server, you can use C-h m or have a look at
79 "http://emacswiki.org/cgi-bin/wiki/ERC (mailing list: erc-discuss@gnu.org)"
155 This can be either a string or a number."
164 This can be either a string, or a list of strings.
165 In the latter case, if the first nick in the list is already in use,
166 other nicks are tried in the list order.
191 This can be either a string or a function to call.
216 "Asks before using the default password, or whether to enter a new one."
259 (defcustom erc-hide-list nil
375 ;; CHANNEL-DATA is either nil or an erc-channel-user struct.
439 list for this channel. If this user is not in the
440 `erc-channel-users' list of any other buffers, the user is also
441 removed from the server's `erc-server-users' list.
458 list as well as from all `erc-channel-users' lists.
501 (defun erc-get-channel-user-list ()
502 "Returns a list of users in the current channel. Each element
503 of the list is of the form (USER . CHANNEL-DATA), where USER is
504 an erc-server-user struct, and CHANNEL-DATA is either `nil' or an
515 (defun erc-get-server-nickname-list ()
516 "Returns a list of known nicknames on the current server."
527 (defun erc-get-channel-nickname-list ()
528 "Returns a list of known nicknames on the current channel."
561 (defun erc-sort-channel-users-by-activity (list)
565 See also: `erc-get-channel-user-list'."
566 (sort list
578 (defun erc-sort-channel-users-alphabetically (list)
582 See also: `erc-get-channel-user-list'."
583 (sort list
602 \(not sure the ban list will be here, but why not)")
678 "*Specifies a list of functions to call to echo a private
680 to display, the parsed server message, the target buffer (or
709 "*Specifies a list of functions to call to echo a private
711 to display, the parsed server message, the target buffer (or
746 "*If non-nil, show every time you get a PING or PONG from the server."
773 an automatic reply (like VERSION or PING) will be ignored. Good to
800 (defcustom erc-ignore-list nil
808 (make-variable-buffer-local 'erc-ignore-list)
810 (defcustom erc-ignore-reply-list nil
813 This differs from `erc-ignore-list' in that it also ignores any
818 If an identifier matches, or a message is addressed to a nick
838 (defcustom erc-startup-file-list
853 directory in the list."
891 will be used. RESULT may be either a string, or a function. If
906 :type '(repeat (list regexp (choice (string) (function)))))
915 will be used. RESULT may be either a string, or a function. If
930 :type '(repeat (list regexp (choice (string) (function)))))
975 "Put functions which should get called more or less periodically here.
1011 "Insert the text into the target buffer or not.
1016 "Send the text to the target or not.
1066 (list (byte-compile
1116 ;; destroys face properties.
1139 (defface erc-default-face '((t))
1140 "ERC default face."
1143 (defface erc-direct-msg-face '((t (:foreground "IndianRed")))
1144 "ERC face used for messages you receive in the main erc buffer."
1149 "ERC face used for the header line.
1151 This will only be used if `erc-header-line-face-method' is non-nil."
1154 (defface erc-input-face '((t (:foreground "brown")))
1155 "ERC face used for your input."
1158 (defface erc-prompt-face
1160 "ERC face for the prompt."
1163 (defface erc-command-indicator-face
1165 "ERC face for the command indicator.
1169 (defface erc-notice-face '((t (:bold t :foreground "SlateBlue")))
1170 "ERC face for notices."
1173 (defface erc-action-face '((t (:bold t)))
1174 "ERC face for actions generated by /ME."
1177 (defface erc-error-face '((t (:foreground "red")))
1178 "ERC face for errors."
1181 ;; same default color as `erc-input-face'
1182 (defface erc-my-nick-face '((t (:bold t :foreground "brown")))
1183 "ERC face for your current nickname in messages sent by you.
1187 (defface erc-nick-default-face '((t (:bold t)))
1188 "ERC nickname default face."
1191 (defface erc-nick-msg-face '((t (:bold t :foreground "IndianRed")))
1192 "ERC nickname face for private messages."
1210 Symbol ALIAS is the alias to use, or nil.
1212 ENABLE-BODY is a list of expressions used to enable the mode.
1213 DISABLE-BODY is a list of expressions used to disable the mode.
1250 (add-to-list 'erc-modules (quote ,name))
1283 or t, where nil indicates that the other functions on EVENT's hook
1311 or t, where nil indicates that the other functions on EVENT's hook
1347 (with-current-buffer (or buffer (current-buffer))
1362 (with-current-buffer (or buffer (current-buffer))
1382 (or erc-online-p nick)
1506 channels with same names on different servers, or have query buffers
1514 PORT may be an integer, a string or a symbol. If it is a string or a
1550 (let* ((buf-name (or target
1551 (or (let ((name (concat server ":" port)))
1561 (or target
1576 (defun erc-member-ignore-case (string list)
1583 (while list
1584 (if (string= string (erc-downcase (car list)))
1585 (throw 'result list)
1586 (setq list (cdr list))))))
1612 (let ((,proc (or ,process
1637 "Return a list of `erc-mode' buffers matching certain criteria.
1642 server connection, or nil which means all open connections."
1650 (or (not proc)
1654 (buffer-list)))))
1656 (defun erc-buffer-list (&optional predicate proc)
1657 "Return a list of ERC buffers.
1659 the predicate. If PREDICATE is passed as nil, return a list of all ERC
1669 where PRED matches or in all buffers of the server process if PRED is
1679 (erc-buffer-list ,pre
1689 `erc-modified-channels-alist' in front of the buffer list.
1697 (or enabled (iswitchb-mode 1))
1703 (erc-buffer-list
1713 (or enabled (iswitchb-mode -1)))))
1715 (defun erc-channel-list (proc)
1716 "Return a list of channel buffers.
1725 (defun erc-buffer-list-with-nick (nick proc)
1726 "Return buffers containing NICK in the `erc-channel-users' list."
1762 (defvar erc-channel-list nil
1763 "Server channel list.")
1764 (make-variable-buffer-local 'erc-channel-list)
1775 "The local copy of `erc-nick' - the list of nicks to choose from.")
1788 (mapcar (lambda (m) (or (cdr (assoc m transforms)) m))
1794 "A list of modules which ERC should enable.
1797 removed from the list will be disabled."
1827 (const :tag "irccontrols: Highlight or remove IRC control characters"
1894 (make-frame (or erc-frame-alist
1905 connect passwd tgt-list channel process)
1915 Returns the buffer for the given server or channel."
1942 (or (next-single-property-change (point) 'erc-prompt)
1949 (setq erc-default-recipients tgt-list)
1971 ;; Server channel list
1972 (setq erc-channel-list ())
1977 ;; The local copy of `erc-nick' - the list of nicks to choose
1978 (setq erc-default-nicks (if (consp erc-nick) erc-nick (list erc-nick)))
2024 (defvar erc-server-history-list nil
2025 "IRC server interactive selection history list.")
2027 (defvar erc-nick-history-list nil
2028 "Nickname interactive selection history list.")
2035 (erc-buffer-list
2068 (erc-compute-server) nil nil 'erc-server-history-list))
2086 nil nil 'erc-nick-history-list)
2089 nil nil 'erc-nick-history-list))))
2095 (y-or-n-p "Use the default password? "))
2111 nil nil 'erc-nick-history-list)))
2112 (list :server server :port port :nick nick :password passwd)))
2190 and appears in face `erc-input-face' in the buffer."
2192 (let ((network-name (or (ignore-errors (erc-network-name))
2214 'face 'erc-input-face)))))
2268 "Check whether STRING is invisible or not.
2281 (set-buffer (or buffer (process-buffer erc-server-process)))
2282 (let ((insert-position (or (marker-position erc-insert-marker)
2285 (buffer-undo-list t)
2313 (erc-update-undo-list (- (or (marker-position erc-insert-marker)
2317 (defun erc-update-undo-list (shift)
2318 ;; Translate buffer positions in buffer-undo-list by SHIFT.
2319 (unless (or (zerop shift) (atom buffer-undo-list))
2320 (let ((list buffer-undo-list) elt)
2321 (while list
2322 (setq elt (car list))
2324 (incf (car list) shift))
2325 ((or (atom elt) ; nil, EXTENT
2342 (setq list (cdr list))))))
2354 or omitted, the default ERC buffer for the `erc-session-server' is used.
2355 The BUFFER can be an actual buffer, a list of buffers, 'all or 'active.
2365 ((bufferp buffer) (list buffer))
2367 ((processp buffer) (list (process-buffer buffer)))
2369 ;; Hmm, or all of the same session server?
2370 (erc-buffer-list nil erc-server-process))
2372 (list (erc-active-buffer)))
2374 (list (process-buffer erc-server-process)))
2375 (t (list (current-buffer)))))
2378 (add-to-list 'new-bufs buf)))
2385 "Highlight STRING according to TYPE, where erc-TYPE-face is an ERC face.
2393 'face (or (intern-soft
2394 (concat "erc-" (symbol-name type) "-face"))
2395 "erc-default-face")
2423 (unless (member (erc-response.command parsed) erc-hide-list)
2428 (defun erc-message-type-member (position list)
2434 (and prop-val (member (erc-response.command prop-val) list))))
2453 "Return the argument list of a function without the parens."
2479 (let ((command-list (erc-extract-command-from-line line)))
2480 (if (and command-list
2482 (let* ((cmd (nth 0 command-list))
2483 (args (nth 1 command-list)))
2491 ?u (or (erc-get-arglist cmd)
2494 (or (documentation cmd) "")))
2517 "Send LINE to the current query or channel as a message, not a command.
2581 If no USER argument is specified, list the contents of `erc-ignore-list'."
2585 (y-or-n-p (format "Use regexp-quoted form (%s) instead? "
2591 (erc-with-server-buffer (add-to-list 'erc-ignore-list user)))
2592 (if (null (erc-with-server-buffer erc-ignore-list))
2593 (erc-display-line (erc-make-notice "Ignore list is empty") 'active)
2594 (erc-display-line (erc-make-notice "Ignore list:") 'active)
2598 (erc-with-server-buffer erc-ignore-list))))
2602 "Remove the user specified in USER from the ignore list."
2605 erc-ignore-list)))))
2608 (unless (y-or-n-p (format "Remove this regexp (%s)? "
2619 (setq erc-ignore-list (delete ignored-nick erc-ignore-list)))))
2696 If FUNC contains a valid function or variable, help about that
2708 For a list of user commands (/join /part, ...):
2711 (let* ((sym (or (let ((sym (intern-soft
2713 (if (and sym (or (boundp sym) (fboundp sym)))
2717 (if (and sym (or (boundp sym) (fboundp sym)))
2721 (if (and sym (or (boundp sym) (fboundp sym)))
2731 (or (commandp x)
2755 (erc-channel-list erc-server-process))))
2769 "If non-nil, a names list is currently being received.
2778 This function clears the channel name list first, then sends the
2780 (let ((tgt (or (and (erc-channel-p channel) channel)
2793 (defun erc-cmd-KICK (target &optional reason-or-nick &rest reasonwords)
2795 LINE has the format: \"#CHANNEL NICK REASON\" or \"NICK REASON\"."
2800 (let ((nick reason-or-nick))
2808 (if reason-or-nick (concat reason-or-nick " "))
2873 (add-to-list 'symlist
2879 (add-to-list 'symlist
2885 (add-to-list 'symlist
2891 (add-to-list 'symlist
2897 (add-to-list 'symlist
2903 (add-to-list 'symlist
2909 (add-to-list 'symlist
2978 "Send LINE to the current channel or user and display it.
2985 ;; FIXME - treat multiline, run hooks, or remove me?
2989 "Change or display the mode value of a channel or user.
2995 A list of valid mode strings for Freenode may be found at
3006 (defun erc-cmd-NOTICE (channel-or-user &rest message)
3007 "Send a notice to the channel or user given as the first word.
3009 (erc-message "NOTICE" (concat channel-or-user " "
3013 "Send a message to the channel or user given as the first word in LINE.
3097 (list (read-from-minibuffer "Start a query with: " nil)))
3110 (or s
3119 (or s
3125 (let ((res (car (assoc-default (or s "")
3137 (or s
3146 (or s
3152 (let ((res (car (assoc-default (or s "")
3209 (let ((buffer (or (erc-server-buffer) (current-buffer)))
3302 "Set or request the topic for a channel.
3304 or the empty string.
3357 (let ((chnl (or (and (erc-channel-p channel) channel) (erc-default-target))))
3365 "A list of bans seen for the current channel.
3371 or not the ban list has been requested from the server.")
3378 The ban list is fetched from the server if necessary."
3391 ;; fetch the ban list then callback
3409 (let* ((erc-fill-column (or (and (boundp 'erc-fill-column)
3420 (erc-make-notice (format "Ban list for channel: %s\n"
3439 (erc-display-line (erc-make-notice "End of Ban list")
3461 ;; fetch the ban list then callback
3482 (erc-group-list bans 3))))
3518 (defun erc-display-prompt (&optional buffer pos prompt face)
3526 `erc-prompt-face' will be used."
3527 (let* ((prompt (or prompt (erc-prompt)))
3538 (setq pos (or pos (point)))
3551 'face (or face 'erc-prompt-face)
3558 ;; inserted here or before us, advance point by the length of
3560 (when (or (not pos) (<= (point) pos))
3564 (setq buffer-undo-list nil)
3578 (defvar erc-action-history-list ()
3579 "History list for interactive action input.")
3586 "Action: " nil nil nil 'erc-action-history-list)))
3595 (list
3599 erc-channel-list)))
3608 (list
3618 (list
3624 (let ((topic-list (split-string topic "\C-o"))) ; strip off the topic setter
3625 (erc-cmd-TOPIC (concat (erc-default-target) " " (car topic-list)))))
3630 (interactive (list (read-from-minibuffer
3641 (interactive (list (read-from-minibuffer
3652 (interactive (list (read-from-minibuffer
3654 (or erc-server-announced-name
3663 This places `point' just after the prompt, or at the beginning of the line."
3716 (setq res (append res (list x)))))
3731 (nconc erc-server-vectors (list parsed))
3748 (list target)
3805 (or (when (string-match (concat "^\\(Read error\\) to "
3818 (if (or (not erc-try-new-nick-p)
3884 (or erc-query-on-unjoined-chan-privmsg
3893 "Check if MESSAGE is a CTCP message or not."
3897 "Check if MESSAGE is a CTCP message or not."
3906 (nick-face (if privp 'erc-nick-msg-face 'erc-nick-default-face))
3907 (msg-face (if privp 'erc-direct-msg-face 'erc-default-face)))
3909 (erc-put-text-property 0 (length mark-s) 'face msg-face str)
3911 'face nick-face str)
3913 'face msg-face str)
3927 "Format the nickname of USER showing if USER is an operator or has voice.
3943 (erc-propertize open 'face 'erc-default-face)
3944 (erc-propertize nick 'face 'erc-my-nick-face)
3945 (erc-propertize close 'face 'erc-default-face)))
3947 (erc-propertize prefix 'face 'erc-default-face))))
3951 target buffer specified by BUFFER, or there is no target buffer,
3953 either `erc-echo-notice-hook' or `erc-echo-notice-always-hook',
3961 or `erc-echo-notice-always-hook', and returns non-nil iff BUFFER
3969 designed to be added to either `erc-echo-notice-hook' or
3976 designed to be added to either `erc-echo-notice-hook' or
3984 added to either `erc-echo-notice-hook' or
3993 designed to be added to either `erc-echo-notice-hook' or
4001 `erc-echo-notice-hook' or `erc-echo-notice-always-hook', and
4006 `erc-buffer-list-with-nick'."
4007 (let ((buffers (erc-buffer-list-with-nick sender erc-server-process)))
4015 to either `erc-echo-notice-hook' or
4017 at least one buffer for which the sender is a member or the
4021 `erc-buffer-list-with-nick'."
4022 (let ((buffers (erc-buffer-list-with-nick sender erc-server-process)))
4023 (add-to-list 'buffers buffer)
4031 `erc-echo-notice-hook' or `erc-echo-notice-always-hook', and
4036 `erc-buffer-list-with-nick'."
4037 (let ((buffers (erc-buffer-list-with-nick sender erc-server-process)))
4078 ;; Remove the unbanned masks from the ban list
4087 ;; Add the banned mask(s) to the ban list
4097 (defun erc-group-list (list n)
4099 (cond ((null list) nil)
4100 ((null (nthcdr n list)) (list list))
4101 (t (cons (erc-subseq list 0 n) (erc-group-list (nthcdr n list) n)))))
4122 (let ((server (or erc-server-announced-name
4158 parsed (list 'notice 'error) proc 'ctcp-too-many)
4161 parsed (list 'notice 'error) proc
4187 parsed (list 'notice 'error) proc
4197 (buf (or (erc-get-buffer to proc)
4394 Used when a channel names list is about to be received. Should
4403 Used to fix `erc-channel-users' after a channel names list has been
4504 HOST, LOGIN, FULL-NAME, and INFO. If OP or VOICE are non-nil,
4505 they must be equal to either `on' or `off', in which case the
4506 operator or voice status of the user in the current channel is
4512 information if it is not already present in the user or channel
4515 If, and only if, changes are made, or the user is added,
4555 :buffers (list (current-buffer))))
4574 (or changed user-changed add)))
4590 "Remove NICK from current channel membership list.
4598 "Remove NICK from CHANNEL's membership list.
4608 If optional MODIFY is 'append or 'prepend, then append or prepend the
4623 ;; list of triples: (mode-char 'on/'off argument)
4649 (defun erc-sort-strings (list-of-strings)
4653 (sort (copy-sequence list-of-strings) 'string<))
4656 "Parse MODE-STRING into a list.
4658 Returns a list of three elements:
4664 arg-modes is a list of triples of the form:
4674 (arg-modes nil); list of triples: (mode-char 'on/'off argument)
4676 ;; make the argument list
4686 (setq arg-modes (cons (list (car chars)
4692 (setq arg-modes (cons (list (car chars)
4704 (list add-modes remove-modes arg-modes))
4714 ;; list of triples: (mode-char 'on/'off argument)
4758 (if (or (not (eq onoff 'on))
4766 "Update CHANNEL's key to KEY if ONOFF is 'on or to nil if it's 'off."
4778 a list containing the original nickname, login name and hostname for the user,
4779 and L is a list containing additional TYPE-specific arguments.
4800 'face 'erc-notice-face s)
4803 (erc-put-text-property 0 (length s) 'face 'erc-notice-face s)
4815 (erc-put-text-property 0 (length s) 'face 'erc-error-face s)
4821 PROPERTY is the text-property set, usually the symbol `face'.
4822 VALUE is the value for the text-property, usually a face symbol such as
4823 the face `bold' or `erc-pal-face'.
4827 You can redefine or `defadvice' this function in order to add
4831 (defun erc-list (thing)
4832 "Return THING if THING is a list, or a list with THING as its element."
4835 (list thing)))
4840 Return a list of the three separate tokens."
4843 (list (match-string 1 string)
4848 (list (match-string 1 string)
4852 (list string "" ""))))
4861 &optional object value-list)
4867 (unless value-list
4868 (setq value-list (mapcar (lambda (x)
4873 properties value-list))
4881 (or (and (boundp 'erc-insert-marker)
4958 (if (or (string-match "\n" str)
4968 (or (and erc-flood-protect (erc-split-line line))
4969 (list line))))
4982 'erc-command-indicator-face)))
4986 'face 'erc-command-indicator-face)
5005 'face 'erc-input-face))
5023 list of the form: (command args) where both elements are strings."
5029 (cmd-fun (or cmd #'erc-cmd-default))
5036 (list cmd-fun arg))))
5039 "Split STRING, containing multiple lines and return them in a list.
5087 "Return the current default target (as a character string) or nil if none."
5095 "Add CHANNEL to the default channel list."
5104 "Delete CHANNEL from the default channel list."
5114 "Add QUERY'd NICKNAME to the default channel list.
5136 "Return non-nil if SPEC matches something in `erc-ignore-list'.
5139 matches against all the regexp's in `erc-ignore-list'. If any
5142 (dolist (ignored (erc-with-server-buffer erc-ignore-list))
5148 "Return non-nil if MSG matches something in `erc-ignore-reply-list'.
5151 user matches any regexp in `erc-ignore-reply-list'."
5158 (erc-list-match erc-ignore-reply-list
5186 (defun erc-list-match (lst str)
5236 (cond ((or (not tgt) (not (erc-channel-p tgt)))
5238 (arg (erc-load-irc-script-lines (list (concat "/mode " tgt " -i"))
5240 (t (erc-load-irc-script-lines (list (concat "/mode " tgt " +i"))
5272 (let ((tgt (or channel (erc-default-target)))
5274 (cond ((or (null tgt) (null (erc-channel-p tgt)))
5296 (if tgt (erc-load-irc-script-lines (list (concat "/names " tgt)))
5311 specified in the list PATH.
5325 See also `erc-startup-file-list'."
5327 (dolist (f erc-startup-file-list)
5356 Substitutions are: %C and %c = current target (channel or nick),
5370 (arg-list nil)
5375 ;; First, compute the argument list
5378 (setq arg-list (cons (match-string 1 tmp) arg-list))
5380 (setq arg-list (nreverse arg-list))
5381 (setq arg-num (length arg-list))
5404 (if (<= n arg-num) (nth (1- n) arg-list) "")))
5429 "Load IRC script LINES (a list of strings).
5437 (sp (or (erc-command-indicator) (erc-prompt)))
5443 'face 'erc-command-indicator-face sp)
5453 'face 'erc-input-face line)
5464 (or erc-system-name (system-name))
5490 erc-session-port (or port erc-default-port)
5504 (or server
5519 (or nick
5535 (or full-name
5550 (or port erc-port erc-default-port))
5556 Returns a list of the form (HIGH LOW), compatible with Emacs time format."
5558 (list (truncate (/ n 65536))
5630 If S is nil or an empty string then return general CLIENTINFO."
5631 (if (or (not s) (string= s ""))
5649 (or (file-accessible-directory-p dir) (error "Cannot access %s" dir)))
5688 (if (or op voice)
5712 %a: String indicating away status or \"\" if you are not away
5718 %t: The name of the target (channel, nickname, or servername:port)
5742 "Show the contents of the header line in the echo area or as a tooltip
5747 (defcustom erc-header-line-face-method nil
5751 If given a function, call it and use the resulting face name.
5752 Otherwise, use the `erc-header-line' face."
5755 (const :tag "Use the erc-header-line face" t)
5796 "Return the name of the target (channel or nickname or servername:port)."
5798 (or target
5800 (or erc-server-announced-name
5804 (defun erc-format-target-and/or-server ()
5805 "Return the server name or the current target and server name combined."
5807 (or erc-server-announced-name
5854 ?n (or (erc-current-nick) "")
5857 ?s (erc-format-target-and/or-server)
5866 (face (cond ((eq erc-header-line-face-method nil)
5868 ((functionp erc-header-line-face-method)
5869 (funcall erc-header-line-face-method))
5874 (list (format-spec erc-mode-line-format spec)))
5875 (setq modeline-process (list process-status)))
5878 (list (format-spec erc-mode-line-format spec)))
5879 (setq mode-line-process (list process-status))))
5895 (if face
5897 'face face)
5900 (if face
5901 (erc-propertize header 'face face)
5913 (dolist (buf (erc-buffer-list))
5921 P may be an integer or a service name."
5927 "Convert string S to either an integer port number or a service name."
5985 (let ((bufs (erc-buffer-list nil erc-server-process)))
6005 (list (symbol-name e)))
6215 "*Hook run whenever a non-server or channel buffer is killed.
6228 or `erc-kill-buffer-hook' if any other buffer."
6300 (with-current-buffer (or server-buffer (current-buffer))
6303 (erc-open host port (or user (erc-compute-nick)) (erc-compute-full-name)