iterate channels only

[Emanuel Berg]

;;; -*- lexical-binding: t -*-
;;
;; this file:
;;   https://dataswamp.org/~incal/emacs-init/erc/erc-iterate.el

(require 'cl-lib)
(require 'erc)
(require 'erc-scroll)

(defun erc-channel-buffers ()
  (cl-remove-if-not #'erc-channel-p (erc-buffer-list)) )

(defun erc-next-buffer (&optional only-channels)
  "Go to the next ERC buffer.
If ONLY-CHANNELS, skip server buffers."
  (interactive "P")
  (let*((erc-buffers (if only-channels
                         (erc-channel-buffers)
                       (erc-buffer-list) ))
        (current     (car  erc-buffers))
        (next        (cadr erc-buffers)) )
    (when next
      (bury-buffer current)
      (switch-to-erc-buffer next) )))


(defun erc-prev-buffer (&optional only-channels)
  "Go to the prev ERC buffer, if available.
If ONLY-CHANNELS, skip server buffers."
  (interactive "P")
  (let*((erc-buffers (if only-channels
                         (erc-channel-buffers)
                       (erc-buffer-list) ))
        (prev        (car (last erc-buffers))) )
    (when prev
      (switch-to-erc-buffer prev) )))

(provide 'erc-iterate)

-- 
underground experts united
https://dataswamp.org/~incal