emacs，强化版的eassist

在.cpp和.h中切换这一功能，最初在VC6的VA中用到，发觉是个不可替代的东西。

eclipse中也有，emacs中的eassist也有提供，不过只能找同一目录，或者已经打开的单个buffer太弱了。

 

由于最近做symbian开发，src和inc分别放头文件，所以在不同目录中找.cpp和.h就变得很重要。

不过这里更进一步：在所有打开的文件中，或者目录中，找寻同目录的.cpp或.h打开。。

 

把这段代码加到eassist.el中就可以了，要注意这里改写了函数eassist-switch-h-cpp

 

(defun get-buffer-regexp (b) (dolist (bf (buffer-list)) (if (string-match b (buffer-name bf)) (return bf)))) (defun get-buffers-regexp (b) (let (res) (dolist (bf (buffer-list) res) (if (string-match b (buffer-name bf)) (add-to-list 'res bf))))) (defun switch-into-buffers-completing (buffers) (let* ((names (mapcar 'buffer-name buffers)) (single (= (length names) 1)) choice) (if single (switch-to-buffer (car buffers)) (progn (setq choice (completing-read "Multiply Target, Which One? :" names nil t (try-completion "" names))) (switch-to-buffer (get-buffer choice)))))) (defun switch-into-files-completing (dirs fn) (let* ((single (= (length dirs) 1)) choice) (if single (find-file (concat (car dirs) fn)) (progn (setq choice (completing-read (format "Multiply Target for file %s, Which One? :" fn ) dirs nil t (try-completion "" dirs))) (find-file (concat choice fn) ))))) (defun find-file-around-buffers-and-file (fn) (remove-if-not '(lambda (dir) (file-exists-p (concat dir fn))) (remove-duplicates (mapcar 'file-name-directory (remove-if 'null (mapcar '(lambda (b) (or (buffer-file-name b) (save-excursion (set-buffer b) dired-directory))) (buffer-list)))) :test 'equal))) ;;;###autoload (defun eassist-switch-h-cpp () "Switch header and body file according to `eassist-header-switches' var. The current buffer's file name extention is searched in `eassist-header-switches' variable to find out extention for file's counterpart, for example *.hpp <--> *.cpp." (interactive) (let* ((ext (file-name-extension (buffer-file-name))) (base-name (file-name-sans-extension (file-name-nondirectory (buffer-file-name)))) (base-path (file-name-sans-extension (buffer-file-name))) (count-ext (cdr (find-if (lambda (i) (string= (car i) ext)) eassist-header-switches)))) (cond (count-ext (unless (or (loop for b in (mapcar (lambda (i) (concat base-name "." i)) count-ext) when (get-buffers-regexp (concat "^" (regexp-quote b))) return (switch-into-buffers-completing (get-buffers-regexp (concat "^" (regexp-quote b))))) (loop for c in (mapcar (lambda (count-ext) (concat base-path "." count-ext)) count-ext) when (file-exists-p c) return (find-file c)) (loop with final-dirs = nil for c in (mapcar (lambda (count-ext) (concat base-name "." count-ext)) count-ext) when (setq final-dirs (find-file-around-buffers-and-file c)) return (switch-into-files-completing final-dirs c)) ) (message "There is no corresponding pair (header or body) file."))) (t (message "It is not a header or body file! See eassist-header-switches variable.")))))