root/lang/elisp/anything-c-erc/trunk/anything-c-erc.el @ 28807

;;;  -*- coding: utf-8; mode: emacs-lisp; -*-
;;; anything-c-erc.el --- anything sources for erc.el

;; Author: IMAKADO <ken.imakado@gmail.com>
;; blog: http://d.hatena.ne.jp/IMAKADO (japanese)
;; Prefix: anything-c-erc-

;; This file is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.

;; This file is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING.  If not, write to the
;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
;; Boston, MA 02110-1301, USA.

;;; Commentary:

;; Source:
;; `anything-c-source-erc-iswitchb'

;; Commands:
;; to call anything with `anything-c-erc-sources'
;; M-x anything-c-erc

;; to complete Nick name
;; M-x anything-c-erc-complete-nick

(require 'anything)
(require 'erc)


;;; Advice

(defvar anything-c-erc-nicks nil
  "list of nicknames. each nickname can be started with \"@\"")
(make-variable-buffer-local 'anything-c-erc-nicks)

(defadvice erc-channel-receive-names (before anything-c-erc-nick-inc-@ activate)
  (anything-c-erc-receive-names (ad-get-arg 0)))

(defun anything-c-erc-receive-names (names)
  (ignore-errors
    (loop for s in (split-string names)
          when (and (stringp s)
                    (not (string-equal "" s)))
          do (add-to-list 'anything-c-erc-nicks s))))

;;; Sources
(defvar anything-c-source-erc-iswitchb
  '((name . "Erc Buffers")
    (init . (lambda ()
              (with-current-buffer (anything-candidate-buffer 'global)
                (let ((los (mapcar 'buffer-name (erc-buffer-list))))
                  (insert (mapconcat 'identity los "\n"))))))
    (candidates-in-buffer)
    (type . buffer)
    (persistent-action . switch-to-buffer)))


(defvar anything-c-source-erc-nicks
  '((name . "Erc Nicknames")
    (init . (lambda ()
              (let ((los (or anything-c-erc-nicks
                             (pcomplete-erc-nicks))))
                (with-current-buffer (anything-candidate-buffer 'global)
                  (insert (mapconcat 'identity los "\n"))))))
    (candidates-in-buffer)
    (action . (("Insert" . (lambda (name)
                             (insert name erc-pcomplete-nick-postfix)))))
    (persistent-action . switch-to-buffer)))

(defvar anything-c-erc-sources
  '(anything-c-source-erc-iswitchb
    anything-c-source-erc-nicks))

;;; Commands
(defun anything-c-erc ()
  (interactive)
  (anything anything-c-erc-sources))

(defun anything-c-erc-complete-nick ()
  (interactive)
  (anything '(anything-c-source-erc-nicks)))

(provide 'anything-c-erc)
;;; anything-c-erc.el ends here