Function: rcirc-activity-string

rcirc-activity-string is a byte-compiled function defined in rcirc.el.gz.

Signature

(rcirc-activity-string BUFFERS)

Documentation

Generate activity string for all BUFFERS.

Source Code

;; Defined in /usr/src/emacs/lisp/net/rcirc.el.gz
(defun rcirc-activity-string (buffers)
  "Generate activity string for all BUFFERS."
  (mapconcat (lambda (b)
	       (let ((s (substring-no-properties (rcirc-short-buffer-name b))))
		 (with-current-buffer b
		   (dolist (type rcirc-activity-types)
                     (rcirc-facify s (cl-case type
				       (nick 'rcirc-track-nick)
				       (keyword 'rcirc-track-keyword)))))
                 (let ((map (make-mode-line-mouse-map
                             'mouse-1
                             (lambda ()
                               (interactive)
                               (pop-to-buffer b)))))
                   (propertize s
                               'mouse-face 'mode-line-highlight
                               'local-map map))))
	     buffers ","))