Changeset 28807 for lang/elisp

Timestamp:

01/22/09 05:37:07 (4 years ago)

Author:

imakado

Message:

nicknameの補完コマンドを追加.@から始まる文字も対象に含めた

Files:

• lang/elisp/anything-c-erc/trunk/anything-c-erc.el (modified) (3 diffs)

lang/elisp/anything-c-erc/trunk/anything-c-erc.el

@@ -30 +30 @@
 ;; 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
@@ -46 +64 @@
     (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-iswitchb
+    anything-c-source-erc-nicks))
 
 ;;; Commands
@@ -54 +86 @@
   (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