Changeset 19148 for lang/elisp

Timestamp:

09/11/08 04:47:57 (2 months ago)

Author:

imakado

Message:

perl-completion.el version 1.0 が動作するようになってきたのでbranchにコミット

Location:

lang/elisp/perl-completion/branch/1.0

Files:

• . (copied) (copied from lang/elisp/perl-completion/trunk)
• perl-completion.el (modified) (8 diffs)

lang/elisp/perl-completion/branch/1.0/perl-completion.el

@@ -3 +3 @@
 
 ;; Author: Kenji.Imakado <ken.imakaado@gmail.com>
-;; Version: 0.3
 ;; Keywords: perl
 
@@ -21 +20 @@
 ;; Boston, MA 02110-1301, USA.
 
+;; Prefix: plcmp-
+
 ;;; Commentary:
 ;; Tested on Emacs 22
@@ -27 +28 @@
 ;; M-x customize-group RET perl-completion RET
 
+
+
+;;builtin variables: 
+;; (search . ((lambda (re arg1 arg2)
+;;                  (re-search-forward (regexp-quote re) nil t))))
+
+
+
 ;;;code:
-
 (require 'cl)
+(require 'anything)
 (require 'cperl-mode)
 (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
-  "補完候補の最大表示数
-`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.3)
-(defconst plcmp-lang (cond ((string-match "japanese" (format "%s" locale-coding-system)) 'ja)
-                           (t 'english)))
-(defconst plcmp-perlvar-output-buf-name "*perlvar output*")
-(defconst plcmp-perlfunc-output-buf-name "*perlfunc output*")
-(defconst plcmp-perldoc-output-buf-name "*perldoc output*")
-(defconst plcmp-perl-ident-re "[a-zA-Z_][a-zA-Z_0-9]*")
-(defconst plcmp-installed-modules-buf-name "*perl installed modules*")
-(defconst plcmp-display-format-variables "buffer variable")
-(defconst plcmp-display-format-functions "buffer function")
-(defconst plcmp-display-format-dabbrev-expansions "buffer dabbrev")
-(defconst plcmp-display-format-builtin-variables "builtin variable")
-(defconst plcmp-display-format-builtin-functions "builtin function")
-(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
+;;; variables
+(defvar plcmp-version 1.0)
+(defvar plcmp-perl-ident-re "[a-zA-Z_][a-zA-Z_0-9]*")
+(defvar plcmp-sub-re (rx-to-string `(and "sub"
+                                        (+ space)
+                                        (group
+                                         (regexp ,plcmp-perl-ident-re)))))
+(defvar plcmp-perl-package-re "[a-zA-Z0-9:]+")
+(defvar plcmp-builtin-functions
   '("abs" "exec" "glob" "order" "seek" "symlink" "accept" "exists" "gmtime"
     "our" "seekdir" "syscall" "alarm" "exit" "goto" "pack" "select" "sysopen"
@@ -131 +83 @@
     "ord" "scalar" "substr"))
 
-(defconst plcmp-builtin-variables
+(defvar plcmp-builtin-variables
   '("$SIG{expr}" "%SIG" "$ENV{expr}" "%ENV" "%INC" "@_" "@INC" "@F" "ARGVOUT"
     "@ARGV" "$ARGV" "ARGV" "$^X" "$EXECUTABLE_NAME" "${^WARNING_BITS}" "$^W"
@@ -157 +109 @@
     "$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
-  default-action-state
-  persistent-action-buffer-point
-  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-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)
-
-;;; 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)))) ")
-
-;;; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-;;; 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)
-
+(defvar plcmp-cleanup-hook nil "hook run when completion command finished")
+
+;;; macros
+
+(defmacro plcmp-aif (test-form then-form &optional else-form)
+  "Anaphoric if. Temporary variable `it' is the result of test-form."
+  `(let ((it ,test-form))
+     (if it ,then-form ,else-form)))
+(put 'plcmp-aif 'lisp-indent-function 2)
+
+
+(defmacro define-plcmp-command (command-name-with-no-prefix args &rest body)
+  (let* ((prefix "plcmp-cmd-")
+         (command-str (symbol-name command-name-with-no-prefix))
+         (command-name (concat prefix command-str)))
+    `(defun* ,(intern command-name) ,args
+       (interactive)
+       (unwind-protect
+           (progn (plcmp-initialize-variables)
+                  (progn
+                    ,@body))
+         (plcmp-cleanup)))))
+(put 'define-plcmp-command 'lisp-indent-function 'defun)
+(def-edebug-spec define-plcmp-command defun*)
+
+(defmacro plcmp-ignore-errors (&rest body)
+  `(condition-case e (progn ,@body)
+     (error (plcmp-log "Error plcmp-ignore-errors :  %s" (error-message-string e)))))
+(def-edebug-spec plcmp-ignore-errors ignore-errors)
+
+;;; Util functions
 (defsubst plcmp-trim (s)
   "strip space and newline"
@@ -292 +145 @@
    "[ \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-bit-regexp-p (s)
+  (string-match "^[/:$@&%(),.?<>+!|^*';\"\\]+$" s))
 
 (defsubst plcmp-module-p (s)
-  (string-match "^[a-zA-Z:_]+$" 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)
+(defsubst 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)))))
-
-;; idea: anything-dabbrev-expand.el
-(lexical-let ((store-times 0))
-  (defun plcmp-seq-times (command-name &optional max)
-    (let ((max (or max -99)))
-      (if (eq last-command command-name)
-          (if (= (incf store-times) max)
-              (setq store-times 0)
-            store-times)
-        (setq store-times 0)))))
+(defsubst plcmp-tramp-p ()
+  (when (and (featurep 'tramp)
+             (fboundp 'tramp-tramp-file-p))
+    (tramp-tramp-file-p (plcmp-get-current-directory))))
+
+(defsubst plcmp-insert-each-line (los)
+  (insert (mapconcat 'identity los "\n")))
+
+(defun plcmp-get-current-directory ()
+  (file-name-directory
+   (expand-file-name
+    (or (buffer-file-name)
+        default-directory))))
+
+(defun plcmp-re-sort-sources (re sources)
+  "regexp RE にnameがマッチするsourceを先頭に並び替えたsourcesを返す"
+  (let ((match-source
+         (find-if (lambda (source)
+                    (let* ((source (if (listp source) source (symbol-value source)))
+                           (name (assoc-default 'name source 'eq)))
+                      (when (string-match re name)
+                        source)))
+                  sources)))
+    (if match-source
+        (cons match-source (remove match-source sources))
+      sources)))
 
 ;;; log
@@ -342 +201 @@
 
 
-;;;; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-;;;; 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")))
+(defvar plcmp-initial-input "")
+(defvar plcmp-real-initial-input "")
+(defun plcmp-get-initial-input ()
+  (let ((initial-input (buffer-substring-no-properties
+                        (point)
+                        (save-excursion (skip-syntax-backward "w_")
+                                        (point)))))
+    (setq plcmp-real-initial-input initial-input) ;; `plcmp-insert'
+    (concat initial-input
+            (if (featurep 'anything-match-plugin)
+                " "
+              ""))))
+
+;;; installed modules
+(defvar plcmp-installed-modules nil)
+(defun plcmp-get-installed-modules ()
+  (or plcmp-installed-modules
+      (setq plcmp-installed-modules (plcmp--installed-modules-synchronously))))
+
+(defun plcmp--installed-modules-synchronously ()
+  (unless (plcmp-tramp-p)
+    (message "fetching installed modules...")
+    (let* ((modules-str (shell-command-to-string
+                         (concat
+                          "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 ")))
+           (modules (split-string modules-str "\n")))
+      (message "done")
       (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 ()
+  
+;;; current package
+(defvar plcmp-current-package-name "")
+(defun plcmp-get-current-package-name ()
   "nil or string"
-  (let ((re (concat "^[ \t]*package\\s *" "\\([a-zA-Z:]+\\)" ".*;$"))
-        (limit 500))
+  (let ((re (rx-to-string `(and bol
+                                (* space)
+                                "package"
+                                (* space)
+                                (group
+                                 (regexp ,plcmp-perl-package-re))
+                                (* not-newline)
+                                ";"))))
     (save-excursion
       (goto-char (point-min))
-      (when (re-search-forward re limit t)
-        (match-string-no-properties 1)))))
-
+      (when (re-search-forward re nil t)
+        (setq plcmp-current-package-name
+              (match-string-no-properties 1))))))
+
+(defvar plcmp-using-modules nil)
 (defun plcmp-get-using-modules ()
-  (let ((re "^[ \t]*use[ \t]+\\([a-zA-Z:_]+\\)\\s *[^;\n]*;") ;todo
-        (ret nil))
+  (let* ((re (rx-to-string `(and bol
+                                 (* space)
+                                 "use"
+                                 (+ space)
+                                 (group
+                                  (regexp ,plcmp-perl-package-re))
+                                 (* not-newline)
+                                 ";"))))
     (save-excursion
-      (goto-char (point-min))
-      (loop always (re-search-forward re nil t)
-            do (add-to-list 'ret (match-string-no-properties 1))))
-
-    ;; filter plcmp-config-modules-filter-list
-    (setq ret (set-difference ret plcmp-config-modules-filter-list :test 'string-equal))
-    (plcmp-log "get-using-modules: %S" ret)
-    ret))
-
-;;(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)))
-
-(defsubst plcmp-inspect-methods (module)
+      (loop initially (goto-char (point-min))
+            while (re-search-forward re nil t)
+            collect (match-string-no-properties 1)))))
+
+;;; methods
+(defvar plcmp-obj-instance-of-module-maybe-alist nil)
+(defun plcmp-get-obj-instance-of-module-maybe-alist (using-modules)
+  (let* ((using-module-re (regexp-opt using-modules))
+         (re (rx-to-string `(and (group "$" ;1
+                                  (regexp ,plcmp-perl-ident-re))
+                                 (* space)
+                                 "="
+                                 (* space)
+                                 (group      ;2
+                                  (regexp ,using-module-re))))))
+    (save-excursion
+      (loop initially (goto-char (point-min))
+            while (re-search-forward re nil t)
+            collect `(,(match-string-no-properties 1) . ,(match-string-no-properties 2))))))
+
+(defsubst plcmp--make-los (str)
+  (with-temp-buffer
+    (insert str)
+    (loop initially (goto-char (point-min))
+          while (re-search-forward plcmp-perl-ident-re nil t)
+          collect (match-string-no-properties 0))))
+
+(defsubst plcmp--inspect-module-class-inspector (module-name)
   "Class::Inspectorを使用してモジュールのメソッド調べる。
-モジュール名に使用できる文字以外が含まれていた場合はnilを返す
-return los"
+モジュール名に使用でき-る文字以外が含まれていた場合はnilを返す
+return alist (module-name . list of methods)"
+  (when (plcmp-module-p module-name)
+    (let ((modules-str
+           (shell-command-to-string
+            (concat "perl -MClass::Inspector -e'use "
+                    module-name
+                    "; print join \"\n\"=>@{Class::Inspector->methods("
+                    module-name
+                    ")} '"))))
+      (when (and (not (plcmp-notfound-p modules-str))
+                 (stringp modules-str))
+        (let ((modules (plcmp--make-los modules-str)))
+          `(,module-name . ,modules))))))
+
+(defsubst plcmp-get-buffer-subs ()
+  (let ((re plcmp-sub-re))
+    (save-excursion
+      (loop initially (goto-char (point-min))
+            while (re-search-forward re nil t)
+            collect (match-string-no-properties 1)))))
+
+(defun plcmp--inspect-module-scrape (module-name)
+  (when (and (stringp module-name)
+             (plcmp-module-p module-name))
+    (let* ((path (shell-command-to-string (concat "perldoc -l "
+                                                  module-name)))
+           (path (plcmp-trim path)))
+      (when (and (stringp path)
+                 (file-exists-p path)
+                 (file-readable-p path))
+        (with-temp-buffer
+          (insert-file-contents path)
+          (plcmp-get-buffer-subs))))))
+
+(defsubst plcmp--inspect-module (module-name)
+  (or (plcmp--inspect-module-class-inspector module-name)
+      (plcmp--inspect-module-scrape module-name)))
+
+
+(defvar plcmp-module-methods-alist nil
+  "alist, (module-name . (list of methods))")
+(defun plcmp-get-module-methods-alist (using-modules)
+  (dolist (module-name using-modules)
+    (unless (assoc module-name plcmp-module-methods-alist)
+      (add-to-list 'plcmp-module-methods-alist
+                   (plcmp--inspect-module module-name))))
+  plcmp-module-methods-alist)
+
+
+;; module-name -> source
+(defun plcmp--mk-module-source (module-name)
+  (plcmp-aif (assoc-default module-name plcmp-module-methods-alist)
+      `((name . ,(concat module-name " Methods"))
+        (type . plcmp-completion)
+        (init . (lambda ()
+                  (with-current-buffer (anything-candidate-buffer 'global)
+                    (plcmp-insert-each-line ',it))))
+        (candidates-in-buffer))))
+
+
+;; plcmp-using-modules -> sources
+(defun plcmp-get-methods-completion-sources (using-modules)
+  (loop for module-name in using-modules
+        collect (plcmp--mk-module-source module-name)))
+
+
+;;; dabbrev
+(defvar plcmp-buffer-dabbrevs-re
+  (rx (>= 4 (or (syntax word)
+                (syntax symbol)))))
+(defsubst* plcmp-get-buffer-dabbrevs (&optional (re plcmp-buffer-dabbrevs-re))
+  (save-excursion
+    (loop initially (goto-char (point-min))
+          while (re-search-forward re nil t)
+          collect (match-string-no-properties 0))))
+
+;;; current buffer words
+(defsubst* plcmp-get-face-words (&optional (faces '(font-lock-variable-name-face
+                                                    font-lock-function-name-face)))
+  (let ((hash (make-hash-table :test 'equal)))
+    (save-excursion
+      (loop initially (goto-char (point-min))
+            for next-change = (or (next-property-change (point) (current-buffer))
+                                  (point-max))
+            until (eobp)
+            do (progn (when (plcmp-check-face faces)
+                        (plcmp-aif (cperl-word-at-point)
+                            (puthash it nil hash)))
+                      (goto-char next-change)))
+      (let ((ret))
+        (maphash (lambda (k v) (push k ret)) hash)
+        ret))))
+
+(defvar plcmp-current-buffer-words-alist nil
+  "alist, ((variable . (list of variables))
+ (array . (list of arrays))
+ (hash . (list of hashes))
+ (functions . (list of functions)))")
+(add-hook 'plcmp-cleanup-hook (lambda () (setq plcmp-current-buffer-words-alist nil)))
+
+;; (with-current-buffer "Plagger.pm"
+;;   (plcmp-get-face-words '(font-lock-variable-name-face)))
+
+
+(defun plcmp-get-current-buffer-words-alist ()
+  (or plcmp-current-buffer-words-alist
+      (let ((variables (plcmp-get-face-words '(font-lock-variable-name-face)))
+            (arrays (plcmp-get-face-words '(cperl-array-face)))
+            (hashes (plcmp-get-face-words '(cperl-hash-face)))
+            (functions (plcmp-get-buffer-subs)))
+        (setq plcmp-current-buffer-words-alist
+              `((variable . ,variables)
+                (array . ,arrays)
+                (hash . ,hashes)
+                (function . ,functions))))))
+
+
+(defun plcmp-get-current-buffer-variables ()
+  (let ((alist (plcmp-get-current-buffer-words-alist)))
+    (assoc-default 'variable alist 'eq)))
+
+(defvar plcmp-anything-source-current-buffer-variables
+  `((name . "buffer variables")
+    (type . plcmp-completion)
+    (init . (lambda ()
+              (let ((words (plcmp-get-current-buffer-variables)))
+                (with-current-buffer (anything-candidate-buffer 'global)
+                  (plcmp-insert-each-line words)))))
+    (candidates-in-buffer)))
+
+(defun plcmp-get-current-buffer-arrays ()
+  (let ((alist (plcmp-get-current-buffer-words-alist)))
+    (assoc-default 'array plcmp-current-buffer-words-alist 'eq)))
+
+(defvar plcmp-anything-source-current-buffer-arrays
+  `((name . "buffer arrays")
+    (type . plcmp-completion)
+    (init . (lambda ()
+              (let ((words (plcmp-get-current-buffer-arrays)))
+                (with-current-buffer (anything-candidate-buffer 'global)
+                  (plcmp-insert-each-line words)))))
+    (candidates-in-buffer)))
+
+(defun plcmp-get-current-buffer-hashes ()
+  (let ((alist (plcmp-get-current-buffer-words-alist)))
+    (assoc-default 'hash alist 'eq)))
+
+(defvar plcmp-anything-source-current-buffer-hashes
+  `((name . "buffer hashes")
+    (type . plcmp-completion)
+    (init . (lambda ()
+              (let ((words (plcmp-get-current-buffer-hashes)))
+                (with-current-buffer (anything-candidate-buffer 'global)
+                  (plcmp-insert-each-line words)))))
+    (candidates-in-buffer)))
+
+(defun plcmp-get-current-buffer-functions ()
+  (let ((alist (plcmp-get-current-buffer-words-alist)))
+    (assoc-default 'function alist 'eq)))
+
+(defvar plcmp-anything-source-current-buffer-functions
+  `((name . "buffer functions")
+    (type . plcmp-completion)
+    (init . (lambda ()
+              (let ((words (plcmp-get-current-buffer-functions)))
+                (with-current-buffer (anything-candidate-buffer 'global)
+                  (plcmp-insert-each-line words)))))
+    (candidates-in-buffer)))
+
+
+;;; other buffer words
+(defvar plcmp-perl-buffer-re "\\.p[lm]$")
+(defun plcmp-get-other-perl-buffers-words ()
+  (let ((perl-buffers (remove-if-not (lambda (buf)
+                                       (string-match plcmp-perl-buffer-re (buffer-name buf)))
+                                     (buffer-list))))
+    (loop for buffer in perl-buffers
+