lisp/net/rcirc.el

225 See `rcirc-bright-nick' face."
231 See `rcirc-dim-nick' face."
499   (let (ps)
504                   (setq ps (cons p ps))))))
506     ps))
835 				 (list 'face 'rcirc-prompt
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
1097 	(face nil)
1098 	key face-key repl)
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))))
1580 		     (rcirc-add-face 0 (length s)
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)
1893     (rcirc-add-face 0 (length string) face string)
1929   (let ((beg (previous-single-property-change (1+ point) 'mouse-face))
1930 	(end (next-single-property-change point 'mouse-face)))
1976     (rcirc-add-face (match-beginning 0) (match-end 0)
1979 		      (?\C-v 'italic)
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
2022 	(rcirc-add-face (match-beginning 0) (match-end 0) 'rcirc-keyword)
2032 	(rcirc-add-face (match-beginning 0) (match-end 0)
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
2365      (:foreground "Gray90" :weight bold :slant italic))
2367      (:foreground "DimGray" :weight bold :slant italic))
2373     (t (:weight bold :slant italic)))
2374   "The face used to highlight other messages."
2396 (defface rcirc-server			; font-lock-comment-face
2398      (:foreground "DimGray" :weight bold :slant italic))
2400      (:foreground "LightGray" :weight bold :slant italic))
2413     (t (:weight bold :slant italic)))
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."