Changeset 18858

Timestamp:

09/05/08 00:01:18 (4 months ago)

Author:

imakado

Message:

initial-patternは関数anythingの引数で指定。initとcleanupはsourceで指定。

Files:

• lang/elisp/anything-c-moccur/branches/new-anything/anything-c-moccur.el (modified) (10 diffs)

lang/elisp/anything-c-moccur/branches/new-anything/anything-c-moccur.el

@@ -218 +218 @@
 
 (defun anything-c-moccur-initialize ()
-  (setq anything-c-moccur-anything-invoking-flag t)
-  (setq anything-c-moccur-anything-current-buffer (current-buffer))
-  (setq anything-c-moccur-saved-info nil))
+  (setq anything-c-moccur-saved-info nil
+        anything-c-moccur-anything-invoking-flag t))
 
 (defun anything-c-moccur-anything-try-execute-persistent-action ()
-  (when anything-c-moccur-enable-auto-look-flag
-    (anything-execute-persistent-action)))
+  (when (and anything-c-moccur-enable-auto-look-flag
+             anything-c-moccur-anything-invoking-flag)
+    (unless (zerop (buffer-size (get-buffer (anything-buffer-get))))
+      (anything-execute-persistent-action))))
 
 (defmacro anything-c-moccur-with-anything-env (sources &rest body)
@@ -234 +235 @@
                                 anything-c-moccur-anything-idle-delay)
                                (t anything-idle-delay))))
-     (anything-c-moccur-initialize)
      (add-hook  'anything-c-moccur-anything-after-update-hook 'anything-c-moccur-anything-try-execute-persistent-action)
      (unwind-protect
@@ -241 +241 @@
        (remove-hook 'anything-c-moccur-anything-after-update-hook 'anything-c-moccur-anything-try-execute-persistent-action))))
 
-(defun anything-c-moccur-anything-update-initial-pattern ()
-  (let ((minibuffer-window (active-minibuffer-window)))
-    (when (and minibuffer-window
-               (stringp anything-c-moccur-anything-initial-pattern))
-      (with-current-buffer (window-buffer minibuffer-window)
-        (insert anything-c-moccur-anything-initial-pattern)
-        (anything-check-minibuffer-input)))))
-
-(defadvice anything (around anything-c-moccur-enable-initial-pattern activate)
-  (cond ((and (boundp 'anything-c-moccur-anything-invoking-flag)
-              anything-c-moccur-anything-invoking-flag
-              (not (string-equal "" anything-c-moccur-anything-initial-pattern)))
-         (add-hook  'minibuffer-setup-hook 'anything-c-moccur-anything-update-initial-pattern)
-         (unwind-protect
-             ad-do-it
-           (remove-hook 'minibuffer-setup-hook 'anything-c-moccur-anything-update-initial-pattern)))
-        (t
-         ad-do-it)))
-
 (defun anything-c-moccur-clean-up ()
   (setq anything-c-moccur-anything-invoking-flag nil)
-
   (when (overlayp anything-c-moccur-current-line-overlay)
     (delete-overlay anything-c-moccur-current-line-overlay)))
-
-(defadvice anything-cleanup (after anything-c-moccur-clean-up activate protect)
-  (ignore-errors
-    (anything-c-moccur-clean-up)))
 
 ;; (anything-next-line) 後のanything-update-hook
@@ -274 +250 @@
 (defvar anything-c-moccur-anything-after-update-hook nil)
 (defadvice anything-process-delayed-sources (after anything-c-moccur-anything-after-update-hook activate protect)
-   (when (and (boundp 'anything-c-moccur-anything-invoking-flag)
-              anything-c-moccur-anything-invoking-flag)
-     (ignore-errors
-       (run-hooks 'anything-c-moccur-anything-after-update-hook))))
+  (when (and (boundp 'anything-c-moccur-anything-invoking-flag)
+             anything-c-moccur-anything-invoking-flag)
+    (ignore-errors
+      (run-hooks 'anything-c-moccur-anything-after-update-hook))))
 
 (defadvice anything-select-action (before anything-c-moccur-saved-info activate)
@@ -364 +340 @@
 
 (defun anything-c-moccur-occur-by-moccur-get-candidates ()
-  (anything-c-moccur-moccur-search anything-pattern t (list anything-c-moccur-anything-current-buffer))
+  (anything-c-moccur-moccur-search anything-pattern t (list anything-current-buffer))
   (anything-c-moccur-occur-by-moccur-scraper))
 
 (defun anything-c-moccur-occur-by-moccur-persistent-action (candidate)
-  (pop-to-buffer anything-c-moccur-anything-current-buffer)
   (anything-c-moccur-widen-if-need)
   (goto-line (string-to-number candidate))
@@ -389 +364 @@
     (action . (("Goto line" . anything-c-moccur-occur-by-moccur-goto-line)))
     (persistent-action . anything-c-moccur-occur-by-moccur-persistent-action)
+    (init . anything-c-moccur-initialize)
+    (cleanup . anything-c-moccur-clean-up)
     (match . (identity))
     (requires-pattern . 3)
@@ -399 +376 @@
     (let* ((initial-pattern (if anything-c-moccur-enable-initial-pattern
                                 (or (thing-at-point 'symbol) "")
-                              ""))
-           (anything-c-moccur-anything-initial-pattern initial-pattern))
+                              "")))
       (when anything-c-moccur-push-mark-flag
         (push-mark))
-      (anything))))
+      (anything nil initial-pattern))))
 
 (defun anything-c-moccur-occur-by-moccur-only-function ()
   (interactive)
   (anything-c-moccur-with-anything-env (list anything-c-source-occur-by-moccur)
-    (let ((anything-c-moccur-anything-initial-pattern "! "))
-      (when anything-c-moccur-push-mark-flag
-        (push-mark))
-      (anything))))
+    (when anything-c-moccur-push-mark-flag
+      (push-mark))
+    (anything nil "! ")))
 
 (defun anything-c-moccur-occur-by-moccur-only-comment ()
   (interactive)
   (anything-c-moccur-with-anything-env (list anything-c-source-occur-by-moccur)
-    (let ((anything-c-moccur-anything-initial-pattern ";;; "))
-      (when anything-c-moccur-push-mark-flag
-        (push-mark))
-      (anything))))
+    (when anything-c-moccur-push-mark-flag
+      (push-mark))
+    (anything ";;; ")))
 
 ;;; dmoccur
@@ -500 +474 @@
     (match . (identity))
     (requires-pattern . 5)
+    (init . anything-c-moccur-initialize)
+    (cleanup . anything-c-moccur-clean-up)    
     (delayed)
     (volatile)))
@@ -536 +512 @@
     (match . (identity))
     (requires-pattern . 3)
+    (init . anything-c-moccur-initialize)
+    (cleanup . anything-c-moccur-clean-up)    
     (delayed)
     (volatile)))
@@ -622 +600 @@
   (anything-c-moccur-match-only-internal "\" "))
 
+
+(dont-compile
+  (when (fboundp 'expectations)
+    (expectations
+      (desc "initialize test")
+      (expect t
+        (let (v)
+          (anything-test-candidates
+           '(((name . "TEST")
+            (candidates "foo")
+            (init . (lambda ()
+                      (anything-c-moccur-initialize)
+                      (setq v anything-c-moccur-anything-invoking-flag)))
+            (cleanup . anything-c-moccur-clean-up))))
+            v))
+      (desc "cleanup test")
+      (expect nil
+        (let ((anything-c-moccur-anything-invoking-flag t))
+          (anything-test-candidates
+           '(anything-c-source-occur-by-moccur))
+          anything-c-moccur-anything-invoking-flag))
+      (desc "anything-c-source-occur-by-moccur")
+      (expect '(("Occur by Moccur" ("    2 bbb")))
+        (let ((buf (get-buffer-create "*test anything-c-moccur*")))
+        (with-current-buffer buf
+          (insert "aaa\nbbb\nccc")
+          (prin1
+           (anything-test-candidates
+            '(anything-c-source-occur-by-moccur) "bbb")
+           (kill-buffer buf)))))
+        )))
+
+
 (provide 'anything-c-moccur)