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)
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
2354   '((((class color) (min-colors 88) (background light)) (:foreground "Blue1"))
2355     (((class color) (min-colors 88) (background dark)) (:foreground "LightSkyBlue"))
2356     (((class color) (min-colors 16) (background light)) (:foreground "Blue"))
2357     (((class color) (min-colors 16) (background dark)) (:foreground "LightSkyBlue"))
2360   "The face used to highlight my messages."
2363 (defface rcirc-other-nick	     ; font-lock-variable-name-face
2364   '((((class grayscale) (background light))
2366     (((class grayscale) (background dark))
2368     (((class color) (min-colors 88) (background light)) (:foreground "DarkGoldenrod"))
2369     (((class color) (min-colors 88) (background dark)) (:foreground "LightGoldenrod"))
2370     (((class color) (min-colors 16) (background light)) (:foreground "DarkGoldenrod"))
2371     (((class color) (min-colors 16) (background dark)) (:foreground "LightGoldenrod"))
2374   "The face used to highlight other messages."
2378   '((((class grayscale) (background light))
2380     (((class grayscale) (background dark))
2382     (((class color) (min-colors 88) (background light)) (:foreground "CadetBlue"))
2383     (((class color) (min-colors 88) (background dark)) (:foreground "Aquamarine"))
2384     (((class color) (min-colors 16) (background light)) (:foreground "CadetBlue"))
2385     (((class color) (min-colors 16) (background dark)) (:foreground "Aquamarine"))
2396 (defface rcirc-server			; font-lock-comment-face
2397   '((((class grayscale) (background light))
2399     (((class grayscale) (background dark))
2401     (((class color) (min-colors 88) (background light))
2403     (((class color) (min-colors 88) (background dark))
2405     (((class color) (min-colors 16) (background light))
2407     (((class color) (min-colors 16) (background dark))
2409     (((class color) (min-colors 8) (background light))
2411     (((class color) (min-colors 8) (background dark))
2414   "The face used to highlight server messages."
2417 (defface rcirc-server-prefix	 ; font-lock-comment-delimiter-face
2421     (((class color) (min-colors 8) (background light))
2423     (((class color) (min-colors 8) (background dark))
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
2434   '((((class grayscale) (background light)) (:foreground "LightGray" :weight bold))
2435     (((class grayscale) (background dark)) (:foreground "DimGray" :weight bold))
2436     (((class color) (min-colors 88) (background light)) (:foreground "Purple"))
2437     (((class color) (min-colors 88) (background dark)) (:foreground "Cyan1"))
2438     (((class color) (min-colors 16) (background light)) (:foreground "Purple"))
2439     (((class color) (min-colors 16) (background dark)) (:foreground "Cyan"))
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."
2451   '((((min-colors 88) (background dark)) (:foreground "cyan1"))
2452     (((background dark)) (:foreground "cyan"))
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."