lisp/net/rcirc.el

1 ;;; rcirc.el --- default, simple IRC client.
36 ;; enabled by default, but can easily be adjusted or turned off.  Each
58 (defcustom rcirc-default-server "irc.freenode.net"
59   "The default server to connect to."
63 (defcustom rcirc-default-port 6667
64   "The default port to connect to."
68 (defcustom rcirc-default-nick (user-login-name)
73 (defcustom rcirc-default-user-name (user-login-name)
78 (defcustom rcirc-default-user-full-name (if (string= (user-full-name) "")
79 					    rcirc-default-user-name
203   :initialize 'custom-initialize-default
329       (let* ((server (read-string "IRC Server: " rcirc-default-server))
330 	     (port (read-string "IRC Port: " (number-to-string rcirc-default-port)))
331 	     (nick (read-string "IRC Nick: " rcirc-default-nick))
336 	(rcirc-connect server port nick rcirc-default-user-name rcirc-default-user-full-name
339     ;; the default rcirc-server
342 	(when (string= rcirc-default-server (process-name p))
345 	  (rcirc-connect rcirc-default-server rcirc-default-port
346 			 rcirc-default-nick rcirc-default-user-name
347 			 rcirc-default-user-full-name
348 			 (rcirc-startup-channels rcirc-default-server))
378 			  rcirc-default-port))
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))
499   (let (ps)
504                   (setq ps (cons p ps))))))
506     ps))
598     (or rcirc-server-name rcirc-default-server)))
603     (or rcirc-nick rcirc-default-nick)))
610       (or rcirc-nick rcirc-default-nick))))
841   (set-default option value)
1065 if no match is found, the default entry (with a key of `t') is used.
1080   %f-       Following text uses the default 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"))
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"))
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"))
2392   '((t :inherit default))
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))
2418   '((default :inherit rcirc-server)
2421     (((class color) (min-colors 8) (background light))
2423     (((class color) (min-colors 8) (background dark))
2429   '((t (:inherit default)))
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"))
2451   '((((min-colors 88) (background dark)) (:foreground "cyan1"))
2452     (((background dark)) (:foreground "cyan"))
2458   '((((type tty)) (:inherit default))