[Erc-help] [PATCH] Switch to first active channel

[Benjamin D. <bd...@ap...>]

Not really a patch but a code snippet that you might consider useful :
it allows to switch to the first active channel, according to
erc-modified-channel-string.

It works fine but it is not very satisfying since it only parse this
string instead of using a real channel list paradigm.  Humpf, another
item in my todo list ;-)

(defun erc-jump-to-first-active-channel ()
  "Jump to the first active channel."
  (interactive)
  (let* ((regexp "^ \\[,?\\(#?[^,]*\\)\\(,\\|]$\\)")
	 (result (string-match regexp erc-modified-channel-string))
	 (begining (and result (match-beginning 1)))
	 (end (and result (match-end 1)))
	 (channel (and result (substring erc-modified-channel-string begining end))))
    (if channel
	(switch-to-buffer (erc-get-buffer erc-session-server (downcase channel))))))

Hope this helps.

-- 
o Benjamin Drieu:	bd...@ap...
			dr...@bo...
o APRIL:		http://www.april.org/