Lines Matching +defs:face +defs:or +defs:list
11 ;; This file is free software; you can redistribute it and/or modify
13 ;; the Free Software Foundation; either version 2, or (at your option)
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
36 ;; enabled by default, but can easily be adjusted or turned off. Each
142 number. If zero or nil, no truncating is done."
154 Each element of the list is a list with a SERVER-REGEXP string
170 :value-type (choice (list :tag "NickServ"
174 (list :tag "ChanServ"
179 (list :tag "BitlBee"
197 %t is the buffer target, a channel or a user.
200 use either M-x customize or also call `rcirc-update-prompt'."
211 (defcustom rcirc-ignore-list ()
213 Use /ignore to list them, use /ignore NICK to add or remove a nick."
217 (defvar rcirc-ignore-list-automatic ()
218 "List of ignored nicks added to `rcirc-ignore-list' because of renaming.
220 Nicks will be removed from the automatic list on follow-up renamings or
225 See `rcirc-bright-nick' face."
231 See `rcirc-dim-nick' face."
259 PATTERN is either a string or a cons of strings.
263 VAL is either a coding system or a cons of coding systems.
310 "The channel or user associated with this buffer.")
341 (dolist (p (rcirc-process-list))
379 (server (or server rcirc-default-server))
380 (nick (or nick rcirc-default-nick))
381 (user-name (or user-name rcirc-default-user-name))
382 (full-name (or full-name rcirc-default-user-full-name))
447 (if (rcirc-process-list)
452 (rcirc-process-list))
485 (with-current-buffer (or buffer (current-buffer))
497 (defun rcirc-process-list ()
498 "Return a list of rcirc processes."
505 (process-list))
559 (list args2)))))
588 With no argument or nil as argument, use the current buffer."
589 (or (get-buffer-process (if buffer
598 (or rcirc-server-name rcirc-default-server)))
603 (or rcirc-nick rcirc-default-nick)))
607 With no argument or nil as argument, use the current buffer."
608 (with-current-buffer (or buffer (current-buffer))
610 (or rcirc-nick rcirc-default-nick))))
657 "Cycle through nick completions from list of nicks in channel."
662 (list (car rcirc-nick-completions))))
772 (when (and (string-match chan (or target ""))
790 ;; if the user changes the major mode or kills the buffer, there is
795 ;; add to buffer list, and update buffer abbrevs
816 (rcirc-process-list))
818 (prompt (or rcirc-prompt "")))
822 (list (cons "%n" (rcirc-buffer-nick))
824 (cons "%t" (or rcirc-target ""))))
835 (list 'face 'rcirc-prompt
851 (or (eq (aref target 0) ?#)
896 (or buffer (when server (current-buffer)))))))
999 (message "Type C-c C-c to return text to %s, or C-c C-k to cancel" parent))))
1045 "Return a buffer for PROCESS, either the one selected or the process buffer."
1072 %N The sender's nick (with face `rcirc-my-nick' or `rcirc-other-nick')
1074 %T The timestamp (with face `rcirc-timestamp')
1076 %fw Following text uses the face `font-lock-warning-face'
1077 %fp Following text uses the face `rcirc-server-prefix'
1078 %fs Following text uses the face `rcirc-server'
1079 %f[FACE] Following text uses the face FACE
1080 %f- Following text uses the default face
1092 (split-string (or (cdr (assoc response rcirc-response-formats))
1095 (sender (or sender ""))
1097 (face nil)
1098 key face-key repl)
1110 ((or (eq key ?n) (eq key ?N))
1119 face
1141 (rcirc-markup-text process sender response (rcirc-facify text face)))
1144 (rcirc-facify (or rcirc-target "") face))
1147 (rcirc-facify response face))
1149 ;; %f -- change face
1150 (setq face-key (aref chunk 0))
1152 (cond ((eq face-key ?w)
1153 ;; %fw -- warning face
1154 (setq face 'font-lock-warning-face))
1155 ((eq face-key ?p)
1156 ;; %fp -- server-prefix face
1157 (setq face 'rcirc-server-prefix))
1158 ((eq face-key ?s)
1159 ;; %fs -- warning face
1160 (setq face 'rcirc-server))
1161 ((eq face-key ?-)
1162 ;; %fs -- warning face
1163 (setq face nil))
1164 ((and (eq face-key ?\[)
1167 ;; %f[...] -- named face
1168 (setq face (intern (match-string 1 chunk)))
1171 (setq result (concat result repl (rcirc-facify chunk face))))
1187 ((or (rcirc-get-buffer process target)
1199 (or text (setq text ""))
1200 (unless (or (member sender rcirc-ignore-list)
1204 rcirc-ignore-list))
1216 (unless (or (marker-position overlay-arrow-position)
1237 (or (next-single-property-change fill-start
1247 (or rcirc-fill-prefix
1320 "Return the list of startup channels for SERVER."
1341 "]?\\([^! ]+\\)!?") (or user ""))
1346 "Return list of channels for NICK."
1352 "Add CHANNEL to list associated with NICK."
1369 "Remove the CHANNEL from list associated with NICK."
1383 "Return the list of nicks associated with TARGET sorted by last activity."
1396 (list target))))
1399 "Remove NICK from `rcirc-ignore-list'
1400 if NICK is also on `rcirc-ignore-list-automatic'."
1401 (when (member nick rcirc-ignore-list-automatic)
1402 (setq rcirc-ignore-list-automatic
1403 (delete nick rcirc-ignore-list-automatic)
1404 rcirc-ignore-list
1405 (delete nick rcirc-ignore-list))))
1424 (or global-mode-string (setq global-mode-string '("")))
1438 (or (assq 'rcirc-ignore-buffer-activity-flag minor-mode-alist)
1441 (or (assq 'rcirc-low-priority-flag minor-mode-alist)
1493 (if (or (and (not arg) hipri)
1527 (sort (add-to-list 'rcirc-activity (current-buffer))
1549 (add-to-list 'lopri buf t)
1550 (add-to-list 'hipri buf t))))
1560 (cond ((or hipri lopri)
1571 ((not (null (rcirc-process-list)))
1580 (rcirc-add-face 0 (length s)
1591 (or rcirc-short-buffer-name (buffer-name))))
1595 "Go through visible windows and remove buffers from activity list.
1614 ;; remove any killed buffers from list
1629 (rcirc-process-list)))))
1666 (list char (cons rest data))
1676 (setcdr x (list (cdadr x)))))))
1689 ,(concat docstring "\n\nNote: If PROCESS or TARGET are nil, the values given"
1692 (let ((process (or process (rcirc-buffer-process)))
1693 (target (or target rcirc-target)))
1709 (message "Not enough args, or something.")
1716 (interactive (list (completing-read "Query nick: "
1719 (switch-to-buffer (or existing-buffer
1755 "Display list of names in CHANNEL or in current channel if CHANNEL is nil.
1778 (interactive (list
1785 (interactive (list (concat (read-string "Mode nick or channel: ")
1789 (defun-rcirc-command list (channels)
1806 (interactive (list
1831 (defun rcirc-add-or-remove (set &optional elt)
1839 "Manage the ignore list.
1840 Ignore NICK, unignore NICK if already ignored, or list ignored
1842 ones added to the list automatically are marked with an asterisk."
1844 (setq rcirc-ignore-list (rcirc-add-or-remove rcirc-ignore-list nick))
1849 (if (member nick rcirc-ignore-list-automatic)
1851 rcirc-ignore-list " ")))
1854 "Manage the bright nick list."
1856 (setq rcirc-bright-nicks (rcirc-add-or-remove rcirc-bright-nicks nick))
1861 "Manage the dim nick list."
1863 (setq rcirc-dim-nicks (rcirc-add-or-remove rcirc-dim-nicks nick))
1868 "Manage the keyword list.
1869 Mark KEYWORD, unmark KEYWORD if already marked, or list marked
1872 (setq rcirc-keywords (rcirc-add-or-remove rcirc-keywords keyword))
1878 (defun rcirc-add-face (start end name &optional object)
1879 "Add face NAME to the face text property of the text from START to END."
1884 (setq prop (get-text-property pos 'face object)
1885 next (next-single-property-change pos 'face object end))
1886 (unless (member name (get-text-property pos 'face object))
1887 (add-text-properties pos next (list 'face (cons name prop)) object))
1890 (defun rcirc-facify (string face)
1892 (let ((string (or string "")))
1893 (rcirc-add-face 0 (length string) face string)
1899 (or (and
1900 (or (and (or "http" "https" "ftp" "file" "gopher" "news"
1908 (or ".com" ".net" ".org")
1929 (let ((beg (previous-single-property-change (1+ point) 'mouse-face))
1930 (end (next-single-property-change point 'mouse-face)))
1971 (list 'rcirc-text (buffer-substring-no-properties
1976 (rcirc-add-face (match-beginning 0) (match-end 0)
1996 (rcirc-add-face (match-beginning 0) (match-end 0)
1999 (rcirc-add-face (point-min) (point-max) 'rcirc-nick-in-message-full-line)
2006 (rcirc-add-face start end 'rcirc-url)
2007 (add-text-properties start end (list 'mouse-face 'highlight
2015 (let* ((target (with-current-buffer channel-buffer (or rcirc-target "")))
2022 (rcirc-add-face (match-beginning 0) (match-end 0) 'rcirc-keyword)
2032 (rcirc-add-face (match-beginning 0) (match-end 0)
2038 ;; server or a user, depending on the command, the ARGS, which is a
2039 ;; list of strings, and the TEXT, which is the original server text,
2057 (message (or (cadr args) "")))
2098 (defun rcirc-handler-PART-or-KICK (process response channel sender nick args)
2123 (rcirc-handler-PART-or-KICK process "PART" channel sender sender reason)))
2135 (rcirc-handler-PART-or-KICK process "KICK" channel sender nick reason)))
2153 ;; update list of ignored nicks
2155 (when (member old-nick rcirc-ignore-list)
2156 (add-to-list 'rcirc-ignore-list new-nick)
2157 (add-to-list 'rcirc-ignore-list-automatic new-nick))
2199 (when (or (not rec)
2210 (let ((buffer (or (rcirc-get-buffer process (cadr args))
2217 (let ((buffer (or (rcirc-get-buffer process (cadr args))
2353 (defface rcirc-my-nick ; font-lock-function-name-face
2360 "The face used to highlight my messages."
2363 (defface rcirc-other-nick ; font-lock-variable-name-face
2374 "The face used to highlight other messages."
2396 (defface rcirc-server ; font-lock-comment-face
2414 "The face used to highlight server messages."
2417 (defface rcirc-server-prefix ; font-lock-comment-delimiter-face
2425 "The face used to highlight server prefixes."
2430 "The face used to highlight timestamps."
2433 (defface rcirc-nick-in-message ; font-lock-keyword-face
2442 "The face used to highlight instances of your nick within messages."
2447 "The face used emphasize the entire message when your nick is mentioned."
2454 "The face used to highlight prompts."
2460 "The face used in the mode-line when your nick is mentioned."
2465 "The face used in the mode-line when keywords are mentioned."
2470 "The face used to highlight urls."
2475 "The face used to highlight keywords."