isearch の改良

(defadvice isearch-repeat (before hogehoge activate)
    ;; 1. 次の検索ワードを探して位置を調べておく.
    ;; 2. 次の howm ファイルのありかを探して位置を調べておく.
    ;; 3. 次の howm のありか > 次の hogehoge のありか であれば howm ファイルの中へ入りその中を検索.
)

(add-hook'isearch-mode-hook 'idive--init)

;; 開いている buffer が母艦であればその後色々やる.
;; 母艦ファイル(ChangeLog)じゃなければふつーにやる.
(defun idive--init()
  (let ((cbuf  (current-buffer)))
    (when (idive--mother-buffer-p)
      ;; is-dive-mother-fname (母艦)の buffer を持っておく
      (setq idive-mother-buffer cbuf)
      ;; 既に開いている buffer の list を hash でとる.
      (idive--get-hash-already-exist-buffers)
      ;; 訪問した buffer を記録する場所を初期化
      (setq idive-dived-files-hash (make-hash-table :test 'equal))
      )
    )
  )

;; 今開いてるのが mother-buffer かどうかを確認する
(defun idive--mother-buffer-p()
  (let ((fpath nil))
    (if buffer-file-name (setq fpath (expand-file-name buffer-file-name)))
    (if (and fpath idive-mother-fpath (string= fpath idive-mother-fpath))
        t
      nil)
    )
  )

(setq idive-visit-dived-file-p nil)

;; isearch 終了
(add-hook 'isearch-mode-end-hook 'idive--reset)

;; 以下のパラメータをリセットする.
(defun idive--reset()
  ;; 母艦ファイル(ex. ChangeLog)の buffer
  (setq idive-mother-buffer nil)
  ;; 既に訪問した buffers のリスト(hash)
  (setq idive-dived-files-hash nil)
  ;; 検索を行う前から元々開いてた buffers
  (setq idive-already-exist-hash nil)
  ;; 訪問するファイルの名前(一番重要な一時変数)
  (setq idive-fname nil)
  ;; 元の検索語(isearch-string) が母艦ファイル上で次どこにあるかの場所
  (setq idive-next-point nil)
  ;; isearch-repeat 直前にいた母艦ファイル上の場所
  (setq idive-present-point nil)
  ;; isearch-string(検索語)の退避場所
  (setq idive-isearch-string nil)
  ;; 今から訪問する file 名が書いてある母艦ファイル上の場所
  (setq idive-fname-point nil)
  )

(defadvice isearch-repeat (around is-dive-isearch-repeat activate)
  "Dive another buffer."
  (if (idive--mother-buffer-p) ;; 今母艦ファイル内を検索している場合
      (if idive-fname
          (idive--dive-another-buffer)  ;; idive-fname があればそのファイルに移動 (isearch は実行しない)
        (idive--search-idive-fname)     ;; idive-fname が無ければ探して
        ad-do-it                        ;;             isearch を実行
        )
    ;; 検索しているファイルが母艦ファイルでない場合
      ;; idive-fname を訪問していて 検索が終わった場合は母艦ファイルに戻る
    (if (and (idive--another-buffer-p) (not isearch-success))
        (idive--return-mother))
    ;; isearch を実行
    ad-do-it
    )
  )

(defadvice isearch-repeat (around isearch-repeat-idive-ad activate)
  "Dive another buffer."
  (when idive-toggle
    (if (idive--mother-buffer-p) ;; mother file の検索の場合
        (if idive-fname
            (idive--dive-another-buffer)  ;; idive-fname があればそのファイルに移動 (isearch 実行しない)
          (idive--search-idive-fname)     ;; idive-fname が無ければ探して
          ad-do-it                        ;;             isearch を実行
          )
      ;; mother file でない場合
      ;; idive-fname を訪問していて 検索が終わった場合は mother に戻る
      (if (and (idive--another-buffer-p) (not isearch-success))
          (idive--return-mother)
        ;; そうでなければ isearch を実行(普通はここが動く)
        ad-do-it
        )
      )
    )
  ;; やらないとき
  (unless idive-toggle ad-do-it)
  )

(defun idive--search-idive-fname()
  ;; 今の母艦上の場所を保存する.
  (setq idive-present-point (point))
  ;; 検索文字列を元々のものに戻しておく(isearch-string)
  (idive--return-isearch-string)
  ;; 検索して次の場所を保存しておく
  (setq idive-next-point (idive--get-next-point isearch-string nil))
  ;; 母艦上の場所を一旦元に戻す
  (idive--goto-char)
  ;; 現在の場所(idive-present-point) - idive-next-point 内に idive-fname(howm ファイル)があるかどうかを調べる
  (idive--get-dive-file)
  ;; もし idive-fname があれば, 一時的に検索文字列を idive-fname に変更する.
  (when idive-fname
      (idive--change-isearch-string)
      ;; カーソル位置の調整
      (goto-char (if isearch-forward (- idive-fname-point (length isearch-string))
                   (+ idive-fname-point (length isearch-string))))
    )
  )

(defun idive--get-next-point(str end)
  (let ((pnt nil))
    (if migemo-isearch-enable-p
        (setq pnt (migemo-forward str end t (idive--isdir)))
      (setq (search-forward str end t (idive--isdir)))
      )
    png
    )
  )

(defun idive--dive-another-buffer()
  ;; 母艦ファイル(ex. ChangeLog ファイル)内を移動する
  (idive--get-next-point idive-fname idive-next-point)
  ;;
  ;; dive into the file (idive-fname)
  ;;
  ;; ファイルを開く
  (find-file (idive--expand-file-name idive-fname))
  ; 検索文字列を元に戻す
  (idive--return-isearch-string)
  ; isearch-forward の値に応じてファイルの先頭あるいは最後に移動する
  (goto-char (if isearch-forward (point-min) (point-max)))
  ;; 一つも見つからないエラーが出るので
  (setq isearch-case-fold-search t)
  )

(defun idive--return-mother()
  ;; 今開いてる buffer を閉じる(もし元から開いてなければ)
  (idive--kill-buffer-not-already-exist)
  ; 検索文字列 isearch-string を idive-fname にして
  (idive--change-isearch-string)
  ; idive-fname は未定義にしておく.
  ; これでこのファイルに関しての探索を終了させる.
  (setq idive-fname nil)
  ;; 母艦ファイルに戻る
  (switch-to-buffer idive-mother-buffer)
  ; 念のため
  (goto-char idive-fname-point)
  (setq idive-fname-point nil)
  )

(defun idive--get-dive-file()
  (let ((suffs       idive-fname-patterns)
        (sff         nil)
        (dpoint      nil)
        (fname       nil)
        (fpath       nil)
        (dive-points (list)) ;; 配列の定義
        (fhash       (make-hash-table :test 'equal))
        (dhash       (make-hash-table :test 'equal))
        (dp          nil)
        (fnames      (list))
        (rep         nil)
        )
    ;; 初期化
    (setq idive-fname nil)
    (save-excursion
      (while suffs
        (setq sff (car suffs))
        (setq rep t)
        (while rep
          (setq dpoint (idive--get-next-point sff idive-next-point))
          (setq fpath nil)
          (setq fname nil)
          (when dpoint ;; 見つかったら
            ;; file 名の取り出し
            (setq fname (thing-at-point 'filename))
            ;; fpath (ファイルが存在しなければ nil が返る)
            (setq fpath (idive--expand-file-name fname))
            ;; file が存在して, まだ開いていないとき
            (when (and fpath (not (gethash fpath idive-dived-files-hash)))
              ;; dpoint を push する
              (push dpoint dive-points)
              ;; dpoint => fname
              (puthash dpoint fname  fhash)     ;; fhash[dpoint] =fname
              (unless (gethash fname dhash)     ;; 最初に出てきた fname の場所を記録しておく
                (puthash fname  dpoint dhash))  ;; dhash[fname]  =dpoint
              )
            )
          (unless dpoint (setq rep nil))
          ;; 簡易版: ファイルの探索を最も idive--isdir 方向で最も近い一回で終わらせる
          ;; (==> その代わり idive--filtered をかけない)
          ;; 以下をコメントアウトすれば  idive-present-point から idive-next-point
          ;; までにある全てのファイルの検索を行う => 範囲が広ければ結構時間がかかることもある.
          ;(setq rep nil)
          )
        (idive--goto-char)
        (setq suffs (cdr suffs))
        )
      )
    (if (= (idive--isdir)  1) (setq dive-points (sort dive-points '<)))
    (if (= (idive--isdir) -1) (setq dive-points (sort dive-points '>)))
    ;; ファイル名のリストをつくる
    (while dive-points
      (setq dp          (car dive-points))
      (push (gethash dp fhash) fnames)
      (setq dive-points (cdr dive-points))
      )
    ;; filter をかける場合(検索文字列が無いファイルは開かない)
    (setq idive-fname (idive--filtered fnames))
    ;; もし idive-fname があれば, fname の場所を確保しておく
    (if idive-fname (setq idive-fname-point (gethash idive-fname dhash)))
    ; filter をかけない場合は以下
    ;(setq idive-fname (car fnames))
    ;; ここで dive するファイルを登録する
    ;; (idive-visit-dived-file-p が t ならば登録しない)
    (unless idive-visit-dived-file-p
      (if idive-fname
          (puthash (idive--expand-file-name idive-fname) t idive-dived-files-hash)))
    )
  )