Changeset 14626 for lang/elisp

Timestamp:

06/26/08 10:54:06 (5 months ago)

Author:

imakado

Message:

コードの見直し、いくつかの動作の改善、defcustom化

Location:

lang/elisp/perl-completion

Files:

• tags (added)
• tags/0.2 (copied) (copied from lang/elisp/perl-completion/trunk)
• trunk/perl-completion.el (modified) (18 diffs)

lang/elisp/perl-completion/trunk/perl-completion.el

@@ -1 +1 @@
 ;;;  -*- coding: utf-8; mode: emacs-lisp; -*-
-;;; perl-completion.el --- 
+;;; perl-completion.el
 
 ;; Author: Kenji.Imakado <ken.imakaado@gmail.com>
-;; Version: 0.2
+;; Version: 0.3
 ;; Keywords: perl
 
@@ -22 +22 @@
 
 ;;; Commentary:
+;; Tested on Emacs 22
+
+;; to customize
+;; M-x customize-group RET perl-completion RET
+
+;;;code:
 
 (require 'cl)
 (require 'cperl-mode)
-
-
-;;; prefix: plcmp-
+(require 'dabbrev)
+(require 'rx)
 
 ;;; provide
 (provide 'perl-completion)
 
+;;; group
+(defgroup perl-completion nil
+  ""
+  :group 'perl-completion)
+
 ;;; customizable variables
-(defcustom plcmp-anything-candidate-number-limit 1000 "")
-(defcustom plcmp-delete-duplicates-candidates-flag nil "")
-(defcustom plcmp-get-words-other-perl-buf-flag t "")
-(defcustom plcmp-buffer-dabbrev-expansions-number 2 "initial-input >= value then dabbrev") ; TODO name and doc
-(defcustom plcmp-get-words-other-perl-buf-limit-number 30 "")
+(defcustom plcmp-anything-candidate-number-limit 1000
+  "補完候補の最大表示数
+`anything-candidate-number-limit'と同じ"
+  :type 'number
+  :group 'perl-completion)
+
+(defcustom plcmp-buffer-dabbrev-expansions-number 2
+  "バッファ内のdabbrevを候補に入れる文字数
+initial-inputのlengthがこの数値より小さいと補完を行わない
+注意、0(常に補完)に設定する事も可能ですが動作が遅くなる可能性があります"
+  :type 'number
+  :group 'perl-completion) ; TODO name and doc
+
+(defcustom plcmp-get-words-other-perl-buf-limit-number 30
+  "補完対象にする他のperlバッファの最大数"
+  :type 'number
+  :group 'perl-completion)
+
 (defcustom plcmp-config-modules-filter-list
   '("strict" "warning")
-  "補完対象に含めないモジュール名のリスト")
+  "補完対象に含めないモジュール名のリスト
+このリストに含まれているモジュールのメソッドは補完対象にならない"
+  :type '(repeat (string :tag "Module name"))
+  :group 'perl-completion)
+
+(defcustom plcmp-dabbrev-abbrev-char-regexp "\\sw\\|\\s_\\|[:_]"
+  "dabbrevの候補になるcharを決めるregexp
+`dabbrev-abbrev-char-regexp'にダイナミックにバインドされて使用される"
+  :type 'regexp
+  :group 'perl-completion)
+
+(defcustom plcmp-match-only-real-candidate nil
+  "この変数がnon-nilだとパターンが実際の補完候補のみにマッチするようになる
+例： nil(デフォルト)の場合、パターン\"agent\"は以下の両方の補完候補にマッチする
+なぜなら\"UserAgent\"の部分に\"agent\"がマッチするからである
+[LWP::UserAgent] | agent
+[LWP::UserAgent] | clone
+non-nilの場合は\"|\"以降の文字列のみにマッチする"
+  :type 'boolean
+  :group 'perl-completion)
 
 ;;; const
-(defconst plcmp-version 0.2)
+(defconst plcmp-version 0.3)
 (defconst plcmp-lang (cond ((string-match "japanese" (format "%s" locale-coding-system)) 'ja)
                            (t 'english)))
@@ -58 +100 @@
 (defconst plcmp-display-format-using-modules "using module")
 (defconst plcmp-display-format-installed-modules "installed module")
+(defconst plcmp-get-installed-modules-command "find `perl -e 'pop @INC; print join(q{ }, @INC);'` -name '*.pm' -type f | xargs egrep -h -o 'package [a-zA-Z0-9:]+;' | perl -nle 's/package\s+(.+);/$1/; print' | sort | uniq ") ;
+(defconst plcmp-get-installed-modules-async-command
+  (concat plcmp-get-installed-modules-command " &"))
 (defconst plcmp-builtin-functions
   '("abs" "exec" "glob" "order" "seek" "symlink" "accept" "exists" "gmtime"
@@ -85 +130 @@
     "open" "rmdir" "study" "eof" "getsockname" "opendir" "s" "sub" "eval" "getsockopt"
     "ord" "scalar" "substr"))
+
 (defconst plcmp-builtin-variables
   '("$SIG{expr}" "%SIG" "$ENV{expr}" "%ENV" "%INC" "@_" "@INC" "@F" "ARGVOUT"
@@ -111 +157 @@
     "$PREMATCH" "$&" "$MATCH" "$<digits>" "$b" "$a" "$_" "$ARG"))
 
+;;; face
+(defface plcmp-search-match
+  '((t (:background "grey15" :foreground "magenta" :underline t)))
+  ""
+  :group 'perl-completion
+  :tag "Plcmp Search Match Face")
+
+;;; struct
+(defstruct (plcmp-completion-data (:constructor plcmp-make-completion-data))
+  (initial-input "")
+  state
+  using-modules
+  current-buffer
+  current-object
+  current-package
+  cache-installed-modules
+  cache-using-modules
+  other-perl-buffers
+  obj-instance-of-module-maybe-alist
+  installed-modules)
+
 ;;; variables
-(defvar plcmp-cache-using-modules nil) ;last
-(make-variable-buffer-local 'plcmp-cache-using-modules)
-
+(defvar plcmp-data (plcmp-make-completion-data) "strunct")
+(defvar plcmp-search-match-face 'plcmp-search-match)
+(defvar plcmp-overlay nil)
+(defvar plcmp-metadata-matcher-re (rx bol (* (not (any "|"))) "|" space (*? not-newline)))
+(defvar plcmp-metadata-matcher "")
+
+;;; buffer local variables
+(defvar plcmp-last-using-modules nil)
+(make-variable-buffer-local 'plcmp-last-using-modules)
 (defvar plcmp-modules-methods-alist nil)
 (make-variable-buffer-local 'plcmp-modules-methods-alist)
 
-(defvar plcmp-cache-installed-modules nil)
-(defvar plcmp-get-installed-modules-command "find `perl -e 'pop @INC; print join(q{ }, @INC);'` -name '*.pm' -type f | xargs egrep -h -o 'package [a-zA-Z0-9:]+;' | perl -nle 's/package\s+(.+);/$1/; print' | sort | uniq ")
-(defvar plcmp-get-installed-modules-async-command
-  (concat plcmp-get-installed-modules-command " &"))
+;;; anything's variables
+(defvar plcmp-anything-sources nil)
+(defvar plcmp-anything-enable-digit-shortcuts nil )
+(defvar plcmp-anything-candidate-number-limit plcmp-anything-candidate-number-limit )
+(defvar plcmp-anything-idle-delay 0.5 )
+(defvar plcmp-anything-samewindow nil )
+(defvar plcmp-anything-source-filter nil )
+(defvar plcmp-anything-isearch-map
+  (let ((map (copy-keymap (current-global-map))))
+    (define-key map (kbd "<return>") 'plcmp-anything-isearch-default-action)
+    (define-key map (kbd "C-i") 'plcmp-anything-isearch-select-action)
+    (define-key map (kbd "C-g") 'plcmp-anything-isearch-cancel)
+    (define-key map (kbd "M-s") 'plcmp-anything-isearch-again)
+    (define-key map (kbd "<backspace>") 'plcmp-anything-isearch-delete)
+    (let ((i 32))
+      (while (< i 256)
+        (define-key map (vector i) 'plcmp-anything-isearch-printing-char)
+        (setq i (1+ i))))
+    map))
+(defgroup plcmp-anything nil
+  "Open plcmp-anything." :prefix "plcmp-anything-" :group 'convenience)
+(if (facep 'header-line)
+    (copy-face 'header-line 'plcmp-anything-header)
+  (defface plcmp-anything-header
+    '((t (:bold t :underline t)))
+    "Face for header lines in the plcmp-anything buffer." :group 'plcmp-anything))
+(defvar plcmp-anything-header-face 'plcmp-anything-header )
+(defface plcmp-anything-isearch-match '((t (:background "Yellow")))
+  "Face for isearch in the plcmp-anything buffer." :group 'plcmp-anything)
+(defvar plcmp-anything-isearch-match-face 'plcmp-anything-isearch-match )
+(defvar plcmp-anything-iswitchb-idle-delay 1 )
+(defvar plcmp-anything-iswitchb-dont-touch-iswithcb-keys nil )
+(defconst plcmp-anything-buffer "*perl-completion anything*" )
+(defvar plcmp-anything-selection-overlay nil )
+(defvar plcmp-anything-isearch-overlay nil )
+(defvar plcmp-anything-digit-overlays nil )
+(defvar plcmp-anything-candidate-cache nil )
+(defvar plcmp-anything-pattern "")
+(defvar plcmp-anything-input "")
+(defvar plcmp-anything-async-processes nil )
+(defvar plcmp-anything-digit-shortcut-count 0 )
+(defvar plcmp-anything-update-hook nil )
+(defvar plcmp-anything-saved-sources nil )
+(defvar plcmp-anything-saved-selection nil )
+(defvar plcmp-anything-original-source-filter nil )
+
+;;; hack variables
+;; idea: http://www.emacswiki.org/cgi-bin/wiki/RubikitchAnythingConfiguration
+(defvar plcmp-anything-saved-action nil
+  "Saved value of the currently selected action by key.")
+
+(defvar plcmp-anything-matched-candidate-cache nil
+  "(name . ((pattern . (list of string))
+            (pattern . (list of string)))) ")
+
 ;;; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-;;; Modules
+;;; Utilities
 ;;; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+(defmacro plcmp-with-slots (struct conc-name slots &rest body)
+  `(symbol-macrolet ,(loop for slot in slots
+                           collect `(,slot (,(intern (concat (symbol-name conc-name) (symbol-name slot))) ,struct)))
+     ,@body))
+(def-edebug-spec plcmp-with-slots (symbolp symbolp (&rest symbolp) body)) ;TODO
+  
+(defmacro plcmp-with-completion-data-slots (struct slots &rest body)
+  (declare (indent 2))
+  `(plcmp-with-slots ,struct plcmp-completion-data- ,slots ,@body))
+(def-edebug-spec plcmp-with-completion-data-slots (symbolp (&rest symbolp) body))
+  
+(defmacro plcmp-with-gensyms (symbols &rest body)
+  (declare (indent 1))
+  `(let ,(mapcar (lambda (sym)
+                   `(,sym (gensym)))
+                 symbols)
+     ,@body))
+
+(defmacro plcmp-my (var val &rest body)
+  (declare (indent 2))
+  `(lexical-let ((,var ,val))
+     ,@body))
+
+(put 'plcmp-acond 'lisp-indent-function 'defun) ;TODO
+(defmacro plcmp-acond (&rest clauses)
+  (unless (null clauses)
+    (plcmp-with-gensyms (sym)
+      (plcmp-my clause (car clauses)
+        `(plcmp-my ,sym ,(car clause)
+           (if ,sym
+               (plcmp-my it ,sym
+                 ,@(cdr clause))        ;expr
+             (plcmp-acond ,@(cdr clauses))))))))
+(def-edebug-spec plcmp-acond cond)
+
+(defsubst plcmp-trim (s)
+  "strip space and newline"
+  (replace-regexp-in-string
+   "[ \t\n]*$" "" (replace-regexp-in-string "^[ \t\n]*" "" s)))
+
+(defun plcmp-get-preceding-string (&optional count)
+  "現在の位置からcount文字前方位置までの文字列を返す
+例外を出さない"
+  (let ((count (or count 1)))
+    (buffer-substring-no-properties
+     (point)
+     (condition-case nil
+         (save-excursion (backward-char count) (point))
+       (error (point))))))
+
+(defsubst plcmp-module-p (s)
+  (string-match "^[a-zA-Z:_]+$" s))
+
+(defsubst plcmp-perl-identifier-p (s)
+  (string-match (concat "^" plcmp-perl-ident-re "$") s))
+
+(defun plcmp-notfound-p (s)
+  (string-match "^Can't locate [^ \t]+ in" s))
+
+(defmacro plcmp-ignore-errors (&rest body)
+  `(condition-case e (progn ,@body)
+     (error (plcmp-log "Error plcmp-ignore-errors :  %s" (error-message-string e)))))
+
+;;; log
+(defvar plcmp-debug nil)
+(defvar plcmp-log-buf-name "*plcmp debug*")
+(defun plcmp-log-buf ()
+  (get-buffer-create plcmp-log-buf-name))
+(defun plcmp-log (&rest messages)
+  (ignore-errors
+    (let* ((str (or (ignore-errors (apply 'format messages))
+                    (prin1-to-string messages)))
+           (strn (concat str "\n")))
+      (when plcmp-debug
+        (with-current-buffer (plcmp-log-buf)
+          (goto-char (point-max))
+          (insert strn)))
+      str)))
+
+
+;;;; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+;;;; Initialize
+;;;; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+;; idea: http://subtech.g.hatena.ne.jp/antipop/20070917/1190009355
+(defun plcmp-get-installed-modules-synchronously ()
+  (message "fetching installed modules...")
+  (let ((modules (split-string (shell-command-to-string plcmp-get-installed-modules-command) "\n")))
+    (message "fetching installed modules done")
+    (remove-if (lambda (module)
+                 (string-match "No such file or directory$" module))
+               modules)))
+
+(defun plcmp-get-installed-modules-from-buf (buf)
+  (with-current-buffer buf
+    (let ((modules (split-string (buffer-substring-no-properties (point-min) (point-max)) "\n")))
+      (remove-if (lambda (module)
+                   (string-match "No such file or directory$" module))
+                 modules))))
+
+(defun plcmp-send-command-get-installed-modules ()
+  (message "send command to get installed modules")
+  (save-window-excursion
+    (shell-command plcmp-get-installed-modules-async-command plcmp-installed-modules-buf-name))
+  (with-current-buffer plcmp-installed-modules-buf-name
+    (setq buffer-read-only t)))
+
+(defun plcmp-fetch-installed-modules (struct)
+  (plcmp-with-completion-data-slots struct
+      (cache-installed-modules)
+    (let ((buf (get-buffer plcmp-installed-modules-buf-name)))
+      (cond
+       ((null cache-installed-modules)
+        (if (and (buffer-live-p buf)
+                 (not (processp (get-buffer-process buf)))) ;finished
+            (setf cache-installed-modules (plcmp-get-installed-modules-from-buf buf))
+          (unless (buffer-live-p buf)
+            (plcmp-send-command-get-installed-modules))
+          (plcmp-get-installed-modules-synchronously)))
+       ;; return cache
+       (t
+        cache-installed-modules)))))
+
+(defun plcmp-get-current-package ()
+  "nil or string"
+  (let ((re (concat "^[ \t]*package\\s *" "\\([a-zA-Z:]+\\)" ".*;$"))
+        (limit 500))
+    (save-excursion
+      (goto-char (point-min))
+      (when (re-search-forward re limit t)
+        (match-string-no-properties 1)))))
+
 (defun plcmp-get-using-modules ()
-  (let ((re "^[ \t]*use[ \t]+\\([a-zA-Z:_]+\\)\\s *[^;\n]*;");todo
+  (let ((re "^[ \t]*use[ \t]+\\([a-zA-Z:_]+\\)\\s *[^;\n]*;") ;todo
         (ret nil))
     (save-excursion
@@ -138 +395 @@
     ret))
 
-(defun plcmp-clear-cache-using-modules ()
-  (interactive)
-  (setq plcmp-cache-using-modules nil))
-
-
-(defun plcmp-modules-filter (mods)
-  (let ((ret nil) )
-    (dolist (filter-mod plcmp-config-modules-filter-list ret)
-      (setq ret (delete filter-mod mods)))))
-
-
-(defun plcmp-get-modules-methods-alist (using-modules)
-  (let ((ret nil))
-    (cond
-     ((and (equal using-modules plcmp-cache-using-modules)
-           (not (null plcmp-modules-methods-alist)))
-      (setq ret plcmp-modules-methods-alist))
-     ((null plcmp-modules-methods-alist)
-      (dolist (mod using-modules)
-        (message "getting methods of %s ..." mod)
-        (push `(,mod . ,(plcmp-get-methods mod)) plcmp-modules-methods-alist)
-        (message "getting methods of %s done" mod))
-      (setq ret plcmp-modules-methods-alist))
-     (t
-      (let ((new-mods (delete-dups
-                       (set-difference using-modules plcmp-cache-using-modules :test 'string-equal)))
-            (removed-mods (delete-dups
-                           (set-difference plcmp-cache-using-modules using-modules :test 'string-equal))))
-        (plcmp-log "new-mods: %S\nremoved-mods: %S" new-mods removed-mods)
-        ;; add new
-        (when new-mods
-          (dolist (mod new-mods)
-            (message "getting methods of %s ..." mod)
-            (push `(,mod . ,(plcmp-get-methods mod)) plcmp-modules-methods-alist)
-            (message "getting methods of %s done" mod)))
-        ;; remove
-        (when removed-mods
-          (dolist (mod removed-mods)
-            (setq plcmp-modules-methods-alist
-                  (remove (assoc mod plcmp-modules-methods-alist) plcmp-modules-methods-alist))))
-        (setq ret plcmp-modules-methods-alist))))
-    ;; set last
-    (setq plcmp-cache-using-modules using-modules)
-    ret
-    ))
-
-(defun plcmp-clear-cache-modules-methods-alist ()
-  (setq plcmp-modules-methods-alist nil))
-
-(defun plcmp-get-methods (module)
+;;(plcmp-sort-methods '("_asdf" "asdf" "bsd" "_bsd" "ASDF"))
+;; => ("ASDF" "asdf" "bsd" "_asdf" "_bsd")
+(defun plcmp-sort-methods (los)
+  (loop for s in los
+        if (string-match (rx bol "_") s)
+        collect s into unders
+        else
+        collect s into methods
+        finally return (nconc methods unders
+                        ;; (sort methods 'string<)
+                        ;;                               (sort unders 'string<)
+                              )))
+
+(defsubst plcmp-inspect-methods (module)
   "Class::Inspectorを使用してモジュールのメソッド調べる。
 モジュール名に使用できる文字以外が含まれていた場合はnilを返す
@@ -195 +416 @@
       (error "invild modulename"))
     (let ((mods (shell-command-to-string
-                 (concat
-                  "perl" " -MClass::Inspector" " -e" "'use " module "; print join \"\n\"=>@{Class::Inspector->methods(" module ")} '" ))))
+                 (concat "perl -MClass::Inspector -e'use " module "; print join \"\n\"=>@{Class::Inspector->methods(" module ")} '"))))
       (cond
        ((plcmp-notfound-p mods)
         (error "cant locate %s" module))
        (t
-        (split-string mods "\n"))))))
-
-(defsubst plcmp-get-modules-re ()
-  (regexp-opt plcmp-using-modules t))
-
-;; example
-;; my $cpan = Parse::CPAN::Authors->new( $authors_file );
-;; => var = "$cpan", mod = Parse::CPAN::Authors
-(defun plcmp-get-obj-instance-of-module-maybe-alist ()
-  (let* ((re (plcmp-get-modules-re))
-         (re (concat "\\(\\$[A-Za-z_][A-Za-z_0-9]*\\)\\s *=\\s *" re)) ;perliden + usingmodule
-         (ret nil))
+        (plcmp-sort-methods (split-string mods "\n")))))))
+
+(defun plcmp-get-modules-methods (modules)
+  "return alist"
+  (let ((ret nil))
+    (dolist (mod modules ret)
+      (message "getting methods of %s ..." mod)
+      (push `(,mod . ,(plcmp-inspect-methods mod)) ret)
+      (message "getting methods of %s done" mod))))
+
+;; TODO
+(defun plcmp-get-modules-methods-alist (struct)
+  (plcmp-with-completion-data-slots struct
+      (using-modules current-buffer)
+    ;;`plcmp-modules-methods-alist' and `plcmp-last-using-modules' are buffer local variables
+    (with-current-buffer current-buffer
+      (let ((ret nil))
+        (cond
+         ((and (equal using-modules plcmp-last-using-modules)
+               (not (null plcmp-modules-methods-alist)))
+          (setq ret plcmp-modules-methods-alist))
+         ;; cache not ready
+         ((null plcmp-modules-methods-alist)
+          (setf ret
+                (setf plcmp-modules-methods-alist
+                      (plcmp-get-modules-methods using-modules))))
+         (t
+          (let ((new-mods (delete-dups (set-difference using-modules plcmp-last-using-modules :test 'string-equal)))
+                (removed-mods (delete-dups (set-difference plcmp-last-using-modules using-modules :test 'string-equal))))
+            (plcmp-log "new-mods: %S\nremoved-mods: %S" new-mods removed-mods)
+            ;; add new
+            (when new-mods
+              (setq plcmp-modules-methods-alist
+                    (append plcmp-modules-methods-alist
+                            (plcmp-get-modules-methods new-mods))))
+            ;; remove
+            (when removed-mods
+              (setq plcmp-modules-methods-alist
+                    (remove-if (lambda (mod) (assoc mod plcmp-modules-methods-alist)) removed-mods)))
+            (setq ret plcmp-modules-methods-alist))))
+        ;; set last
+        (setq plcmp-last-using-modules using-modules)
+        ret
+        ))))
+
+(defun plcmp-get-obj-instance-of-module-maybe-alist (struct)
+  (plcmp-with-completion-data-slots struct
+      (using-modules)
+    (let* ((re (regexp-opt using-modules t))
+           (re (concat "\\(\\$" plcmp-perl-ident-re "\\)\\s *=\\s *" re)) ;perliden + usingmodule
+           (ret nil))
+      (save-excursion
+        (goto-char (point-min))
+        (loop always (re-search-forward re nil t)
+              do (let ((var (match-string-no-properties 1))
+                       (mod (match-string-no-properties 2)))
+                   (add-to-list 'ret `(,var . ,mod)))))
+      ret)))
+
+(defun plcmp-get-other-perl-buffers (struct)
+  (plcmp-with-completion-data-slots struct
+      (current-buffer)
+    (remove current-buffer
+            (remove-if-not (lambda (buf)
+                             (string-match "\\.p[lm]$" (buffer-name buf)))
+                           (buffer-list)))))
+
+(defun plcmp-initialize (struct)
+  (plcmp-with-completion-data-slots struct
+      (using-modules installed-modules current-package
+                     current-buffer obj-instance-of-module-maybe-alist
+                     current-object other-perl-buffers)
+    ;; initialize slots
+    (setf installed-modules (plcmp-fetch-installed-modules struct)
+          current-buffer (current-buffer)
+          current-package (plcmp-get-current-package)
+          using-modules (plcmp-get-using-modules)
+          plcmp-modules-methods-alist (plcmp-get-modules-methods-alist struct) ;buffer local variable
+          obj-instance-of-module-maybe-alist (plcmp-get-obj-instance-of-module-maybe-alist struct)
+          other-perl-buffers (plcmp-get-other-perl-buffers struct)
+          current-object "")
+
+    ;; initialize variable
+    (setq plcmp-metadata-matcher
+          (if plcmp-match-only-real-candidate
+              plcmp-metadata-matcher-re
+            ""))
+
+    ;; get context
+    (plcmp-get-context struct)))
+
+(defun plcmp-method-p ()
+  (let ((s (plcmp-get-preceding-string 2)))
+    (string-equal s "->")))
+
+(defun plcmp-get-context (struct)
+  (plcmp-with-completion-data-slots struct
+      (initial-input state current-object)
     (save-excursion
-      (goto-char (point-min))
-      (loop always (re-search-forward re nil t)            
-            do (let ((var (match-string-no-properties 1))
-                     (mod (match-string-no-properties 2)))
-                 (add-to-list 'ret `(,var . ,mod)))))
-      ret))
-
-
-;; idea: http://subtech.g.hatena.ne.jp/antipop/20070917/1190009355
-(defun plcmp-send-command-get-installed-modules ()
-  (save-window-excursion
-    (shell-command plcmp-get-installed-modules-async-command plcmp-installed-modules-buf-name))
-  (with-current-buffer plcmp-installed-modules-buf-name
-    (setq buffer-read-only t)))
-
-(defun plcmp-get-installed-modules ()
-  (let ((buf (get-buffer plcmp-installed-modules-buf-name)))
-    (cond
-     ((null plcmp-cache-installed-modules)
-      (cond
-       ;; コマンドの結果のバッファがある場合
-       ((buffer-live-p buf)
-        (with-current-buffer buf
-          (let* ((modules (split-string (buffer-substring-no-properties (point-min) (point-max)) "\n"))
-                 (modules (remove-if (lambda (module)
-                                       (string-match "No such file or directory$" module))
-                                     modules)))
-            ;; when process finished
-            (unless (processp (get-buffer-process plcmp-installed-modules-buf-name))
-              (setq plcmp-cache-installed-modules modules))
-            modules)))
-       ;; 事前にコマンドが走っていない場合はその場で同期的に習得する
-       (t
-        (let* ((modules (split-string (shell-command-to-string plcmp-get-installed-modules-command) "\n"))
-               (modules (remove-if (lambda (module)
-                                     (string-match "No such file or directory$" module))
-                                   modules)))
-          (plcmp-send-command-get-installed-modules)))))
-     ;; return cache
-     (t
-      plcmp-cache-installed-modules))))
-
-(defun plcmp-clear-cache-installed-modules ()
-  (ignore-errors
-   (setq plcmp-cache-installed-modules nil)
-    (let ((process (get-buffer-process plcmp-installed-modules-buf-name)))
-      (when (processp process)
-        (kill-process (process-name process)))
-      (plcmp-send-command-get-installed-modules))))
-
-(defun plcmp-get-current-package ()
-  (let ((re (concat "^[ \t]*package" "\\([a-zA-Z:]+\\)" "\\s *[^;\n]*;"))
-        (limit 500)
-        (ret nil))
-    (save-excursion
-      (goto-char (point-min))
-      (loop always (re-search-forward re limit t)
-            do (add-to-list 'ret (match-string-no-properties 1))))
-    (plcmp-log "get-current-package: %S" ret)
-    ret))
-
-
-;;; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-;;; Smart dabbrev
-;;; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-(defsubst plcmp-check-face (facename)
-  "preceding-charの位置のフェイスを調べる(前の文字)"
-  (let ((face (get-text-property (if (bobp) (point) (- (point) 1)) 'face)))
-    ;;(plcmp-log "check-face-at-point: %s" face)
-    (cond
-     ((listp face)
-      (memq facename face))
-     (t
-      (eq facename face)))))
-
-(defsubst plcmp-check-face-at-point-p (facename)
-  (let ((face (get-text-property (point) 'face)))
-    ;;(plcmp-log "check-face-at-point: %s" face)
-    (cond
-     ((listp face)
-      (memq facename face))
-     (t
-      (eq facename face)))))
-
-(defsubst plcmp-bit-regep-p (s)
-  (string-match "^[/$@%(),.?<>+!|^*';\"\\]+$" s))
+      (let* ((start (point))
+             (start-input (progn (skip-syntax-backward "w_") ;move point
+                                 (buffer-substring-no-properties (point) start)))
+             (obj-str (buffer-substring-no-properties
+                       (or (ignore-errors (save-excursion (forward-char -2) (point)))
+                           (point))
+                       (save-excursion (or (ignore-errors (backward-sexp)
+                                                          (point))
+                                           (point))))))
+        (cond
+         ;; $self->`!!'
+         ((and (plcmp-method-p)         ; TODO
+               (string-match "^\\(\\$self\\|__PACKAGE__\\)$" obj-str))
+          (setf initial-input start-input
+                state 'setf
+                current-object obj-str))
+         ;; methods
+         ;; Foo->`!!'
+         ((plcmp-method-p)
+          (setf initial-input start-input
+                state 'methods
+                current-object obj-str))
+         ;; $foo`!!'
+         ((string-match "[$@%&]" (plcmp-get-preceding-string 1))
+          (save-excursion
+            (forward-char -1)
+            (setf initial-input (buffer-substring-no-properties start (point))
+                  state 'globals)))
+         ;; installed-modules
+         ;; use Foo::Ba`!!'
+         ((string-match "^\\s *use\\s *" (buffer-substring-no-properties (point-at-bol) (point)))
+          (setf initial-input start-input
+                state 'installed-modules))
+         ;; globals
+         ((or (bolp)
+              (string-match "[ \t]" (plcmp-get-preceding-string 1)))
+          (setf initial-input start-input
+                state 'globals))
+         ;; otherwise
+         (t
+          (setf initial-input start-input
+                state 'globals))
+         )))))
+
+;;;; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+;;;; Candidates
+;;;; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+(defsubst plcmp-build-display-candidate (metadata str)
+  (concat "[" metadata "]" " | " str))
+
+(defsubst plcmp-get-real-candidate (display-candidate)
+  "return string"
+  (if (string-match (concat "^\\[[^\]\n]*\\] | "
+                            "\\(.*\\)")
+                    display-candidate)
+      (match-string 1 display-candidate)
+    display-candidate))
+
+(defsubst plcmp-get-metadate-candidate (display-candidate)
+  "return string"
+  (if (string-match "^\\[\\([^\]\n]*\\)\\] | " display-candidate)
+      (match-string 1 display-candidate)
+    ""))
+
+(defun plcmp-get-modulename-candidate (struct display-candidate)
+  (let ((metadata (plcmp-get-metadate-candidate display-candidate)))
+    (plcmp-acond
+      ((plcmp-get-module-and-method-by-candidate struct display-candidate)
+       (multiple-value-bind (module method) it ;when bind, IT must be list of string '(module method)
+         module))
+      (t
+       (plcmp-get-real-candidate display-candidate)))))
+
+(defsubst plcmp-start-initial-input-p (initial-input candidate)
+  (let ((re (concat "^" (regexp-quote initial-input))))
+    (string-match re candidate)))
+
+(defsubst plcmp-f