thing-at-point を応用したファイルの検索

2016-06-28 (Tue)  Taro YAMADA  <taro@example.jp>

   * 設定 elisp の変更 [elisp][setup]: find-file
   (file: ~/.emacs.d/inits/51-file.el)
   上記ファイルを変更して fugafuga 出来るようにした.

   * hogehoge 開発 [log]: 進捗確認
   (file: /work/foo/bar/hogehoge.py)

   * ○○の改善案 [foo][log]: 文書下書きの作成
   (file: /work/doc/2016/foo.org)
   あす 4 章目の修正を行う.
   文字数のチェック.

2016-06-28 (Tue)  Taro YAMADA  <taro@example.jp>

   * theme 開発 [log]: 一応完成
   (file: /work/theme/hogehoge.pl)

2016-06-28 (Tue)  Taro YAMADA  <taro@example.jp>

   * theme 開発 [log]: 一応完成
   (file: /work/theme/hogehoge.pl)

 1: (ffap-bindings)
 2: ; main function
 3: (defun search-file-at-point-with-dir-search()
 4:   (interactive)
 5:   (let* (
 6:          ;; カーソル上のファイル名らしき文字列をとる
 7:          (my-path  (thing-at-point 'filename))           ;; fname with dir
 8:          ;; (最初の位置, 最後の位置)をリストで取得
 9:          (bounds   (bounds-of-thing-at-point 'filename))
10:          (my-dir   nil)
11:          (my-pdir  nil)  ;; 親 directory
12:          (my-fname nil)
13:          (stt      nil)
14:          (end      nil)
15:          )
16:     (setq stt      (car bounds))
17:     (setq end      (cdr bounds))
18:     (setq my-dir   (file-name-directory    my-path)) ;; dir name
19:     (setq my-fname (file-name-nondirectory my-path)) ;; file name
20:     ;(y-or-n-p (message "my-path =%s" my-path))
21:     ;; 親 dir でも検索(dir が二つずれてるときも対処するように
22:     (setq my-pdir  (file-name-directory    (directory-file-name my-dir)))
23:     ;(y-or-n-p (message "my-path =%s" my-path))
24:     (cond
25:      ;; ファイルが存在してれば開く
26:      ;((file-exists-p    my-path) (find-file my-path))
27:      ;; やっぱ開くのはやめて存在を主張して終了
28:      ((file-exists-p    my-path) (message "file %s exists" my-path))
29:      ;; ファイルが存在してなくて dir があれば検索
30:      ((file-directory-p my-dir)  (my-search-path-file my-dir  my-fname stt end))
31:      ;; my-dir が存在してなくてももう少し頑張る. 親 dir があれば検索をする.
32:      ((file-directory-p my-pdir) (my-search-path-file my-pdir my-fname stt end))
33:      ;; 親 dir も存在してなければ諦めて試合終了
34:      (t (message "dir %s is not found" my-dir))
35:      )
36:     )
37:   )

 1: (defun my-search-path-file(my-dir my-fname stt end)
 2:   (let ((files    nil)
 3:         (fpath    nil)
 4:         (maxdepth nil)
 5:         (home-dir (substitute-in-file-name "$HOME")) ;; see clmemo.el
 6:         )
 7:     ;; 調査する dir の深さを minifuffer から入れたければ
 8:     ;(setq maxdepth (string-to-number (read-string "depth:" "3" nil "3")))
 9:     (setq maxdepth 3)
10:     ;; 条件にあうファイルをリストで取り出す
11:     (setq files    (directory-files-recursive my-dir my-fname maxdepth nil))
12:     ;; 最初のファイルを取り出して, $HOME -> "~" に変更
13:     (setq fpath    (replace-regexp-in-string home-dir "~" (car files)))
14:     ;; 書き直し
15:     (save-excursion
16:       (delete-region stt end)
17:       (goto-char stt)
18:       (insert fpath)
19:       )
20:     )
21:   )

 1: ;; Recursively listing directories in elisp - turingMachine
 2: ;; http://turingmachine.org/bl/2013-05-29-recursively-listing-directories-in-elisp.html
 3: (defun directory-files-recursive(directory match maxdepth ignore)
 4:   (let* ((files-list '())
 5:          (current-directory-list (directory-files directory t))
 6:          )
 7:     ;; while we are in the current directory
 8:     (while current-directory-list
 9:       (let ((f (car current-directory-list)))
10:         (cond
11:          ((and
12:            ignore ;; make sure it is not nil
13:            (string-match ignore f))
14:            ; ignore
15:           nil
16:           )
17:          ((and
18:            (file-regular-p f)
19:            (file-readable-p f)
20:            (string-match match f))
21:           (setq files-list (cons f files-list))
22:           )
23:          ((and
24:            (file-directory-p f)
25:            (file-readable-p f)
26:            (not (string-equal ".." (substring f -2)))
27:            (not (string-equal "." (substring f -1)))
28:            (> maxdepth 0))
29:           ;; recurse only if necessary
30:           (setq files-list (append files-list (directory-files-recursive f match (- maxdepth -1) ignore)))
31:           ;(setq files-list (cons f files-list))
32:           )
33:          (t)
34:          )
35:         )
36:       (setq current-directory-list (cdr current-directory-list))
37:       )
38:     files-list
39:     )
40:   )

(file: /work/theme/hogehoge.pl)

(file: /work/theme/version1/hogehoge.pl)

(setq pdir (file-name-directory (directory-file-name dir)))
;; dir                   = /foo/bar/hoge/
;; /foo/bar/hoge         = (directory-file-name dir)
;; /foo/bar/             = (file-name-directory "/foo/bar/hoge")

(setq hoge (read-string "prompt:" default値 nil 何も入れなかたときの値))
(setq num  (string-to-number hoge)) ;; 数値にする

;; (file: /work/theme/hogehoge.pl)
;; 'filename にすると, 最後の ")" はとっていい感じでファイル名を取り出せる
(setq    st  (thing-at-point           'filename))
(setq bounds (bounds-of-thing-at-point 'filename))

;; カーソルは /foo/bar/hoge/file.pptm の上にあって,
;; /foo/bar/hoge 以下には実際は file.pptm というファイルが無い場合には
(setq fname (ffap-file-at-point))
;; fname="/foo/bar/hoge/" となる.

(message "%s" dir-list)