Function: erc-server-select

erc-server-select is an autoloaded, interactive and byte-compiled function defined in erc-networks.el.gz.

Signature

(erc-server-select)

Documentation

Interactively select a server to connect to using erc-server-alist.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/erc/erc-networks.el.gz
;;;###autoload
(defun erc-server-select ()
  "Interactively select a server to connect to using `erc-server-alist'."
  (interactive)
  (let* ((completion-ignore-case t)
	 (net (intern
	       (completing-read "Network: "
				(delete-dups
				 (mapcar (lambda (x)
					   (list (symbol-name (nth 1 x))))
					 erc-server-alist)))))
	 (srv (assoc
	       (completing-read "Server: "
				(delq nil
				      (mapcar (lambda (x)
						(when (equal (nth 1 x) net)
						  x))
					      erc-server-alist)))
	       erc-server-alist))
	 (host (nth 2 srv))
	 (ports (if (listp (nth 3 srv))
		    (erc-ports-list (nth 3 srv))
		  (list (nth 3 srv))))
         (port (and ports (seq-random-elt ports))))
    (erc :server host :port port)))